So, ich hab jetz die 1. Zeile, der Code ist etwas verändert als deiner.(Link)
Aber wie verwende ich die Func? Wie soll ich sie einbauen?
Spoiler anzeigen
#include <File.au3>
Opt ("guicoordmode", 0)
$cards = _FileListToArray (@scriptdir & "\cards", "*.bmp", 1)
$card=$cards[Random (1, 32, 1)]
$back = "herz-ass.bmp"
$cardwidht = 50
$cardwidth = 129;150
$cardheight = 200
$card_1 = "cards\" & $cards [Random (1, 32, 1)]
$card_2 = "cards\" & $cards [Random (1, 32, 1)]
$card_3 = "cards\" & $cards [Random (1, 32, 1)]
$card_4 = "cards\" & $cards [Random (1, 32, 1)]
$card_5 = "cards\" & $cards [Random (1, 32, 1)]
GUICreate ("Watten - Programmiert von Tobias Girstmair (http://www.girstmair.tk)", 800-104, 800-50);, 0, 0)
GUICtrlCreateLabel ("Derzeit nur Stich-Watten (Ohne Ansagen, ohne Spezial-Karten)", 0, 0)
GUICtrlCreatebutton ("", 25, 25, $cardwidth, $cardheight, 0x0080)
GUICtrlSetImage (-1, "cards\back\back.bmp")
GUICtrlCreatebutton ("", 129, 0, $cardwidth, $cardheight, 0x0080)
GUICtrlSetImage (-1, "cards\back\back.bmp")
GUICtrlCreatebutton ("", 129, 0, $cardwidth, $cardheight, 0x0080)
GUICtrlSetImage (-1, "cards\back\back.bmp")
GUICtrlCreatebutton ("", 129, 0, $cardwidth, $cardheight, 0x0080)
GUICtrlSetImage (-1, "cards\back\back.bmp")
GUICtrlCreatebutton ("", 129, 0, $cardwidth, $cardheight, 0x0080)
GUICtrlSetImage (-1, "cards\back\back.bmp")
GUICtrlCreatebutton ("", -330, 250, $cardwidth, $cardheight, 0x0080)
;~ GUICtrlSetImage (-1, $cards[random (1, 31, 1)])
$card__2 = GUICtrlCreatebutton ("", 90, 05, $cardwidth, $cardheight, 0x0080)
;~ GUICtrlSetImage (-1, $cards[random (1, 31, 1)])
$1 = GUICtrlCreatebutton ($card_1, -360+90-6, 250, $cardwidth, $cardheight, 0x0080)
GUICtrlSetImage (-1, $card_1)
$2 = GUICtrlCreatebutton ($card_2, 129, 0, $cardwidth, $cardheight, 0x0080)
GUICtrlSetImage (-1, $card_2)
$3 = GUICtrlCreatebutton ($card_3, 129, 0, $cardwidth, $cardheight, 0x0080)
GUICtrlSetImage (-1, $card_3)
$4 = GUICtrlCreatebutton ($card_4, 129, 0, $cardwidth, $cardheight, 0x0080)
GUICtrlSetImage (-1, $card_4)
$5 = GUICtrlCreatebutton ($card_5, 129, 0, $cardwidth, $cardheight, 0x0080)
GUICtrlSetImage (-1, $card_5)
GUICtrlCreateLabel ("0 : 0", 90, -20)
GUISetState ()
While 1
Switch GUIGetMsg()
Case -3
Exit 0
Case $1
GUICtrlSetImage ($card__2, $card_1)
GUICtrlDelete ($1)
Case $2
GUICtrlSetImage ($card__2, $card_2)
GUICtrlDelete ($2)
Case $3
GUICtrlSetImage ($card__2, $card_3)
GUICtrlDelete ($3)
Case $4
GUICtrlSetImage ($card__2, $card_4)
GUICtrlDelete ($4)
Case $5
GUICtrlSetImage ($card__2, $card_5)
GUICtrlDelete ($5)
EndSwitch
WEnd
#Region Func
Func _ArrayShuffle(ByRef $aArray, $iBase = 0, $iUBound = Default)
If Not IsArray($aArray) Then Return SetError(1, 0, 0)
If UBound($aArray, 0) <> 1 Then Return SetError(2, 0, 0)
Local $temp, $rand
If $iUBound = Default Or $iUBound = 0 Then $iUBound = UBound($aArray) - 1
For $i = $iBase To $iUBound
$temp = $aArray[$i]
$rand = Random($iBase, $iUBound, 1)
$aArray[$i] = $aArray[$rand]
$aArray[$rand] = $temp
Next
EndFunc
#EndRegion Func
Momentan verwendet er einfach $cards[Random (1, 32, 1)]
