Kopyası hesap makinesi kodları

Kopyası hesap makinesi...

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

View Full Document Right Arrow Icon
Public Class Form1 Dim cal As String Dim sign As Integer Dim result As Double 'for decimal results Private Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox.Text = TextBox.Text + "1" sign = 0 End Sub Private Sub Button17_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click TextBox.Text = TextBox.Text + "2" sign = 0 End Sub Private Sub Button16_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click TextBox.Text = TextBox.Text + "3" sign = 0 End Sub Private Sub Button15_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click TextBox.Text = TextBox.Text + "4" sign = 0 End Sub Private Sub Button14_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click TextBox.Text = TextBox.Text + "5" sign = 0 End Sub Private Sub Button20_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click TextBox.Text = TextBox.Text + "6" sign = 0 End Sub Private Sub Button2_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox.Text = TextBox.Text + "7" sign = 0 End Sub Private Sub Button3_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click TextBox.Text = TextBox.Text + "8" sign = 0 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 Button9_Click(
Background image of page 2
Image of page 3
This is the end of the preview. Sign up to access the rest of the 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 / 5

Kopyası hesap makinesi...

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

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