hesap makinesi - Private Sub Command18_Click MsgBox"Bu...

Info icon This 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() Text1.Text = Text1.Text & 1 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
Image of page 1

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

View Full Document Right Arrow Icon
Private Sub Command16_Click() Text1.Text = Text1.Text & 0 End Sub
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

{[ snackBarMessage ]}

What students are saying

  • Left Quote Icon

    As a current student on this bumpy collegiate pathway, I stumbled upon Course Hero, where I can find study resources for nearly all my courses, get online help from tutors 24/7, and even share my old projects, papers, and lecture notes with other students.

    Student Picture

    Kiran Temple University Fox School of Business ‘17, Course Hero Intern

  • Left Quote Icon

    I cannot even describe how much Course Hero helped me this summer. It’s truly become something I can always rely on and help me. In the end, I was not only able to survive summer classes, but I was able to thrive thanks to Course Hero.

    Student Picture

    Dana University of Pennsylvania ‘17, Course Hero Intern

  • Left Quote Icon

    The ability to access any university’s resources through Course Hero proved invaluable in my case. I was behind on Tulane coursework and actually used UCLA’s materials to help me move forward and get everything together on time.

    Student Picture

    Jill Tulane University ‘16, Course Hero Intern