by Johnny (1 Submission)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 14th May 2003
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Super cool 3D graphics generator
VBcoders
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Picture4.Visible = False
Picture5.Visible = False
Picture6.Visible = False
Label4.Visible = False
Label3 = "The answer to your question is " & Val(Text1.Text) + Text2.Text
Picture1.Visible = True
Picture2.Visible = True
Picture3.Visible = True
Picture4.Visible = True
Picture5.Visible = True
Picture6.Visible = True
Label4.Visible = True
Beep
End Sub
Private Sub Command10_Click()
Image1.Height = Image1.Height + 200
Image1.Height = Image1.Height + 200
End Sub
Private Sub Command2_Click()
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Picture4.Visible = False
Picture5.Visible = False
Picture6.Visible = False
Label4.Visible = False
Label3 = "The answer to your question is " & Text1.Text - Text2.Text
Picture1.Visible = True
Picture2.Visible = True
Picture3.Visible = True
Picture4.Visible = True
Picture5.Visible = True
Picture6.Visible = True
Label4.Visible = True
Beep
End Sub
Private Sub Command3_Click()
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Picture4.Visible = False
Picture5.Visible = False
Picture6.Visible = False
Label4.Visible = False
Label3 = "The answer to your question is " & Text1.Text * Text2.Text
Picture1.Visible = True
Picture2.Visible = True
Picture3.Visible = True
Picture4.Visible = True
Picture5.Visible = True
Picture6.Visible = True
Label4.Visible = True
Beep
End Sub
Private Sub Command4_Click()
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Picture4.Visible = False
Picture5.Visible = False
Picture6.Visible = False
Label4.Visible = False
If Text2.Text = 0 Then
Label3 = "Division by zero can not be performed"
Else: Label3 = "The answer is " & Text1.Text / Text2.Text
Picture1.Visible = True
Picture2.Visible = True
Picture3.Visible = True
Picture4.Visible = True
Picture5.Visible = True
Picture6.Visible = True
Label4.Visible = True
End If
Beep
End Sub
Private Sub Command5_Click()
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Picture4.Visible = False
Picture5.Visible = False
Picture6.Visible = False
Label4.Visible = False
Label3 = "The answer to your question is " & Text1.Text Mod Text2.Text
Picture1.Visible = True
Picture2.Visible = True
Picture3.Visible = True
Picture4.Visible = True
Picture5.Visible = True
Picture6.Visible = True
Label4.Visible = True
Beep
End Sub
Private Sub Command6_Click()
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Picture4.Visible = False
Picture5.Visible = False
Picture6.Visible = False
Label4.Visible = False
Label3 = "The answer to your question is " & Text1.Text \ Text2.Text
Picture1.Visible = True
Picture2.Visible = True
Picture3.Visible = True
Picture4.Visible = True
Picture5.Visible = True
Picture6.Visible = True
Label4.Visible = True
Beep
End Sub
Private Sub Command7_Click()
Beep
End
End Sub
Private Sub Command8_Click()
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Picture4.Visible = False
Picture5.Visible = False
Picture6.Visible = False
Label4.Visible = False
Label3 = "The answer is " & Text1.Text ^ Text2.Text
Picture1.Visible = True
Picture2.Visible = True
Picture3.Visible = True
Picture4.Visible = True
Picture5.Visible = True
Picture6.Visible = True
Label4.Visible = True
Beep
End Sub
Private Sub Command9_Click()
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Picture4.Visible = False
Picture5.Visible = False
Picture6.Visible = False
Label4.Visible = False
Label3 = "The answer is " & Text1.Text * Text2.Text ^ Text4.Text
Picture1.Visible = True
Picture2.Visible = True
Picture3.Visible = True
Picture4.Visible = True
Picture5.Visible = True
Picture6.Visible = True
Label4.Visible = True
Beep
End Sub
Private Sub Form_Load()
Form1.Height = Form1.Height
Form1.Width = Form1.Width
Form1.Top = Form1.Top
Form1.Left = Form1.Left
End Sub
Private Sub Label4_Click()
Beep
End Sub
Private Sub Picture1_Click()
Beep
End Sub
Private Sub Picture2_Click()
Beep
End Sub
Private Sub Picture3_Click()
Beep
End Sub
Private Sub Picture4_Click()
Beep
End Sub
Private Sub Picture5_Click()
Beep
End Sub
Private Sub Picture6_Click()
Beep
End Sub
Private Sub Timer1_Timer()
Label5 = Time
End Sub