B
Big Hamza
Guest
Public Class frmEvenofKwadranten
'creator xiang
'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
Continue reading...
'creator xiang
'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
Continue reading...