hesap makinesi - Private Sub Command18_Click() MsgBox...

Info iconThis preview shows pages 1–2. Sign up to view the full content.

View Full Document Right Arrow Icon
Dim a As Double Dim b As Double Private Sub Command1_Click() End Sub Private Sub Command10_Click() a = Text1.Text Text1.Text = "" Label1.Caption = "/" End Sub Private Sub Command11_Click() a = Text1.Text Text1.Text = "" Label1.Caption = "*" End Sub Private Sub Command12_Click() a = Text1.Text Text1.Text = "" Label1.Caption = "-" End Sub Private Sub Command13_Click() a = Text1.Text Text1.Text = "" Label1.Caption = "+" End Sub Private Sub Command14_Click() 'alanları temizle Text1.Text = " " Label1.Caption = "" Beep End Sub Private Sub Command15_Click() b = Text1.Text If Label1.Caption = "+" Then Text1.Text = a + b If Label1.Caption = "-" Then Text1.Text = a - b If Label1.Caption = "*" Then Text1.Text = a * b If Label1.Caption = "/" Then Text1.Text = a / b Beep End Sub
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Private Sub Command16_Click() End Sub
Background image of page 2
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: Private Sub Command18_Click() MsgBox "Bu program DiGiBaNDiT tarafından yapılmıştır. (c).| DiGi Software | 2003-2004", 64, "Program Hakkında" End Sub Private Sub Command2_Click() Text1.Text = Text1.Text & 2 End Sub Private Sub Command3_Click() Text1.Text = Text1.Text & 3 End Sub Private Sub Command4_Click() Text1.Text = Text1.Text & 4 End Sub Private Sub Command5_Click() Text1.Text = Text1.Text & 5 End Sub Private Sub Command6_Click() Text1.Text = Text1.Text & 6 End Sub Private Sub Command7_Click() Text1.Text = Text1.Text & 7 End Sub Private Sub Command8_Click() Text1.Text = Text1.Text & 8 End Sub Private Sub Command9_Click() Text1.Text = Text1.Text & 9 End Sub Private Sub Off_Click() mesaj = MsgBox("Şu anda programdan çıkıyorsunuz. ..", 7, "Program Çıkışı") End End Sub...
View Full Document

This note was uploaded on 11/23/2009 for the course MAK mak411 taught by Professor Erinceren during the Spring '09 term at University of Economics and Technology.

Page1 / 2

hesap makinesi - Private Sub Command18_Click() MsgBox...

This preview shows document pages 1 - 2. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online