Ich habe ein einfaches Bingo-Spiel geschrieben.
Gedacht war es ursprünglich als "Funk-Bingo" zu den YT-Kanälen von Funk.
Die Wörter sind frei wählbar und bleiben gespeichert. Jedes Feld lässt sich markieren und es lässt sich auch wieder rückgängig machen, indem man nochmal einen Links-Klick darauf macht.
Bingo's werden am Rand angezeigt und die gesamt Anzahl der Bingo's wird mit gezählt.
Zum wechseln der Begriffe, reicht ein rechtsklick auf das gewünschte Feld und klicken auf "ändern".
Für eine neue Runde ist auch ein "Reset-Button" vorhanden.
Ich hätte mehr mit Schleifen arbeiten sollen, dessen bin ich mir bewusst. So wie ich es geschrieben habe hat das Programm 769 Zeilen. Da ich nicht weiß wie lange der Code sein darf/kann habe ich eine Zip-Datei (Bingo.zip) im Anhang.
Wie empfohlen habe ich die Zip nochmal erstellt, aber ohne die .Exe-Dateien.
Vielen dank nochmal!
Bitte ein kurzes feedback, ob das Programm startbar ist, wäre nett.
Wenn das Funktioniert, lade ich ein weiteres Programm hier hoch.
EDIT von Musashi - Skript eingefügt :
(zusätzlich benötigte Dateien wie .ini oder .png müssen derzeit noch aus der o.a. .zip genommen werden)
;#include <AutoItConstants.au3>
#include <ButtonConstants.au3>
#include <ColorConstants.au3>
#include <EditConstants.au3>
#include <EventLog.au3>
#include <FontConstants.au3>
#include <GuiButton.au3>
#include <GUIConstantsEx.au3>
#include <GuiEdit.au3>
#include <MsgBoxConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Bingo_Starter()
Func Bingo_Starter()
Global $sFont = "Bookman Old Style"
Global $pic_Kreuz = @ScriptDir &"\png\Kreuz2.jpg"
Global $ini_Daten = @ScriptDir &"\ini\Daten.ini"
Global $A1=0, $B1=0, $C1=0, $D1=0, $E1=0, _
$A2=0, $B2=0, $C2=0, $D2=0, $E2=0, _
$A3=0, $B3=0, $C3=0, $D3=0, $E3=0, _
$A4=0, $B4=0, $C4=0, $D4=0, $E4=0, _
$A5=0, $B5=0, $C5=0, $D5=0, $E5=0
Global $Bingo_1=0, $Bingo_2=0, $Bingo_3=0, $Bingo_4=0, $Bingo_5=0, _
$Bingo_6=0, $Bingo_7=0, $Bingo_8=0, $Bingo_9=0, $Bingo_10=0
Global $vBingo=0
Global $Feld, $SetData
Global $Bi_1=0, $Bi_2=0, $Bi_3=0, $Bi_4=0, $Bi_5=0, $Bi_6=0, $Bi_7=0, $Bi_8=0, $Bi_9=0, $Bi_10=0
Bingo_Main()
EndFunc
Func Bingo_Main()
Global $GUIBingo = GUICreate("Funk-Bingo", 505, 555)
GUISetBkColor(0xBDBDBD)
; _______________ Buttons _______________
; _______________________________________________________________________________________________
Local $btn_Neu = GUICtrlCreateButton ("Reset", 2, 2, 40, 20)
GUICtrlSetFont (-1, 8, $FW_NORMAL, $GUI_FONTNORMAL, $sFont)
Buttons()
Local $txt_Bingo = GUICtrlCreateLabel("Bingo:", 130, 2, 120, 50)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 28, $FW_NORMAL, $GUI_FONTNORMAL, $sFont)
Global $var_Bingo = GUICtrlCreateLabel($vBingo, 250, 2, 50, 50, $SS_CENTER)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 28, $FW_NORMAL, $GUI_FONTUNDER, $sFont)
Local $txt_Bingo2 = GUICtrlCreateLabel("mal", 305, 2, 70, 50)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 28, $FW_NORMAL, $GUI_FONTNORMAL, $sFont)
; _______________ Marker _______________
; _______________________________________________________________________________________________
Global $pic_Bingo_1 = GUICtrlCreateLabel("", 1, 100, 9, 40)
GUICtrlSetBkColor(-1, 0x008000)
GUICtrlSetState(-1, $GUI_HIDE)
Global $pic_Bingo_12 = GUICtrlCreateLabel("", 495, 100, 10, 40)
GUICtrlSetBkColor(-1, 0x008000)
GUICtrlSetState(-1, $GUI_HIDE)
Global $pic_Bingo_2 = GUICtrlCreateLabel("", 1, 222, 9, 40)
GUICtrlSetBkColor(-1, 0x008000)
GUICtrlSetState(-1, $GUI_HIDE)
Global $pic_Bingo_22 = GUICtrlCreateLabel("", 495, 222, 10, 40)
GUICtrlSetBkColor(-1, 0x008000)
GUICtrlSetState(-1, $GUI_HIDE)
Global $pic_Bingo_3 = GUICtrlCreateLabel("", 1, 344, 9, 40)
GUICtrlSetBkColor(-1, 0x008000)
GUICtrlSetState(-1, $GUI_HIDE)
Global $pic_Bingo_32 = GUICtrlCreateLabel("", 495, 344, 10, 40)
GUICtrlSetBkColor(-1, 0x008000)
GUICtrlSetState(-1, $GUI_HIDE)
Global $pic_Bingo_4 = GUICtrlCreateLabel("", 1, 466, 9, 40)
GUICtrlSetBkColor(-1, 0x008000)
GUICtrlSetState(-1, $GUI_HIDE)
Global $pic_Bingo_42 = GUICtrlCreateLabel("", 495, 466, 10, 40)
GUICtrlSetBkColor(-1, 0x008000)
GUICtrlSetState(-1, $GUI_HIDE)
; .
Global $pic_Bingo_5 = GUICtrlCreateLabel("", 50, 51, 40, 9)
GUICtrlSetBkColor(-1, 0x008000)
GUICtrlSetState(-1, $GUI_HIDE)
Global $pic_Bingo_52 = GUICtrlCreateLabel("", 50, 545, 40, 10)
GUICtrlSetBkColor(-1, 0x008000)
GUICtrlSetState(-1, $GUI_HIDE)
Global $pic_Bingo_6 = GUICtrlCreateLabel("", 172, 51, 40, 9)
GUICtrlSetBkColor(-1, 0x008000)
GUICtrlSetState(-1, $GUI_HIDE)
Global $pic_Bingo_62 = GUICtrlCreateLabel("", 172, 545, 40, 10)
GUICtrlSetBkColor(-1, 0x008000)
GUICtrlSetState(-1, $GUI_HIDE)
Global $pic_Bingo_7 = GUICtrlCreateLabel("", 294, 51, 40, 9)
GUICtrlSetBkColor(-1, 0x008000)
GUICtrlSetState(-1, $GUI_HIDE)
Global $pic_Bingo_72 = GUICtrlCreateLabel("", 294, 545, 40, 10)
GUICtrlSetBkColor(-1, 0x008000)
GUICtrlSetState(-1, $GUI_HIDE)
Global $pic_Bingo_8 = GUICtrlCreateLabel("", 416, 51, 40, 9)
GUICtrlSetBkColor(-1, 0x008000)
GUICtrlSetState(-1, $GUI_HIDE)
Global $pic_Bingo_82 = GUICtrlCreateLabel("", 416, 545, 40, 10)
GUICtrlSetBkColor(-1, 0x008000)
GUICtrlSetState(-1, $GUI_HIDE)
; .
Global $pic_Bingo_91 = GUICtrlCreateLabel("", 1, 51, 9, 29)
GUICtrlSetBkColor(-1, 0x008000)
GUICtrlSetState(-1, $GUI_HIDE)
Global $pic_Bingo_92 = GUICtrlCreateLabel("", 10, 51, 20, 9)
GUICtrlSetBkColor(-1, 0x008000)
GUICtrlSetState(-1, $GUI_HIDE)
Global $pic_Bingo_93 = GUICtrlCreateLabel("", 495, 526, 10, 29)
GUICtrlSetBkColor(-1, 0x008000)
GUICtrlSetState(-1, $GUI_HIDE)
Global $pic_Bingo_94 = GUICtrlCreateLabel("", 476, 545, 20, 10)
GUICtrlSetBkColor(-1, 0x008000)
GUICtrlSetState(-1, $GUI_HIDE)
Global $pic_Bingo_101 = GUICtrlCreateLabel("", 1, 526, 9, 29)
GUICtrlSetBkColor(-1, 0x008000)
GUICtrlSetState(-1, $GUI_HIDE)
Global $pic_Bingo_102 = GUICtrlCreateLabel("", 10, 545, 20, 10)
GUICtrlSetBkColor(-1, 0x008000)
GUICtrlSetState(-1, $GUI_HIDE)
Global $pic_Bingo_103 = GUICtrlCreateLabel("", 495, 50, 10, 29)
GUICtrlSetBkColor(-1, 0x008000)
GUICtrlSetState(-1, $GUI_HIDE)
Global $pic_Bingo_104 = GUICtrlCreateLabel("", 476, 50, 20, 10)
GUICtrlSetBkColor(-1, 0x008000)
GUICtrlSetState(-1, $GUI_HIDE)
; _______________ ConText _______________
; _______________________________________________________________________________________________
Global $con_A1 = GUICtrlCreateContextMenu($feld_A1)
Global $con_A11 = GUICtrlCreateMenuItem("Ändern", $con_A1)
Global $con_B1 = GUICtrlCreateContextMenu($feld_B1)
Global $con_B11 = GUICtrlCreateMenuItem("Ändern", $con_B1)
Global $con_C1 = GUICtrlCreateContextMenu($feld_C1)
Global $con_C11 = GUICtrlCreateMenuItem("Ändern", $con_C1)
Global $con_D1 = GUICtrlCreateContextMenu($feld_D1)
Global $con_D11 = GUICtrlCreateMenuItem("Ändern", $con_D1)
Global $con_A2 = GUICtrlCreateContextMenu($feld_A2)
Global $con_A22 = GUICtrlCreateMenuItem("Ändern", $con_A2)
Global $con_B2 = GUICtrlCreateContextMenu($feld_B2)
Global $con_B22 = GUICtrlCreateMenuItem("Ändern", $con_B2)
Global $con_C2 = GUICtrlCreateContextMenu($feld_C2)
Global $con_C22 = GUICtrlCreateMenuItem("Ändern", $con_C2)
Global $con_D2 = GUICtrlCreateContextMenu($feld_D2)
Global $con_D22 = GUICtrlCreateMenuItem("Ändern", $con_D2)
Global $con_A3 = GUICtrlCreateContextMenu($feld_A3)
Global $con_A33 = GUICtrlCreateMenuItem("Ändern", $con_A3)
Global $con_B3 = GUICtrlCreateContextMenu($feld_B3)
Global $con_B33 = GUICtrlCreateMenuItem("Ändern", $con_B3)
Global $con_C3 = GUICtrlCreateContextMenu($feld_C3)
Global $con_C33 = GUICtrlCreateMenuItem("Ändern", $con_C3)
Global $con_D3 = GUICtrlCreateContextMenu($feld_D3)
Global $con_D33 = GUICtrlCreateMenuItem("Ändern", $con_D3)
Global $con_A4 = GUICtrlCreateContextMenu($feld_A4)
Global $con_A44 = GUICtrlCreateMenuItem("Ändern", $con_A4)
Global $con_B4 = GUICtrlCreateContextMenu($feld_B4)
Global $con_B44 = GUICtrlCreateMenuItem("Ändern", $con_B4)
Global $con_C4 = GUICtrlCreateContextMenu($feld_C4)
Global $con_C44 = GUICtrlCreateMenuItem("Ändern", $con_C4)
Global $con_D4 = GUICtrlCreateContextMenu($feld_D4)
Global $con_D44 = GUICtrlCreateMenuItem("Ändern", $con_D4)
; _______________________________________________________________________________________________
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
GUISetState(@SW_SHOW, $GUIBingo)
; _______________________________________________________________________________________________
While 1
Switch GUIGetMsg()
; _______________________________________________________________________________________________________
Case $con_A11
$Feld = "A1"
$SetData = $feld_A1
Input()
Case $con_B11
$Feld = "B1"
$SetData = $feld_B1
Input()
Case $con_C11
$Feld = "C1"
$SetData = $feld_C1
Input()
Case $con_D11
$Feld = "D1"
$SetData = $feld_D1
Input()
; _______________________________________________________________________________________________________
Case $con_A22
$Feld = "A2"
$SetData = $feld_A2
Input()
Case $con_B22
$Feld = "B2"
$SetData = $feld_B2
Input()
Case $con_C22
$Feld = "C2"
$SetData = $feld_C2
Input()
Case $con_D22
$Feld = "D2"
$SetData = $feld_D2
Input()
; _______________________________________________________________________________________________________
Case $con_A33
$Feld = "A3"
$SetData = $feld_A3
Input()
Case $con_B33
$Feld = "B3"
$SetData = $feld_B3
Input()
Case $con_C33
$Feld = "C3"
$SetData = $feld_C3
Input()
Case $con_D33
$Feld = "D3"
$SetData = $feld_D3
Input()
; _______________________________________________________________________________________________________
Case $con_A44
$Feld = "A4"
$SetData = $feld_A4
Input()
Case $con_B44
$Feld = "B4"
$SetData = $feld_B4
Input()
Case $con_C44
$Feld = "C4"
$SetData = $feld_C4
Input()
Case $con_D44
$Feld = "D4"
$SetData = $feld_D4
Input()
; _______________________________________________________________________________________________________
; _______________________________________________________________________________________________________
Case $feld_A1
If $A1 = 0 Then
$A1 = 1
Global $pic_A1 = GUICtrlCreatePic($pic_Kreuz, 10, 60, 120, 120)
ElseIf $A1 = 1 Then
$A1 = 0
GUICtrlSetState($pic_A1, $GUI_HIDE)
EndIf
Bingo()
; .
Case $feld_B1
If $B1 = 0 Then
$B1 = 1
Global $pic_B1 = GUICtrlCreatePic($pic_Kreuz, 132, 60, 120, 120)
ElseIf $B1 = 1 Then
$B1 = 0
GUICtrlSetState($pic_B1, $GUI_HIDE)
EndIf
Bingo()
; .
Case $feld_C1
If $C1 = 0 Then
$C1 = 1
Global $pic_C1 = GUICtrlCreatePic($pic_Kreuz, 254, 60, 120, 120)
ElseIf $C1 = 1 Then
$C1 = 0
GUICtrlSetState($pic_C1, $GUI_HIDE)
EndIf
Bingo()
; .
Case $feld_D1
If $D1 = 0 Then
$D1 = 1
Global $pic_D1 = GUICtrlCreatePic($pic_Kreuz, 376, 60, 120, 120)
ElseIf $D1 = 1 Then
$D1 = 0
GUICtrlSetState($pic_D1, $GUI_HIDE)
EndIf
Bingo()
; _______________________________________________________________________________________________________
Case $feld_A2
If $A2 = 0 Then
$A2 = 1
Global $pic_A2 = GUICtrlCreatePic($pic_Kreuz, 10, 182, 120, 120)
ElseIf $A2 = 1 Then
$A2 = 0
GUICtrlSetState($pic_A2, $GUI_HIDE)
EndIf
Bingo()
; .
Case $feld_B2
If $B2 = 0 Then
$B2 = 1
Global $pic_B2 = GUICtrlCreatePic($pic_Kreuz, 132, 182, 120, 120)
ElseIf $B2 = 1 Then
$B2 = 0
GUICtrlSetState($pic_B2, $GUI_HIDE)
EndIf
Bingo()
; .
Case $feld_C2
If $C2 = 0 Then
$C2 = 1
Global $pic_C2 = GUICtrlCreatePic($pic_Kreuz, 254, 182, 120, 120)
ElseIf $C2 = 1 Then
$C2 = 0
GUICtrlSetState($pic_C2, $GUI_HIDE)
EndIf
Bingo()
; .
Case $feld_D2
If $D2 = 0 Then
$D2 = 1
Global $pic_D2 = GUICtrlCreatePic($pic_Kreuz, 376, 182, 120, 120)
ElseIf $D2 = 1 Then
$D2 = 0
GUICtrlSetState($pic_D2, $GUI_HIDE)
EndIf
Bingo()
; _______________________________________________________________________________________________________
Case $feld_A3
If $A3 = 0 Then
$A3 = 1
Global $pic_A3 = GUICtrlCreatePic($pic_Kreuz, 10, 304, 120, 120)
ElseIf $A3 = 1 Then
$A3 = 0
GUICtrlSetState($pic_A3, $GUI_HIDE)
EndIf
Bingo()
; .
Case $feld_B3
If $B3 = 0 Then
$B3 = 1
Global $pic_B3 = GUICtrlCreatePic($pic_Kreuz, 132, 304, 120, 120)
ElseIf $B3 = 1 Then
$B3 = 0
GUICtrlSetState($pic_B3, $GUI_HIDE)
EndIf
Bingo()
; .
Case $feld_C3
If $C3 = 0 Then
$C3 = 1
Global $pic_C3 = GUICtrlCreatePic($pic_Kreuz, 254, 304, 120, 120)
ElseIf $C3 = 1 Then
$C3 = 0
GUICtrlSetState($pic_C3, $GUI_HIDE)
EndIf
Bingo()
; .
Case $feld_D3
If $D3 = 0 Then
$D3 = 1
Global $pic_D3 = GUICtrlCreatePic($pic_Kreuz, 376, 304, 120, 120)
ElseIf $D3 = 1 Then
$D3 = 0
GUICtrlSetState($pic_D3, $GUI_HIDE)
EndIf
Bingo()
; _______________________________________________________________________________________________________
Case $feld_A4
If $A4 = 0 Then
$A4 = 1
Global $pic_A4 = GUICtrlCreatePic($pic_Kreuz, 10, 426, 120, 120)
ElseIf $A4 = 1 Then
$A4 = 0
GUICtrlSetState($pic_A4, $GUI_HIDE)
EndIf
Bingo()
; .
Case $feld_B4
If $B4 = 0 Then
$B4 = 1
Global $pic_B4 = GUICtrlCreatePic($pic_Kreuz, 132, 426, 120, 120)
ElseIf $B4 = 1 Then
$B4 = 0
GUICtrlSetState($pic_B4, $GUI_HIDE)
EndIf
Bingo()
; .
Case $feld_C4
If $C4 = 0 Then
$C4 = 1
Global $pic_C4 = GUICtrlCreatePic($pic_Kreuz, 254, 426, 120, 120)
ElseIf $C4 = 1 Then
$C4 = 0
GUICtrlSetState($pic_C4, $GUI_HIDE)
EndIf
Bingo()
; .
Case $feld_D4
If $D4 = 0 Then
$D4 = 1
Global $pic_D4 = GUICtrlCreatePic($pic_Kreuz, 376, 426, 120, 120)
ElseIf $D4 = 1 Then
$D4 = 0
GUICtrlSetState($pic_D4, $GUI_HIDE)
EndIf
Bingo()
; _______________________________________________________________________________________________________
Case $btn_Neu
GUIDelete($GUIBingo)
Bingo_Starter()
ExitLoop
; _______________________________________________________________________________________________________
Case $GUI_EVENT_CLOSE
GUIDelete($GUIBingo)
Exit
; _______________________________________________________________________________________________________
EndSwitch
WEnd
EndFunc
; _____________________________________________________________________________________________
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Func Buttons()
Local $ini_A = IniRead($ini_Daten, "Daten", "A1", "")
Local $ini_B = IniRead($ini_Daten, "Daten", "B1", "")
Local $ini_C = IniRead($ini_Daten, "Daten", "C1", "")
Local $ini_D = IniRead($ini_Daten, "Daten", "D1", "")
If $ini_A = "" Then $ini_A = "!!!! NICHT BELEGT !!!!"
If $ini_B = "" Then $ini_B = "!!!! NICHT BELEGT !!!!"
If $ini_C = "" Then $ini_C = "!!!! NICHT BELEGT !!!!"
If $ini_D = "" Then $ini_D = "!!!! NICHT BELEGT !!!!"
Global $feld_A1 = GUICtrlCreateLabel($ini_A, 10, 60, 120, 120, $SS_SUNKEN+$SS_CENTERIMAGE+$SS_CENTER)
Global $feld_B1 = GUICtrlCreateLabel($ini_B, 132, -1, 120, 120, $SS_SUNKEN+$SS_CENTERIMAGE+$SS_CENTER)
Global $feld_C1 = GUICtrlCreateLabel($ini_C, 254, -1, 120, 120, $SS_SUNKEN+$SS_CENTERIMAGE+$SS_CENTER)
Global $feld_D1 = GUICtrlCreateLabel($ini_D, 376, -1, 120, 120, $SS_SUNKEN+$SS_CENTERIMAGE+$SS_CENTER)
Local $ini_A = IniRead($ini_Daten, "Daten", "A2", "")
Local $ini_B = IniRead($ini_Daten, "Daten", "B2", "")
Local $ini_C = IniRead($ini_Daten, "Daten", "C2", "")
Local $ini_D = IniRead($ini_Daten, "Daten", "D2", "")
If $ini_A = "" Then $ini_A = "!!!! NICHT BELEGT !!!!"
If $ini_B = "" Then $ini_B = "!!!! NICHT BELEGT !!!!"
If $ini_C = "" Then $ini_C = "!!!! NICHT BELEGT !!!!"
If $ini_D = "" Then $ini_D = "!!!! NICHT BELEGT !!!!"
Global $feld_A2 = GUICtrlCreateLabel($ini_A, 10, 182, 120, 120, $SS_SUNKEN+$SS_CENTERIMAGE+$SS_CENTER)
Global $feld_B2 = GUICtrlCreateLabel($ini_B, 132, -1, 120, 120, $SS_SUNKEN+$SS_CENTERIMAGE+$SS_CENTER)
Global $feld_C2 = GUICtrlCreateLabel($ini_C, 254, -1, 120, 120, $SS_SUNKEN+$SS_CENTERIMAGE+$SS_CENTER)
Global $feld_D2 = GUICtrlCreateLabel($ini_D, 376, -1, 120, 120, $SS_SUNKEN+$SS_CENTERIMAGE+$SS_CENTER)
Local $ini_A = IniRead($ini_Daten, "Daten", "A3", "")
Local $ini_B = IniRead($ini_Daten, "Daten", "B3", "")
Local $ini_C = IniRead($ini_Daten, "Daten", "C3", "")
Local $ini_D = IniRead($ini_Daten, "Daten", "D3", "")
If $ini_A = "" Then $ini_A = "!!!! NICHT BELEGT !!!!"
If $ini_B = "" Then $ini_B = "!!!! NICHT BELEGT !!!!"
If $ini_C = "" Then $ini_C = "!!!! NICHT BELEGT !!!!"
If $ini_D = "" Then $ini_D = "!!!! NICHT BELEGT !!!!"
Global $feld_A3 = GUICtrlCreateLabel($ini_A, 10, 304, 120, 120, $SS_SUNKEN+$SS_CENTERIMAGE+$SS_CENTER)
Global $feld_B3 = GUICtrlCreateLabel($ini_B, 132, -1, 120, 120, $SS_SUNKEN+$SS_CENTERIMAGE+$SS_CENTER)
Global $feld_C3 = GUICtrlCreateLabel($ini_C, 254, -1, 120, 120, $SS_SUNKEN+$SS_CENTERIMAGE+$SS_CENTER)
Global $feld_D3 = GUICtrlCreateLabel($ini_D, 376, -1, 120, 120, $SS_SUNKEN+$SS_CENTERIMAGE+$SS_CENTER)
Local $ini_A = IniRead($ini_Daten, "Daten", "A4", "")
Local $ini_B = IniRead($ini_Daten, "Daten", "B4", "")
Local $ini_C = IniRead($ini_Daten, "Daten", "C4", "")
Local $ini_D = IniRead($ini_Daten, "Daten", "D4", "")
If $ini_A = "" Then $ini_A = "!!!! NICHT BELEGT !!!!"
If $ini_B = "" Then $ini_B = "!!!! NICHT BELEGT !!!!"
If $ini_C = "" Then $ini_C = "!!!! NICHT BELEGT !!!!"
If $ini_D = "" Then $ini_D = "!!!! NICHT BELEGT !!!!"
Global $feld_A4 = GUICtrlCreateLabel($ini_A, 10, 426, 120, 120, $SS_SUNKEN+$SS_CENTERIMAGE+$SS_CENTER)
Global $feld_B4 = GUICtrlCreateLabel($ini_B, 132, -1, 120, 120, $SS_SUNKEN+$SS_CENTERIMAGE+$SS_CENTER)
Global $feld_C4 = GUICtrlCreateLabel($ini_C, 254, -1, 120, 120, $SS_SUNKEN+$SS_CENTERIMAGE+$SS_CENTER)
Global $feld_D4 = GUICtrlCreateLabel($ini_D, 376, -1, 120, 120, $SS_SUNKEN+$SS_CENTERIMAGE+$SS_CENTER)
GUICtrlSetBkColor($feld_A1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetBkColor($feld_B1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetBkColor($feld_C1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetBkColor($feld_D1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetBkColor($feld_A2, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetBkColor($feld_B2, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetBkColor($feld_C2, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetBkColor($feld_D2, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetBkColor($feld_A3, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetBkColor($feld_B3, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetBkColor($feld_C3, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetBkColor($feld_D3, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetBkColor($feld_A4, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetBkColor($feld_B4, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetBkColor($feld_C4, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetBkColor($feld_D4, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont($feld_A1, 9, $FW_NORMAL, $GUI_FONTNORMAL, $sFont)
GUICtrlSetFont($feld_B1, 9, $FW_NORMAL, $GUI_FONTNORMAL, $sFont)
GUICtrlSetFont($feld_C1, 9, $FW_NORMAL, $GUI_FONTNORMAL, $sFont)
GUICtrlSetFont($feld_D1, 9, $FW_NORMAL, $GUI_FONTNORMAL, $sFont)
GUICtrlSetFont($feld_A2, 9, $FW_NORMAL, $GUI_FONTNORMAL, $sFont)
GUICtrlSetFont($feld_B2, 9, $FW_NORMAL, $GUI_FONTNORMAL, $sFont)
GUICtrlSetFont($feld_C2, 9, $FW_NORMAL, $GUI_FONTNORMAL, $sFont)
GUICtrlSetFont($feld_D2, 9, $FW_NORMAL, $GUI_FONTNORMAL, $sFont)
GUICtrlSetFont($feld_A3, 9, $FW_NORMAL, $GUI_FONTNORMAL, $sFont)
GUICtrlSetFont($feld_B3, 9, $FW_NORMAL, $GUI_FONTNORMAL, $sFont)
GUICtrlSetFont($feld_C3, 9, $FW_NORMAL, $GUI_FONTNORMAL, $sFont)
GUICtrlSetFont($feld_D3, 9, $FW_NORMAL, $GUI_FONTNORMAL, $sFont)
GUICtrlSetFont($feld_A4, 9, $FW_NORMAL, $GUI_FONTNORMAL, $sFont)
GUICtrlSetFont($feld_B4, 9, $FW_NORMAL, $GUI_FONTNORMAL, $sFont)
GUICtrlSetFont($feld_C4, 9, $FW_NORMAL, $GUI_FONTNORMAL, $sFont)
GUICtrlSetFont($feld_D4, 9, $FW_NORMAL, $GUI_FONTNORMAL, $sFont)
EndFunc
Func Bingo()
If $A1=0 Or $B1=0 Or $C1=0 Or $D1=0 Then
If $Bingo_1 = 1 Then
$Bi_1 = 0
$vBingo -=1
GUICtrlSetData($var_Bingo, $vBingo)
EndIf
$Bingo_1=0
GUICtrlSetState($pic_Bingo_1, $GUI_HIDE)
GUICtrlSetState($pic_Bingo_12, $GUI_HIDE)
ElseIf $A1=1 And $B1=1 And $C1=1 And $D1=1 Then
$Bingo_1=1
EndIf
; __________________________________________________________________________________________
If $A2=0 Or $B2=0 Or $C2=0 Or $D2=0 Then
If $Bingo_2 = 1 Then
$Bi_2 = 0
$vBingo -=1
GUICtrlSetData($var_Bingo, $vBingo)
EndIf
$Bingo_2=0
GUICtrlSetState($pic_Bingo_2, $GUI_HIDE)
GUICtrlSetState($pic_Bingo_22, $GUI_HIDE)
ElseIf $A2=1 And $B2=1 And $C2=1 And $D2=1 Then
$Bingo_2=1
EndIf
; __________________________________________________________________________________________
If $A3=0 Or $B3=0 Or $C3=0 Or $D3=0 Then
If $Bingo_3 = 1 Then
$Bi_3 = 0
$vBingo -=1
GUICtrlSetData($var_Bingo, $vBingo)
EndIf
$Bingo_3=0
GUICtrlSetState($pic_Bingo_3, $GUI_HIDE)
GUICtrlSetState($pic_Bingo_32, $GUI_HIDE)
ElseIf $A3=1 And $B3=1 And $C3=1 And $D3=1 Then
$Bingo_3=1
EndIf
; __________________________________________________________________________________________
If $A4=0 Or $B4=0 Or $C4=0 Or $D4=0 Then
If $Bingo_4 = 1 Then
$Bi_4 = 0
$vBingo -=1
GUICtrlSetData($var_Bingo, $vBingo)
EndIf
$Bingo_4=0
GUICtrlSetState($pic_Bingo_4, $GUI_HIDE)
GUICtrlSetState($pic_Bingo_42, $GUI_HIDE)
ElseIf $A4=1 And $B4=1 And $C4=1 And $D4=1 Then
$Bingo_4=1
EndIf
; _________ Senkrecht ______________________________________________________________________
; __________________________________________________________________________________________
If $A1=0 Or $A2=0 Or $A3=0 Or $A4=0 Then
If $Bingo_5 = 1 Then
$Bi_5 = 0
$vBingo -=1
GUICtrlSetData($var_Bingo, $vBingo)
EndIf
$Bingo_5=0
GUICtrlSetState($pic_Bingo_5, $GUI_HIDE)
GUICtrlSetState($pic_Bingo_52, $GUI_HIDE)
ElseIf $A1=1 And $A2=1 And $A3=1 And $A4=1 Then
$Bingo_5=1
EndIf
; __________________________________________________________________________________________
If $B1=0 Or $B2=0 Or $B3=0 Or $B4=0 Then
If $Bingo_6 = 1 Then
$Bi_6 = 0
$vBingo -=1
GUICtrlSetData($var_Bingo, $vBingo)
EndIf
$Bingo_6=0
GUICtrlSetState($pic_Bingo_6, $GUI_HIDE)
GUICtrlSetState($pic_Bingo_62, $GUI_HIDE)
ElseIf $B1=1 And $B2=1 And $B3=1 And $B4=1 Then
$Bingo_6=1
EndIf
; __________________________________________________________________________________________
If $C1=0 Or $C2=0 Or $C3=0 Or $C4=0 Then
If $Bingo_7 = 1 Then
$Bi_7 = 0
$vBingo -=1
GUICtrlSetData($var_Bingo, $vBingo)
EndIf
$Bingo_7=0
GUICtrlSetState($pic_Bingo_7, $GUI_HIDE)
GUICtrlSetState($pic_Bingo_72, $GUI_HIDE)
ElseIf $C1=1 And $C2=1 And $C3=1 And $C4=1 Then
$Bingo_7=1
EndIf
; __________________________________________________________________________________________
If $D1=0 Or $D2=0 Or $D3=0 Or $D4=0 Then
If $Bingo_8 = 1 Then
$Bi_8 = 0
$vBingo -=1
GUICtrlSetData($var_Bingo, $vBingo)
EndIf
$Bingo_8=0
GUICtrlSetState($pic_Bingo_8, $GUI_HIDE)
GUICtrlSetState($pic_Bingo_82, $GUI_HIDE)
ElseIf $D1=1 And $D2=1 And $D3=1 And $D4=1 Then
$Bingo_8=1
EndIf
; __________________________________________________________________________________________
If $A1=0 Or $B2=0 Or $C3=0 Or $D4=0 Then
If $Bingo_9 = 1 Then
$Bi_9 = 0
$vBingo -=1
GUICtrlSetData($var_Bingo, $vBingo)
EndIf
$Bingo_9=0
GUICtrlSetState($pic_Bingo_91, $GUI_HIDE)
GUICtrlSetState($pic_Bingo_92, $GUI_HIDE)
GUICtrlSetState($pic_Bingo_93, $GUI_HIDE)
GUICtrlSetState($pic_Bingo_94, $GUI_HIDE)
ElseIf $A1=1 And $B2=1 And $C3=1 And $D4=1 Then
$Bingo_9=1
EndIf
; __________________________________________________________________________________________
If $A4=0 Or $B3=0 Or $C2=0 Or $D1=0 Then
If $Bingo_10 = 1 Then
$Bi_10 = 0
$vBingo -=1
GUICtrlSetData($var_Bingo, $vBingo)
EndIf
$Bingo_10=0
GUICtrlSetState($pic_Bingo_101, $GUI_HIDE)
GUICtrlSetState($pic_Bingo_102, $GUI_HIDE)
GUICtrlSetState($pic_Bingo_103, $GUI_HIDE)
GUICtrlSetState($pic_Bingo_104, $GUI_HIDE)
ElseIf $A4=1 And $B3=1 And $C2=1 And $D1=1 Then
$Bingo_10=1
EndIf
Bingo_Marker()
EndFunc
Func Bingo_Marker()
; ==========================================================================================
; ======================== Bingo ===========================================================
; ==========================================================================================
If $Bingo_1 = 1 Then
GUICtrlSetState($pic_Bingo_1, $GUI_SHOW)
GUICtrlSetState($pic_Bingo_12, $GUI_SHOW)
If $Bi_1 = 0 Then
$Bi_1 = 1
$vBingo +=1
GUICtrlSetData($var_Bingo, $vBingo)
EndIf
EndIf
; ==========================================================================================
If $Bingo_2 = 1 Then
GUICtrlSetState($pic_Bingo_2, $GUI_SHOW)
GUICtrlSetState($pic_Bingo_22, $GUI_SHOW)
If $Bi_2 = 0 Then
$Bi_2 = 1
$vBingo +=1
GUICtrlSetData($var_Bingo, $vBingo)
EndIf
EndIf
; ==========================================================================================
If $Bingo_3 = 1 Then
GUICtrlSetState($pic_Bingo_3, $GUI_SHOW)
GUICtrlSetState($pic_Bingo_32, $GUI_SHOW)
If $Bi_3 = 0 Then
$Bi_3 = 1
$vBingo +=1
GUICtrlSetData($var_Bingo, $vBingo)
EndIf
EndIf
; ==========================================================================================
If $Bingo_4 = 1 Then
GUICtrlSetState($pic_Bingo_4, $GUI_SHOW)
GUICtrlSetState($pic_Bingo_42, $GUI_SHOW)
If $Bi_4 = 0 Then
$Bi_4 = 1
$vBingo +=1
GUICtrlSetData($var_Bingo, $vBingo)
EndIf
EndIf
; ==========================================================================================
If $Bingo_5 = 1 Then
GUICtrlSetState($pic_Bingo_5, $GUI_SHOW)
GUICtrlSetState($pic_Bingo_52, $GUI_SHOW)
If $Bi_5 = 0 Then
$Bi_5 = 1
$vBingo +=1
GUICtrlSetData($var_Bingo, $vBingo)
EndIf
EndIf
; ==========================================================================================
If $Bingo_6 = 1 Then
GUICtrlSetState($pic_Bingo_6, $GUI_SHOW)
GUICtrlSetState($pic_Bingo_62, $GUI_SHOW)
If $Bi_6 = 0 Then
$Bi_6 = 1
$vBingo +=1
GUICtrlSetData($var_Bingo, $vBingo)
EndIf
EndIf
; ==========================================================================================
If $Bingo_7 = 1 Then
GUICtrlSetState($pic_Bingo_7, $GUI_SHOW)
GUICtrlSetState($pic_Bingo_72, $GUI_SHOW)
If $Bi_7 = 0 Then
$Bi_7 = 1
$vBingo +=1
GUICtrlSetData($var_Bingo, $vBingo)
EndIf
EndIf
; ==========================================================================================
If $Bingo_8 = 1 Then
GUICtrlSetState($pic_Bingo_8, $GUI_SHOW)
GUICtrlSetState($pic_Bingo_82, $GUI_SHOW)
If $Bi_8 = 0 Then
$Bi_8 = 1
$vBingo +=1
GUICtrlSetData($var_Bingo, $vBingo)
EndIf
EndIf
; ==========================================================================================
If $Bingo_9 = 1 Then
GUICtrlSetState($pic_Bingo_91, $GUI_SHOW)
GUICtrlSetState($pic_Bingo_92, $GUI_SHOW)
GUICtrlSetState($pic_Bingo_93, $GUI_SHOW)
GUICtrlSetState($pic_Bingo_94, $GUI_SHOW)
If $Bi_9 = 0 Then
$Bi_9 = 1
$vBingo +=1
GUICtrlSetData($var_Bingo, $vBingo)
EndIf
EndIf
; ==========================================================================================
If $Bingo_10 = 1 Then
GUICtrlSetState($pic_Bingo_101, $GUI_SHOW)
GUICtrlSetState($pic_Bingo_102, $GUI_SHOW)
GUICtrlSetState($pic_Bingo_103, $GUI_SHOW)
GUICtrlSetState($pic_Bingo_104, $GUI_SHOW)
If $Bi_10 = 0 Then
$Bi_10 = 1
$vBingo +=1
GUICtrlSetData($var_Bingo, $vBingo)
EndIf
EndIf
; __________________________________________________________________________________________
EndFunc
Func Input()
Local $input = InputBox("Ändern von " &$Feld, "Welches Wort soll eingefügt werden?", "", " M18")
IniWrite($ini_Daten, "Daten", $Feld, $input)
GUICtrlSetData($SetData, $input)
EndFunc
Alles anzeigen