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

*
instagram takipçi programı instagram hesap yönetimi programı twitter takipçi kazanma sitesi twitter takipçi arttırma sitesi twitter takipçi sitesi twitter takipçi kazanma hilesi twitter takipçi kasma hilesi twitter favori hilesi,yükseltme,hilesi,twitter takipçi kasma, hilesi,twitter takipçi hilesi twitter takipçi arttırma hilesi, twitter takipçi kazan, twitterda takipçi arttırmak twitter takipçi instagram takipçi arttırma hilesi, instagram takipçi kazan, instagramda takipçi arttırmak instagram programı instagram web viewer dizi izle yabancı dizi izle