Yazılım - Program 20 Kasım 2014, 09:44

Yanıp Sönen Form Ekranı Visual Basic

Private Sub Command1_Click()
Dim sayi1, sayi2 As Integer

Timer1.Interval = 5000

sayi1 = Int((6 * Rnd) + 1) ‘ 1
Text1.Text = sayi1
sayi2 = Int((6 * Rnd) + 1) ‘ 1
Text2.Text = sayi2

Dim a As Integer
a = sayi1
If a = sayi2 Then

Label1.Caption = “Tebriklerrrrrrr, Aynı Sayıları Denk Getirdiniz.”
Label1.Visible = True

Timer1.Enabled = True

ElseIf a <> Text2.Text Then
Label1.Visible = False

‘MsgBox (“Yanlış Tekrar Deneyiniz”)
End If

End Sub

Private Sub Form_Load()
Label1.Visible = False

End Sub

Private Sub Timer1_Timer()

For i = 0 To 5 + 1

For X = 1 To 5000: DoEvents: Next X
Form1.BackColor = vbRed
For X = 1 To 5000: DoEvents: Next X
Form1.BackColor = vbBlue
For X = 1 To 5000: DoEvents: Next X
Form1.BackColor = vbGreen
For X = 1 To 5000: DoEvents: Next X
Form1.BackColor = vbRed

For X = 1 To 5000: DoEvents: Next X
Form1.BackColor = vbGreen
For X = 1 To 5000: DoEvents: Next X
Form1.BackColor = vbRed

Timer1.Enabled = False

Next

End Sub

VN:F [1.9.22_1171]
Rating: 10.0/10 (1 vote cast)
VN:F [1.9.22_1171]
Rating: 0 (from 0 votes)
Yanıp Sönen Form Ekranı Visual Basic, 10.0 out of 10 based on 1 rating

Yazar Bilgileri

admin sedat.hackerr@gmail.com
Yazar, henüz hakkında herhangi bir bilgi paylaşımında bulunmamış.

Benzer İçerikler

Yorum Yap

*