cheveguerra/Mazapa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mazapa.git synced 2026-04-17 21:06:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

Version: 5.01.15

Browse Source 
Se movio el temporizador de la impresion y se movio el evento de impresion.
This commit is contained in:
Isaac
2025-01-20 20:23:35 -06:00
parent ebf5ccd82d
commit 2249c2449f
4 changed files with 31 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
B4A/EscPosPrinter.bas
View File

@@ -1118,12 +1118,32 @@ End Sub
' Internal Serial Events
'-----------------------
Private Sub Serial1_Connected (Success As Boolean)
'Private Sub Serial1_Connected (Success As Boolean)
' If Success Then
' Astream.Initialize(Serial1.InputStream, Serial1.OutputStream, "astream")
' Connected = True
' ConnectedError = ""
' Serial1.Listen
' Else
' Connected = False
' ConnectedError = LastException.Message
' End If
' If SubExists(CallBack, EventName & "_Connected") Then
' CallSub2(CallBack, EventName & "_Connected", Success)
' End If
'End Sub
Private Sub Serial1_Connected(Success As Boolean)
If Success Then
Astream.Initialize(Serial1.InputStream, Serial1.OutputStream, "astream")
Connected = True
ConnectedError = ""
Serial1.Listen
Try
Astream.Initialize(Serial1.InputStream, Serial1.OutputStream, "astream")
Connected = True
ConnectedError = ""
Serial1.Listen
Catch
Connected = False
ConnectedError = LastException.Message
End Try
Else
Connected = False
ConnectedError = LastException.Message
@@ -1133,6 +1153,7 @@ Private Sub Serial1_Connected (Success As Boolean)
End If
End Sub
'----------------------------
' Internal AsyncStream Events
'----------------------------