İdeal Kilo Hesaplama VB 6.0
[code lang=”VB”]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]
mrb sizden bisi rica edebilirmiyim ben ünüv ögrencısıyım bilgisayar bolumunde okuyorum ve benım proje odevim bu idaal kilo verme ben yapamadım ama siz bunu bana yollarsanız cok iyi olur.
Bn bunu yptm aynısını ama oLmuyor yazılar kırmızı gorunuo ve hata verıyor yardımcı oLursanız sevinirm …
hatayı yazarsan yardımcı oluruz.
mrb eksi lerde hata veriyo yardımcı olursanız sevinirm
amp ler yazılmayacaktı.Düzelttim.Tekrar dene yukarıdaki kodları.
sizden tek ricam ideal kilo için bana yardımcı olmanızı istiyorum.ben üniversite öğrncisiyim hocamız bunu proje ödevi olarak istedi ama yapamadım lütfen….
Vb 10 la da oluyormu acaba ?
olur tabiki.
Teşekkürler admin.
eksi lerde hiç bi sorun yok.
ama 35 kiloyum yazdım 144 kilo ver dedi
visual basic 6.0 portable enterprise edition kullanın eksilerde bişe olmaz