Hallo Gemeine,
da ich auch nach längerem Suchen im WWW zu keiner Lösung für mein
Problem gekommen bin,
bitte ich euch wieder mal um eure Mithilfe.
Hintergund:
Ich programmiere eine Excel-Anwendung für eine Verkaufskasse.
Die Kassenlade wird über eine I/O Addresse geöffnet.
Hier sind die Daten aus der Anleitung der Kasse.
Command Cash Drawer
O 4B8 01 Opening
O 4B8 00 Allow to closing
Set the I/O address 4B8h bit0 =1 for opening the Cash Drawer by “DOUT
bit0” pin control.
Set the I/O address 4B8h bit0 = 0 to allow closing Cash Drawer.
Vom Hersteller habe ich folgendes Makro mitbekommen.:
Option Explicit
Public Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal
PortAddress As Integer, ByVal Value As Integer)
Public Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal
PortAddress As Integer) As Integer
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Declare Function GetPrivateProfileString Lib "kernel32" _
Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, ByVal lpDefault As String, _
ByVal lpReturnedString As String, ByVal nSize As Long, _
ByVal lpFileName As String) As Long
Aber wie starte ich denn nun das Öffnen?
Ich hab ja schon recht viel mit Excel hinbekommen, aber da muß ich nun
passen.
Hat vielleicht jemand von euch eine Idee?
Das wäre echt fein.
Vielen Dank
Excel-F.