Programalama > VISUAL BASIC

Etiketler: hesap, makinesi, kodları

Ort. 0
Puan ver:
Dim a As Integer
Dim b As Integer
Private Sub Command1_Click()
Text1.Text = (a + b)
End Sub

Private Sub Command2_Click()
Text1.Text = (a - b)
End Sub

Private Sub Command3_Click()
Text1.Text = (a * b)
End Sub

Private Sub Command4_Click()
Text1.Text = (a / b)
End Sub

Private Sub Command5_Click()
End
End Sub

Private Sub Command6_Click()
a = InputBox("tabi bilemiyon seni uyanık gir bakam 1. sayını")
b = InputBox("eee hadi 2. sayıyıda gir bari yoksa işlem olmucak haliyle")

End Sub

Private Sub Form_Load()
Command1.Caption = "burası toplar yawrucum"
Command2.Caption = "burası çıkartır ee haliyle"
Command3.Caption = "bu buton ise çarpar"
Command4.Caption = "eee yani burasıdaa bölüyor göz war izan war"
Command5.Caption = "tabi işin bitti çık bakalım bi daha burlarda görmiyim seni :)"
Command6.Caption = "insan 4 işlemi bilmeyince böyle oluyor hangi sayıları işleme sokcaksan burdan gir bakam sayıları"
Text1.Text = ""
Form1.Caption = "CANSU"
Form1.BackColor = vbRed

End Sub


cansu
cansu.forlove@gmail.com


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.