Randomize ile Picturebox Görünümü

Bu dersimizde sizlere randomize ile picturebox görünümünü göstereceğim. Picturebox'ın Properties'ten visible ayarını "false" yapalım. 3 label ekleyelim ve text ini 0 yapalım.2 adetdebutton koyalım.

Bu dersimizde sizlere randomize ile picturebox görünümünü göstereceğim.

Picturebox'ın Properties'ten visible ayarını "false" yapalım.

3 label ekleyelim ve text'ini 0 yapalım. 2 adet de button koyalım.




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

  • Etiketler;
Yusuf Göksu Coşkun
Lefke Avrupa Üniversitesi - Bilgisayar Mühendisliği
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

hocam bu ne işimize yarıyacak??
yeni başlayanlara yardımı dokunur azizbey sen boşver emeklenmeden yürünmez dimi ama
:d YUSUF 4 LERİ NİE DEÃİŞtirdin :)
cnm istedi olm :D
ben üçün örnekte hiç bir şey anlamdım k.b. yardımcı olurmusnuz......:D

Yukarı Git