SlideShare a Scribd company logo

Programming

Download as DOCX, PDF
N
naiinisakosayo

This document describes the code for a basic calculator application created in Visual Basic. It includes code for number buttons, operation buttons (+ - / *), and code to perform the calculations when the equals button is pressed. The operations are performed on two variables, num1 and num2, which store the operand values, and a variable op which stores the selected operation.

1 of 7
Downloaded 173 times
1
2
3
4
5
6
7
Calculator in EXCEL - VISUAL BASIC: Private Sub Command15_Click() num1 = Text1.Text Dim op As String Text1.Text = "" Dim num1 As Integer op = "/" Dim num2 As Integer Command15.Visible = False Command21.Visible = True Private Sub Command1_Click() End Sub Text1.Text = Text1.Text & 1 End Sub Private Sub Command16_Click() num1 = Text1.Text Private Sub Command10_Click() Text1.Text = "" Text1.Text = Text1.Text & 0 op = "*" End Sub Command16.Visible = False Command22.Visible = True Private Sub Command11_Click() End Sub Text1.Text = Text1.Text & "." End Sub Private Sub Command17_Click() Text1.Text = "0" Private Sub Command12_Click() End Sub num2 = Text1.Text If op = "+" Then Private Sub Command19_Click() Text1.Text = num1 + num2 num2 = Text1.Text ElseIf op = "/" Then If op = "+" Then Text1.Text = num1 / num2 Text1.Text = num1 + num2 ElseIf op = "*" Then ElseIf op = "/" Then Text1.Text = num1 * num2 Text1.Text = num1 / num2 ElseIf op = "-" Then ElseIf op = "*" Then Text1.Text = num1 - num2 Text1.Text = num1 * num2 End If ElseIf op = "-" Then End Sub Text1.Text = num1 - num2 End If Private Sub Command13_Click() Command13.Visible = True num1 = Text1.Text Command19.Visible = False Text1.Text = "" End Sub op = "+" Command13.Visible = False Private Sub Command2_Click() Command19.Visible = True Text1.Text = Text1.Text & 2 End Sub End Sub Private Sub Command14_Click() Private Sub Command20_Click() num1 = Text1.Text num2 = Text1.Text Text1.Text = "" If op = "+" Then op = "-" Text1.Text = num1 + num2 Command14.Visible = False ElseIf op = "/" Then Command20.Visible = True Text1.Text = num1 / num2 End Sub ElseIf op = "*" Then Text1.Text = num1 * num2
ElseIf op = "-" Then Command16.Visible = True Text1.Text = num1 - num2 Command22.Visible = False End If End Sub Command14.Visible = True Command20.Visible = False Private Sub Command3_Click() End Sub Text1.Text = Text1.Text & 3 End Sub Private Sub Command21_Click() num2 = Text1.Text Private Sub Command4_Click() If op = "+" Then Text1.Text = Text1.Text & 4 Text1.Text = num1 + num2 End Sub ElseIf op = "/" Then Text1.Text = num1 / num2 Private Sub Command5_Click() ElseIf op = "*" Then Text1.Text = Text1.Text & 5 Text1.Text = num1 * num2 End Sub ElseIf op = "-" Then Text1.Text = num1 - num2 Private Sub Command6_Click() End If Text1.Text = Text1.Text & 6 End Sub End Sub Private Sub Command22_Click() Private Sub Command7_Click() num2 = Text1.Text Text1.Text = Text1.Text & 7 If op = "+" Then End Sub Text1.Text = num1 + num2 ElseIf op = "/" Then Private Sub Command8_Click() Text1.Text = num1 / num2 Text1.Text = Text1.Text & 8 ElseIf op = "*" Then End Sub Text1.Text = num1 * num2 ElseIf op = "-" Then Private Sub Command9_Click() Text1.Text = num1 - num2 Text1.Text = Text1.Text & 9 End If End Sub
Addition: Subtraction:
Division: Multiplication: Calculator in TASM:
Addition: Subtraction:
Division: Multiplication: ,
Programming

