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