Wie Vergleicht man ein Fußballergebniss (3:0)???

sebsch80 · Beitrag von **sebsch80** » 04.10.2006 17:10

Hallo,

wie kann ich das Ergebniss eines Spiels (zB. 3:0) mit einem getippten Ergebniss (zB. 3:2) vergleichen.

Ich meine, man kann es doch nicht in eine Variable schreiben. Da will er den Doppelpunkt nicht haben.

Aber ich muß irgendwie einen If Vergleich anstellen um dann zu wissen:

1. Ist das Ergebniss richtig getippt
2. Ist das Ergebniss falsch getippt
3. Stimmt die Tendenz
4. Stimmt wenigstens 1 Teil des Spielergebnisses (zb. die 3 oder die 0)

Bitte gebt mir mal nen Denkanstoß. Bin Anfänger beim Programmieren und deswegen wäre es schön wenn ihr euren Lösung ein wenig beschreiben könntet.

Vielen Dank im voraus...

Frogger · Beitrag von **Frogger** » 04.10.2006 17:13

Schau dir in der Hilfe den Befehl StringField(..) an.

sebsch80 · Beitrag von **sebsch80** » 04.10.2006 17:17

Also das mit dem StringField ist nicht schlecht. Aber wie soll ich da ein Fußball Ergebniss einbringen???

PMTheQuick · Beitrag von **PMTheQuick** » 04.10.2006 17:55

Hier ein Beispiel... Unten der normale Code nur mit Vergleich... Dieser Code soll nur zeigen, wie alles funzt!

Code: Alles auswählen

