Ben denedim yapamadım.Lütfen biln yapsın Belirteyim;Do Loop,if,For,Diziler kullanılarak yapılacak...
Soru: Klavyeden 5 kullanıcı adı ve 5 parola girilecek.Ardından kullanıcı adı ve parolayı kullanıcıyı sordurucaz ve daha önce girdiğimiz 5 kullanıcı adı ve parolodan biriyse tebrikle yazacak değilse "tekrar deneyin" yazacak
ben böyle bişey yaptım çok yaklaştım biliyorum ama olmadı.
Dim i, par(4), parg As Integer Dim ka(4), kag As String For x = 1 To 5 Write("Kullanıcı Adı giriniz=") ka(i) = ReadLine() Write("Parola Giriniz=") par(i) = ReadLine() Next Do Write("Kullanıcı Adı giriniz=") kag = ReadLine() Write("Parola Giriniz=") parg = ReadLine() Loop While (kag <> ka(i) Or parg <> par(i)) Write("Tebrikler") ReadLine()
dh_citizen@hotmail.com ekle orda yardım olucaklar size.