Graphics 800,600,16,2
schrift_arial$=LoadFont ("Arial",14,0,0,0)
SetFont schrift_arial
SeedRnd MilliSecs()

Dim kwert(52) ; je ein array für den wert einer der 52 karten
Dim kn$(52)   ; je ein array für den namen jeder karte
Dim farb$(4)  ; karo, herz, pik, kreuz gekommen je einen array

For f=1 To 4    ; die 4 farben werden eingelesen
 Read farb$(f)
Next

For t=1 To 13   ; jede der 52 karten bekommt hier ihren namen
 Read ktemp$
 kn$(t)=farb$(1)+ktemp$
 kn$(t+13)=farb$(2)+ktemp$
 kn$(t+26)=farb$(3)+ktemp$
 kn$(t+39)=farb$(4)+ktemp$
Next


For t=1 To 13    ; und hier ihren wert
 Read kwert(t)
 kwert(t+13)=kwert(t)
 kwert(t+26)=kwert(t)
 kwert(t+39)=kwert(t)
Next

For dg=1 To 5 ; 5x durchmischen ;)

For t=1 To 52 ; statt des swap-befehls
 z=Rand(1,52)
 temp=kwert(t)
 kwert(t)=kwert(z)
 kwert(z)=temp
 te$=kn$(t)
 kn$(t)=kn$(z)
 kn$(z)=te$
Next

Next

For t=1 To 52 ; alle gemischten karten in zufälliger reihenfolge
 Print kn$(t)+" hat einen Wert von: "+kwert(t)
If t=26 Then WaitKey
Next 
WaitKey
End
Data "karo","herz","pik","kreuz"
Data "zwei","drei","vier","fuenf","sechs","sieben"
Data "acht","neun","zehn","bube","dame","koenig","ass"
Data 2,3,4,5,6,7,8,9,10,2,3,4,11

Graphics 800,600,16,2
schrift_arial$=LoadFont ("Arial",16,0,0,0)
SetFont schrift_arial

Type karte
 Field name
 Field wert
End Type

For t=1 To 13
 karo.karte = New karte
 herz.karte = New karte
 pik.karte = New karte
 kreuz.karte = New karte
Read a$, a
 karo\name = a$
 karo\wert = a
 herz\name = a$
 herz\wert = a
 pik\name = a$
 pik\wert = a
 kreuz\name = a$
 kreuz\wert = a
Next

For name.karte Each karte  ; <---- hier gibts ne fahlermeldung
 Print karo\name
Next

WaitKey
End
Data "karozwei",2,"karodrei",3,"karovier",4,"karofuenf",5,"karosechs",6,"karosieben",7
Data "karoacht",8,"karoneun",9,"karozehn",10,"karobube",2,"karodame",3,"karokoenig",4,"karoass",11

Type Karte
 field Typ
 field Wert
end type
Global Deck.Karte

;Hier die daten Einlesen. Wobei für Deck\Typ immer n Integer als Bezeichner für die Farbe steht. Also Beispielsweise: 1=Karo,2=Herz etc

for Deck = each Karte
 if Deck\Typ=1 then ;Wenns ne Herz Karte ist:
  print "Herz: " + str(Deck\Wert)
 endif
next

Global Deck.Karte

deck.karte = New karte

Type karte
 Field name
 Field wert
End Type

For t=1 To 13
 karo.karte = New karte
Read a$, a
 karo\name = "karo"+a$
 karo\wert = a
Next

For a.karte = Each karte  ; <-- hier kommt die fehlermeldung
 Print a\wert
Next

Graphics 800,600,16,2
schrift_arial$=LoadFont ("Arial",14,0,0,0)
SetFont schrift_arial

Type karte
 Field farbe
 Field typ
 Field wert
End Type

For f=1 To 4
 Restore
 For t=1 To 13
  deck.karte = New karte
  Read a, b
  deck\typ = a
  deck\wert = b
  deck\farbe = f
 Next
Next

For deck.karte = Each karte
 If deck\farbe = 1 Then fa$="Karo"
 If deck\farbe = 2 Then fa$="Herz"
 If deck\farbe = 3 Then fa$="Pik"
 If deck\farbe = 4 Then fa$="Kreuz"
 If deck\typ = 1 Then ta$="zwei"
 If deck\typ = 2 Then ta$="drei"
 If deck\typ = 3 Then ta$="vier"
 If deck\typ = 4 Then ta$="fuenf"
 If deck\typ = 5 Then ta$="sechs"
 If deck\typ = 6 Then ta$="sieben"
 If deck\typ = 7 Then ta$="acht"
 If deck\typ = 8 Then ta$="neun"
 If deck\typ = 9 Then ta$="zehn"
 If deck\typ = 10 Then ta$="Bube"
 If deck\typ = 11 Then ta$="Dame"
 If deck\typ = 12 Then ta$="Koenig"
 If deck\typ = 13 Then ta$="Ass"
 Print fa$+ta$+" hat den Wert: "+deck\wert
Next

WaitKey
End

Data 1,2, 2,3, 3,4, 4,5, 5,6, 6,7, 7,8, 8,9, 9,10, 10,2, 11,3, 12,4, 13,11

Type karte
  Field wert
End Type

Dim blatt(31)

; -> Hier die Karten aus einem Data-Block oder einer
; externen Datei einlesen

SeedRnd MilliSecs()

For i=0 to 31
  deck.karte=New Karte
  deck\wert=Rnd(31)
Next

For i=0 to 31
  deck.karte=New Karte
  deck\wert=Rnd(31)
Next

For nt=1 To 32
 z=Rand(1,32)
 temp=kwert(t)      ; kartenwert wird zwischengespeichert
 kwert(t)=kwert(z) ; karte n-te bekommt den wert von einer zufallskarte
 kwert(z)=temp     ;  diese zufallskarte bekommt nun den wert n-ten karte
 te$=kn$(t)            ; das gleiche mit dem kartennamen
 kn$(t)=kn$(z)
 kn$(z)=te$
Next