- Yasaklandı
- #1
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Bu dersimizde sizlere randomize ile picturebox görünümünü göstereceğim. [/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Picturebox'ın Properties'ten visible ayarını "false" yapalım. [/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]3 label ekleyelim ve text'ini 0 yapalım. 2 adet de button koyalım.[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Picturebox'ın Properties'ten visible ayarını "false" yapalım. [/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]3 label ekleyelim ve text'ini 0 yapalım. 2 adet de button koyalım.[/FONT]
PHP:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b, c As Integer
Randomize()
a = Rnd() * 7
b = Rnd() * 7
c = Rnd() * 7
Label1.Text = (a)
Label2.Text = (b)
Label3.Text = (c)
PictureBox1.Visible = False
If Label1.Text = "4" Then
PictureBox1.Visible = True
End If
If Label2.Text = "4" Then
PictureBox1.Visible = True
End If
If Label3.Text = "4" Then
PictureBox1.Visible = True
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MsgBox("Bizi Tercih Ettiğiniz İçin Teşekkürler!")
End
End Sub
