| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
MikelUVW
Anmeldungsdatum: 23.08.2020
Beiträge: 6
Wohnort: München
|
 Verfasst am: 21.09.2020, 17:37 Titel: Einfaches Fragespiel: Quellcode funzt nicht |
 |
|
Hallo Forum,
ich versuche gerade ein einfaches Fragespiel zu programmieren. Ziel das daraus vielleicht irgendwann eine Art "Wahrheit oder Pflicht"- Spiel mit Punkten usw. wird.
Ich bin noch Anfänger und versuch mir mit diesen kleinen Projekt, das programmieren selbst bei zu bringen. Ich benutze zum Programmieren wxFBE.
Kurze Erklärung:
Es gibt neben der exe Datei noch zwei Ordner. Ein Ordner heißt Fragen und der andere heißt Antworten.
In diesen Ordner befinden sich ".txt" Datein, die mit 1 (1.txt) los gehen.
In den txt-Datein sollen dann die Fragen und Antworten stehen.
Der erste Abschnitt soll nur anzeigen wie viele Fragen und Antworten das Programm gefunden hat.
Erst hab ich es ohne Funktion programmiert, was soweit geklappt hat, dann wollte ich es mit einer Funktion programmieren, weil später auch noch der Ordner mit den "Pflicht" Aufgaben dazu kommen soll. Aber leider gibt es einen Punkt in meinen Quellcode der mir als Fehler markiert wird und ich weiß nicht wieso. Vielleicht kann mir hier jemand weiterhelfen?
| Code: |
DECLARE FUNCTION Zaehlung(a AS String) AS Integer
Dim szfile As String = ExePath 'Speicherort der exe
Dim szfileF As String
Dim szfileA As String
Dim iAnzahl As Integer
Dim iAnzahlF As Integer
Dim iAnzahlA As Integer
'Arbeitsverzeichnis erstellt
szfileF = szfile & "\Fragen"
szfileA = szfile & "\Antworten"
'ChDir szfileF
Locate 4, 40
Print "Quiz:"
Locate 6, 0
Print Tab(24); "======================================"
Print Tab(24); "|"; Tab(61);"|"
Print Tab(24); "|" ; Tab(28); "Es wurde folgendes gefunden:"; Tab(61);"|"
Print Tab(24);"|"; Tab(61);"|"
Print Tab(24);"|"; Tab(32); "Fragen:"; " ";Zaehlung(szfileF) ; Tab(61);"|"
Print Tab(24);"|"; Tab(32); "Antworten:"; Zaehlung(szfileA) ; Tab(61);"|"
Print Tab(24);"|"; Tab(61);"|"
Print Tab(24);"|"; Tab(61);"|"
Print Tab(24);"====================================="
Print ""
Print Tab(24); "Druecke eine Taste fuer Weiter."
Sleep
FUNCTION Zaehlung(a AS String) AS Integer
Dim iMax As Integer = 0
Dim inumber As Integer = 0
Dim sznumber As String
Dim szpfad As String
Dim izaehler As Integer = 0
Do Until iMax = 1 'Nur wenn iMax = 1, dann wird Schleife unterbrochen
szpfad = a
'inumber wird um eins erhöht
inumber = inumber +1
'Umwandlung Integer zu String
sznumber = Str(inumber)
'Ganzer Pfad wird erstellt
szpfad = szpfad & "\" & sznumber & ".txt"
If FileExists(szpfad) Then 'Programm zeigt mir hier einen Fehler an
izaehler = izaehler + 1
Else
iMax = 1
EndIf
Loop
Return izaehler
END Function
cls
Sleep
|
[/code] |
|
| Nach oben |
|
 |
hhr
Anmeldungsdatum: 15.07.2020
Beiträge: 111
|
| Verfasst am: 21.09.2020, 18:21 Titel: |
|
|
FileExists braucht
#include "file.bi"
am Anfang des Programms.
Gruß
hhr |
|
| Nach oben |
|
|
MikelUVW
Anmeldungsdatum: 23.08.2020
Beiträge: 6
Wohnort: München
|
| Verfasst am: 21.09.2020, 18:29 Titel: |
|
|
Danke.
Genau beim Umstellen des Codes auf Funktionen hab ich "#include "file.bi" vergessen.
So ein kleiner Fehler |
|
| Nach oben |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
