Demi666
New Member
- Reaction score
- 127
Ok, this was my first project for VB6
Its a very very very simple calculator. It knows the terms plus,minus,divided,and multiplication.
Also Please post reply with feedback/thoughts
If anyone find a bug please post it here
Edit:
Fixed a small typo that sometime could couse wrong numbers in the calculation
Also im working on a File Manager its WIP atm, ill release beta here later =)
Code is here:
Its a very very very simple calculator. It knows the terms plus,minus,divided,and multiplication.
Also Please post reply with feedback/thoughts
If anyone find a bug please post it here
Edit:
Fixed a small typo that sometime could couse wrong numbers in the calculation
Also im working on a File Manager its WIP atm, ill release beta here later =)
Code is here:
Code:
Dim iForm1 As Integer, iForm2 As Double, iA As Double, strOption As Double, sstrVariable As String, strVariable As String, ttText As String, cCounter As Integer
'Made by Demi666 a.Ka John Bradley
Public Sub Command1_Click()
Form1.Caption = "Loading."
Form1.Caption = "Loading.."
Form1.Caption = "Loading..."
Form1.Caption = "Loading...."
Form1.Caption = "Loading....."
Form1.Caption = "Loading......"
Form1.Caption = "Done!"
iForm1 = CInt(strVariable)
iForm2 = CInt(sstrVariable)
If Option1.Value = True Then
strOption = iForm1 + iForm2
ttText = "+"
ElseIf Option2.Value = True Then
strOption = iForm1 - iForm2
ttText = "-"
ElseIf Option3.Value = True Then
strOption = iForm1 / iForm2
ttText = "/"
ElseIf Option4.Value = True Then
strOption = iForm1 * iForm2
ttText = "*"
End If
Label1.Caption = iForm1 & ttText & iForm2 & "=" & strOption
End Sub
Private Sub Form_Load()
Call MsgBox("This calculator was made by John Bradley a.Ka Demi666", vbOKOnly, "Credit")
End Sub
Private Sub Label1_Click()
Label1.Caption = ""
Call MsgBox("The text has been cleared", vbOKOnly, "Calculator")
End Sub
Private Sub Text1_Change()
strVariable = Text1.Text
End Sub
Private Sub Text2_Change()
sstrVariable = Text2.Text
End Sub
Private Sub Timer1_Timer()
cCounter = cCounter + 1
Form1.Caption = "Calculator " & cCounter & " - " & Time
End Sub