1 butona 3-4 fonksiyon(formül) atama(Soru)

aky0l
27-12-2009, 20:44   |  #1  
aky0l avatarı
OP Yeni Üye
Teşekkür Sayısı: 0
48 mesaj
Kayıt Tarihi:Kayıt: Ara 2009

Private Sub h_Click()
If (g1.Text = "" Or t1.Text = "") Then
Label14 = ("Yer Çekimi Kuvvetine Veya Zamana Bir Değer Girmedin.")
Label13 = ("")
Beep
Else
h1.Text = (Int(g1.Text) * Int(t1.Text) * Int(t1.Text)) / 2
End If
End Sub

Örneğin burda işlem sonuçlanmadı ise

Diğer bir formulü uygalacak....

Son Düzenleme: aky0l ~ 27 Aralık 2009 20:44
uGuR.uK
28-12-2009, 13:19   |  #2  
Yıllanmış Üye
Teşekkür Sayısı: 1
8,316 mesaj
Kayıt Tarihi:Kayıt: Haz 2007

ElseIf kullanmayı dene:

Private Sub h_Click()
If (g1.Text = "" Or t1.Text = "") Then
Label14 = ("Yer Çekimi Kuvvetine Veya Zamana Bir Değer Girmedin.")
Label13 = ("")
Beep
ElseIf
h1.Text = (Int(g1.Text) * Int(t1.Text) * Int(t1.Text)) / 2
Else
-işte buraya işlem sonuçlanmadı ise çalıştırılacak komut geliyor-
End If
End Sub

aky0l
28-12-2009, 17:24   |  #3  
aky0l avatarı
OP Yeni Üye
Teşekkür Sayısı: 0
48 mesaj
Kayıt Tarihi:Kayıt: Ara 2009

Teşekür Ederim Senin Dediğin Olmadı Ama Benim İçin Biryoldu Sayende Buldum Diyebilirim...

Son Düzenleme: aky0l ~ 28 Aralık 2009 17:55
uGuR.uK
28-12-2009, 18:18   |  #4  
Yıllanmış Üye
Teşekkür Sayısı: 1
8,316 mesaj
Kayıt Tarihi:Kayıt: Haz 2007
Alıntı: hayalet1741  
Teşekür Ederim Senin Dediğin Olmadı Ama Benim İçin Biryoldu Sayende Buldum Diyebilirim...
rica ederim, bundan ziyade birde if içinde if olayı var, iç içe gömülür if'ler, birinin ilk komutu olmazsa ikinci komutta tekrar bir if başlatırsın ve yazdığın if kadar "end if" ile bitirirsin, ancak bu karışık olabilir.