Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

Funktion zum laufen bringen?

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC.
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
ALWIM



Anmeldungsdatum: 08.08.2006
Beiträge: 1037
Wohnort: Niederbayern

BeitragVerfasst am: 19.04.2015, 15:17    Titel: Funktion zum laufen bringen? Antworten mit Zitat

Code:
 FUNCTION COMPUTERZUG(SPIELER AS INTEGER, tiefe AS INTEGER) AS INTEGER
  IF tiefe = 0 THEN RETURN bewertung
  DIM AS INTEGER i, wert, iMax, wertMax
  FOR i = 1 TO AnzahlAllerZuege
    fuehreZugDurch(i)
    wert = - COMPUTERZUG(gegenspieler, tiefe - 1)
    IF wert > wertMax THEN
      wertMax = wert
      iMax = i
    END IF
    macheZugRueckgaengig(i)
  NEXT
  IF tiefe = MaximaleSuchtiefe THEN    ' Durchführung auf oberster Ebene
    fuehreZugDurch(iMax)
  END IF
  COMPUTERZUG = iMax
END FUNCTION


Wie bring ich obenstehenden Quellcode testweise zum laufen?

Ich bekomme immer diese 3 Meldungen:
Zitat:
Test.bas(32) error 41: Variable not declared, fuehreZugDurch in 'fuehreZugDurch(i)'
Test.bas(38 ) error 41: Variable not declared, macheZugRueckgaengig in 'macheZugRueckgaengig(i)'
Test.bas(41) error 70: Array not dimensioned, before '(' in 'fuehreZugDurch(iMax)'


Gruß
ALWIM
_________________
SHELL SHUTDOWN -s -t 05
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
nemored



Anmeldungsdatum: 22.02.2007
Beiträge: 4597
Wohnort: ~/

BeitragVerfasst am: 19.04.2015, 15:53    Titel: Antworten mit Zitat

Deine Funktion soll offenbar zwei weitere Funktionen 'fuehreZugDuch' und 'macheZugRueckgaengig' aufrufen. Solange du diese Funktionen nicht definiert hast, wird das wohl nicht klappen können.

Obiger Quellcode würde mir übrigens als ersten Fehler
fbc hat Folgendes geschrieben:
Test.bas(2) error 41: Variable not declared, bewertung in 'IF tiefe = 0 THEN RETURN bewertung'

ausgeben, daher vermute ich mal ganz stark, dass hier wieder ein bisschen was unterschlagen wurde ...
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC. Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.

 Impressum :: Datenschutz