More Related Content

Viewers also liked (12)

PPTX
Tugas media
Erlina Dewi
 
DOC
Bastioni servizi pubbliciprivatizzati_finale_dic10
Gilda Caronti
 
PPTX
Rl403
liransky
 
ODP
“Using Technology for Teaching and Learning in the 21st Century Classroom”
Shan E.
 
PDF
DISEGNO DI LEGGE 1758
Gilda Caronti
 
PPTX
Ran li 403
liransky
 
PDF
Conciertos de U2 - U2fanlife.com
Ivan Benito
 
PDF
Plugin forum professioni-ddl
Gilda Caronti
 
PDF
Da genova destinazione nuovo mondo p ranieri
Gilda Caronti
 
PDF
Six stages of power and leadership
Naveed Akhtar
 
PDF
Carbon nanotubes
Naveed Akhtar
 
PDF
Aluminium Alloys
Naveed Akhtar
 
Tugas media
Erlina Dewi
 
Bastioni servizi pubbliciprivatizzati_finale_dic10
Gilda Caronti
 
Rl403
liransky
 
“Using Technology for Teaching and Learning in the 21st Century Classroom”
Shan E.
 
DISEGNO DI LEGGE 1758
Gilda Caronti
 
Ran li 403
liransky
 
Conciertos de U2 - U2fanlife.com
Ivan Benito
 
Plugin forum professioni-ddl
Gilda Caronti
 
Da genova destinazione nuovo mondo p ranieri
Gilda Caronti
 
Six stages of power and leadership
Naveed Akhtar
 
Carbon nanotubes
Naveed Akhtar
 
Aluminium Alloys
Naveed Akhtar
 

Similar to Programming (20)

DOC
Calculadora
guest6473b8
 
PDF
Calculator code
Rajeev Sharan
 
DOCX
Calculadora
CBTa 120
 
PPTX
VBA PROGRAMMING .pptx
AgripinoVerderaJr2
 
PPTX
Colegio municipal
lenintoapanta1992
 
DOC
Calculadora
cristinaverduga
 
DOC
Vb file
Mukund Trivedi
 
DOC
Calculadora
cristinaverduga
 
DOC
Calculadora
guestfb359f
 
PPTX
Updated Visual Basic 6 for beginners.pptx
SarveshDeodhar
 
PDF
DOT NET LAB PROGRAM PERIYAR UNIVERSITY
GOKUL SREE
 
PPT
ملخص البرمجة المرئية - الوحدة الرابعة
جامعة القدس المفتوحة
 
DOC
Ejemplo En Gamabas
eduann
 
DOCX
Vbreport
shweta-sharma99
 
PDF
Linear Search Program in Visual Basic 2008
atsumagaysay
 
DOCX
Ensayo Convergencia Informatica
miguel camelo
 
PPTX
Calculator Processing
Hock Leng PUAH
 
DOC
ejemplos gambas
eduann
 
DOCX
Vbreport program
dhi her
 
PDF
VISUAL BASIC PRATICAL FILE MSC COMPUTER SCIENCE.pdf
BALWANSAINI1
 
Calculadora
guest6473b8
 
Calculator code
Rajeev Sharan
 
Calculadora
CBTa 120
 
VBA PROGRAMMING .pptx
AgripinoVerderaJr2
 
Colegio municipal
lenintoapanta1992
 
Calculadora
cristinaverduga
 
Vb file
Mukund Trivedi
 
Calculadora
cristinaverduga
 
Calculadora
guestfb359f
 
Updated Visual Basic 6 for beginners.pptx
SarveshDeodhar
 
DOT NET LAB PROGRAM PERIYAR UNIVERSITY
GOKUL SREE
 
ملخص البرمجة المرئية - الوحدة الرابعة
جامعة القدس المفتوحة
 
Ejemplo En Gamabas
eduann
 
Vbreport
shweta-sharma99
 
