Új hozzászólás Aktív témák

• #1768 Cafu19900916 csendes tag

  Új Válasz 2012-06-11 20:46:37 #1768

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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 Function

  Előre is köszönöm a segítségeteket.

Új hozzászólás Aktív témák