rendered paste body Dim teken As String
Dim puntgezet As Boolean
Dim isgelijk As Boolean = False
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click, Button8.Click, Button9.Click, Button13.Click
If isgelijk = True Then
Label1.Text = ""
End If
Label1.Text = Label1.Text & CType(sender, Button).Text
isgelijk = False
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
If puntgezet = True Then Exit Sub
Label1.Text = Label1.Text & "."
puntgezet = True
End Sub
Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
Label1.Text = ""
Label2.Text = ""
puntgezet = False
isgelijk = False
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Select Case teken
Case "+"
Label1.Text = Val(Label1.Text) + Val(Label2.Text)
Case "-"
Label1.Text = Val(Label2.Text) - Val(Label1.Text)
Case "x"
Label1.Text = Val(Label1.Text) * Val(Label2.Text)
Case "/"
If Val(Label1.Text) = 0 Then
Label1.Text = "Can not divide by 0."
Exit Sub
End If
Label1.Text = Val(Label2.Text) / Val(Label1.Text)
End Select
isgelijk = True
Label2.Text = Label1.Text
puntgezet = False
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
teken = "+"
Label2.Text = Label1.Text
Label1.Text = ""
puntgezet = False
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
teken = "-"
Label2.Text = Label1.Text
Label1.Text = ""
puntgezet = False
End Sub
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
teken = "x"
Label2.Text = Label1.Text
Label1.Text = ""
puntgezet = False
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
teken = "/"
Label2.Text = Label1.Text
Label1.Text = ""
puntgezet = False
End Sub
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form4
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Label2 = New System.Windows.Forms.Label
Me.Label1 = New System.Windows.Forms.Label
Me.Button17 = New System.Windows.Forms.Button
Me.Button12 = New System.Windows.Forms.Button
Me.Button16 = New System.Windows.Forms.Button
Me.Button15 = New System.Windows.Forms.Button
Me.Button14 = New System.Windows.Forms.Button
Me.Button13 = New System.Windows.Forms.Button
Me.Button11 = New System.Windows.Forms.Button
Me.Button10 = New System.Windows.Forms.Button
Me.Button9 = New System.Windows.Forms.Button
Me.Button8 = New System.Windows.Forms.Button
Me.Button7 = New System.Windows.Forms.Button
Me.Button6 = New System.Windows.Forms.Button
Me.Button5 = New System.Windows.Forms.Button
Me.Button4 = New System.Windows.Forms.Button
Me.Button3 = New System.Windows.Forms.Button
Me.Button2 = New System.Windows.Forms.Button
Me.Button1 = New System.Windows.Forms.Button
Me.SuspendLayout()
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(-4, -2)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(0, 13)
Me.Label2.TabIndex = 41
Me.Label2.Visible = False
'
'Label1
'
Me.Label1.BackColor = System.Drawing.Color.White
Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label1.Location = New System.Drawing.Point(16, 11)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(161, 20)
Me.Label1.TabIndex = 40
'
'Button17
'
Me.Button17.Location = New System.Drawing.Point(15, 172)
Me.Button17.Name = "Button17"
Me.Button17.Size = New System.Drawing.Size(159, 26)
Me.Button17.TabIndex = 39
Me.Button17.Text = "Clear"
Me.Button17.UseVisualStyleBackColor = True
'
'Button12
'
Me.Button12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button12.Location = New System.Drawing.Point(15, 138)
Me.Button12.Name = "Button12"
Me.Button12.Size = New System.Drawing.Size(31, 25)
Me.Button12.TabIndex = 38
Me.Button12.Text = "."
Me.Button12.UseVisualStyleBackColor = True
'
'Button16
'
Me.Button16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button16.Location = New System.Drawing.Point(144, 76)
Me.Button16.Name = "Button16"
Me.Button16.Size = New System.Drawing.Size(31, 25)
Me.Button16.TabIndex = 37
Me.Button16.Text = "-"
Me.Button16.UseVisualStyleBackColor = True
'
'Button15
'
Me.Button15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button15.Location = New System.Drawing.Point(144, 107)
Me.Button15.Name = "Button15"
Me.Button15.Size = New System.Drawing.Size(31, 25)
Me.Button15.TabIndex = 36
Me.Button15.Text = "x"
Me.Button15.UseVisualStyleBackColor = True
'
'Button14
'
Me.Button14.Location = New System.Drawing.Point(144, 138)
Me.Button14.Name = "Button14"
Me.Button14.Size = New System.Drawing.Size(31, 25)
Me.Button14.TabIndex = 35
Me.Button14.Text = "/"
Me.Button14.UseVisualStyleBackColor = True
'
'Button13
'
Me.Button13.Location = New System.Drawing.Point(52, 138)
Me.Button13.Name = "Button13"
Me.Button13.Size = New System.Drawing.Size(31, 25)
Me.Button13.TabIndex = 34
Me.Button13.Text = "0"
Me.Button13.UseVisualStyleBackColor = True
'
'Button11
'
Me.Button11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button11.Location = New System.Drawing.Point(144, 45)
Me.Button11.Name = "Button11"
Me.Button11.Size = New System.Drawing.Size(31, 25)
Me.Button11.TabIndex = 33
Me.Button11.Text = "+"
Me.Button11.UseVisualStyleBackColor = True
'
'Button10
'
Me.Button10.Location = New System.Drawing.Point(89, 138)
Me.Button10.Name = "Button10"
Me.Button10.Size = New System.Drawing.Size(31, 25)
Me.Button10.TabIndex = 32
Me.Button10.Text = "="
Me.Button10.UseVisualStyleBackColor = True
'
'Button9
'
Me.Button9.Location = New System.Drawing.Point(89, 107)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(31, 25)
Me.Button9.TabIndex = 31
Me.Button9.Text = "9"
Me.Button9.UseVisualStyleBackColor = True
'
'Button8
'
Me.Button8.Location = New System.Drawing.Point(52, 107)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(31, 25)
Me.Button8.TabIndex = 30
Me.Button8.Text = "8"
Me.Button8.UseVisualStyleBackColor = True
'
'Button7
'
Me.Button7.Location = New System.Drawing.Point(89, 76)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(31, 25)
Me.Button7.TabIndex = 29
Me.Button7.Text = "6"
Me.Button7.UseVisualStyleBackColor = True
'
'Button6
'
Me.Button6.Location = New System.Drawing.Point(15, 107)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(31, 25)
Me.Button6.TabIndex = 28
Me.Button6.Text = "7"
Me.Button6.UseVisualStyleBackColor = True
'
'Button5
'
Me.Button5.Location = New System.Drawing.Point(52, 76)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(31, 25)
Me.Button5.TabIndex = 27
Me.Button5.Text = "5"
Me.Button5.UseVisualStyleBackColor = True
'
'Button4
'
Me.Button4.Location = New System.Drawing.Point(15, 76)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(31, 25)
Me.Button4.TabIndex = 26
Me.Button4.Text = "4"
Me.Button4.UseVisualStyleBackColor = True
'
'Button3
'
Me.Button3.Location = New System.Drawing.Point(89, 45)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(31, 25)
Me.Button3.TabIndex = 25
Me.Button3.Text = "3"
Me.Button3.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(52, 45)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(31, 25)
Me.Button2.TabIndex = 24
Me.Button2.Text = "2"
Me.Button2.UseVisualStyleBackColor = True
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(15, 45)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(31, 25)
Me.Button1.TabIndex = 23
Me.Button1.Text = "1"
Me.Button1.UseVisualStyleBackColor = True
'
'Form4
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(190, 211)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Button17)
Me.Controls.Add(Me.Button12)
Me.Controls.Add(Me.Button16)
Me.Controls.Add(Me.Button15)
Me.Controls.Add(Me.Button14)
Me.Controls.Add(Me.Button13)
Me.Controls.Add(Me.Button11)
Me.Controls.Add(Me.Button10)
Me.Controls.Add(Me.Button9)
Me.Controls.Add(Me.Button8)
Me.Controls.Add(Me.Button7)
Me.Controls.Add(Me.Button6)
Me.Controls.Add(Me.Button5)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Name = "Form4"
Me.ShowInTaskbar = False
Me.Text = "Form4"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Button17 As System.Windows.Forms.Button
Friend WithEvents Button12 As System.Windows.Forms.Button
Friend WithEvents Button16 As System.Windows.Forms.Button
Friend WithEvents Button15 As System.Windows.Forms.Button
Friend WithEvents Button14 As System.Windows.Forms.Button
Friend WithEvents Button13 As System.Windows.Forms.Button
Friend WithEvents Button11 As System.Windows.Forms.Button
Friend WithEvents Button10 As System.Windows.Forms.Button
Friend WithEvents Button9 As System.Windows.Forms.Button
Friend WithEvents Button8 As System.Windows.Forms.Button
Friend WithEvents Button7 As System.Windows.Forms.Button
Friend WithEvents Button6 As System.Windows.Forms.Button
Friend WithEvents Button5 As System.Windows.Forms.Button
Friend WithEvents Button4 As System.Windows.Forms.Button
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Button1 As System.Windows.Forms.Button
End Class