Zufalls Bild in Picturebox anzeigen

Alle Fragen zur Programmierung, die nicht in die speziellen Themen passen
Antworten
Bluefish75
Foriker
Beiträge: 44
Registriert: Fr 10. Apr 2015, 09:30
Wohnort: Österreich
Kontaktdaten:

Zufalls Bild in Picturebox anzeigen

Beitrag von Bluefish75 » Do 22. Nov 2018, 10:58

Hallo zusammen,

ich möchte gerne ein Zufalls Bild in einer Picturebox anzeigen lassen.
Das ganze soll so passieren, ich drücke einen Button und in der Picturebox soll per Zufallsgenerator eine Bild angezeigt werden.

Kann mir da jemand helfen?

Grüße aus Österreich

Benutzeravatar
cogier
Foriker
Beiträge: 13
Registriert: Do 19. Jul 2018, 16:18
Wohnort: Guernsey, Channel Islands
Kontaktdaten:

Re: Zufalls Bild in Picturebox anzeigen

Beitrag von cogier » Do 22. Nov 2018, 17:25

Werfen Sie einen Blick auf das beigefügte Programm.

Bild
RandomPicture.tar.gz
(482.55 KiB) 44-mal heruntergeladen

Bluefish75
Foriker
Beiträge: 44
Registriert: Fr 10. Apr 2015, 09:30
Wohnort: Österreich
Kontaktdaten:

Re: Zufalls Bild in Picturebox anzeigen

Beitrag von Bluefish75 » Do 22. Nov 2018, 19:08

Vielen Dank,

so was ähnliches habe ich gemeint.

:D

Bluefish75
Foriker
Beiträge: 44
Registriert: Fr 10. Apr 2015, 09:30
Wohnort: Österreich
Kontaktdaten:

Re: Zufalls Bild in Picturebox anzeigen

Beitrag von Bluefish75 » Do 22. Nov 2018, 21:43

Mein Problem besteht leider noch immer :( .

Ich würde das so brauchen, das bei drücken des Buttons die Bilder z.b in einer Schleife 20 mal zufällig angezeigt werden und dann eines stehen bleibt. Ähnlich wie bei einer Slot Maschine.

Jemand eine Lösung?

Danke im voraus.

Honsek
Foriker
Beiträge: 361
Registriert: Do 4. Okt 2007, 17:01
Kontaktdaten:

Re: Zufalls Bild in Picturebox anzeigen

Beitrag von Honsek » Sa 24. Nov 2018, 10:00

Hallo BlueFish75,

hier mein Quelltext - wenn ich Deine Anforderungen richtig verstanden habe:

Code: Alles auswählen

' Gambas class file

Private $iValue As Integer
Private $iMax As Integer

Public Sub Form_Open()

  picboxImages.Picture = Picture.Load("pict1.jpg")

End

Public Sub Timer1_Timer()
  
  Dim aPhotos As String[] = ["pict1.jpg", "pict2.jpg", "pict3.jpg", "pict4.jpg", "pict5.jpg"]
  Dim iCount As Integer = Rand(0, aPhotos.Max)

  Me.Text = aPhotos[iCount]
  Inc $iValue
  If $iValue = aPhotos.Count Then Timer1.Stop()
  picboxImages.Picture = Picture.Load(aPhotos[iCount])

End

Public Sub btnStart_Click()

  $iValue = 0
  Randomize
  Timer1.Delay = 500
  Timer1.Start()
  Timer1.Trigger()

End
Mit freundlichem Gruß

Honsek
RandomPicture2-0.0.2.tar.gz
Archiv2
(961.72 KiB) 27-mal heruntergeladen
---> Wenn Du eine gute Antwort erwartest, musst Du sehr gut fragen!

Bluefish75
Foriker
Beiträge: 44
Registriert: Fr 10. Apr 2015, 09:30
Wohnort: Österreich
Kontaktdaten:

Re: Zufalls Bild in Picturebox anzeigen

Beitrag von Bluefish75 » Sa 24. Nov 2018, 10:36

Vielen Dank, genau das hab ich gemeint :)

Freundliche grüße aus Österreich

Honsek
Foriker
Beiträge: 361
Registriert: Do 4. Okt 2007, 17:01
Kontaktdaten:

Re: Zufalls Bild in Picturebox anzeigen

Beitrag von Honsek » Sa 24. Nov 2018, 10:42

Hallo,

diese Zeile

If $iValue = aPhotos.Count Then Timer1.Stop()

könnte man so ändern, dass man aPhotos.Count durch den festen Wert 20 ersetzt. Das war ja die Forderung aus den ersten Beitrag. Viel Erfolg mit dem, was Du mit dem Projekt vorhast .

Mit freundlichen Grüßen

