galgje foutmelding picturebox
- Onderwerp starter bontje07
- Startdatum
- Status
bedankt, JOZ1 ik wist dus echt niet hoe ik de code moest plaatsen
.
maar hierbij alsnog
.maar hierbij alsnog
Code:
Imports System.IO
Public Class Form1
Public n As Integer 'dit is een public integer wat betekend dat je het overal kan aanroepen het declareerd de n = r.
Public c As Integer = 0 'als de letter goed is plaats deze dan in het juiste label en wacht tot de
Public a As String
Public image As String
Private Sub btnNewGame_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNewGame.Click
If File.Exists("C:\woorden.txt") Then 'kijk of woorden.txt bestaat anders geef een foutmelding
For Each button As Button In GroupBox1.Controls
button.Enabled = True
Next
Dim words() As String = File.ReadAllLines("c:\woorden.txt") 'leest alle lijnen van het bestand woorden.txt
Dim r As New Random(System.DateTime.Now.Millisecond)
n = r.Next(0, 14) 'deze loep zorgt ervoor dat het programma iedere keer als ik op new game druk een ander woord neemt van de 15 woorden.
Dim amount As Integer = words(n).Count()
'Label9.Text = "Letters:" & " " & amount
Dim letters() As Char = words(n)
Dim idxnum As Integer = 0 'declareerd index nummers voor korte cijfers as integer.
MessageBox.Show(words(n))
'MessageBox.Show(amount)
For Each labelitm As Label In Me.GroupBox2.Controls 'voor ieder label in de groep
If idxnum <= amount - 1 Then 'als het nummer lager of gelijk is aan het bedrag in letters dan
labelitm.Text = letters(idxnum) 'deze zet de juiste letters in het juiste label
Else
labelitm.Text = ""
End If
idxnum = idxnum + 1 'geeft foutmelding +1 is niet gedeclareerd
Next
For Each labelitm As Label In GroupBox2.Controls 'dit zorgt ervoor dat het woord niet zichtbaar is tijdens het starten van de game
If labelitm.Text = "" Then
Else
labelitm.Visible = False
End If
Next
'For Each i In words(n)
'MessageBox.Show(i)
'Next
Else
MessageBox.Show("Kan het bestand woorden.txt niet vinden")
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PictureBox1.Image = My.Resources.bloem1
End Sub
Private Sub labelcheck()
For Each labelitm As Label In GroupBox2.Controls
If a = labelitm.Text Then
labelitm.Visible = True
c = c + 1
Else
End If
If Label1.Visible AndAlso Label2.Visible AndAlso Label3.Visible AndAlso Label4.Visible AndAlso Label5.Visible AndAlso Label6.Visible AndAlso Label7.Visible AndAlso Label8.Visible = True Then
MessageBox.Show("Prima je hebt het woord geraden")
btnNewGame.PerformClick()
End If
Next
If c == 0 Then
Select Case image
Case "bloem1"
PictureBox1.Image = My.Resources.bloem2
Case "bloem2"
PictureBox1.Image = My.Resources.bloem3
Case "bloem3"
PictureBox1.Image = My.Resources.bloem4
Case "bloem4"
PictureBox1.Image = My.Resources.bloem5
Case "bloem5"
PictureBox1.Image = My.Resources.bloem6
Case "bloem6"
PictureBox1.Image = My.Resources.bloem7
Case "bloem7"
PictureBox1.Image = My.Resources.bloem8
MessageBox.Show("Helaas je hebt verloren")
btnNewGame.PerformClick()
End Select
End If
End Sub
Private Sub ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click, Button8.Click, Button9.Click,
Button10.Click, Button11.Click, Button12.Click, Button13.Click, Button14.Click, Button15.Click, Button16.Click, Button17.Click, Button18.Click, Button19.Click, Button20.Click, Button21.Click, Button22.Click, Button23.Click, Button24.Click,
Button25.Click, Button26.Click 'verander Button1_ Click in "ButtonClick" en zorg dat alle buttons die hetzelfde moeten doen achter Handles Button1.Click, komen te staan dan hebben alle toetsen hetzelfde programma.
Select Case DirectCast(sender, Button).Name
Case "Button1"
Button1.Enabled = False
a = "A"
c = 0
labelcheck()
Case "Button2"
Button2.Enabled = False
a = "B"
c = 0
labelcheck()
Case "Button3"
Button3.Enabled = False
a = "C"
c = 0
labelcheck()
Case "Button4"
Button4.Enabled = False
a = "D"
c = 0
labelcheck()
Case "Button5"
Button5.Enabled = False
a = "E"
c = 0
labelcheck()
Case "Button6"
Button6.Enabled = False
a = "F"
c = 0
labelcheck()
Case "Button7"
Button7.Enabled = False
a = "G"
c = 0
labelcheck()
Case "Button8"
Button8.Enabled = False
a = "H"
c = 0
labelcheck()
Case "Button9"
Button9.Enabled = False
a = "I"
c = 0
labelcheck()
Case "Button10"
Button10.Enabled = False
a = "J"
c = 0
labelcheck()
Case "Button11"
Button11.Enabled = False
a = "K"
c = 0
labelcheck()
Case "Button12"
Button12.Enabled = False
a = "L"
c = 0
labelcheck()
Case "Button13"
Button13.Enabled = False
a = "M"
c = 0
labelcheck()
Case "Button14"
Button14.Enabled = False
a = "N"
c = 0
labelcheck()
Case "Button15"
Button15.Enabled = False
a = "O"
c = 0
labelcheck()
Case "Button16"
Button16.Enabled = False
a = "P"
c = 0
labelcheck()
Case "Button17"
Button17.Enabled = False
a = "Q"
c = 0
labelcheck()
Case "Button18"
Button18.Enabled = False
a = "R"
c = 0
labelcheck()
Case "Button19"
Button19.Enabled = False
a = "S"
c = 0
labelcheck()
Case "Button20"
Button20.Enabled = False
a = "T"
c = 0
labelcheck()
Case "Button21"
Button21.Enabled = False
a = "U"
c = 0
labelcheck()
Case "Button22"
Button22.Enabled = False
a = "V"
c = 0
labelcheck()
Case "Button23"
Button23.Enabled = False
a = "W"
c = 0
labelcheck()
Case "Button24"
Button24.Enabled = False
a = "X"
c = 0
labelcheck()
Case "Button25"
Button25.Enabled = False
a = "Y"
c = 0
labelcheck()
Case "Button26"
Button26.Enabled = False
a = "Z"
c = 0
labelcheck()
Case "Button27"
Button27.Enabled = False
a = " "
c = 0
labelcheck()
End Select
End Sub
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Me.Close()
End Sub
End Class- Status
