- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Geri Bátyó: Agglegénykonyha 1 – rizseshús másképp
- Ndruu: Segíts kereshetővé tenni a PH-s arcképeket!
- gban: Ingyen kellene, de tegnapra
- Luck Dragon: Asszociációs játék. :)
- Elektromos rásegítésű kerékpárok
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- antikomcsi: Ázsia Expressz 5
- Imilenni: Egy kis depi, remélem elfér itt :) 2#
Ú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
- Fejhallgató erősítő és DAC topik
- AMD vs. INTEL vs. NVIDIA
- Epic Games
- PlayStation 5
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- One otthoni szolgáltatások (TV, internet, telefon)
- Nők, nőügyek (18+)
- Rengeteg pénzt kapott az USA-tól az Intel, de Trump kért cserébe valamit
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Milyen egeret válasszak?
- További aktív témák...
- LENOVO Legion Pro 7 16IRX9H Intel Core i9 14900HX/RTX 4080/32GB RAM/1TB SSD eladó jó áron
- GoPro HERO12 Black + kiegészítők
- Asus ROG Zephyrus G14 GA402XV AMD Ryzen 9 7940HS/RTX 4060/32GB RAM/1TB SSD eladó RITKASÁG!!!
- Új Zsír Lenovo Yoga 7 x360 Érintős Hajtogatós Laptop Tab 14" -40% Ryzen 7 7735U 16/512 2,2K 680M 2GB
- PHILIPS 279M1RV/00 - 4K, USB-C, 144Hz
- Telefon felvásárlás!! Honor 200 Lite, Honor 200, Honor 200 Pro, Honor 200 Smart
- Lenovo LEGION Pro 5 / Pro 7, Lenovo Yoga Pro gépek (RTX 4060 / 4070 / 4080 / 4090)
- Villámgyors teljesítmény és 10 év nyugalom!
- Apple iPhone 12 128GB, Kártyafüggetlen, 1 Év Garanciával
- Acer TravelMate P214 i3-1115G4 12GB 256GB 14" FHD 1év garancia
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest
Cég: FOTC
Város: Budapest