Das deutsche QBasic- und FreeBASIC-Forum :: Thema anzeigen - Complitiern funzt nicht

Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!

FAQ

Suchen

Mitgliederliste

Benutzergruppen

Profil

Einloggen, um private Nachrichten zu lesen

Login

Zur Begleitseite des Forums / Chat / Impressum

Aktueller Forenpartner:

Complitiern funzt nicht

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

AndT

Anmeldungsdatum: 02.04.2007
Beiträge: 481

Verfasst am: 13.06.2007, 22:32 Titel: Complitiern funzt nicht

Antworten mit Zitat

Seltsam^^

Code:

' Code natürlich auf das wichtigste reduziert und passend geändert..
' Folgendes Problemo:
' Der Code Läss sich garnicht erst Complitieren und ich weiss nicht im geringsten warum peinlich

peinlich

PRIVATE FUNCTION SECURITYLEVEL2 (PASSW AS STRING, CKS1 AS SINGLE, CKS2 AS SINGLE) AS STRING
'...
SECURITYLEVEL2 = "test_string"
END FUNCTION

PRIVATE SUB LOGIN4LVL2 (PW2 AS STRING,V ,G ,PW1 AS STRING,C as single,B as single, A , NP)
DIM NNSUM AS SINGLE
DIM SIGNALOUTPUT AS STRING
NNSUM=4 ' debug
IF NNSUM = 4 THEN SignalOutput = SECURITYLEVEL2 (PW2 AS STRING , U2 AS SINGLE , B2 AS SINGLE ) ' KLAPPT NICHT!
IF LEN(SignalOutput) > 0 THEN Print "Funzt" else Print "Funzt nicht":Print "Debug output :";PW2,v,g,pw,c,b,a,np
END SUB

LOGIN4LVL2 ("STRING_1",V,G,"STRING_2",C,B,A,NP) ' Das genausowenig^^
sleep

Edit:
Hat sich schon erledigt..
Mann muss einfach nur ein Paar von den As Single in den Funktionen entfernen... Hammer

Hammer

Naja. Trotzdem Danke durchgeknallt

durchgeknallt

Private Nachricht senden

Mao

Anmeldungsdatum: 25.09.2005
Beiträge: 4409
Wohnort: /dev/hda1

Verfasst am: 14.06.2007, 14:30 Titel:

Schreib doch dann gleich dazu, was der Fehler ist. /edit: Ich mein natürlich die Fehlerausgabe des Compilers. _________________ Eine handvoll Glück reicht nie für zwei. --

Private Nachricht senden

AndT

Anmeldungsdatum: 02.04.2007
Beiträge: 481

Verfasst am: 14.06.2007, 18:11 Titel:

Antworten mit Zitat

Der Orignal Fehler:

Code:

Z:/FBIDETEMP.bas(52) error 55: Type mismatch, at parameter 2 (CKS1) of SECURITYLEVEL2()
IF NNSUM = 4 THEN SignalOutput = SECURITYLEVEL2 (PW2, U ,C )

Und noch viele andere^^

Sagen wirs mal so:
DIM "so und so" as SINGLE und bestimmte "AS SINGLE waren in den Functionen uns Subs sind schuld. Egal jedenfalls funzt er wieder zwinkern

zwinkern

Private Nachricht senden

Beiträge der letzten Zeit anzeigen:

	Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC.	Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

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