TKSoft-Online

Verwaltung eines Skatturniers PDF Drucken E-Mail
( 0 Votes )
MS-Access Bsp. DB's - Bsp. Downloads Sonstiges
Geschrieben von: TommyK   
Dienstag, den 31. Mai 2011 um 00:00 Uhr

Problemstellung:

ein Bekannter fragte mich vor einiger Zeit ob es möglich wäre mit MS-Access
ein Skatturnier zu verwalten bzw. die Teilnehmer per Zufall den Tischen zu zuordnen usw.
Ich sagte ja, das kann ich machen.
Das Ergebnis stelle ich Euch hier vor.
Wobei vorweg gesagt sein muss das es keine vollständige Verwaltung ist oder sein soll

 

Voraussetzungen:

Das Bsp ist ab A2000 lauffähig. (Download enthält eine mdb-Datei)


Lösung:

Am Anfang stehen 5 Tabellen für:
Turnier, Teilnehmer, Tische, Plätze und die Besetzung
In der Tabelle Turnier kommen einige Stammdaten für das jeweilige Turnier
wie Datum, Ort, Anzahl der Teilnehmer, Anzahl der zu spielenden Runden und ob vorrangig
3er oder 4er Tische benutzt werden sollen.
 
Nach dem Klick auf den Button "Tische, Plätze und Teilnehmer erzeugen" laufen einige Routinen ab
in der die Tabellen mit Daten gefüllt werden.
z.B. zum ermitteln der erforderlichen Tischanzahl (je nach Priorität 3er oder 4er Tische)


Public Type COUNTTABLE
    iThree As Integer
    iFour   As Integer
End Type

Public Function CalcTable(iCountMember As Integer, iTablePriority As Integer) As COUNTTABLE
    Dim i3 As Integer, i4 As Integer
    If iTablePriority = 3 Then
         'Dreiertische
         If iCountMember Mod 3 > 0 Then
             i3 = Int(iCountMember / 3) - (iCountMember Mod 3)
             i4 = iCountMember Mod 3
         Else
             i3 = Int(iCountMember / 3)
             i4 = 0
         End If
    Else
         'Vierertische
         If iCountMember Mod 4 > 0 Then
             i4 = Int(iCountMember / 4) + (iCountMember Mod 4) - 3
             i3 = 4 - (iCountMember Mod 4)
         Else
             i4 = Int(iCountMember / 4)
             i3 = 0
         End If
     End If
    CalcTable.iThree = i3
    CalcTable.iFour = i4
End Function


 
 
 
Diese Funktion gibt dann die erforderliche Anzahl der Tische zurück
z.B.
Teilnehmer = 22 und 4er Tische
 


Dim tTable As COUNTTABLE
    Dim i3 As Integer, i4 As Integer
    tTable = CalcTable(22, 4)
    i3 = tTable.iThree
    i4 = tTable.iFour
    MsgBox i3 & " '3er Tische'" & vbNewLine & "und" & vbNewLine & i4 & " '4er Tische'"


Ergebnis:

 
Dann werden die anderen Tabellen gefüllt; Platznummern und Teilnehmer.

 
Rechts im Unterformular müssen dann die Namen der Teilnehmer eingegeben werden.
Es kann immer vor Turnierbeginn die Besetzung der Tische per Zufall neu gestartet werden.
Dafür einfach den Button "zufällige Besetzung der Plätze" anklicken.
Diese erfolgt nach dem Zufallsprinzip. s. Sub "Private Sub FillCast()"
Wird die zufällige Besetzung vor der Eingabe der Namen erzeugt klappt das zwar auch aber das Ergebnis ist nicht ganz so zufällig.

Wichtig: die Checkbox "auch Namen löschen" muss in diesem Fall deaktiv sein, sonst werden die Namen mitgelöscht.

 
In den beiden Listenfeldern werden dann die Tische und die Belegung in der jeweiligen Runde dargestellt.
 
Zur besseren Übersicht gibt es dann unten noch die visuelle Tischbelegung.
 
 
 
Verwaltung eines Skatturniers

Verwaltung eines Skatturniers
ab A2000

Die Zip-Datei enthält eine Version ab A2000



 Erstellt am
Dateigröße
Downloads		 31.05.2011
62.28 KB
167


Downloads in dieser Kategorie

MS-Access Sonstiges

MS-Access Sonstiges

Seite: 1


 



 
DatumKlicks
Total879
Do. 242
Mi. 232
Di. 222
Mo. 215
Sa. 193
Fr. 181
Do. 173
< Zurück   Weiter >
Aktualisiert ( Mittwoch, den 19. Oktober 2011 um 12:55 Uhr )
 

Kommentare  

 
0 # WoBe 2011-08-26 09:22
Moin aus Hamburg,
beimir läuft die dB nicht. Habe A2007.
Gibt es nen Tip.
Fehler:
nach end sub, end funktion oder end propetery können nur kommentare stehen.

Public Type COUNTTABL
Gruss Wolfgang Beer
Antworten | Antworten mit Zitat | Zitieren
 
 
+1 # TommyK 2011-08-26 09:40
Hallo Wolfgang,

da ist leider ein Fehler drin.
Dieser Block ist 2x im Code.
Den 2. Block bitte löschen.

Gruß Tommy
Antworten | Antworten mit Zitat | Zitieren
 
 
+1 # TommyK 2011-08-26 09:56
Ich habe den Fehler gelöscht und die Download erneuert.

Gruß Tommy
Antworten | Antworten mit Zitat | Zitieren
 
 
0 # WoBe 2011-08-26 11:40
Hi, nun gehts immer nur einmal. ich brauche einejn guten mix für 12 spieler an 3 4er tischen und 4 runden. es sollte jeder spieler einmal an jedem tisch spielen.
anstatt namen habe ich die zahlen von 1-12 eingegeben.
2ter Gruss
Wolfgang
Antworten | Antworten mit Zitat | Zitieren
 
 
0 # TommyK 2011-08-26 12:50
Zitat:
nun gehts immer nur einmal

Wie es geht nur einmal?
Das Programm generiert die Anzahl der vorgegebenen Runden.
Zitat:
es sollte jeder spieler einmal an jedem tisch spielen

Das geht mit dem Programm nicht, da hier nach Zufall die Tische besetzt werden.

Gruß Tommy
Antworten | Antworten mit Zitat | Zitieren
 

Kommentar schreiben


Sicherheitscode
Aktualisieren

Login

Hauptmenü

Latest News

Latest Comments

Latest Downloads

Arbeiten mit EXIF-Tags und der GDI+ Library
05.09.2011
in MS-Access Datei & System
Errechnen einer IBAN mit Access
16.06.2011
in MS-Access Sonstiges
Verwaltung eines Skatturniers
31.05.2011
in MS-Access Sonstiges
Arbeiten mit dem TempVars-Objekt
25.03.2011
in MS-Access Sonstiges
Arbeiten mit Fakultät, Variationen und Permutation...
10.02.2011
in MS-Access Sonstiges

Latest Forum Posts

Mehr »

Download Statistik

41 Kategorien
187 Dateien
173483 Downloads

JoomlaWatch 1.2.11 - Joomla Monitor and Live Stats by Matej Koval