Forum
Aktif konular
Üyeler
Kurallar
Arama
Hocalar Hatam Nerde Ya (Visual Basic) Hocalar Hatam Nerde Ya (Visual Basic)
-
Bir Bakın valla Tırlatcam
Public Partial Class MainForm
Public Sub New()
Me.InitializeComponent()
End Sub
Sub CmdislemClick(sender As Object, e As EventArgs)
Dim boy As Double
Dim kilo As Double
Dim sonuc As Double
Dim basamak As String
kilo=Convert.ToDouble(textBox1.Text)
kilo=kilo*100
boy=Convert.ToDouble(textBox2.Text)
boy=boy*boy
sonuc=kilo/boy
basamak=Convert.ToString(sonuc*100)
basamak=basamak.Remove(basamak.Length-12,12)
lblyuzde.Text="% "+basamak
MsgBox(sonuc)
If sonuc<0.185 Then
lblsonuc.Text="Zayıf"
End if
If sonuc>0.18 Or sonuc<0.25 Then
lblsonuc.Text="Normal"
End if
If sonuc>0.25 Or sonuc<0.30 Then
lblsonuc.Text="Fazla Kilolu"
End if
If sonuc>0.30 Or sonuc<0.35 Then
lblsonuc.Text="Obez Klas 1"
End if
If sonuc>0.35 Or sonuc<0.39 Then
lblsonuc.Text="Obez Klas 2"
End if
If sonuc>0.4 Then
lblsonuc.Text="Obez Klas 3 Morbid"
End If
End Sub
End ClassMOD: Başlıkları daha açıklayıcı yazalım lütfen.
-
Mallık Bende Hacı or ları and yapmam lazım
-
0,185 mi büyük 0,18 mi:)
Mantık ifadelerini düzelttikten sonra ufak aralık sorunlarını da çözmelisiniz (ya 0.25'e eşitse, hiçbir aralığa girmiyor).
Benzer şekilde if - end if ile sürekli kapsam başlatmaya gerek yok. if - else if - else yapısını kullanabilirsiniz. Bu şekilde üst adımlarda aralık yakalanmış ve işlenmiş olsa bile aşağya kadar tüm ifadeler kontrol edilmek zorunda kalacak.
YeniHarman tarafından 29/Oca/13 23:53 tarihinde düzenlenmiştir -
If sonuc>0.18 Or sonuc<0.25 Then
lblsonuc.Text="Normal"
End if
If sonuc>0.25 Or sonuc<0.30 Then
lblsonuc.Text="Fazla Kilolu"
End ifsonuçlar 0,25 ya da 0,30 geldiginde hiç işleme girmyecek bunu fark ettin mi bilmiyorum hepsi için aynı, bence sonuc=<0.25 digerinde sonuc>0.25 böyle yapsan daha mantıklı olur
-
iyiki hatırlattınız hocam az kalsın güme gidiyordum valla :) = leri unuttuk demi
-
madem if döngüsü kullanacaksın her seferinde if döngüsünü açıp kapatmak yerine
if
else if
end if
kullansan daha iyi olur...
-
Hocam ilk kullandım da bende elseif de mi problem var diye değiştirdim şuan iş tamamdır dalmışım biraz formlarla çalışmaya alışkın değilim hep c++ falan konsol adamı olunca ben :)
-
crafty bunu yazdı
madem if döngüsü kullanacaksın her seferinde if döngüsünü açıp kapatmak yerine
if
else if
end if
kullansan daha iyi olur...
VB'den bi cacık anlamasam da bu döngüyü böyle kullanman gerektiğini ben bile anladım la :| -
Haklısın Hocam Tabiki Kendimden utandım nasıl programıcım ben ya :(
-
Theholiqan bunu yazdı
Haklısın Hocam Tabiki Kendimden utandım nasıl programıcım ben ya :(
Hocam mallik degilde dikkatsizlik diyelim suna. Cogumuzun basina geliyor boyle seyler.
Birde alternatif: switch deyimi ilede yapabilirsin.
-
olur hacım böyle şeyler dikkatten kaçabiliyor bazen
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla