MSComm1.PortOpen = True
Er der nogen som kan hjælpe mig??Det drejer sig om kunde display til en kasseapparat........
Jeg har de to nedstående programmer Display2 har jeg ingen problemer med, men Display3 gir mig nogen, ikke første gang men anden gang, når jeg når MsComm1.PortOpen = True så siger “Port already open” fejl 8005, hvis jeg nu bytter True med False, så siger “The device is not open” fejl 8012 ?????????? Underlig ikke ????????
Private Sub Display2()
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
MSComm1.CommPort = 2
MSComm1.OutBufferCount = 0
MSComm1.OutBufferSize = 0
MSComm1.PortOpen = True
MSComm1.Output = Chr(12)
MSComm1.Output = Chr(12)
MSComm1.Settings = "9600,N,8,1"
Dim Valor As String
MSComm1.Output = Form1.DataGrid2.Columns(3) & vbCrLf '** Navn **
MSComm1.Output = "Stk." '& vbCrLf ' + Asc(84) + Asc(75) & Asc(46) & vbCrLf
MSComm1.Output = Chr(27) + Chr(108) & Chr(6) & Chr(2) 'flytte til x y
MSComm1.Output = Form1.DataGrid2.Columns(1) & vbCrLf '** Enhed **
MSComm1.Output = Chr(27) + Chr(108) & Chr(10) & Chr(2) 'flytte til x y
MSComm1.Output = "Kr."
MSComm1.Output = Chr(27) + Chr(108) & Chr(14) & Chr(2) 'flytte til x y
MSComm1.Output = Form1.DataGrid2.Columns(2) & vbCr '** Pris **
End Sub
**************
Private Sub Display3()
MSComm1.CommPort = 2
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
If MSComm1.PortOpen = False Then a = 9
MSComm1.OutBufferCount = 0
MSComm1.OutBufferSize = 0
MSComm1.PortOpen = True
MSComm1.Output = Chr(12)
MSComm1.Output = Chr(12)
MSComm1.Settings = "9600,N,8,1"
' Dim Valor As String
MSComm1.Output = "Ialt Kr. " '& vbCrLf ' + Asc(84) + Asc(75) & Asc(46) & vbCrLf
MSComm1.Output = Text1 & vbCrLf
MSComm1.Output = Chr(27) + Chr(108) & Chr(1) & Chr(2) 'Chr(10) & Chr(2) 'flytte til x y
MSComm1.Output = "Kr. tilbage"
MSComm1.Output = Chr(27) + Chr(108) & Chr(15) & Chr(2) 'Chr(6) & Chr(2) 'flytte til x y
MSComm1.Output = Text3 & vbCrLf
' MSComm1.Output = Chr(27) + Chr(108) & Chr(14) & Chr(2) 'flytte til x y
End Sub
