Buchempfehlung
Visual Basic 6 Kochbuch
Visual Basic 6 Kochbuch
Viele praktische Tipps zum Programmieren mit Visual Basic 6, die sich oft auch auf FB übertragen lassen. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe
Liste
Übersicht / Liste
Neu
Datei hochladen
Suche
Quellcode suchen
Download
Dateidownload

core_guru.bi

Uploader:MitgliedThePuppetMaster
Datum/Zeit:26.08.2008 22:09:30

'###############################################################################################################
'###############################################################################################################
'###   F B - C O R E
'###############################################################################################################
'###############################################################################################################
'### Version:  1.00.0
'### Revision: 0
'###############################################################################################################
'### (c) 2008 By.: /_\ DeltaLab's Germany [experimental computing]
'### Author:       Martin Wiemann
'### Date of Idea: 2008.08.16 - 17:55:38
'###############################################################################################################
'### Copy('s) of this code or a part of this IS allowed!!!
'###############################################################################################################





'###############################################################################################################
Private Sub Core_GURU_GetDescription(V_GuruCode as Integer, ByRef B_Desc as String)
Select Case V_GuruCode
    Case GURU_NoError:                              B_Desc = "[No Error found]"
    Case GURU_UnknowErrorInFunction:                B_Desc = "[- Unknow error in sub or function -]"
    Case GURU_Multiboot_NoMagicKey:                 B_Desc = "[Multiboot] No Magickey found!"
    Case GURU_Multiboot_NoDriveAdr:                 B_Desc = "[Multiboot] No Drive-ADR found!"
    Case GURU_MemMan_Already_Init:                  B_Desc = "[MemMan] Already equipped!"
    Case GURU_MemMan_NoFreeMemoryFound:             B_Desc = "[MemMan] No more Memory available!"
    Case GURU_MemMan_MemoryPageAllocError:          B_Desc = "[MemMan] Error by allocating memorypage!"
    Case GURU_MemMan_MemoryPageIDOutOfRange:        B_Desc = "[MemMan] Memorypage-ID out of range!"
    Case GURU_MemMan_MemoryPageAlreadyFree:         B_Desc = "[MemMan] Memorypage-ID already free!"
    Case GURU_MemMan_MemoryPageUseCountError:       B_Desc = "[MemMan] Error in counting Memorypage usage!"
    Case GURU_IRQ_IRQID_OutOfRange:                 B_Desc = "[IRQ] IRQID out of range!"
    Case GURU_IRQ_IRQID_CallbackAlrightInstalled:   B_Desc = "[IRQ] Callback for IRQID alright given. Uninstall first!"
    Case GURU_IRQ_IRQID_NoCallbackInstalled:        B_Desc = "[IRQ] Callback for IRQID not installed!"
    Case GURU_PIT_FrqOutOfRange:                    B_Desc = "[PIT] Frequency out of range!"
    Case Else:                                      B_Desc = "[ ! UNKNOW GURU-CODE / NO DESCRPTION ! ]"
End Select
End Sub




'###############################################################################################################
Private Sub Core_GURU_Error(V_GuruCode as Integer, V_ExecName as String, V_Param1 as String, V_Param2 as String, V_IDTError as UByte = 0)
'Global FATAL Error (Breakdown)
Cls
Locate 1, 0
Color 12
Print "   ###########################################"
Print "  ###";
Color 15
Print "   F A T A L - G U R U - E R R O R   ";
Color 12
Print "###"
Print " ###########################################"
Color 15

Locate 6, 0
Print "  Errorcode:   '"; V_GuruCode; "'"
If V_IDTError = 0 Then
    Dim T as String
    Core_GURU_GetDescription(V_GuruCode, T)
    Print "  Errordesc:   '"; T; "'"
Else
    Print "  Errordesc:   '";
    Color 12
    Print "CPU EXCEPTION";
    Color 15
    Print "'"
End If
Print ""
Print "  In exec of:  '"; V_ExecName; "'"
If V_Param1 <> "" Then Print "  Info-1:      '"; V_Param1; "'"
If V_Param2 <> "" Then Print "  Info-2:      '"; V_Param2; "'"
If V_Param1 = "" and V_Param2 = "" Then Print " [No params]"
Locate 18, 0
Print " Couldn't localize crashpoint, immediate shutdown is not preventable!"
Print " System was completly stopped and is waiting for reboot!"
Print " Push 'RESET' on or switch 'OFF' and 'ON' the Computer!"
Print ""
Color 9
Print " Contact 'Admin@MLN.ath.cx' to report this error!"
Print " Or goto Http://forum.qbasic.at/"
Do
Loop
End Sub





'###############################################################################################################
'System Error
Private Sub Core_SERO_Error(V_GuruCode as Integer)
If V_GuruCode <= 0 Then
    Cls

End If
End Sub