1. sayfa
Dim kullanicikodu As String Dim parola As String Dim rastgele As Integer Randomize rastgele = CInt(Int((999 * Rnd()) + 1)) dizi = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "S", "T", "U", "V", "W", "X", "Y", "Z") Randomize For i = 1 To 3 Index = Int(Rnd() * 25) metin = metin & dizi(Index) Next kullanicikodu = Left(Text1.Text, 2) + Left(Text2.Text, 2) + Right(Text3.Text, 2) parola = Left(Text1.Text, 1) + Left(Text2.Text, 1) + metin + CStr(rastgele)
parloası=öğrencinin adının ilk harfi+soyadının ilk harfi+3 adet rastgele harf+3 adet rastgele rakam
kullanıcı kodu ve parolası oluşturmak için gerekn visual basic kodu nedir ? (programın örneği resim de)
teşekkürler.
< Resime gitmek için tıklayın >