Programalama > VISUAL BASIC

Private Sub Command1_Click(Index As Integer)
Dim sayi1, sayi2, sonuc As Double
sayi1 = Val(Text1.Text)
sayi2 = Val(Text2.Text)
Select Case Index
Case 0
sonuc = sayi1 + sayi2
Case 1
sonuc = sayi1 - sayi2
Case 2
sonuc = sayi1 * sayi2
Case 3
sonuc = sayi1 / sayi2
Case 4
sonuc = sayi1 ^ sayi2
End Select
Text3.Text = Str(sonuc)
End Sub

Private Sub Command2_Click()
Text1.Text = ""(tırnak işareti 2 tane)
Text2.Text = ""
Text3.Text = ""

End Sub


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2020 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.