Progger_X
Mr. Lagg
Anmeldungsdatum: 24.11.2004
Beiträge: 784
Wohnort: Leipzig
|
 Verfasst am: 07.01.2005, 21:22 Titel: Programfehler? |
 |
|
Hi, ich hab mal wieder Probleme mit meinem Netzwerkprogramm....
Ich habe den Code geschrieben der da unten steht, um die Namen auszutauschen. Leider geht das Programm in der letzten Abfrageschleife nicht weiter, wenn die namen ausgelesen werden sollen. Außerdem werden die Namen der Spielers, die sich zusätzlich einloggen, nicht in die .txt Datei geschrieben. Wo ist der Fehler, und wie könnte man ihn beheben?
Ich habe das Programm bisher nur mit 2 Computern getestet, sind weitere Fehler enthallten?
| Code: |
SUB austausch
SHARED z
SHARED server$
SHARED spielanz
IF server$ = "ja" THEN
OPEN "S:\Spielnam.txt" FOR OUTPUT AS #1
PRINT #1, 2
PRINT #1, name1(z)
PRINT #1, name1(2)
CLOSE
END IF
IF server$ = "nein" THEN
DO
OPEN "S:\Spielnam.txt" FOR INPUT AS #1
INPUT #1, bereits
IF bereits = z THEN dran = 1
CLOSE
LOOP UNTIL dran = 1
DO
OPEN "S:\Spielnam.txt" FOR INPUT AS #1
INPUT #1, bereits
zahler = 1
DO
INPUT #1, name1(zahler)
zahler = zahler + 1
LOOP UNTIL zahler >= bereits
CLOSE
LOOP UNTIL bereits >= spielanz
OPEN "S:\Spielnam.txt" FOR OUTPUT AS #1
PRINT #1, bereits + 1
DO
PRINT #1, name1(zahler)
LOOP UNTIL zahler >= z
CLOSE
END IF
DO
OPEN "S:\Spielnam.txt" FOR INPUT AS #1
INPUT #1, abgerufen
zahler = 1
DO
INPUT #1, name1(zahler)
zahler = zahler + 1
LOOP UNTIL zahler >= abgerufen
CLOSE
LOOP UNTIL abgerufen >= spielanz
END SUB
|
Schon mal danke im Voraus. |
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
