#Region Project Attributes
#ApplicationLabel: GoTELEMED
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: Portrait
#CanInstallToExternalStorage: False
#End Region
#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.
Dim p As PhoneIntents
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 Sair As Button
Dim WEB_Address As EditText
Dim Postos As ListView
Dim IME1 As IME
Dim RAF As RandomAccessFile
Dim RP As RuntimePermissions
Dim Diretorio, Password As String
Dim DDNS_Postos As List
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("Layout1")
Activity.LoadLayout("teste")
Activity.Title="GoTELEMED Vs1.07"
Password="ROMC Consultores"
Diretorio="GoTELEMED"
IME1.Initialize("")
IME1.HideKeyboard
'Solicitação de acesso à memoria
RP.CheckAndRequest(RP.PERMISSION_READ_EXTERNAL_STORAGE)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Permission = RP.PERMISSION_READ_EXTERNAL_STORAGE Then Log("PERMISSION_READ_EXTERNAL_STORAGE = " & Result)
RP.CheckAndRequest(RP.PERMISSION_WRITE_EXTERNAL_STORAGE)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Permission = RP.PERMISSION_WRITE_EXTERNAL_STORAGE Then Log("PERMISSION_WRITE_EXTERNAL_STORAGE = " & Result)
Dim Config As Label
Postos.Clear
Postos.SingleLineLayout.ItemHeight=100
Config= Postos.SingleLineLayout.Label
Config.TextSize=16
Config.TextColor=Colors.Black
InicializarTratArqUser
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
'**********************************************************************************************
'
'**********************************************************************************************
Sub Activity_PermissionResult (Permission As String, Result As Boolean)
End Sub
'**********************************************************************************************
' Rotinas para recolher o teclado
'**********************************************************************************************
Sub Recolher_Teclado
'A digitação do "ENTER" recolhe o teclado
' Sleep(0)
IME1.HideKeyboard
' Recolher_BarNav
' Sleep(0)
End Sub
'**********************************************************************************************
' Rotinas do modo imersivo da tela
'**********************************************************************************************
'Sub Recolher_BarNav
' Activity_WindowFocusChanged(True)
' Dim lv As LayoutValues = GetRealSize
' Dim jo As JavaObject = Activity
' jo.RunMethod("setBottom", Array(lv.Height))
' jo.RunMethod("setRight", Array(lv.Width))
' Activity.Height = lv.Height
' Activity.Width = lv.Width
'End Sub
'Sub GetRealSize As LayoutValues
' Dim lv As LayoutValues
' Dim pb As Phone
' If pb.SdkVersion >= 17 Then
' Dim ctxt As JavaObject
' ctxt.InitializeContext
' Dim display As JavaObject = ctxt.RunMethodJO("getSystemService", Array("window")).RunMethod("getDefaultDisplay", Null)
' Dim point As JavaObject
' point.InitializeNewInstance("android.graphics.Point", Null)
' display.RunMethod("getRealSize", Array(point))
' lv.Width = point.GetField("x")
' lv.Height = point.GetField("y")
' Else
' lv.Width = 100%x
' lv.Height = 100%y
' End If
' lv.Scale = 100dip / 100
' Return lv
'End Sub
'Sub Activity_WindowFocusChanged(HasFocus As Boolean)
' If HasFocus Then
' Try
' Dim jo As JavaObject = Activity
' Sleep(300)
' jo.RunMethod("setSystemUiVisibility", Array As Object(5894)) '3846 - non-sticky
' Catch
' 'Log(LastException) 'This can cause another error
' End Try 'ignore
'
' End If
'End Sub
'
Sub WEB_Address_EnterPressed
Dim i As Int, URL As String
Recolher_Teclado
If WEB_Address.Text.Length>2 Then
Postos.AddSingleLine(NumberFormat(Postos.Size,2,0) & " " & WEB_Address.Text.ToLowerCase)
Else
If WEB_Address.Text.Length=2 And IsNumber(WEB_Address.Text) Then
If WEB_Address.Text<=Postos.Size-1 And WEB_Address.Text>0 Then
Postos.RemoveAt(WEB_Address.text)
End If
End If
End If
DDNS_Postos.Initialize
For i=0 To Postos.Size-1
URL=Postos.GetItem(i)
If i>0 Then
DDNS_Postos.Add(NumberFormat(i,2,0) & " " & URL.SubString(3))
Else
DDNS_Postos.Add(URL)
End If
Next
Gravar_ArqArqGoTELEMED
Ler_ArqArqGoTELEMED
End Sub
Sub Postos_ItemClick(No_Linha As Int, Valor As Object)
Dim URL As String
If No_Linha>0 Then
URL=Postos.GetItem(No_Linha)
StartActivity(p.OpenBrowser("http://" & URL.Substring(3) & ":6001"))
End If
End Sub
Sub Sair_Click
ExitApplication
End Sub
'**********************************************************************************************
' Tratamento de arquivos - Rotinas
'*********************************************************************************************
Sub InicializarTratArqUser
If File.Exists(File.DirRootExternal,Diretorio & "/ArqGoTELEMED.dat")=False Then Criar_ArqArqGoTELEMED
Log("Lendo arquivos ...")
Ler_ArqArqGoTELEMED
Log("Arquivo ArqGoTELEMED.dat lido!")
End Sub
Sub Criar_ArqArqGoTELEMED 'Cria o Arquivo de DDNS dos postos (rede)
Dim Dia As String
File.MakeDir(File.DirRootExternal,Diretorio)
DDNS_Postos.Initialize
Dia=DateTime.Date(DateTime.Now)
Dia=Dia.SubString2(3,6) & Dia.SubString2(0,3) & Dia.SubString2(8,10)
DDNS_Postos.Add("Arquivo criado em " & Dia & " " & DateTime.Time(DateTime.Now))
Gravar_ArqArqGoTELEMED
Log("Arquivo ArqGoTELEMED.dat Criado!")
End Sub
Sub Ler_ArqArqGoTELEMED
LerArquivo(DDNS_Postos,Password,Diretorio & "/ArqGoTELEMED.dat")
Postos.Clear
For i=0 To DDNS_Postos.Size-1
Postos.AddSingleLine(DDNS_Postos.Get(i))
Next
End Sub
Sub Gravar_ArqArqGoTELEMED
GravarArquivo(DDNS_Postos,Password,Diretorio & "/ArqGoTELEMED.dat")
End Sub
'**********************************************************************************************
' Tratamento de arquivos - Leitura e Gravação
'*********************************************************************************************
Sub LerArquivo(Dados As List,Senha As String,Arquivo As String)
Dados.Initialize
RAF.Initialize(File.DirRootExternal, Arquivo, False)
Dados=RAF.ReadEncryptedObject(Senha, RAF.CurrentPosition)
RAF.Close
End Sub
Sub GravarArquivo(Dados As List,Senha As String,Arquivo As String)
RAF.Initialize(File.DirRootExternal, Arquivo, False)
RAF.WriteEncryptedObject(Dados,Senha, RAF.CurrentPosition)
RAF.Close
End Sub
'**********************************************************************************************
