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:

Threadcreate/ErrorHandle

 
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
Eternal_pain



Anmeldungsdatum: 08.08.2006
Beiträge: 1783
Wohnort: BW/KA

BeitragVerfasst am: 01.03.2007, 14:08    Titel: Threadcreate/ErrorHandle Antworten mit Zitat

weinen muss leider schon wieder eine Frage posten mit dem Kopf durch die Mauer wollen

Hatte zu meinem Projekt gerade den gedanken zu einem automatischen Errorhandle, also wenn eine meiner funktionen seine funktion wegen etwas nicht durchführen kann, soll diese eine -1 zurückgeben und einen shared Errorcode zurückgeben den ich bisher nur durch den zusätzlichen aufruf einer error funktion benutzt habe, jetzt habe ich ein wenig mit Threads experimentiert und ein testerrorhandle gemacht das ich später noch mit zusätzlichen funktionen füttern will,
aber zunächst;
Wie wahrscheinlich ist es das ein thread nicht gestartet werden kann?
und
und wie kann ich es dann machen das dennoch automatisch die Fehlermeldung zurückgegeben wird, ohne thread?
_________________
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen MSN Messenger
Eternal_pain



Anmeldungsdatum: 08.08.2006
Beiträge: 1783
Wohnort: BW/KA

BeitragVerfasst am: 01.03.2007, 16:57    Titel: Antworten mit Zitat

Habe das mal als kurzen Test geschrieben um es zu verdeutlichen:

Code:

    Declare Sub JRGE_ErrorHandle

    Dim Shared JRGE_ErrorHandleStatus as Integer
    Dim Shared JRGE_ErrorCode as UShort
    Dim Shared JRGE_InitStatus as Ubyte
       
   
   
    SUB JRGE_ErrorHandle
        While JRGE_InitStatus
            If JRGE_ErrorCode<>0 Then
                ?JRGE_ErrorCode'bzw call errorfunction
            End If
            JRGE_ErrorCode=0
        Wend
    END SUB

   
   
   
    JRGE_InitStatus=1
   
    JRGE_ErrorHandleStatus=THREADCREATE(@JRGE_ErrorHandle)

sleep
    JRGE_InitStatus=0

_________________
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen MSN Messenger
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