Function Working?

[Creanathan]

Public Class frmEvenofKwadranten
'declarenen
Dim strAntwoord As String

Private Sub btnSluiten_Click(sender As Object, e As EventArgs) Handles btnSluiten.Click
'het programma sluiten
End
End Sub

Private Sub mnuKeuzeEvenGetallen_Click(sender As Object, e As EventArgs) Handles mnuKeuzeEvenGetallen.Click
'zet evengetallen op checken en kwadrant unchecken
mnuKeuzeEvenGetallen.Checked = True
mnuKeuzeKwadranten.Checked = False
radEvengetallen.Checked = True
txtAntwoorden.Clear()
txtAntwoorden.Text = "Even getallen tussen x en y."
End Sub

Private Sub mnuKeuzeKwadranten_Click(sender As Object, e As EventArgs) Handles mnuKeuzeKwadranten.Click
'zet evengetallen op unchecken en kwadrant checken
mnuKeuzeEvenGetallen.Checked = False
mnuKeuzeKwadranten.Checked = True
radkwadranten.Checked = True
txtAntwoorden.Clear()
txtAntwoorden.Text = "De kwadranten van alle getallen tussen x en y."
End Sub

Private Sub mnuHelpInfo_Click(sender As Object, e As EventArgs) Handles mnuHelpInfo.Click
'geeft informatie over de maker
MessageBox.Show("Creator Xiang", "Autuer", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub

Private Sub btnBereken_Click(sender As Object, e As EventArgs) Handles btnBereken.Click
'als er geen getal is ingegeven geeft het een fout
Try
'declarenen
Dim intBegin, intEind, intTeller As Integer
'var <---- tekst
intBegin = CInt(txtBeginwaarde.Text)
intEind = CInt(txtEindewaarde.Text)
'kijkt of het een getal is of niet
If IsNumeric(intBegin And intEind) = True Then
'maak het text vak van de antwoorden leeg
txtAntwoorden.Clear()
'als mnuKeuzeEvenGetallen.Checked = True dan zet het alle even getallen in txtAntwoorden
If mnuKeuzeEvenGetallen.Checked = True Then
For intTeller = intBegin To intEind Step 1
If intTeller Mod 2 = 0 Then
txtAntwoorden.Text = txtAntwoorden.Text & intTeller & vbNewLine
End If
Next
Else
'als mnuKeuzeKwadranten.Checked = True dan zet het alle kwadranten in txtAntwoorden
If mnuKeuzeKwadranten.Checked = True Then
For intTeller = intBegin To intEind Step 1
txtAntwoorden.Text = txtAntwoorden.Text & intTeller * intTeller & vbNewLine
Next

End If
End If
Else
'het het geen getal is geeft het dit
MessageBox.Show("Geef een getal in!", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Catch ex As Exception
'het het geen getal is geeft het dit
MessageBox.Show("Geef een getal in!", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try


End Sub

Private Sub frmEvenofKwadranten_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'zet evengetallen op checken
mnuKeuzeEvenGetallen.Checked = True
radEvengetallen.Checked = True
'message box om te tonen dat je je evengetallen hebt gechecked
MessageBox.Show("Je staat nu op Even getallen berekenen", "Keuze", MessageBoxButtons.OK, MessageBoxIcon.Information)
txtAntwoorden.Text = "Even getallen tussen x en y."
End Sub

Private Sub radEvengetallen_CheckedChanged(sender As Object, e As EventArgs) Handles radEvengetallen.CheckedChanged
'zet evengetallen op checken en kwadrant unchecken
mnuKeuzeEvenGetallen.Checked = True
mnuKeuzeKwadranten.Checked = False
'maakt de tekst vak leeg en plaatst "Even getallen tussen x en y." er in
txtAntwoorden.Clear()
txtAntwoorden.Text = "Even getallen tussen x en y."
End Sub

Private Sub radkwadranten_CheckedChanged(sender As Object, e As EventArgs) Handles radkwadranten.CheckedChanged
'zet evengetallen op unchecken en kwadrant checken

mnuKeuzeKwadranten.Checked = True
mnuKeuzeEvenGetallen.Checked = False
'maakt de tekst vak leeg en plaatst "De kwadranten van alle getallen tussen x en y." er in
txtAntwoorden.Clear()
txtAntwoorden.Text = "De kwadranten van alle getallen tussen x en y."
End Sub

Private Sub mnuSluitenExit_Click(sender As Object, e As EventArgs) Handles mnuSluitenExit.Click
'het programma sluiten
Me.Close()
End Sub

Private Sub txtBeginwaarde_TextChanged(sender As Object, e As EventArgs) Handles txtBeginwaarde.TextChanged
'het aanzetten van btnBereken
btnBereken.Enabled = True
End Sub

Private Sub txtEindewaarde_TextChanged(sender As Object, e As EventArgs) Handles txtEindewaarde.TextChanged
'het aanzetten van btnBereken
btnBereken.Enabled = True
End Sub
End Class



Public Class frmGeluksgetal
'declarenen
Dim intEindgetal, intGeluksgetal As Integer
Private Sub mnuInfoCreator_Click(sender As Object, e As EventArgs) Handles mnuInfoCreator.Click
'message box met informatie over de maker
MessageBox.Show("Creator Xiang", "Creator", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub

Private Sub mnuMoeilijkheidsgraadgetallentusen1en10_Click(sender As Object, e As EventArgs) Handles mnuMoeilijkheidsgraadgetallentusen1en10.Click
'het checken van 1 tot 10 en uncheken van 1 tot 100 en zit als eindgetal 10
mnuMoeilijkheidsgraadgetallentusen1en10.Checked = True
mnuMoeilijkheidsgraadgetallentusen1en100.Checked = False
intEindgetal = 10
End Sub

Private Sub mnuMoeilijkheidsgraadgetallentusen1en100_Click(sender As Object, e As EventArgs) Handles mnuMoeilijkheidsgraadgetallentusen1en100.Click
'het unchecken van 1 tot 10 en cheken van 1 tot 100 en zit als eindgetal 100
mnuMoeilijkheidsgraadgetallentusen1en10.Checked = False
mnuMoeilijkheidsgraadgetallentusen1en100.Checked = True
intEindgetal = 100

End Sub

Private Sub mnuSluitenExit_Click(sender As Object, e As EventArgs) Handles mnuSluitenExit.Click
'het programma sluiten
Me.Close()
End Sub

Private Sub btnControleer_Click(sender As Object, e As EventArgs) Handles btnControleer.Click
'Declarenen
Dim intGetal As Integer
'var <--- tekst
intGetal = CInt(txtGetal.Text)
'testen of je het geluksgetal hebt gekozen of niet
If intGetal = intGeluksgetal Then
lblGelukofNiet.Text = "Je hebt een geluksgetal " & vbNewLine & "gekozen"
picGetallen.Visible = True
Else
lblGelukofNiet.Text = "Je koos echt geen" & vbNewLine & "geluksgetal"
End If


End Sub

Private Sub btnGenereer_Click(sender As Object, e As EventArgs) Handles btnGenereer.Click
'picture niet meer laten zien
picGetallen.Visible = False
'het random getal kiezen
intGeluksgetal = Int((intEindgetal - 1 + 1) * Rnd() + 1)
'het leegmaken van de label
lblGelukofNiet.Text = ""

End Sub

Private Sub btnSluiten_Click(sender As Object, e As EventArgs) Handles btnSluiten.Click
'het programma sluiten
End
End Sub

Private Sub frmGeluksgetal_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'het unchecken van 1 tot 10 en cheken van 1 tot 100 en zit als eindgetal 100
mnuMoeilijkheidsgraadgetallentusen1en10.Checked = False
mnuMoeilijkheidsgraadgetallentusen1en100.Checked = True
intEindgetal = 100
'het random getal kiezen
Randomize()
intGeluksgetal = Int((intEindgetal - 1 + 1) * Rnd() + 1)
End Sub
End Class

Continue reading...