Originally posted by Koops (PM: TTYD)

---

"....................................................................
....................................................................
....................................................................
....................................................................
...................................................................."

---

Originally posted by Sukasa

---

higher or lower? Dude, ouch. My class got to stuff that was fun and there was always room for modifying the assignment. Some of the assignments included a Blackjack game, and a program for Klunker Kar Kompany, and other thigns along those lines. Plus, if we wanted to expand upon/change part of oru assignments, we were allowed to as long as we larned the focal lessons of the programs.

---

Originally posted by Ogama Dobe

---

VB blows. We signed up for this class in the hopes that we would learn how to make games. Yet we have had no promises. No nothing. We did nothing of the sort in QB either.

---

Originally posted by My VB code

---

' Math Application

Option Explicit
'
'Random numbers used throughout the code
Dim num1 As Integer, num2 As Integer



Private Sub chkDisplay_Click()
'Hide or display summary info

If chkDisplay.Value = vbChecked Then
fraInfo.Visible = True
Else
fraInfo.Visible = False
End Sub

Private Sub cmdExit_Click()

End ' Exit the application

End Sub

Private Sub cmdVerify_Click()
'Verify answer and take appropriate actions

Dim userAnswer As Integer, correctAnswer As Integer
Static numCorrect As Integer, numIncorrect As Integer
Dim reply As String
Const OPTIONS As Integer = vbOKOnly + vbInformation + vbDefaultButton1 _
+ vbApplicationModal


'Calculate correct answer
If optAdd.Value = True Then
correctAnswer = num1 + num2
Else
correctAnswer = num1 - num2
End If

'Compare user's answer to correct answer
userAnswer = Val(txtAnswer.Text)

If userAnswer = correctAnswer Then

'Display or remove smiley
imgIcon.Picture = imgHappy.Picture
'Display new problem or prompt with message
txtAnswer.Text = ""
Call RandomNumbers
'Increment counter
numCorrect = numCorrect + 1
Else
'Incorrect answer, remove happy face, increment counter, prompt for re-attempt
imgIcon.Picture = LoadPicture()
numIncorrect = numIncorrect + 1
reply = MsgBox("Try Again", OPTIONS, "Wrong Answer")

'Highlight answer so user doesn't have to backspace
txtAnswer.SelStart = 0
txtAnswer.SelLength = Len(txtAnswer.Text)
End If

'Move couunters into labels and cursor to answerbox
txtAnswer.SetFocus
lblCorrect.Caption = numCorrect
lblIncorrect.Caption = numIncorrect

End Sub

Private Sub Form_Load()
'Set Default option buttons when loading the form

'set level 1 and addition to default
optLevel1.Value = True
optAdd.Value = True
'this will trigger their click events

End Sub



Private Sub optAdd_Click()

Call RandomNumbers

imgOperator.Picture = imgPlus

End Sub

Private Sub optLevel1_Click()

Call RandomNumbers

End Sub

Private Sub optLevel2_Click()


Call RandomNumbers 'Passes control to sub-procedure
'Returns to statment after call

End Sub

Private Sub RandomNumbers()
'Generate and display two random numbers

Dim temp As Integer 'Used for swapping num1 with num2

Randomize

'Range of numbers based on level of student
If optLevel1.Value = True Then
num1 = Int(10 * Rnd) + 1
num2 = Int(10 * Rnd) + 1
Else 'Level 2 MUST have been selected
num1 = Int(91 * Rnd) + 10
num2 = Int(91 * Rnd) + 10
End If

'Swap numbers for subtraction
If optSub.Value = True And num1 < num2 Then
temp = num1
num1 = num2
num2 = temp
End If
'Move values into appropriate labels
lblNum1.Caption = num1
lblNum2.Caption = num2

End Sub

Private Sub optSub_Click()
Call RandomNumbers

imgOperator.Picture = imgMinus
End Sub

Private Sub txtAnswer_GotFocus()
txtAnswer.SelStart = 0
txtAnswer.SelLength = Len(txtAnswer.Text)
End Sub

---

Originally posted by Guy Perfect (Let's Rant About QBasic)

---

This thread is uncalled for. It won't be long before a "Let's Rant About BriGuy92" thread surfaces.

---

Originally posted by BooUrns

---

Out of curiosity, can you choose Standby from the Shut Down menu in the Task Manager?

---