Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class Front
- Dim PS As Integer 'Player Score
- Dim QN As Integer 'Question Number
- Private Sub Front_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- 'Load Application
- NG.Enabled = True 'New Game
- LB.Enabled = True 'Leaderboard
- SB.Enabled = False 'Submit
- QI.Enabled = False 'Question Indicator
- QB.Enabled = False 'Question Box
- SI.Enabled = False 'Score Indicator
- RS.Enabled = False 'Restart
- A1.Enabled = False 'Answer 1
- A2.Enabled = False 'Answer 2
- A3.Enabled = False 'Answer 3
- A4.Enabled = False 'Answer 4
- NG.Text = "New Game"
- SB.Text = "Submit"
- RS.Text = "Reload Quiz"
- LB.Text = "Leaderboard"
- QI.Text = ""
- QB.Text = ""
- SI.Text = ""
- A1.Text = ""
- A2.Text = ""
- A3.Text = ""
- A4.Text = ""
- End Sub
- Private Sub NG_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NG.Click
- QN = 0 'Question Number
- PS = 0 'Player Score
- QI.Text = "Question No. " & QN & "."
- SI.Text = "Your score is " & PS & "."
- NG.Enabled = False 'New Game
- LB.Enabled = False 'Leaderboard
- SB.Enabled = True 'Submit
- QI.Enabled = False 'Question Indicator
- QB.Enabled = False 'Question Box
- SI.Enabled = False 'Score Indicator
- RS.Enabled = True 'Restart
- A1.Enabled = True 'Answer 1
- A2.Enabled = True 'Answer 2
- A3.Enabled = True 'Answer 3
- A4.Enabled = True 'Answer 4
- A1.Checked = False 'Answer 1
- A2.Checked = False 'Answer 2
- A3.Checked = False 'Answer 3
- A4.Checked = False 'Answer 4
- QB.Text = "Paracetamol falls into what classification of pharmaceutical?"
- A1.Text = "Muscle relaxant"
- A2.Text = "NSAID"
- A3.Text = "Hypnotic"
- A4.Text = "Analgesic"
- End Sub
- Private Sub RS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RS.Click
- 'Restart
- NG.Enabled = True 'New Game
- LB.Enabled = True 'Leaderboard
- SB.Enabled = False 'Submit
- QI.Enabled = False 'Question Indicator
- QB.Enabled = False 'Question Box
- SI.Enabled = False 'Score Indicator
- RS.Enabled = False 'Restart
- A1.Enabled = False 'Answer 1
- A2.Enabled = False 'Answer 2
- A3.Enabled = False 'Answer 3
- A4.Enabled = False 'Answer 4
- NG.Text = "New Game"
- SB.Text = "Submit"
- RS.Text = "Reload Quiz"
- LB.Text = "Leaderboard"
- QI.Text = ""
- QB.Text = ""
- SI.Text = ""
- A1.Text = ""
- A2.Text = ""
- A3.Text = ""
- A4.Text = ""
- End Sub
- Private Sub SB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SB.Click
- 'Submit
- If QN = 0 Then
- QN = 1
- End If
- QI.Text = "Question No. " & QN & "."
- SI.Text = "Your score is " & PS & "."
- A1.Enabled = True
- A2.Enabled = True
- A3.Enabled = True
- A4.Enabled = True
- If QN = 1 Then
- If A4.Checked = True Then
- PS = (PS + 1)
- MsgBox("Correct")
- QN = (QN + 1)
- Else
- MsgBox("Incorrect")
- QN = (QN + 1)
- End If
- ElseIf QN = 2 Then
- If A1.Checked = True Then
- PS = (PS + 1)
- MsgBox("Correct")
- QN = (QN + 1)
- Else
- MsgBox("Incorrect")
- QN = (QN + 1)
- End If
- ElseIf QN = 3 Then
- If A3.Checked = True Then
- PS = (PS + 1)
- MsgBox("Correct")
- QN = (QN + 1)
- Else
- MsgBox("Incorrect")
- QN = (QN + 1)
- End If
- ElseIf QN = 4 Then
- If A3.Checked = True Then
- PS = (PS + 1)
- MsgBox("Correct")
- QN = (QN + 1)
- Else
- MsgBox("Incorrect")
- QN = (QN + 1)
- End If
- ElseIf QN = 5 Then
- If A1.Checked = True Then
- PS = (PS + 1)
- MsgBox("Correct")
- QN = (QN + 1)
- Else
- MsgBox("Incorrect")
- QN = (QN + 1)
- End If
- ElseIf QN = 6 Then
- If A2.Checked = True Then
- PS = (PS + 1)
- MsgBox("Correct")
- QN = (QN + 1)
- Else
- MsgBox("Incorrect")
- QN = (QN + 1)
- End If
- ElseIf QN = 7 Then
- If A4.Checked = True Then
- PS = (PS + 1)
- MsgBox("Correct")
- QN = (QN + 1)
- Else
- MsgBox("Incorrect")
- QN = (QN + 1)
- End If
- ElseIf QN = 8 Then
- If A3.Checked = True Then
- PS = (PS + 1)
- MsgBox("Correct")
- QN = (QN + 1)
- Else
- MsgBox("Incorrect")
- QN = (QN + 1)
- End If
- ElseIf QN = 9 Then
- If A1.Checked = True Then
- PS = (PS + 1)
- MsgBox("Correct")
- QN = (QN + 1)
- Else
- MsgBox("Incorrect")
- QN = (QN + 1)
- End If
- ElseIf QN = 10 Then
- If A3.Checked = True Then
- PS = (PS + 1)
- MsgBox("Correct")
- QN = (QN + 1)
- Else
- MsgBox("Incorrect")
- QN = (QN + 1)
- End If
- ElseIf QN = 11 Then
- If A1.Checked = True Then
- PS = (PS + 1)
- MsgBox("Correct")
- QN = (QN + 1)
- Else
- MsgBox("Incorrect")
- QN = (QN + 1)
- End If
- ElseIf QN = 12 Then
- If A2.Checked = True Then
- PS = (PS + 1)
- MsgBox("Correct")
- QN = (QN + 1)
- Else
- MsgBox("Incorrect")
- QN = (QN + 1)
- End If
- ElseIf QN = 13 Then
- If A4.Checked = True Then
- PS = (PS + 1)
- MsgBox("Correct")
- QN = (QN + 1)
- Else
- MsgBox("Incorrect")
- QN = (QN + 1)
- End If
- ElseIf QN = 14 Then
- If A2.Checked = True Then
- PS = (PS + 1)
- MsgBox("Correct")
- QN = (QN + 1)
- Else
- MsgBox("Incorrect")
- QN = (QN + 1)
- End If
- ElseIf QN = 15 Then
- If A3.Checked = True Then
- PS = (PS + 1)
- MsgBox("Correct")
- QN = (QN + 1)
- Else
- MsgBox("Incorrect")
- QN = (QN + 1)
- End If
- End If
- If QN = 2 Then
- QB.Text = "Paracetamol can both heal and harm the human body. When taken in excess which organ will become its primary target?"
- A1.Text = "Liver" 'Correct'
- A2.Text = "Kidney" 'Incorrect'
- A3.Text = "Heart" 'Incorrect'
- A4.Text = "Stomach" 'Incorrect'
- ElseIf QN = 3 Then
- QB.Text = "Robotripping refers to taking what legal substance to achieve a high?"
- A1.Text = "Guaifenesin" 'Incorrect'
- A2.Text = "Echinacea" 'Incorrect'
- A3.Text = "Dextromethorphan" 'Correct'
- A4.Text = "Benzonatate" 'Incorrect'
- ElseIf QN = 4 Then
- QB.Text = "Which of the four following pharmaceuticals is a non-steroidal anti-inflammatory disguised as a analgesic?"
- A1.Text = "Tramadol" 'Incorrect'
- A2.Text = "Codeine" 'Inorrect'
- A3.Text = "Voltarol." 'Correct'
- A4.Text = "Pethidine." 'Incorrect'
- ElseIf QN = 5 Then
- QB.Text = "A vaccination is the administration of what kind of material into the body?"
- A1.Text = "Antigenic." 'Correct'
- A2.Text = "Pathogenic" 'Incorrect'
- A3.Text = "Steroidal" 'Incorrect'
- A4.Text = "Hormonal" 'Incorrect'
- ElseIf QN = 6 Then
- QB.Text = "The primary medical use for Alkyl Nitrates (Poppers) is as an antidote for what illness?"
- A1.Text = "Trigeminal Neuralgia" 'Incorrect'
- A2.Text = "Cyanide Poisoning" 'Correct
- A3.Text = "Fungal Infection" 'Incorrect'
- A4.Text = "HIV" 'Incorrect'
- ElseIf QN = 7 Then
- QB.Text = "Selective Serotonin Reputake Inhibitors (SSRIs) are commonly used to treat depression. Which of the following pharmaceuticals is not an SSRI?"
- A1.Text = "Fluoxetine" 'Incorrect'
- A2.Text = "Citalopram" 'Incorrect'
- A3.Text = "Sertraline" 'Incorrect'
- A4.Text = "Amitriptyline" 'Correct'
- ElseIf QN = 8 Then
- QB.Text = "Freezing of the larnyx is a danger assioassicated with what drug?"
- A1.Text = "Pethidine" 'Incorrect'
- A2.Text = "Tobacco" 'Incorrect'
- A3.Text = "Solvent" 'Correct'
- A4.Text = "Alcohol" 'Incorrect'
- ElseIf QN = 9 Then
- QB.Text = "The difference between coated and uncoated tablets is there absorption site. Coated tablets are absorbed in what section of the digestive tract"
- A1.Text = "Duodenum" 'Correct'
- A2.Text = "Stomach" 'Incorrect'
- A3.Text = "Ileum" 'Incorrect'
- A4.Text = "Rectum" 'Incorrect
- ElseIf QN = 10 Then
- QB.Text = "Diabetes is a degenerative disease that affects a bodies ability to maintain an equilibrium within its blood sugar. Those who suffer from this disease have to inject what pharmaceutical to help stablize their blood sugar levels?"
- A1.Text = "Penicillin" 'Incorrect'
- A2.Text = "Methadone" 'Incorrect'
- A3.Text = "Insulin" 'Correct'
- A4.Text = "Warfarin" 'Incorrect'
- ElseIf QN = 11 Then
- QB.Text = "A ten bag is commonly used to refer to how much of what drug?"
- A1.Text = " Approx. £10 worth of Marijuana." 'Correct'
- A2.Text = " Approx. £10 worth of Cocaine." 'Incorrect'
- A3.Text = " Approx. £10 worth of LSD." 'Incorrect'
- A4.Text = " Approx. £10 worth of M-CAT." 'Incorrect'
- ElseIf QN = 12 Then
- QB.Text = "A person tells you he/she is 'amped.' This means they have taken what class of drug?"
- A1.Text = " Depressant." 'Incorrect'
- A2.Text = " Stimulant." 'Correct'
- A3.Text = " Psychedelic." 'Incorrect'
- A4.Text = " Analgesic." 'Incorrect'
- ElseIf QN = 13 Then
- QB.Text = "What is the slang term for Marijuana laced with Cocaine?"
- A1.Text = " Crystal Stick." 'Incorrect'
- A2.Text = " Marrowcane." 'Incorrect'
- A3.Text = " Snap Dragon." 'Incorrect'
- A4.Text = " Banano." 'Correct'
- ElseIf QN = 14 Then
- QB.Text = "If an individual was to ‘flip candy’ what two drugs would they be taking to achieve this?"
- A1.Text = " Marijuana and Magic Mushrooms." 'Incorrect'
- A2.Text = " LSD and MDMA." 'Correct'
- A3.Text = " Heroin and DMT." 'Incorrect'
- A4.Text = " Cocaine and Speed." 'Incorrect'
- ElseIf QN = 15 Then
- QB.Text = "All street drugs have slang names that are frequently used and passed around, which of these slang names refers to Ecstasy?"
- A1.Text = " Mushies." 'Incorrect'
- A2.Text = " Bob Hope." 'Incorrect'
- A3.Text = " Dolphins." 'Correct'
- A4.Text = " Jellies." 'Incorrect'
- End If
- End Sub
- Private Sub LB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LB.Click
- 'Leaderboard
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement