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

corecciones generales

Browse Source
This commit is contained in:
cvaldes1201
2024-01-23 13:33:10 -06:00
parent deded905a7
commit 2235c6157a
6 changed files with 162 additions and 180 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
B4A/EscPosPrinter.bas
View File

@@ -113,8 +113,11 @@ Public Sub Connect As Boolean
PairedDevices = Serial1.GetPairedDevices
Dim l As List
l.Initialize
Log("aqui 1")
For i = 0 To PairedDevices.Size - 1
l.Add(PairedDevices.GetKeyAt(i))
Log("aqui 2")
DisConnect
Next
Dim Res As Int
Res = InputList(l, "Choose a printer", -1) 'show list with paired devices 'ignore
@@ -123,52 +126,25 @@ Public Sub Connect As Boolean
'Msgbox(PairedDevices.Get(l.Get(Res)),"mac")
Starter.mac_impresora = PairedDevices.Get(l.Get(Res))
Return True
DisConnect
Log("aqui 3")
End If
Log("aqui 4")
Return False
Else
Serial1.Connect(Starter.mac_impresora)
' Starter.mac_impresora = colonia.MAC_IMPRESORA
Return True
DisConnect
Log("aqui 5")
End If
Catch
Log(LastException)
Return False
End Try
End Sub
'Public Sub Connect2 As Boolean
' 'leos
'' Serial1.Connect("88:6B:0F:3E:53:9E")
'' Return True
'' Try
'' If Starter.MAC_IMPRESORA = "0" Then
' Dim PairedDevices As Map
' PairedDevices = Serial1.GetPairedDevices
' Dim l As List
' l.Initialize
' For i = 0 To PairedDevices.Size - 1
' l.Add(PairedDevices.GetKeyAt(i))
' Next
' Dim Res As Int
' Res = InputList(l, "Choose a printer", -1) 'show list with paired devices 'ignore
' If Res <> DialogResponse.CANCEL Then
' Serial1.Connect(PairedDevices.Get(l.Get(Res))) 'convert the name to mac address
' 'Msgbox(PairedDevices.Get(l.Get(Res)),"mac")
' Starter.mac_impresora = PairedDevices.Get(l.Get(Res))
' Return True
' End If
' Return False
'' Else
'' Serial1.Connect(Starter.mac_impresora)
'' ' Starter.mac_impresora = colonia.MAC_IMPRESORA
'' Return True
'' End If
'' Catch
'' Log(LastException)
'' End Try
'End Sub
' Disconnect the printer
Public Sub DisConnect
Serial1.Disconnect