İdeal Kilo Hesaplama VB 6.0 

 

  

[Code='VB.NET']Private Sub Form_Load()
Option1.Value = True
Option1.Caption = “bayan”
Option2.Caption = “bay”
Label3.Caption = “ideal kilonuz”
Label1.Caption = “boyunuzu giriniz”
Label2.Caption = “kilonuzu giriniz”
Text1.Text = “”
Text2.Text = “”
Label4.Caption = “”
Label5.Caption = “”
Command1.Caption = “hesapla”
End Sub
Private Sub Command1_Click()
If Option1.Value = True Then Label4.Caption = Val(Text1.Text) – 108
If Option2.Value = True Then Label4.Caption = Val(Text1.Text) – 110
If Text2.Text < Label4.Caption Then Label5.Caption = Label4.Caption - Text2.Text & " kilo almanız gerekiyo"
If Text2.Text > Label4.Caption Then Label5.Caption = Text2.Text – Label4.Caption & ” kilo vermeniz gerekiyo”
End Sub
[/Code]

 

 

Rica: Sitemizin Google'da Ön Sıralarda Çıkması İçin Lütfen Alttaki Google+ Butonuna Tıklayınız , Sayfamızı Facebookta Beğeniniz veya yazıları Twitter,Facebookta paylaşınız.