VB-də Randomize (Rəng dəyişməsi)

[Ʌüsal]

Forma 1 ədəd TextBox 1 ədəd ComboBox 2 ədəd RadioButton 1 ədəd Timer yerləşdirin.

 

Daha sonra işə aşağıdakı kodu Forma sırası ilə daxil edin.

 

Public Class Form1

 

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

        Timer1.Start()

        Timer1.Interval = 1000

    End Sub

 

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

        Timer1.Start()

        Timer1.Interval = 1000

    End Sub

 

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Dim a, b, c As String

        If RadioButton1.Checked Then

            Randomiz

e()

            a = Rnd() * 255

            b = Rnd() * 255

            c = Rnd() * 255

            Me.BackC

olor = Color.FromArgb(a, b, c)

 

        End If

        Dim d, f, g As String

        If RadioButton2.Checked Then

        End If

        Randomize()

        d = Rnd() * 255

        f = Rnd() * 255

        g = Rnd() * 255

        TextBox1.BackColor = Color.FromArgb(d, f, g)

    End Sub

 

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        If ComboBox1.Text = "Başla" Then

            Timer1.S

tart()

        End If

        If ComboBox1.Text = "Dayandır" Then

        End If

        Timer1.Stop()

    End Sub

End Class