-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathcalculadoraGrafica
144 lines (116 loc) · 2.49 KB
/
calculadoraGrafica
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
' Gambas class file
Public valor As String
Public operacion As Byte = 0
' 0: no operación
' 1: suma
' 2: resta
' 3: multiplicación
' 4: división
' operacion = 0 'estado inicial
Public Sub _new()
End
Public Sub Form_Open()
valor = "0"
End
Public Sub Button1_Click()
valor = TextBox1.Text
valor = valor & "1"
TextBox1.Text = CString(CFloat(valor))
End
Public Sub Button2_Click()
valor = TextBox1.Text
valor = valor & "2"
TextBox1.Text = CString(CFloat(valor))
End
Public Sub Button3_Click()
valor = TextBox1.Text
valor = valor & "3"
TextBox1.Text = CString(CFloat(valor))
End
Public Sub Button12_Click()
TextLabel1.Text = TextBox1.Text
TextBox1.Text = ""
TextLabel2.Text = "+"
operacion = 1 'suma
End
Public Sub Button16_Click()
Dim x, y, z As Float
TextLabel3.Text = TextBox1.Text
x = CFloat(TextLabel1.Text)
y = CFloat(TextLabel3.Text)
Select operacion
Case 1
z = x + y
Case 2
z = x - y
Case 3
z = x * y
Case 4
z = x / y
End Select
TextBox1.Text = CString(z)
End
Public Sub Button17_Click()
TextBox1.Text = "0"
TextLabel1.Text = ""
TextLabel2.Text = ""
TextLabel3.Text = ""
End
Public Sub Button4_Click()
valor = TextBox1.Text
valor = valor & "4"
TextBox1.Text = CString(CFloat(valor))
End
Public Sub Button5_Click()
valor = TextBox1.Text
valor = valor & "5"
TextBox1.Text = CString(CFloat(valor))
End
Public Sub Button6_Click()
valor = TextBox1.Text
valor = valor & "6"
TextBox1.Text = CString(CFloat(valor))
End
Public Sub Button7_Click()
valor = TextBox1.Text
valor = valor & "7"
TextBox1.Text = CString(CFloat(valor))
End
Public Sub Button8_Click()
valor = TextBox1.Text
valor = valor & "8"
TextBox1.Text = CString(CFloat(valor))
End
Public Sub Button9_Click()
valor = TextBox1.Text
valor = valor & "9"
TextBox1.Text = CString(CFloat(valor))
End
Public Sub Button10_Click()
valor = TextBox1.Text
valor = valor & "0"
TextBox1.Text = CString(CFloat(valor))
End
Public Sub Button11_Click()
valor = TextBox1.Text
valor = valor & "."
TextBox1.Text = valor
End
Public Sub Button13_Click()
TextLabel1.Text = TextBox1.Text
TextBox1.Text = ""
TextLabel2.Text = "-"
operacion = 2 'resta
End
Public Sub Button14_Click()
TextLabel1.Text = TextBox1.Text
TextBox1.Text = ""
TextLabel2.Text = "*"
operacion = 3 'multiplicación
End
Public Sub Button15_Click()
TextLabel1.Text = TextBox1.Text
TextBox1.Text = ""
TextLabel2.Text = "/"
operacion = 4 'división
End