05-10-2011, 17:38
|
#1 (permalink)
|
| Kral
|  Case Kullanımı Örnek [Hesap Makinesi]
Bu dersimizde Case yapısıyla hesap makinesi yapmayı öğreneceğiz.
1 buton
3 text
1 combobox (Item özelliğine girin, Topla, Çıkar, Çarp, Böl yazın.)
Butona Şu Kodu Ekleyin;
Alıntı:
Dim sayi1, sayi2, sayi3 As Double
Dim islem As String
sayi1 = Text1.Text
sayi2 = Text2.Text
islem = Combo1.Text
Select Case islem
Case "Topla"
sayi3 = sayi1 + sayi2
Case "cıkar"
sayi3 = sayi1 - sayi2
Case "Carp"
sayi3 = sayi1 * sayi2
Case "Böl"
sayi3 = sayi1 / sayi2
End Select
Text.Text = sayi3
| |
|  |
![Case Kullanımı Örnek [Hesap Makinesi]](iconimages/forum35/thread8938_ltr.gif)
Normal
