42 lines
1.4 KiB
QBasic
42 lines
1.4 KiB
QBasic
Attribute VB_Name = "modWaage"
|
|
Option Explicit
|
|
|
|
Global Const WAAGE_DEFAULT_TIMEOUT = 2000
|
|
|
|
' Konstanten der Fehlermeldungen
|
|
Global Const WAAGE_ERR_NEGQUIT = 1
|
|
Global Const WAAGE_ERR_NEGQUIT_D = "Waagen Quittung negativ, Befehl nicht ausführbar"
|
|
|
|
Global Const WAAGE_ERR_UNKNOWNANSWER = 2
|
|
Global Const WAAGE_ERR_UNKNOWNANSWER_D = "Unbekannte Antwort von Waage"
|
|
|
|
Global Const WAAGE_ERR_CANCEL = 3
|
|
Global Const WAAGE_ERR_CANCEL_D = "Waagen Funktion abgebrochen"
|
|
|
|
Global Const WAAGE_ERR_NOANSWER = 4
|
|
Global Const WAAGE_ERR_NOANSWER_D = "Timeout, keine Antwort von Waage"
|
|
|
|
Global Const WAAGE_ERR_WAIT = 5
|
|
Global Const WAAGE_ERR_WAIT_D = "Waagen Qutittung gut, Befehl wird nach Waagenruhe ausgeführt. Es folgt dann Quittung oder negativ oder Funktionsergebnis."
|
|
|
|
Global Const WAAGE_ERR_HARD = 6
|
|
Global Const WAAGE_ERR_HARD_D = "Waagen Quittung negativ, Befehl nicht ausführbar, da Harderror vorliegt."
|
|
|
|
Global Const WAAGE_ERR_COM = 17
|
|
Global Const WAAGE_ERR_COM_D = "Waagen Schnittstellenfehler"
|
|
|
|
Global Const WAAGE_ERR_SEND = 8
|
|
Global Const WAAGE_ERR_SEND_D = "Fehler beim Senden zur Waage"
|
|
|
|
Global Const WAAGE_ERR_UNKNOWN = 10
|
|
Global Const WAAGE_ERR_UNKNOWN_D = "unbekannter Waagen Fehler"
|
|
|
|
Global Const WAAGE_ERR_NICHT_IN_RUHE = 11
|
|
Global Const WAAGE_ERR_NICHT_IN_RUHE_D = "Waage nicht in Ruhe"
|
|
|
|
Global Const WAAGENART_BIZERBA = 1
|
|
Global Const WAAGENART_METTLER = 2
|
|
Global Const WAAGENART_METTLER_2 = 3
|
|
Global Const WAAGENART_METTLER_3 = 5
|
|
Global Const WAAGENART_FUELLSTAND = 4
|