Program for clculator in Visual Basic
Calculator The Interface: Coding: Option Explicit Private Sub ButtonNum_Click(Index As Integer) If Num_of_digit > 0 Then If Num_of_digit < 30 Then panel. Caption = panel.Caption + Right$(Str(Index), 1) Num_of_digit = Num_of_digit + 1 End If Else panel.Caption = Right$(Str(Index), 1) Num_of_digit = 1 End If CheckValue End Sub Dim Num_of_digit As Integer Dim key As Integer Dim displayValue As Variant Dim a, b, c, d, e, f, g As Variant Dim memo As Variant Dim newNumber As Boolean Private Sub BZero_Click (Index As Integer) If Num_of_digit > 0 Then panel.Caption = panel.Caption + "0" Else panel.Caption = "0" Num_of_digit = Num_of_digit + 1 End If CheckValue End Sub Sub CheckValue() displayValue = Val(panel.Caption) End Sub Private Sub ButtonNum_Click (Index As Integer) If Num_of_digit > 0 Then If Num_of_digit < 30 Then panel.Caption = panel