calcolatrice con visual basic

esempio di calcolatrice numerica ottenuto con visual basic

tabella iniziale

tabella pronta per i calcolo :prepara tastiera

inserimento numero 5

inserimento numero 6

(inserimento operatore per moltiplicare * non visualizzato)
cliccare su calcolare per vedere risultato

listato del programma precedente

Private Sub applica_Click()
Rem prepara tastiera numerica
Dim n As Integer
Dim k(10) As Integer

For n = 0 To 9
k(n) = n
Next n
tasto0.Caption = k(0)
tasto1.Caption = k(1)
tasto2.Caption = k(2)
tasto3.Caption = k(3)
tasto4.Caption = k(4)
tasto5.Caption = k(5)
tasto6.Caption = k(6)
tasto7.Caption = k(7)
tasto8.Caption = k(8)
tasto9.Caption = k(9)
memoria = 0
segno = "+"
End Sub

Private Sub CommandButton1_Click()
valore.Text = ""
End Sub

Private Sub Calcola()
Select Case segno
Case "+"
memoria = memoria + valore.Text
Case "*"
memoria = memoria * valore.Text
Case "-"
memoria = memoria - valore.Text
Case "/"
memoria = memoria / valore.Text
End Select
valore.Text = ""
End Sub

Private Sub calcolare_Click()
Call Calcola
valore.Text = memoria
memoria = 0
segno = "+"
End Sub

Private Sub cancella_Click()
valore.Text = ""
End Sub

Private Sub differenza_Click()
Call Calcola
segno = "-"
End Sub

Private Sub divisione_Click()
Call Calcola
segno = "/"
End Sub

Private Sub prodotto_Click()
Call Calcola
segno = "*"
End Sub

Private Sub somma_Click()
Call Calcola
segno = "+"
End Sub

Private Sub tasto0_Click()
valore.Text = valore.Text & 0
End Sub

Private Sub tasto1_Click()
valore.Text = valore.Text & 1
End Sub

Private Sub tasto2_Click()
valore.Text = valore.Text & 2
End Sub

Private Sub tasto3_Click()
valore.Text = valore.Text & 3
End Sub

Private Sub tasto4_Click()
valore.Text = valore.Text & 4
End Sub

Private Sub tasto5_Click()
valore.Text = valore.Text & 5

End Sub

Private Sub tasto6_Click()
valore.Text = valore.Text & 6
End Sub

Private Sub tasto7_Click()
valore.Text = valore.Text & 7
End Sub

Private Sub tasto8_Click()
valore.Text = valore.Text & 8
End Sub

Private Sub tasto9_Click()
valore.Text = valore.Text & 9
End Sub

Private Sub UserForm_Click()

End Sub