Gdy wywołuje własną funkcje na zdeklarowanych lokalnie argumentach jest ok. Chodzi o Sub wyglad_zmien(jezyk ,menu)
Gdy chce wywołać funkcje z argumentami globalnie zdeklarowanymi wywala błąd?
Czy wlasna funkcje musimy dopisac do spisu na górze, tak jak np sie robi z buttonem w designerze- najpierw generujemy DIM a pozniej dopiero click. Szukam przyczyny takiego działania , bo wydaje mi się że powinno to działać na argumentach zdeklarowanym jednokrotnie-globalnie
[syntax=basic4gl]#Region Project Attributes
#ApplicationLabel: B4A Example
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#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.
Private xui As XUI
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
Private btnProgram As Button
Private btnLista As Button
Private lblStanPolaczenia As Label
Private btnSave As Button
Private edtAddPlayer As EditText
Private btnUstawienia As Button
Dim Nr As Int
Dim remote_ip As String
remote_ip="to jest to"
Dim remote_odczyt As String
remote_odczyt="nie tak"
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout")
Activity.Title="KickOff Aplication"
Dim jezyk As Int ' jezyk aplikacji
jezyk=2
Dim menu As Int ' jezyk aplikacji
menu=1
wyglad_zmien(jezyk,menu) ' ################# tu po deklaracji jest ok
If File.Exists(File.DirInternal,"remote_ip") Then
remote_odczyt=File.ReadString(File.DirInternal,"remote_ip")
Else
'remote_ip="5"
End If
edtAddPlayer.Text=remote_odczyt
End Sub 'koniec activity create
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub btnProgram_Click
End Sub
Sub wyglad_zmien(jezyk ,menu)
If (jezyk==1) Then
'jezyk polski
btnUstawienia.Text="Ustawienia"
btnLista.Text="Lista zawodników"
btnProgram.Text="Start programu"
End If
If (jezyk==2) Then
'jezyk angielski
btnUstawienia.Text="Settings"
btnLista.Text="Player list"
btnProgram.Text="Start program"
End If
If (menu==1) Then
btnUstawienia.Visible=True
btnLista.Visible= True
btnProgram.Visible= True
btnSave.Visible= False
edtAddPlayer.Visible=False
End If
End Sub
Sub btnLista_Click
wyglad_zmien(jezyk,menu) ' ################# tu nie idzie
End Sub
Sub btnSave_Click
File.WriteString(File.DirInternal,"remote_ip",remote_ip)
End Sub
Sub edtAddPlayer_EnterPressed
End Sub
Sub btnUstawienia_Click
End Sub[/syntax]
Statystyki: Napisane przez kozaczi — 23 gru 2020, o 09:27
]]>