German Suche bestimmten Code

Chase

Member
Hallo Programmierer,

nehmen wir mal an wir haben ein Spiel mit 6 Buttons und 1er davon soll der richtige sein und die anderen 5 falsch und man will das der richtige Button ,der letzendlich den Sieg bringt, immer woanders liegt.

Was muss ich als Code eingeben um den Faktor Zufall zu erhalten?

Ist wirklich wichtig!

Danke Chase
 

Attachments

  • Bomb Squad - The Game.sbp
    1.9 KB · Views: 275

Chase

Member
Danke Kiffi ;)

Ja ich suche den Code für ppc.

Hat vllt. noch jemand eine Idee?
 
Last edited:

Kiffi

Well-Known Member
Licensed User
Longtime User
Hier mal ein kleiner Codeschnippsel (ich kenne mich mit B4PPC nicht aus):
B4X:
Sub Globals
   Dim Zufall As Integer
End Sub

Sub App_Start

   Form1.Show
   
   Zufall = Rnd(1, 6)

   For i = 1 To 6
      AddButton("Form1", "Btn" & i, 100 ,25 * i,50,20,i)
      AddEvent("Btn" & i,Click, "Btn_Click")
   Next
   
End Sub

Sub Btn_Click

   If Sender.text = Zufall Then
      Msgbox("Ja")
   Else
      Msgbox("Nein")
   End If

End Sub

Grüße ... Kiffi
 

Chase

Member
:sign0098: Kiffi !


Damit kann ich schon mehr anfangen, werd mein programm dann mal fertigstellen ;)
 

Chase

Member
So ganz funktioniert das nicht :(. :sign0148:

Also ich habe 6 Buttons und per zufall wird ein Button ausgesucht, der zeigt dann form4 (Sieg) ,die 5 anderen buttons zeigen form5 (Niederlage).

Im obigen Beispiel von Kiffi handelt es sich ja nur um ein Button :D.

Wie macht man das mit mehreren Buttons?

Bzw. wie sieht in etwa der Code aus?
 
Last edited:

Kiffi

Well-Known Member
Licensed User
Longtime User
Also ich habe 6 Buttons und per zufall wird ein Button ausgesucht, der zeigt dann form4 (Sieg) ,die 5 anderen buttons zeigen form5 (Niederlage).
dann ersetze die Messageboxen doch einfach.

Msgbox("Ja") -> SiegForm anzeigen
Msgbox("Nein") -> NiederlageForm anzeigen

Grüße ... Kiffi
 
Top