|
| |
Fortgeschrittene Programmierung| Variabel x mal erstellen | |  | | Autor: jogi15 | | Datum: 17.12.06 18:47 |
| hi
ich programmiere einen Turniermanager und möchte gerne für jede Mannschaft eine Variabel erstellen.
Das ist der Code der in jeder Mannschaft stehen soll:
Type Mannschaft
ManschaftsName As String
Körbe As Long
DifferenzKörbe As Integer
Punkte As Integer
End TypeDieser Code soll dann neu erstellt werden: (Nr. = mannschaftzahl)
Public Mannschaft(Nr) As Mannschaft was muss ich ändern?
gruß
jogi15 | |
| Re: Variabel x mal erstellen | | | | Autor: jogi15 | | Datum: 18.12.06 17:12 |
| hi
irgendwas mach ich falsch!!
Hier ein Code ausschnitt:
Vom Modul
Type Mannschaft
MannschaftsName As Integer
Körbe As Long
DifferenzKörbe As Integer
Punkte As Integer
SpielerName() As String
End Type
Public Mannschaften As String
Public Mannschaft() As MannschaftPrivate Sub Form_Load()
Mannschaften = "0"
End Sub Wenn man eine Mannschaft hinzufügt
Private Sub cmd_addManschaft_Click()
Dim MannschaftsName As String
Mannschaften = Mannschaften + 1
ReDim Manschaften(0 To Mannschaften)
MannschaftsName = InputBox("Bitte Mannschaftsname eingeben.")
lst_Manschaft.ItemsAdd MannschaftsName
Mannschaft(Mannschaften).[u]MannschaftsName = MannschaftsName <-- Hier _
tretet der Fehler auf 7: typen unverträglich)
frm_rang.lst_rang.RowsAdd , ",", Mannschaft(Mannschaften).MannschaftsName
End SubGruß
jogi15 | |
| Re: Variabel x mal erstellen | | | | Autor: jogi15 | | Datum: 18.12.06 19:08 |
| hi
stimmt! Funkt aber trotzdem net!
gruß
jogi15 | |
| Re: Variabel x mal erstellen | | | | Autor: Stefan Linder | | Datum: 19.12.06 01:07 |
| Hallo jogi15,
versuche doch mal, eindeutige Namen für deine Variablen zu verwenden, dann kann man nicht so viel verwechseln.
Mannschaften solltest du als Integer oder Long deklarieren, nicht als String. Darin willst du ja die Anzahl der Mannschaften speichern. Oder?
Das Redim für Manschaften kann nicht funktionieren, weil die Variable vorher ja gar nicht definiert war (Schreibfehler?). Mannschaften war zudem als String definiert. Da meinst du wohl Mannschaft (das meine ich mit der Verwechslungsgefahr).
Verwendest du Option Explicit? Solltest du auf jeden Fall machen. Ach ja, beim Redim solltest du Redim Preserve verwenden, ansonsten wird das Array neu dimensioniert und die vorherigen Werte werden gelöscht.
Gru?, Stefan | |
| Re: Variabel x mal erstellen | | | | Autor: jogi15 | | Datum: 26.12.06 14:10 |
| hi
sorry dass ich so lange nicht mehr geschrieben habe!!
-Ja ich benutze überall (Formen, Klassenmodule, Module, ....) Option Explicit
- Das mit dem Redim Preserve funkt net 
Jetzt wünsche ich noch ein letzten frohen Weihnachtstag und einen Guten Rutsch ins Jahr 2007 - (und dass vb@rchiv weiterhin so super bleibt wie es ist)
Gruß
jogi15 | |
| Re: Variabel x mal erstellen | | | | Autor: Stefan Linder | | Datum: 27.12.06 06:09 |
| Hi,
versuch es doch einfach mal so:
Type mMannschaft
MannschaftsName As String
Körbe As Long
DifferenzKörbe As Integer
Punkte As Integer
SpielerName() As String
End Type
Public Mannschaft() As mMannschaftOption Explicit
Public AnzMannschaften As Integer
Private Sub Form_Load()
AnzMannschaften = 0
End Sub
Private Sub cmd_addManschaft_Click()
AnzMannschaften = AnzMannschaften + 1
ReDim Preserve Mannschaft(AnzMannschaften)
Mannschaft(AnzMannschaften).MannschaftsName = InputBox("Bitte Mannschaftsname" & _
"eingeben.")
lst_mannschaft.AddItem Mannschaft(AnzMannschaften).MannschaftsName
'lst_rang.RowsAdd , ",", Mannschaft(AnzMannschaften).MannschaftsName
End SubWas ist lst_rang? Bei der Listbox gibt es kein RowsAdd.
Gru?, Stefan | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
TOP! Unser Nr. 1 
Neu! sevDataGrid 3.0
Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. Weitere InfosTipp des Monats Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
| |
|
Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Mai 2024
Sie sind aktuell nicht angemeldet.
?Get it right the first time 
