- Mobil flották
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Huawei Watch GT 4 - kerek karék
- Samsung Galaxy S21 FE 5G - utóirat
- Sony Xperia 1 V - kizárólag igényeseknek
- Bluetooth-headsetekről általában
- Huawei Watch Fit 3 - zöldalma
- Hivatalos a OnePlus 13 startdátuma
- Telekom mobilszolgáltatások
- Fotók, videók mobillal
Új hozzászólás Aktív témák
-
Cafu19900916
csendes tag
Sziasztok! A segítségeteket kérném, mivel én nem vagyok járatos Visual BAsicben, ezért hozzátok fordulnék segítségért: kaptam eg ynagyon jó ismerősömtől egy kódrészletet, ami a szakdogájához kellene, de mivel ő műszaki menedzsernek tanul távol áll tőle a programozás. A programkód a következő lenne:
Function Szoveget_General(Hossz As Integer, Seed As Integer) As String
Const Kisbetuk = "aábcdeéfghiíjklmnoóöőpqrstuúüűvwxyz"
Const Szamjegyek = "0123456789"
Const Egyeb = "'!%$/=<>()\/[]#&@{}<,;:.?+-_ "
Dim i As Integer, db As Integer, Karakterek As String, st As String
Rnd (-1)
Randomize (Seed)
Karakterek = Kisbetuk + UCase(Kisbetuk) + Szamjegyek + Egyeb
db = Len(Karakterek)
st = ""
For i = 1 To Hossz
st = st + Mid(Karakterek, Int(Rnd * db) + 1, 1)
Next
Szoveget_General = st
End FunctionElőre is köszönöm a segítségeteket.
Új hozzászólás Aktív témák
- ÁRGARANCIA!Épített KomPhone i5 14400F 16/32/64GB RAM RX 9060 XT 16GB GAMER PC termékbeszámítással
- Samsung Galaxy S21 FE 128GB // Ajándék // Számla // Garancia //
- Vadiúj videókártyák! Kamatmentes rèszletre is! Èrdeklődj!
- BESZÁMÍTÁS! 1000W Sesonic FOCUS GX-1000 Gold tápegység garanciával hibátlan működéssel
- Honor Magic6 Pro 512GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: FOTC
Város: Budapest