En yeni konular, en gücel haberler. En son çıkan internet haberleri. Oyun haberleri. Hepsi webtegez.blogspot.com'da..
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 |