[VB Macro] Powerpoint wont show form

ZeroHour

ho3 ho3 ho3
Joined
22 Mar 2004
Messages
1,118
[VB Macro][FIXED] Powerpoint wont show form

Hi
Got a powerpoint button and it has this code on click
Code:
Private Sub CommandButton1_Click()
StdToSciLarge.Show
End Sub

Which is supposed to show the following form
Code:
Dim p, d, p_student As Integer
Dim a, X, a_student As Single
Dim p_right, a_right As Boolean

Private Sub Correct()
If (a_right) Then
    TextBox7.Text = "Well done!"
    TextBox5.Text = ""
Else
    TextBox7.Text = ""
End If
End Sub
Private Sub CommandButton1_Click()

Randomize
Rem random number for power between 10 and 4
p = Int((8 * Rnd) + 1)
Rem random number for number of d.p. displayed between 1 and 4
d = Int((3 * Rnd)) + 1
Rem random number for argument 0 to 10
a = Int((9 * Rnd + 1) * 10 ^ d) / (10 ^ d)
X = a * 10 ^ p

p_right = False
a_right = False
TextBox2.Text = ""
TextBox3.Text = a
TextBox4.Text = p
TextBox7.Text = ""
TextBox5.Text = "Fill in the standard notation"
End Sub

Private Sub CommandButton2_Click()
SciToStdLarge.Hide
End Sub

Private Sub TextBox2_Change()
Rem Check that the "number" is a number
If (IsNumeric(TextBox2.Text)) Then
    a_student = TextBox2.Text
    Rem Check that the "number" is between 1 and 10
    If (a_student = X) Then
        TextBox5.Text = "You've got it right"
        a_right = True
    Else
        TextBox5.Text = "The number is not correct"
        a_right = False
    End If
    Rem When answer is correct display appropriate message
    Correct
End If
End Sub



Private Sub TextBox3_Change()

End Sub

The names are correct and I have tried setting macro security to low but it dont work.
This is not something I have coded. A friend sent it to me saying it works on his but not on our network.
Anyone got any ideas?

Cheers
 

Members online

No members online now.

Latest profile posts

Also Hi EP and people. I found this place again while looking through a oooollllllldddd backup. I have filled over 10TB and was looking at my collection of antiques. Any bids on the 500Mhz Win 95 fix?
Any of the SP crew still out there?
Xie wrote on Electronic Punk's profile.
Impressed you have kept this alive this long EP! So many sites have come and gone. :(

Just did some crude math and I apparently joined almost 18yrs ago, how is that possible???
hello peeps... is been some time since i last came here.
Electronic Punk wrote on Sazar's profile.
Rest in peace my friend, been trying to find you and finally did in the worst way imaginable.

Forum statistics

Threads
62,015
Messages
673,494
Members
5,621
Latest member
naeemsafi
Back