Rastgele yazı oluşturma

vb.nette Rastgele yazı oluşturma

vereceğim kodda label deki text sürekli değişmektedir.

ben timerin Intervalini 100 yaptım istiyen değiştirebilir.

program karışık karışık yazılar yazar labele.

Eklenecekler:

1 label

1 timer(true-100)

Imports System.Text
Public Class Form1
    Sub Deis()
        Dim harf As String = "ABCDEF+GHIİJK=?LMNOÖPRSŞTUÜV&/()[YZ1234567890!'^+&/()3(/&%+^'"
        Dim komut As New Random
        Dim st As New StringBuilder
        For i As Integer = 1 To 20 'www.visualbasicdersleri.com
            Dim idx As Integer = komut.Next(0, 56)
            st.Append(harf.Substring(idx, 1))
        Next
        Me.Text = st.ToString
        Label1.Text = st.ToString
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 'www.visualbasicdersleri.com
        Deis()
    End Sub
End Class

Paylaş :