Ich versuche ein kleines Slot Maschinen spiel zu bauen aber es scheitert an einer simplen if abfrage vllt kann mir wer helfen
Über ein Button wird ein Timer gestartet und wenn das Timerlabel 10 erreicht wird das rouletten der Bilder gestoppt
Aber ich finde keine möglichkeit durch eine if abfrage herauszufinden ob mehrmals das selbe Bild vorhand ist und ich dann einen Wert angezeigt bekomme wenn ja, also bei 2 Grapes 10 oder bei 3 davon halt 15
Vllt hat ja jemand ne Ahnung, bin immernoch absoluter Noob in visual basic und hab über nen Jahr nichts mehr damit gemacht, hab also komplett irgendwie alles vergessen was ich mal wusste...
Über ein Button wird ein Timer gestartet und wenn das Timerlabel 10 erreicht wird das rouletten der Bilder gestoppt
VB.NET-Quellcode
- Public Class Form1
- Dim a As Integer
- Dim b As Integer
- Dim c As Integer
- Dim amount As Integer
- Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
- a = 1 + Int(Rnd() * 8)
- b = 1 + Int(Rnd() * 8)
- c = 1 + Int(Rnd() * 8)
- Timerlabel.Text = Timerlabel.Text + 1
- 'Erstes Slotfeld
- If a = 1 Then
- PictureBox1.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\grape.png")
- Punkteoutputlabel.Text = +5
- End If
- If a = 2 Then
- PictureBox1.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\cherries.png")
- Punkteoutputlabel.Text = +10
- End If
- If a = 3 Then
- PictureBox1.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\orange.png")
- Punkteoutputlabel.Text = +20
- End If
- If a = 4 Then
- PictureBox1.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\lemon.png")
- Punkteoutputlabel.Text = +30
- End If
- If a = 5 Then
- PictureBox1.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\melon.png")
- Punkteoutputlabel.Text = +40
- End If
- If a = 6 Then
- PictureBox1.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\seven.png")
- Punkteoutputlabel.Text = +50
- End If
- If a = 7 Then
- PictureBox1.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\bigwin.png")
- Punkteoutputlabel.Text = +100
- End If
- If a = 8 Then
- PictureBox1.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\bananas.png")
- Punkteoutputlabel.Text = +60
- End If
- 'Zweites Slotfeld
- If b = 1 Then
- PictureBox2.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\grape.png")
- Punkteoutputlabel2.Text = +5
- End If
- If b = 2 Then
- PictureBox2.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\cherries.png")
- Punkteoutputlabel2.Text = +10
- End If
- If b = 3 Then
- PictureBox2.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\orange.png")
- Punkteoutputlabel2.Text = +20
- End If
- If b = 4 Then
- PictureBox2.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\lemon.png")
- Punkteoutputlabel2.Text = +30
- End If
- If b = 5 Then
- PictureBox2.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\melon.png")
- Punkteoutputlabel2.Text = +40
- End If
- If b = 6 Then
- PictureBox2.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\seven.png")
- Punkteoutputlabel2.Text = +50
- End If
- If b = 7 Then
- PictureBox2.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\bigwin.png")
- Punkteoutputlabel2.Text = +100
- End If
- If b = 8 Then
- PictureBox2.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\bananas.png")
- Punkteoutputlabel2.Text = +60
- End If
- 'Drittes Slotfeld
- If c = 1 Then
- PictureBox3.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\grape.png")
- Punkteoutputlabel3.Text = +5
- End If
- If c = 2 Then
- PictureBox3.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\cherries.png")
- Punkteoutputlabel3.Text = +10
- End If
- If c = 3 Then
- PictureBox3.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\orange.png")
- Punkteoutputlabel3.Text = +20
- End If
- If c = 4 Then
- PictureBox3.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\lemon.png")
- Punkteoutputlabel3.Text = +30
- End If
- If c = 5 Then
- PictureBox3.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\melon.png")
- Punkteoutputlabel3.Text = +40
- End If
- If c = 6 Then
- PictureBox3.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\seven.png")
- Punkteoutputlabel3.Text = +50
- End If
- If c = 7 Then
- PictureBox3.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\bigwin.png")
- Punkteoutputlabel3.Text = +100
- End If
- If c = 8 Then
- PictureBox3.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\bananas.png")
- Punkteoutputlabel3.Text = +60
- End If
- 'Ende der Slots
- If Timerlabel.Text = "10" Then
- Timer1.Stop()
- Auszahlunglabel.Text = ""
- Timerlabel.Text = "1"
- 'Start der Punkteabfrage
- 'Hier soll die abfrage der bilder stattfinden
- 'Ende der Punkteabfrage
- End If
- End Sub
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Timer1.Start()
- End Sub
- End Class
Aber ich finde keine möglichkeit durch eine if abfrage herauszufinden ob mehrmals das selbe Bild vorhand ist und ich dann einen Wert angezeigt bekomme wenn ja, also bei 2 Grapes 10 oder bei 3 davon halt 15
Vllt hat ja jemand ne Ahnung, bin immernoch absoluter Noob in visual basic und hab über nen Jahr nichts mehr damit gemacht, hab also komplett irgendwie alles vergessen was ich mal wusste...