mirror of
https://github.com/KeymonSoft/Salma_Viejo.git
synced 2026-04-17 12:56:26 +00:00
98 lines
2.5 KiB
QBasic
98 lines
2.5 KiB
QBasic
B4A=true
|
|
Group=Default Group
|
|
ModulesStructureVersion=1
|
|
Type=Activity
|
|
Version=6.8
|
|
@EndOfDesignText@
|
|
|
|
#Region Activity Attributes
|
|
#FullScreen: False
|
|
#IncludeTitle: True
|
|
#End Region
|
|
|
|
Sub Process_Globals
|
|
'These global variables will be declared once when the application starts.
|
|
'These variables can be accessed from all modules.
|
|
|
|
End Sub
|
|
'
|
|
Sub Globals
|
|
' 'These global variables will be redeclared each time the activity is created.
|
|
' 'These variables can only be accessed from this module.
|
|
' Dim b,b1,b2 As ImageView
|
|
' Dim bt As Button
|
|
'
|
|
' Dim qr As QRCode
|
|
' Dim sc As Zxing_scanner
|
|
' Dim CODIGO As String
|
|
'
|
|
'
|
|
' Private Label1 As Label
|
|
End Sub
|
|
'
|
|
'Sub Activity_Create(FirstTime As Boolean)
|
|
' 'Do not forget to load the layout file created with the visual designer. For example:
|
|
' Activity.LoadLayout("qr")
|
|
'
|
|
' b.Initialize("")
|
|
' b1.Initialize("")
|
|
' b1.Gravity=Gravity.FILL
|
|
' b2.Initialize("")
|
|
' b2.Gravity=Gravity.FILL
|
|
'
|
|
' Activity.AddView(b,0,0,100dip,100dip)
|
|
' Activity.AddView(b1,0,110dip,300dip,100dip)
|
|
' Activity.AddView(b2,0,220dip,300dip,100dip)
|
|
'
|
|
' qr.initialize
|
|
'
|
|
' b.Bitmap = qr.QR_Encode("TESTING QR CODES",100dip)
|
|
' b1.Bitmap = qr.Ean13_Encode(calc_ean_checksum("123456789012"),100dip) ' Not interested in this
|
|
' b2.Bitmap = qr.Ean8_Encode(calc_ean_checksum("1234567"),100dip) ' Not interested in this
|
|
'
|
|
' bt.Initialize("bt")
|
|
' bt.Text="Codigo"
|
|
' Activity.AddView(bt,0,330dip,120dip,50dip)
|
|
'
|
|
'End Sub
|
|
'
|
|
'Sub Activity_Resume
|
|
'
|
|
'End Sub
|
|
'
|
|
'Sub Activity_Pause (UserClosed As Boolean)
|
|
'
|
|
'End Sub
|
|
'Sub bt_click
|
|
' 'ADDED BY JOHAN SCHOEMAN i.e OPTION TO CHANGE THE WIDTH AND HEIGHT OF THE VIEWING RECTANGLE
|
|
' Dim scan_width As Int
|
|
' Dim scan_height As Int
|
|
' scan_width = 400
|
|
' scan_height = 400
|
|
' sc.BeginScan("sc","CODIGO CLIENTE",scan_width,scan_height)
|
|
'
|
|
'End Sub
|
|
'Sub sc_result(atype As String,Values As String)
|
|
' 'Log("Type : " & atype)
|
|
' 'Log("Value : " & Values)
|
|
' CODIGO = Values
|
|
' b.Bitmap = qr.QR_Encode(Values,100dip)
|
|
'End Sub
|
|
'Sub sc_noScan
|
|
' Log("nothing returned from the scan !!!!!")
|
|
'End Sub
|
|
'Sub calc_ean_checksum(number As String) As String 'this has now become redundant as I am only interested in QR Codes
|
|
' Dim i As Int
|
|
' Dim c As Char
|
|
' Dim soma As Int
|
|
' Dim n As Int
|
|
' Dim digit As Float
|
|
'
|
|
' soma = 0
|
|
' For i=0 To number.Length - 1
|
|
' digit = number.SubString2(i,i+1)
|
|
' n= digit * ((i Mod 2) * 2 + 1)
|
|
' soma=soma+n
|
|
' Next
|
|
' Return number & ( ( 10 - ( soma Mod 10 )) Mod 10 )
|
|
'End Sub |