Linear Search Program in Visual Basic 2008
atsumagaysay
 
Ensayo Convergencia Informatica
miguel camelo
 
Calculator Processing
Hock Leng PUAH
 
ejemplos gambas
eduann
 
Vbreport program
dhi her
 
VISUAL BASIC PRATICAL FILE MSC COMPUTER SCIENCE.pdf
BALWANSAINI1
 
Ad

Programming

  • 1. Calculator in EXCEL - VISUAL BASIC: Private Sub Command15_Click() num1 = Text1.Text Dim op As String Text1.Text = "" Dim num1 As Integer op = "/" Dim num2 As Integer Command15.Visible = False Command21.Visible = True Private Sub Command1_Click() End Sub Text1.Text = Text1.Text & 1 End Sub Private Sub Command16_Click() num1 = Text1.Text Private Sub Command10_Click() Text1.Text = "" Text1.Text = Text1.Text & 0 op = "*" End Sub Command16.Visible = False Command22.Visible = True Private Sub Command11_Click() End Sub Text1.Text = Text1.Text & "." End Sub Private Sub Command17_Click() Text1.Text = "0" Private Sub Command12_Click() End Sub num2 = Text1.Text If op = "+" Then Private Sub Command19_Click() Text1.Text = num1 + num2 num2 = Text1.Text ElseIf op = "/" Then If op = "+" Then Text1.Text = num1 / num2 Text1.Text = num1 + num2 ElseIf op = "*" Then ElseIf op = "/" Then Text1.Text = num1 * num2 Text1.Text = num1 / num2 ElseIf op = "-" Then ElseIf op = "*" Then Text1.Text = num1 - num2 Text1.Text = num1 * num2 End If ElseIf op = "-" Then End Sub Text1.Text = num1 - num2 End If Private Sub Command13_Click() Command13.Visible = True num1 = Text1.Text Command19.Visible = False Text1.Text = "" End Sub op = "+" Command13.Visible = False Private Sub Command2_Click() Command19.Visible = True Text1.Text = Text1.Text & 2 End Sub End Sub Private Sub Command14_Click() Private Sub Command20_Click() num1 = Text1.Text num2 = Text1.Text Text1.Text = "" If op = "+" Then op = "-" Text1.Text = num1 + num2 Command14.Visible = False ElseIf op = "/" Then Command20.Visible = True Text1.Text = num1 / num2 End Sub ElseIf op = "*" Then Text1.Text = num1 * num2
  • 2. ElseIf op = "-" Then Command16.Visible = True Text1.Text = num1 - num2 Command22.Visible = False End If End Sub Command14.Visible = True Command20.Visible = False Private Sub Command3_Click() End Sub Text1.Text = Text1.Text & 3 End Sub Private Sub Command21_Click() num2 = Text1.Text Private Sub Command4_Click() If op = "+" Then Text1.Text = Text1.Text & 4 Text1.Text = num1 + num2 End Sub ElseIf op = "/" Then Text1.Text = num1 / num2 Private Sub Command5_Click() ElseIf op = "*" Then Text1.Text = Text1.Text & 5 Text1.Text = num1 * num2 End Sub ElseIf op = "-" Then Text1.Text = num1 - num2 Private Sub Command6_Click() End If Text1.Text = Text1.Text & 6 End Sub End Sub Private Sub Command22_Click() Private Sub Command7_Click() num2 = Text1.Text Text1.Text = Text1.Text & 7 If op = "+" Then End Sub Text1.Text = num1 + num2 ElseIf op = "/" Then Private Sub Command8_Click() Text1.Text = num1 / num2 Text1.Text = Text1.Text & 8 ElseIf op = "*" Then End Sub Text1.Text = num1 * num2 ElseIf op = "-" Then Private Sub Command9_Click() Text1.Text = num1 - num2 Text1.Text = Text1.Text & 9 End If End Sub
  • 3. Addition: Subtraction:
  • 4. Division: Multiplication: Calculator in TASM: