Fethi Polat 1
Fethi Polat
noisiv 1
noisiv
Manwe Work 1
Manwe Work
Scarlet 1
Scarlet
xranzei 1
xranzei
Hikaye Ekle

Basit Bir Tespih Matik Yapalım :)

  • Konuyu başlatan Konuyu başlatan mete80
  • Başlangıç tarihi Başlangıç tarihi
  • Cevaplar Cevaplar 1
  • Görüntüleme Görüntüleme 493

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

:l03::l03::l03: Arkadaşlar Merhaba.... :l03::l03::l03:

Önce Yapacağımız Çok Zor Bir Şey Değil...Ama Değişkenleri Kavramak , Anlamak ve Hakim Olmak Için Değişkenlerle Biraz Uğraşmanız Şart... !

Şimdi Yeni Bir Form Açalım :



Ardından Forma 2 Adet PictureBox Ve 3 Adet Label Ekleyelim...

Google dan Bir Arkaplan ve 2 Adet Resim Bulup Indirin...
Benim Bulduklarım Bunlar :



Sonra Form1 ' in Başlığını "Tespihmatik Ver.1.0.0" Yapın.Yada Canınızın Istediğini.
Background image ' den resmi seçin.
bacground image layout = none yapın
FormBorderStyle = FixedSingle
MaximizeBox = False
MinimizeBox = False
StartPosition = CenterStreen
BackColor = White

pictureboxların cursorlarını = hand yapın
pictureboxların size mode = strech yapın
Picturebox1 ve Picture Box 2 nin Resimlerini Seçin.(Resimde Button1 ve Button2 Demişim.)

Label1 ' in Ismini 0 Yapın Bu Bizim Tespih Çekince Artıcak.
Label2 Tespih Çek , Label3 De Sıfırla OLsun.

Formun Dizaynını Yapın.Benimki Böle Oldu :



Sıra Geldi Kod Yazmaya
Public Class Form1 un Altına :
Kod:
Dim tespih As Integer = 0
'burada tespih adında bir tamsayı değişkeni oluşturduk'
Picture Box 1 ' in Click Olayına
Kod:
tespih = tespih + 1 ' burda her tıklamada tespih değeri bir arttı '
Label1.Text = tespih ' burda label1 metnini tespih sayısına eşitledik '
Picture Box 2 ' in Click Olayına
Kod:
Label1.Text = "0"    ' label1 metnini sıfırladık ' 
tespih = 0  ' tespih değerini sıfıra eşitledil '

Isteyen Projeyi Indirebilir :
Virus Taraması : ,

Şimdilik Bu Kadar :D
 

Şu an konuyu görüntüleyenler (Toplam : 0, Üye: 0, Misafir: 0)

Geri
Üst