Public Sub Initialize(i As Int)
Dim k As Int 'KartenWert-Counter
Dim l As Int 'KartenSymbol-Counter
Dim m As Int 'KartenSet-Counter
Dim BitmapDrawable1 As BitmapDrawable
'Hier wird eine Karte erstellt.
'Anhand der übergebenen Zahl wird Kartenwert, das Symbol und Rücken gesetzt.
k=i Mod 13 'k imer 1 bis 13, also der Kartenwert!
l=i/13 'l immer 1 bis 4, ergibt das Symbol
If l>=4 Then
l=l-4
End If
If i>=52 Then 'sind die ersten 52 Karten gemacht (4*13), wird von vorne angefangen
m=1 'm sagt ob erstes Kartenblatt oder zweites!
End If
mWert=k+1
mSymbol=l
If l<2 Then
mFarbe=Allgemeines.Farbe.Schwarz
Else
mFarbe=Allgemeines.Farbe.rot
End If
BitmapDrawable1=Main.MyResources.GetApplicationDrawable("rueck" & (m+1))
mRueckBild=BitmapDrawable1.Bitmap
Dim temp As String 'enthält den Namen der Bilddatei!
Select mSymbol
Case Allgemeines.Symbol.Kreuz
temp = Allgemeines.constKreuz
Case Allgemeines.Symbol.Karo
temp = Allgemeines.constKaro
Case Allgemeines.Symbol.Herz
temp = Allgemeines.constHerz
Case Allgemeines.Symbol.Pik
temp = Allgemeines.constPik
End Select
If mWert <= 10 Then
temp =temp & mWert
Else
Select mWert
Case Allgemeines.kartenWert.Bube
temp = temp & Allgemeines.constBube
Case Allgemeines.kartenWert.Dame
temp = temp & Allgemeines.constDame
Case Allgemeines.kartenWert.Koenig
temp =temp & Allgemeines.constKoenig
End Select
End If
BitmapDrawable1=Main.MyResources.GetApplicationDrawable(temp)
mBild=BitmapDrawable1.Bitmap
'Hier wird die Größe der Kartenbilder gesetzt, XXXXX
mWidth = 80
mHeight = 112
mID=i
End Sub