OpenWindow(0,0,0,150,40,"Fussball-Wette",#PB_Window_SystemMenu)
If CreateGadgetList(WindowID(0))
  StringGadget(0,0,0,50,20,"",#PB_String_Numeric)
  TextGadget(1,50,0,50,20,":",#PB_Text_Center)
  StringGadget(2,100,0,50,20,"",#PB_String_Numeric)
  StringGadget(3,0,20,75,20,"Ergebnis")
  ButtonGadget(4,75,20,75,20,"Vergleichen")
EndIf
Repeat
  event = WaitWindowEvent()
  If event = #PB_Event_Gadget And EventGadget() = 4
    ergebnis$ = GetGadgetText(3) ;Kannst auch selber eingeben, hier muss auf jedenfalld as Ergebnis stehen
    stimmegruppe1$ = GetGadgetText(0)
    stimmegruppe2$ = GetGadgetText(2)
    
    If Mid(ergebnis$,0,1) = Mid(stimmegruppe1$,0,1)
      If Mid(ergebnis$,3,1) = Mid(stimmegruppe2$,0,1)
        MessageRequester("Super!","Super... Du hast richtig getippt!")
      Else
        MessageRequester("Nicht schlecht", "Nicht schlecht... Du hast immerhin einen richtig getippt!")
      EndIf
    Else
      If Mid(ergebnis$,3,1) = Mid(stimmegruppe2$,0,1)
        MessageRequester("Nicht schlecht", "Nicht schlecht... Du hast immerhin einen richtig getippt!")
      Else
        MessageRequester("Nicht schlecht", "Nicht schlecht... Du hast immerhin einen richtig getippt!")
      EndIf
    EndIf
  EndIf
Until event = #PB_Event_CloseWindow

Bei der Eingabe beim tippen machst du ein StringGadget, dann ein TextGadget mit dem Inhalt ":" und dann hintendran ein Textgadget. Die oberen EIngaben sind klar... Das untere Feld musst du die Ergebnisse eintragen... So: "2:2" z.B.... Und dann vergleichen drücken... Kann es nicht mehr besser machen, hab im MOment schon genug viel ARbeit (Crossworld Island, Mystery Island Paryti, Gravity Arena und Egomatic)

Gruss
PMTheQuick

PS: SCHREIBE IHM EINEN KOMPLETT-CODE... KOMMT IN CA. 5MIN...

EDIT: Hier noch der alte Code:

Code: Alles auswählen

ergebnis$ = GetGadgetText(3) ;Kannst auch selber eingeben, hier muss auf jedenfalld as Ergebnis stehen
stimmegruppe1$ = GetGadgetText(0)
stimmegruppe2$ = GetGadgetText(2)
    
If Mid(ergebnis$,0,1) = Mid(stimmegruppe1$,0,1)
  If Mid(ergebnis$,3,1) = Mid(stimmegruppe2$,0,1)
    MessageRequester("Super!","Super... Du hast richtig getippt!")
  Else
    MessageRequester("Nicht schlecht", "Nicht schlecht... Du hast immerhin einen richtig getippt!")
  EndIf
Else
  If Mid(ergebnis$,3,1) = Mid(stimmegruppe2$,0,1)
    MessageRequester("Nicht schlecht", "Nicht schlecht... Du hast immerhin einen richtig getippt!")
  Else
    MessageRequester("Nicht schlecht", "Nicht schlecht... Du hast immerhin einen richtig getippt!")
  EndIf
EndIf

sebsch80 · Beitrag von **sebsch80** » 04.10.2006 18:15

Hey super das ist nicht schlecht. Da hab ich Pro Spiel schon mal eine Variable zu meinem 1 Programm gespart.

sebsch80 · Beitrag von **sebsch80** » 04.10.2006 18:41

Das ist echt klasse. Wie kann man sowas so schnell programieren?
Vieviel Jahre Erfahrung braucht man dafür?

PMTheQuick · Beitrag von **PMTheQuick** » 04.10.2006 19:32

ich progge seit 4 jahren... bin jetzt gerade mal 11 und behersche es schon gut! du wirst sehen, nach einpaar übungen geht es von selbst!

Und... Alles ist am Anfang mal schwer... Am Anfang konnte ich auch nur den PC starten (

), dann Word u.s.w.

Und es freut mich, das ich dir helfen konnte!

Gruss
PMTheQuick

sebsch80 · Beitrag von **sebsch80** » 04.10.2006 19:51

Hab mal ein bisschen an dem Code rumgebastelt.
Laß den Code mal bitte laufen.

Code: Alles auswählen

OpenWindow(0,0,0,350,120,"Fussball-Wette",#PB_Window_SystemMenu | #PB_Window_ScreenCentered) 
If CreateGadgetList(WindowID(0)) 
  StringGadget(0,0,0,150,20,"Bayern München",#PB_Text_Center)
  StringGadget(1,0,20,150,20,"",#PB_String_Numeric | #PB_Window_ScreenCentered) 
  TextGadget(2,150,15,50,50,":",#PB_Text_Center)
  StringGadget(3,200,0,150,20,"Dortmund",#PB_Text_Center) 
  StringGadget(4,200,20,150,20,"",#PB_String_Numeric | #PB_Window_ScreenCentered) 
  ButtonGadget(5,100,50,150,30,"Vergleichen")
  CreateMenu(0, WindowID(0))
  MenuTitle("Spiel")
     MenuItem(1, "Spiel 1")
     MenuItem(2, "Spiel 2")
     MenuItem(3, "Spiel 3")
EndIf 
Repeat 
  event = WaitWindowEvent() 
  If event = #PB_Event_Gadget And EventGadget() = 5
    ergebnis$ = "3:2" 
    stimmegruppe1$ = GetGadgetText(1) 
    stimmegruppe2$ = GetGadgetText(4) 
    
    If Mid(ergebnis$,0,1) = Mid(stimmegruppe1$,0,1) 
      If Mid(ergebnis$,3,1) = Mid(stimmegruppe2$,0,1) 
        MessageRequester("Super!","Super... Du hast richtig getippt!") 
      Else 
        MessageRequester("Nicht schlecht", "Nicht schlecht... Du hast immerhin einen richtig getippt!") 
      EndIf 
    Else 
      If Mid(ergebnis$,3,1) = Mid(stimmegruppe2$,0,1) 
        MessageRequester("Nicht schlecht", "Nicht schlecht... Du hast immerhin einen richtig getippt!") 
      Else 
        MessageRequester("Nicht schlecht", "Nicht schlecht... Du hast immerhin einen richtig getippt!") 
      EndIf 
    EndIf 
  EndIf 
Until event = #PB_Event_CloseWindow

Wie Du siehst hab ich ein Menu mit eingebaut, wie könnte ich jetzt die einzelnen Spiele des Menüs mit bestimmten Manschaftsnamen verknüpfen? Damit ich das Spiel das ich vergleichen möchte nur noch im Menü wähle.

Und wieso läst sich der Name des Fensters (Fussball Wette) nicht zentriert in die Mitte des Fensters setzen?

cyan · Beitrag von **cyan** » 04.10.2006 21:18

PMTheQuick hat geschrieben:ich progge seit 4 jahren... bin jetzt gerade mal 11

OT:

krass

PMTheQuick · Beitrag von **PMTheQuick** » 04.10.2006 21:23

Centered heisst nciht, der Titel ist in der Mitte, sondern das Fenster ist in der Mitte des Bildschirm!

Hier ein Code: (nach deinem erwqeitert)

Code: Alles auswählen

OpenWindow(0,0,0,350,120,"Fussball-Wette",#PB_Window_SystemMenu | #PB_Window_ScreenCentered) 
If CreateGadgetList(WindowID(0)) 
  StringGadget(0,0,0,150,20,"Bayern München",#PB_Text_Center) 
  StringGadget(1,0,20,150,20,"",#PB_String_Numeric | #PB_Window_ScreenCentered) 
  TextGadget(2,150,15,50,50,":",#PB_Text_Center) 
  StringGadget(3,200,0,150,20,"Dortmund",#PB_Text_Center) 
  StringGadget(4,200,20,150,20,"",#PB_String_Numeric | #PB_Window_ScreenCentered) 
  ButtonGadget(5,100,50,150,30,"Vergleichen") 
  CreateMenu(0, WindowID(0)) 
  MenuTitle("Spiel") 
  MenuItem(1, "Spiel 1") 
  MenuItem(2, "Spiel 2") 
  MenuItem(3, "Spiel 3") 
EndIf 
Repeat 
  event = WaitWindowEvent() 
  If event = #PB_Event_Gadget And EventGadget() = 5 
    ergebnis$ = "3:2" 
    stimmegruppe1$ = GetGadgetText(1) 
    stimmegruppe2$ = GetGadgetText(4) 
    
    If Mid(ergebnis$,0,1) = Mid(stimmegruppe1$,0,1) 
      If Mid(ergebnis$,3,1) = Mid(stimmegruppe2$,0,1) 
        MessageRequester("Super!","Super... Du hast richtig getippt!") 
      Else 
        MessageRequester("Nicht schlecht", "Nicht schlecht... Du hast immerhin einen richtig getippt!") 
      EndIf 
    Else 
      If Mid(ergebnis$,3,1) = Mid(stimmegruppe2$,0,1) 
        MessageRequester("Nicht schlecht", "Nicht schlecht... Du hast immerhin einen richtig getippt!") 
      Else 
        MessageRequester("Nicht schlecht", "Nicht schlecht... Du hast immerhin einen richtig getippt!") 
      EndIf 
    EndIf 
  EndIf 
  If event = #PB_Event_Menu
    If EventMenu() = 1
      SetGadgetText(0,"Bayern München")
      SetGadgetText(3,"Dortmund")
      ergebnis$ = "3:2"
    ElseIf EventMenu() = 2
      SetGadgetText(0,"FC Basel")
      SetGadgetText(3,"Brasilien")
      ergebnis$ = "80:0"
    ElseIf EventMenu() = 3
      SetGadgetText(0,"FC Bayern")
      SetGadgetText(3,"FC Basel")
      ergebnis$ = "0:100"
    EndIf
  EndIf 
Until event = #PB_Event_CloseWindow

Gruss
PMTheQuick