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

boton actualizar app y permisos Bluetooth para android 13 v4.01.16

Browse Source
This commit is contained in:
cvaldes1201
2024-01-17 18:08:54 -06:00
parent 58a19bbf87
commit ea2e131981
8 changed files with 516 additions and 436 deletions
Download Patch File Download Diff File Expand all files Collapse all files

62
B4A/EscPosPrinter.bas
View File

@@ -136,37 +136,37 @@ Public Sub Connect As Boolean
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
'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