Birazdan yeni web sitemize yönlendirileceksiniz...!!
 ----
Eğer yönlendirilmezseniz "Yeni web sitemize gitmek için buraya tıklayın..."


Visual Basic Dersleri

Kilo Kontrol

Bu Ders Hakkında Sorularınız Varsa Lütfen Buraya Tıklayarak Forum Sayfamızda Bu Konunun Başlığı Hakkında Sorunlarınızı Yazınız.


Kilo Kontrol

Program İçin Gerekli Eklentiler 1- 2 Ad. Buton 2- 6 Ad. TextBox 

Private Sub Command1_Click()
On Error Resume Next
a = Text1.Text
b
= Text2.Text
If Text1.Text = "" Then
MsgBox "BOYUNUZU GİRİNİZ!.."
End If
If Text2.Text = "" Then
MsgBox "KİLONUZU GİRİNİZ!.."
End If
c = (a - 150) / 4 + 100
d = a - c
e
= b - d
Text4.Text
= d
Text3.Text
= " Kilogram Olmanız Gerekli."
Text6.Text
= e
Text5.Text
= " Kilo Farkı Kapatınız."
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub
Private Sub Form_Load()
End Sub
Private Sub Label5_Click()
Shell ("explorer.exe http://www.accesstr.net")
End
Sub









Bu sayfa hakkında yorum ekle:
İsminiz:
E-mail adresiniz:
Siteniz:
Mesajın:

Bugün 13 ziyaretçikişi burdaydı!
=> Sen de ücretsiz bir internet sitesi kurmak ister misin? O zaman burayı tıkla! <=