Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim liste() As String = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "R", "S", "T", "U", "W", "X", "Y", "Z", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"}
Dim r As Random = New Random()
For i = 0 To 7
'Bu kısımda rastgele 0-10000 sayıları içerisinden herhangi
'bir sayı atasın. Bu sayıyı Mod (34) metodu ile karşılık
'gelen stringi alacağız.
liste(i) = liste(r.Next(10000) Mod (34))
Label1.Text = Label1.Text & liste(i)
Next
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Label1.Text = ""
End Sub
End Class
0 comments:
Yorum Gönder