- Mindenki AI-t akar, már 2025-re is eladták a HBM chipeket
- XPEnology
- Facebook és Messenger
- A legtöbb amerikai szerint a TikTok egy őket befolyásoló eszköz
- Az USA nem akarja visszafogni Kína növekedését
- Crypto Trade
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Adobe Illustrator kérdések
- A pápa egyre jobban tart a romlott AI veszélyeitől
- Windows 10
Ú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.