"signing package file (private key) Error"

SlavaVB

Member
Licensed User
Longtime User
Hi, im making a morse code app, for some reason my app stopped compiling, and i have no idea what to fix... here is my code...

B4X:
'Activity module
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 Button1 As Button
   Dim EditText1 As EditText

End Sub

Sub Activity_Create(FirstTime As Boolean)
   Activity.LoadLayout("morse1")
End Sub
Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



 
Sub Button1_Click
   
   Dim Ch As String
   For i = 0 To edittext1.Text.Length - 1
      Ch = edittext1.Text.CharAt(i)
      Ch = ch.ToUpperCase
      
      Select Case Ch
         Case "A":
            pulseshort
            pulselong
         Case "B":
            pulselong
            pulseshort
            pulseshort
            pulseshort
         Case "C":
            pulselong
            pulseshort
            pulselong
            pulseshort
         Case "D":
            pulselong
            pulseshort
            pulseshort
         Case "E":
            pulseshort
         Case "F":
            pulseshort
            pulseshort
            pulselong
            pulseshort
         Case "G":
            pulselong
            pulselong
            pulseshort
         Case "H":
            pulseshort
            pulseshort
            pulseshort
            pulseshort
         Case "I":
            pulseshort
            pulseshort
         Case "J":
            pulseshort
            pulselong
            pulselong
            pulselong
         Case "K":
            pulselong
            pulseshort
            pulselong
         Case "L":
            pulseshort
            pulselong
            pulseshort
            pulseshort
         Case "M":
            pulselong
            pulselong
         Case "N":
            pulselong
            pulseshort
         Case "O":
            pulselong
            pulselong
            pulselong
         Case "Q":
            pulselong
            pulselong
            pulseshort
            pulselong
         Case "R":
            pulseshort
            pulselong
            pulseshort
         Case "S":
            pulseshort
            pulseshort
            pulseshort
         Case "T":
            pulselong
         Case "U":
            pulseshort
            pulseshort
            pulselong
         Case "V":
            pulseshort
            pulseshort
            pulseshort
            pulselong
         Case "W":
            pulseshort
            pulselong
            pulselong
         Case "X":
            pulselong
            pulseshort
            pulseshort
            pulselong
         Case "Y":
            pulselong
            pulseshort
            pulselong
            pulselong
         Case "Z":
            pulselong
            pulselong
            pulseshort
            pulseshort
         Case " ":
            sleeplong
      End Select
   Next
   
   Msgbox ("Done!","")
End Sub
Sub PulseShort()
   lighton
   DoEvents
   sleepshort
   DoEvents
   lightoff
   DoEvents
End Sub
Sub PulseLong()
   lighton
   DoEvents
   sleeplong
   DoEvents
   lightoff
   DoEvents
End Sub

Sub SleepShort()
   sleep(300)
   DoEvents
End Sub
Sub SleepLong()
   sleep(800)
   DoEvents
End Sub
Sub Sleep(ms As Long)
   Dim now As Long
   If ms > 1000 Then ms =1000   'avoid application not responding error
   now=DateTime.Now
   Do Until (DateTime.Now>now+ms)
     DoEvents
   Loop
End Sub
Sub LightOn()
   DoEvents
End Sub
Sub LightOff()
   DoEvents
End Sub
 

SlavaVB

Member
Licensed User
Longtime User
I tried it, but it didn't fix the error :BangHead:




it doesnt happen with my physics app, only this one
 
Upvote 0

SlavaVB

Member
Licensed User
Longtime User
B4X:
Compiling code.                         0.04
Generating R file.                      0.00
Compiling generated Java code.          1.24
Convert byte code - optimized dex.      0.44
Packaging files.                        0.64
Signing package file (debug key).       Error


I even created a key in tools menu, and reinstalled the compiler... does the code work for anyone else? :BangHead:
 
Upvote 0
Top