Honsek
---> Wenn Du eine gute Antwort erwartest, musst Du sehr gut fragen!

Bluefish75
Foriker
Beiträge: 44
Registriert: Fr 10. Apr 2015, 09:30
Wohnort: Österreich
Kontaktdaten:

Re: Zufalls Bild in Picturebox anzeigen

Beitrag von Bluefish75 » Mo 26. Nov 2018, 12:50

Es ist auch schon das nächste Problem aufgetaucht. Mit einer Picturebox funktioniert es ja einwandfrei, aber wenn man jetzt 3 Pictureboxen neben eineander wie bei einer Slot Maschine hat will es einfach nicht mehr klappen. Es werden keine Bilder mehr in den weiteren Pictureboxen angezeigt.

Nur zur Erklärung es soll ein kleiner Slotautomat in einem Programm integriert werden, nur will das leider nicht so ganz.

Verzweifelte Grüße

Bluefish75
Foriker
Beiträge: 44
Registriert: Fr 10. Apr 2015, 09:30
Wohnort: Österreich
Kontaktdaten:

Re: Zufalls Bild in Picturebox anzeigen

Beitrag von Bluefish75 » Mo 26. Nov 2018, 21:04

Habs nun hin bekommen das die 3 Pictureboxen Zufallsbilder anzeigen. Das Beispiel von Honsek hat mir da sehr geholfen.

Der kleine Slotautomat läuft, nun ist nur noch das Problem wie ich die Bilder die angezeigt werden auch noch vergleichen kann (z.b. wenn man 3 gleiche hat) ob man gewonnen hat.

Wie es bei Label Inhalten funktioniert weis ich ja, aber bei Pictureboxen hat das nicht so funktioniert.

Habe es so versucht, aber kein Erfolg :(

Code: Alles auswählen

IF Picturebox1.Picture = Picturebox2.Picture And Picturebox1.Picture = Picturebox3.Picture then
Message.Info("Du hast 20€ gewonnen!")
Label1.Text = Label1.Text + 20
Endif
Irgend eine Lösung?

Grüße aus Österreich

besenmuckel
Foriker
Beiträge: 95
Registriert: Di 4. Nov 2014, 21:11
Kontaktdaten:

Re: Zufalls Bild in Picturebox anzeigen

Beitrag von besenmuckel » Di 27. Nov 2018, 13:41

Gibt bestimmt eine bessere Lösung.

Code: Alles auswählen

Public Sub Form_Open()

  PictureBox1.Picture = Picture["test_1.png"]
  PictureBox2.Picture = Picture["test_2.png"]
  PictureBox3.Picture = Picture["test_3.png"]

End

Public Sub btnTest_Click()
  
  If Str(PictureBox2.Picture) = Str(PictureBox1.Picture) And Str(PictureBox3.Picture) = Str(PictureBox1.Picture) Then
    Message.Info("passt")
  Else
    Message.Info("passt nicht")    
  Endif
  
End
Wenn du das Beispiel von Honsek nutzt, kannste auch aPhotos[iCount] vergleichen.

Bluefish75
Foriker
Beiträge: 44
Registriert: Fr 10. Apr 2015, 09:30
Wohnort: Österreich
Kontaktdaten:

Re: Zufalls Bild in Picturebox anzeigen

Beitrag von Bluefish75 » Di 27. Nov 2018, 15:27

Hallo besenmuckel,

hat leider auch nicht funktioniert.

Ich hab jetzt mal den Quellcode angehängt, vielleicht kann ja jemand helfen.

Es gibt sicher eine einfachere Lösung für den Code, also bitte nicht erschrecken.
Dateianhänge
Slots-0.0.8.tar.gz
(31.25 KiB) 21-mal heruntergeladen

besenmuckel
Foriker
Beiträge: 95
Registriert: Di 4. Nov 2014, 21:11
Kontaktdaten:

Re: Zufalls Bild in Picturebox anzeigen

Beitrag von besenmuckel » Di 27. Nov 2018, 17:52

hab deins etwas angepasst. Von wem bekomme ich den Gewinn? :lol:
Slots-0.0.9.tar.gz
(31.21 KiB) 31-mal heruntergeladen

Bluefish75
Foriker
Beiträge: 44
Registriert: Fr 10. Apr 2015, 09:30
Wohnort: Österreich
Kontaktdaten:

Re: Zufalls Bild in Picturebox anzeigen

Beitrag von Bluefish75 » Di 27. Nov 2018, 21:17

Vielen dank, habs mir grad angeschaut.

Auf das bin ich natürlich nicht gekommen.

Sehr gut jetzt kann ich das noch ausbauen.

Ps: und wegen dem Gewinn.....die Bank streikt gerade :D :P


Verschneite Grüße aus Österreich

Antworten

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 4 Gäste