call button??

[ilan]

hi

i have some buttons in my app and when i click on it sets a value like

dim i as int

sub button1_click
i = 1
end sub

and now if i want to change the text of the button (but not via "if...end if")

like

if i = 1 then
button1.text = x
else if i = 2 then
button2.text = x
....
end if


is there a way like

button(i).text = x ???


thanx

 

[derez]

Create all the buttons with the same event name, say "common", and put the number of the button in its Tag.
Then have this

sub common_click
Dim B as button
B = sender
B.text = x
' or if X depends on the button number - do this:
'B.text =  B.tag  [operation?] x
End sub

 

[ilan]

thanks

but this is not what i am looking for


i have several controls in several panels

like button, labels, ...

now all are named like this

l1
b1
....

and i have 31 panels

so there are: also

l2
b2
...

l3
b3
...


now if i press another button its gives me a number for example 5

and in this button event i would like to change all controls with this number to x

for example


sub button1_click

i = 5

b(i).text = x
l(i).text = x
....

end sub


is this possible???

can i change a label.text like this??

label(i).text = x

??

this is the code i use now (with lots of if...end if)
i am sure there is a nother way to solve the problem

Sub Button1_Click


DateTime.DateFormat =  "dd/MM/yyyy"

'Dim sb As StringBuilder
'   sb.Initialize
'   sb.Append("You have entered:").Append(CRLF)
'   sb.Append("Name: ").Append("ilan").Append(CRLF)
'   sb.Append("Color: ").Append("black").Append(CRLF)
'   sb.Append("Animal: ").Append("dog")
'   Msgbox(sb.ToString, "")
'DateTime.TimeFormat =  "HH:mm"
'DateTime.DateFormat = "dd/MM/yyyy"

'Label1.Text = DateTime.Time(DateTime.Now)
'datum1 = DateTime.Date(DateTime.Now) 


Try

Dim ttotal As Double 



DateBetweenTwoDates(DateTime.Date (DateTime.Now),spinh.Text & ":" & spinmin.Text & ":00",DateTime.Date (DateTime.Now), spouth.Text & ":" & spoutmin.Text & ":00")
'Msgbox(sum,"דקות")

If selecteddate = 1 Then
p1l1.Text  = spinh.Text & ":" & spinmin.Text 
p1l2.Text  = spouth.Text & ":" & spoutmin.Text

p1date.Text = Label32.Text 
'p1shift.Text = spshift.Text
p1in.Text = spinh.Text & ":" & spinmin.Text 
p1out.Text = spouth.Text & ":" & spoutmin.Text
p1break.Text = spbreak.Text 
p1time.Text = sum
p1bonus.Text = spbonus.Text 
ttotal = (sum - spbreak.Text) * (55 / 60)
p1total.Text =  Round2(ttotal + spbonus.Text,2)
p1l3.Text = p1total.Text 


Else If selecteddate = 2 Then
p2l1.Text  = spinh.Text & ":" & spinmin.Text 
p2l2.Text  = spouth.Text & ":" & spoutmin.Text

p2date.Text = Label32.Text 
'p1shift.Text = spshift.Text
p2in.Text = spinh.Text & ":" & spinmin.Text 
p2out.Text = spouth.Text & ":" & spoutmin.Text
p2break.Text = spbreak.Text 
p2time.Text = sum
p2bonus.Text = spbonus.Text 
ttotal = (sum - spbreak.Text) * (55 / 60)
p2total.Text =  Round2(ttotal + spbonus.Text,2)
p2l3.Text = p2total.Text 


Else If selecteddate = 3 Then
p3l1.Text  = spinh.Text & ":" & spinmin.Text 
p3l2.Text  = spouth.Text & ":" & spoutmin.Text

p3date.Text = Label32.Text 
'p1shift.Text = spshift.Text
p3in.Text = spinh.Text & ":" & spinmin.Text 
p3out.Text = spouth.Text & ":" & spoutmin.Text
p3break.Text = spbreak.Text 
p3time.Text = sum
p3bonus.Text = spbonus.Text 
ttotal = (sum - spbreak.Text) * (55 / 60)
p3total.Text =  Round2(ttotal + spbonus.Text,2)
p3l3.Text = p3total.Text 


Else If selecteddate = 4 Then
p4l1.Text  = spinh.Text & ":" & spinmin.Text 
p4l2.Text  = spouth.Text & ":" & spoutmin.Text

p4date.Text = Label32.Text 
'p1shift.Text = spshift.Text
p4in.Text = spinh.Text & ":" & spinmin.Text 
p4out.Text = spouth.Text & ":" & spoutmin.Text
p4break.Text = spbreak.Text 
p4time.Text = sum
p4bonus.Text = spbonus.Text 
ttotal = (sum - spbreak.Text) * (55 / 60)
p4total.Text =  Round2(ttotal + spbonus.Text,2)
p4l3.Text = p4total.Text 


Else If selecteddate = 5 Then
p5l1.Text  = spinh.Text & ":" & spinmin.Text 
p5l2.Text  = spouth.Text & ":" & spoutmin.Text

p5date.Text = Label32.Text 
'p1shift.Text = spshift.Text
p5in.Text = spinh.Text & ":" & spinmin.Text 
p5out.Text = spouth.Text & ":" & spoutmin.Text
p5break.Text = spbreak.Text 
p5time.Text = sum
p5bonus.Text = spbonus.Text 
ttotal = (sum - spbreak.Text) * (55 / 60)
p5total.Text =  Round2(ttotal + spbonus.Text,2)
p5l3.Text = p5total.Text 


Else If selecteddate = 6 Then
p6l1.Text  = spinh.Text & ":" & spinmin.Text 
p6l2.Text  = spouth.Text & ":" & spoutmin.Text

p6date.Text = Label32.Text 
'p1shift.Text = spshift.Text
p6in.Text = spinh.Text & ":" & spinmin.Text 
p6out.Text = spouth.Text & ":" & spoutmin.Text
p6break.Text = spbreak.Text 
p6time.Text = sum
p6bonus.Text = spbonus.Text 
ttotal = (sum - spbreak.Text) * (55 / 60)
p6total.Text =  Round2(ttotal + spbonus.Text,2)
p6l3.Text = p6total.Text 

Else If selecteddate = 7 Then
p7l1.Text  = spinh.Text & ":" & spinmin.Text 
p7l2.Text  = spouth.Text & ":" & spoutmin.Text

p7date.Text = Label32.Text 
'p1shift.Text = spshift.Text
p7in.Text = spinh.Text & ":" & spinmin.Text 
p7out.Text = spouth.Text & ":" & spoutmin.Text
p7break.Text = spbreak.Text 
p7time.Text = sum
p7bonus.Text = spbonus.Text 
ttotal = (sum - spbreak.Text) * (55 / 60)
p7total.Text =  Round2(ttotal + spbonus.Text,2)
p7l3.Text = p7total.Text 


Else If selecteddate = 8 Then
p8l1.Text  = spinh.Text & ":" & spinmin.Text 
p8l2.Text  = spouth.Text & ":" & spoutmin.Text

p8date.Text = Label32.Text 
'p1shift.Text = spshift.Text
p8in.Text = spinh.Text & ":" & spinmin.Text 
p8out.Text = spouth.Text & ":" & spoutmin.Text
p8break.Text = spbreak.Text 
p8time.Text = sum
p8bonus.Text = spbonus.Text 
ttotal = (sum - spbreak.Text) * (55 / 60)
p8total.Text =  Round2(ttotal + spbonus.Text,2)
p8l3.Text = p8total.Text 


Else If selecteddate = 9 Then
p9l1.Text  = spinh.Text & ":" & spinmin.Text 
p9l2.Text  = spouth.Text & ":" & spoutmin.Text

p9date.Text = Label32.Text 
'p1shift.Text = spshift.Text
p9in.Text = spinh.Text & ":" & spinmin.Text 
p9out.Text = spouth.Text & ":" & spoutmin.Text
p9break.Text = spbreak.Text 
p9time.Text = sum
p9bonus.Text = spbonus.Text 
ttotal = (sum - spbreak.Text) * (55 / 60)
p9total.Text =  Round2(ttotal + spbonus.Text,2)
p9l3.Text = p9total.Text 


Else If selecteddate = 10 Then
p10l1.Text  = spinh.Text & ":" & spinmin.Text 
p10l2.Text  = spouth.Text & ":" & spoutmin.Text

p10date.Text = Label32.Text 
'p1shift.Text = spshift.Text
p10in.Text = spinh.Text & ":" & spinmin.Text 
p10out.Text = spouth.Text & ":" & spoutmin.Text
p10break.Text = spbreak.Text 
p10time.Text = sum
p10bonus.Text = spbonus.Text 
ttotal = (sum - spbreak.Text) * (55 / 60)
p10total.Text =  Round2(ttotal + spbonus.Text,2)
p10l3.Text = p10total.Text 


Else If selecteddate = 11 Then
p11l1.Text  = spinh.Text & ":" & spinmin.Text 
p11l2.Text  = spouth.Text & ":" & spoutmin.Text


p11date.Text = Label32.Text
p11in.Text = spinh.Text & ":" & spinmin.Text
p11out.Text = spouth.Text & ":" & spoutmin.Text
p11break.Text = spbreak.Text
p11time.Text = sum
p11bonus.Text = spbonus.Text
ttotal = (sum - spbreak.Text) * (55 / 60)
p11total.Text = Round2(ttotal + spbonus.Text, 2)
p11l3.Text = p11total.Text


Else If selecteddate = 12 Then
p12l1.Text  = spinh.Text & ":" & spinmin.Text 
p12l2.Text  = spouth.Text & ":" & spoutmin.Text


p12date.Text = Label32.Text
p12in.Text = spinh.Text & ":" & spinmin.Text
p12out.Text = spouth.Text & ":" & spoutmin.Text
p12break.Text = spbreak.Text
p12time.Text = sum
p12bonus.Text = spbonus.Text
ttotal = (sum - spbreak.Text) * (55 / 60)
p12total.Text = Round2(ttotal + spbonus.Text, 2)
p12l3.Text = p12total.Text


Else If selecteddate = 13 Then
p13l1.Text  = spinh.Text & ":" & spinmin.Text 
p13l2.Text  = spouth.Text & ":" & spoutmin.Text


p13date.Text = Label32.Text
p13in.Text = spinh.Text & ":" & spinmin.Text
p13out.Text = spouth.Text & ":" & spoutmin.Text
p13break.Text = spbreak.Text
p13time.Text = sum
p13bonus.Text = spbonus.Text
ttotal = (sum - spbreak.Text) * (55 / 60)
p13total.Text = Round2(ttotal + spbonus.Text, 2)
p13l3.Text = p13total.Text


Else If selecteddate = 14 Then
p14l1.Text  = spinh.Text & ":" & spinmin.Text 
p14l2.Text  = spouth.Text & ":" & spoutmin.Text

p14date.Text = Label32.Text
p14in.Text = spinh.Text & ":" & spinmin.Text
p14out.Text = spouth.Text & ":" & spoutmin.Text
p14break.Text = spbreak.Text
p14time.Text = sum
p14bonus.Text = spbonus.Text
ttotal = (sum - spbreak.Text) * (55 / 60)
p14total.Text = Round2(ttotal + spbonus.Text, 2)
p14l3.Text = p14total.Text

Else If selecteddate = 15 Then
p15l1.Text  = spinh.Text & ":" & spinmin.Text 
p15l2.Text  = spouth.Text & ":" & spoutmin.Text

p15date.Text = Label32.Text
p15in.Text = spinh.Text & ":" & spinmin.Text
p15out.Text = spouth.Text & ":" & spoutmin.Text
p15break.Text = spbreak.Text
p15time.Text = sum
p15bonus.Text = spbonus.Text
ttotal = (sum - spbreak.Text) * (55 / 60)
p15total.Text = Round2(ttotal + spbonus.Text, 2)
p15l3.Text = p15total.Text

Else If selecteddate = 16 Then
p16l1.Text  = spinh.Text & ":" & spinmin.Text 
p16l2.Text  = spouth.Text & ":" & spoutmin.Text


p16date.Text = Label32.Text
p16in.Text = spinh.Text & ":" & spinmin.Text
p16out.Text = spouth.Text & ":" & spoutmin.Text
p16break.Text = spbreak.Text
p16time.Text = sum
p16bonus.Text = spbonus.Text
ttotal = (sum - spbreak.Text) * (55 / 60)
p16total.Text = Round2(ttotal + spbonus.Text, 2)
p16l3.Text = p16total.Text

Else If selecteddate = 17 Then
p17l1.Text  = spinh.Text & ":" & spinmin.Text 
p17l2.Text  = spouth.Text & ":" & spoutmin.Text

p17date.Text = Label32.Text
p17in.Text = spinh.Text & ":" & spinmin.Text
p17out.Text = spouth.Text & ":" & spoutmin.Text
p17break.Text = spbreak.Text
p17time.Text = sum
p17bonus.Text = spbonus.Text
ttotal = (sum - spbreak.Text) * (55 / 60)
p17total.Text = Round2(ttotal + spbonus.Text, 2)
p17l3.Text = p17total.Text


Else If selecteddate = 18 Then
p18l1.Text  = spinh.Text & ":" & spinmin.Text 
p18l2.Text  = spouth.Text & ":" & spoutmin.Text

p18date.Text = Label32.Text
p18in.Text = spinh.Text & ":" & spinmin.Text
p18out.Text = spouth.Text & ":" & spoutmin.Text
p18break.Text = spbreak.Text
p18time.Text = sum
p18bonus.Text = spbonus.Text
ttotal = (sum - spbreak.Text) * (55 / 60)
p18total.Text = Round2(ttotal + spbonus.Text, 2)
p18l3.Text = p18total.Text


Else If selecteddate = 19 Then
p19l1.Text  = spinh.Text & ":" & spinmin.Text 
p19l2.Text  = spouth.Text & ":" & spoutmin.Text

p19date.Text = Label32.Text
p19in.Text = spinh.Text & ":" & spinmin.Text
p19out.Text = spouth.Text & ":" & spoutmin.Text
p19break.Text = spbreak.Text
p19time.Text = sum
p19bonus.Text = spbonus.Text
ttotal = (sum - spbreak.Text) * (55 / 60)
p19total.Text = Round2(ttotal + spbonus.Text, 2)
p19l3.Text = p19total.Text


Else If selecteddate = 20 Then
p20l1.Text  = spinh.Text & ":" & spinmin.Text 
p20l2.Text  = spouth.Text & ":" & spoutmin.Text

p20date.Text = Label32.Text
p20in.Text = spinh.Text & ":" & spinmin.Text
p20out.Text = spouth.Text & ":" & spoutmin.Text
p20break.Text = spbreak.Text
p20time.Text = sum
p20bonus.Text = spbonus.Text
ttotal = (sum - spbreak.Text) * (55 / 60)
p20total.Text = Round2(ttotal + spbonus.Text, 2)
p20l3.Text = p20total.Text

Else If selecteddate = 21 Then
p21l1.Text  = spinh.Text & ":" & spinmin.Text 
p21l2.Text  = spouth.Text & ":" & spoutmin.Text

p21date.Text = Label32.Text
p21in.Text = spinh.Text & ":" & spinmin.Text
p21out.Text = spouth.Text & ":" & spoutmin.Text
p21break.Text = spbreak.Text
p21time.Text = sum
p21bonus.Text = spbonus.Text
ttotal = (sum - spbreak.Text) * (55 / 60)
p21total.Text = Round2(ttotal + spbonus.Text, 2)
p21l3.Text = p21total.Text


Else If selecteddate = 22 Then
p22l1.Text  = spinh.Text & ":" & spinmin.Text 
p22l2.Text  = spouth.Text & ":" & spoutmin.Text

p22date.Text = Label32.Text
p22in.Text = spinh.Text & ":" & spinmin.Text
p22out.Text = spouth.Text & ":" & spoutmin.Text
p22break.Text = spbreak.Text
p22time.Text = sum
p22bonus.Text = spbonus.Text
ttotal = (sum - spbreak.Text) * (55 / 60)
p22total.Text = Round2(ttotal + spbonus.Text, 2)
p22l3.Text = p22total.Text


Else If selecteddate = 23 Then
p23l1.Text  = spinh.Text & ":" & spinmin.Text 
p23l2.Text  = spouth.Text & ":" & spoutmin.Text

p23date.Text = Label32.Text
p23in.Text = spinh.Text & ":" & spinmin.Text
p23out.Text = spouth.Text & ":" & spoutmin.Text
p23break.Text = spbreak.Text
p23time.Text = sum
p23bonus.Text = spbonus.Text
ttotal = (sum - spbreak.Text) * (55 / 60)
p23total.Text = Round2(ttotal + spbonus.Text, 2)
p23l3.Text = p23total.Text


Else If selecteddate = 24 Then
p24l1.Text  = spinh.Text & ":" & spinmin.Text 
p24l2.Text  = spouth.Text & ":" & spoutmin.Text

p24date.Text = Label32.Text
p24in.Text = spinh.Text & ":" & spinmin.Text
p24out.Text = spouth.Text & ":" & spoutmin.Text
p24break.Text = spbreak.Text
p24time.Text = sum
p24bonus.Text = spbonus.Text
ttotal = (sum - spbreak.Text) * (55 / 60)
p24total.Text = Round2(ttotal + spbonus.Text, 2)
p24l3.Text = p24total.Text


Else If selecteddate = 25 Then
p25l1.Text  = spinh.Text & ":" & spinmin.Text 
p25l2.Text  = spouth.Text & ":" & spoutmin.Text

p25date.Text = Label32.Text
p25in.Text = spinh.Text & ":" & spinmin.Text
p25out.Text = spouth.Text & ":" & spoutmin.Text
p25break.Text = spbreak.Text
p25time.Text = sum
p25bonus.Text = spbonus.Text
ttotal = (sum - spbreak.Text) * (55 / 60)
p25total.Text = Round2(ttotal + spbonus.Text, 2)
p25l3.Text = p25total.Text


Else If selecteddate = 26 Then
p26l1.Text  = spinh.Text & ":" & spinmin.Text 
p26l2.Text  = spouth.Text & ":" & spoutmin.Text

p26date.Text = Label32.Text
p26in.Text = spinh.Text & ":" & spinmin.Text
p26out.Text = spouth.Text & ":" & spoutmin.Text
p26break.Text = spbreak.Text
p26time.Text = sum
p26bonus.Text = spbonus.Text
ttotal = (sum - spbreak.Text) * (55 / 60)
p26total.Text = Round2(ttotal + spbonus.Text, 2)
p26l3.Text = p26total.Text


Else If selecteddate = 27 Then
p27l1.Text  = spinh.Text & ":" & spinmin.Text 
p27l2.Text  = spouth.Text & ":" & spoutmin.Text
p27date.Text = Label32.Text
p27in.Text = spinh.Text & ":" & spinmin.Text
p27out.Text = spouth.Text & ":" & spoutmin.Text
p27break.Text = spbreak.Text
p27time.Text = sum
p27bonus.Text = spbonus.Text
ttotal = (sum - spbreak.Text) * (55 / 60)
p27total.Text = Round2(ttotal + spbonus.Text, 2)
p27l3.Text = p27total.Text


Else If selecteddate = 28 Then
p28l1.Text  = spinh.Text & ":" & spinmin.Text 
p28l2.Text  = spouth.Text & ":" & spoutmin.Text

p28date.Text = Label32.Text
p28in.Text = spinh.Text & ":" & spinmin.Text
p28out.Text = spouth.Text & ":" & spoutmin.Text
p28break.Text = spbreak.Text
p28time.Text = sum
p28bonus.Text = spbonus.Text
ttotal = (sum - spbreak.Text) * (55 / 60)
p28total.Text = Round2(ttotal + spbonus.Text, 2)
p28l3.Text = p28total.Text

Else If selecteddate = 29 Then
p29l1.Text  = spinh.Text & ":" & spinmin.Text 
p29l2.Text  = spouth.Text & ":" & spoutmin.Text

p29date.Text = Label32.Text
p29in.Text = spinh.Text & ":" & spinmin.Text
p29out.Text = spouth.Text & ":" & spoutmin.Text
p29break.Text = spbreak.Text
p29time.Text = sum
p29bonus.Text = spbonus.Text
ttotal = (sum - spbreak.Text) * (55 / 60)
p29total.Text = Round2(ttotal + spbonus.Text, 2)
p29l3.Text = p29total.Text

Else If selecteddate = 30 Then
p30l1.Text  = spinh.Text & ":" & spinmin.Text 
p30l2.Text  = spouth.Text & ":" & spoutmin.Text

p30date.Text = Label32.Text
p30in.Text = spinh.Text & ":" & spinmin.Text
p30out.Text = spouth.Text & ":" & spoutmin.Text
p30break.Text = spbreak.Text
p30time.Text = sum
p30bonus.Text = spbonus.Text
ttotal = (sum - spbreak.Text) * (55 / 60)
p30total.Text = Round2(ttotal + spbonus.Text, 2)
p30l3.Text = p30total.Text

Else If selecteddate = 31 Then
p31l1.Text  = spinh.Text & ":" & spinmin.Text 
p31l2.Text  = spouth.Text & ":" & spoutmin.Text

p31date.Text = Label32.Text
p31in.Text = spinh.Text & ":" & spinmin.Text
p31out.Text = spouth.Text & ":" & spoutmin.Text
p31break.Text = spbreak.Text
p31time.Text = sum
p31bonus.Text = spbonus.Text
ttotal = (sum - spbreak.Text) * (55 / 60)
p31total.Text = Round2(ttotal + spbonus.Text, 2)
p31l3.Text = p31total.Text


End If


moneytotal.Text = Round2(p1l3.Text +  p2l3.Text + p3l3.Text + p4l3.Text + p5l3.Text +  p6l3.Text + p7l3.Text + p8l3.Text +  p9l3.Text + p10l3.Text + p11l3.Text + p12l3.Text +  p13l3.Text + p14l3.Text + p15l3.Text +  p16l3.Text + p17l3.Text + p18l3.Text + p19l3.Text +  p20l3.Text + p21l3.Text + p22l3.Text +  p23l3.Text + p24l3.Text + p25l3.Text + p26l3.Text +  p27l3.Text + p28l3.Text + p29l3.Text +  p30l3.Text + p31l3.Text,2) 

Catch

Log("")

End Try

thanx

 

[Erel]

You can make your code much simpler. See this tutorial: Tick-Tack-Toe: working with arrays of views

 

[ilan]

thanx erel

but what i understand from your code is that only when i press a button its dosenot matter what butten it is it will do the process i put in the code but only for it self

what i am looking for is for example i have 5 different controls like

button, imageview, label, editbox, progressbar

and from evreyone 30 time

30 labels, 30 buttons, etc...

now i want all controls that ends with the same number to be changed by pressing on one button like

label1.text = "bla"
button1.text = "bla"
edittext1.text = "bla"
etc....

is this possible??

 

[Erel]

is this possible??

More or less yes. You should group all the views that you want to group in a List, Map or Array and then you will be able to access them dynamically.

For example:

Sub Globals
   Dim Button1 As Button
   Dim Button2 As Button
   Dim Button3 As Button
   Dim EditText1 As EditText
   Dim EditText2 As EditText
   Dim EditText3 As EditText
   Private ViewsMap As Map
End Sub

Sub Activity_Create(FirstTime As Boolean)
   Activity.LoadLayout("1")
   ViewsMap.Initialize
   ViewsMap.Put("1", Array As Label(Button1, EditText1))
   ViewsMap.Put("2", Array As Label(Button2, EditText2))
   ViewsMap.Put("3", Array As Label(Button3, EditText3))
   
   SetViewsText("2", "We belong to group #2!")
End Sub

Sub SetViewsText(Group As String, Text As String)
   Dim views() As Label = ViewsMap.Get(Group)
   For Each v As Label In views
      v.Text = Text
   Next
End Sub

Note that we use the Label type. Buttons, EditText, ToggleButton and the other similar views can be treated as labels.

 

[ilan]

thank you erel for your help

your answer helped me a lot

it does not really solved my problem but its very helpful for my future of developing

i solved my problem in another way

maybe not very beautiful but my code is much shorter now and i dont have to change always 341 views if i find any bugs

now i have to change only 11 ))

this is how i did it

Sub Process_Globals

End Sub

Sub Globals

   Dim lb1, lb2, lb3, lb4, lb5, lb6, lb7, lb8, lb9, lb10, lb11 As Label 
   Dim pp As Panel 
   
End Sub


Sub Activity_Create(FirstTime As Boolean)

   Activity.LoadLayout("menu")

End Sub


Sub selecteddatesub

Select True

   Case selecteddate = 1
   lb1 = p1l1
   lb2 = p1l2
   lb3 = p1l3
   lb4 = p1date
   lb5 = p1shift
   lb6 = p1in
   lb7 = p1out
   lb8 = p1break
   lb9 = p1time
   lb10 = p1bonus
   lb11 = p1total
   pp = p1
   
   
   Case selecteddate = 2
   lb1 = p2l1
   lb2 = p2l2
   lb3 = p2l3
   lb4 = p2date
   lb5 = p2shift
   lb6 = p2in
   lb7 = p2out
   lb8 = p2break
   lb9 = p2time
   lb10 = p2bonus
   lb11 = p2total
   pp = p2
   
   Case selecteddate = 3
   
   lb1 = p3l1
   lb2 = p3l2
   lb3 = p3l3
   lb4 = p3date
   lb5 = p3shift
   lb6 = p3in
   lb7 = p3out
   lb8 = p3break
   lb9 = p3time
   lb10 = p3bonus
   lb11 = p3total
   pp = p3
   

 Case selecteddate = 4

lb1 = p4l1
lb2 = p4l2
lb3 = p4l3
lb4 = p4date
lb5 = p4shift
lb6 = p4in
lb7 = p4out
lb8 = p4break
lb9 = p4time
lb10 = p4bonus
lb11 = p4total
pp = p4

 Case selecteddate = 5

lb1 = p5l1
lb2 = p5l2
lb3 = p5l3
lb4 = p5date
lb5 = p5shift
lb6 = p5in
lb7 = p5out
lb8 = p5break
lb9 = p5time
lb10 = p5bonus
lb11 = p5total
pp = p5

 Case selecteddate = 6

lb1 = p6l1
lb2 = p6l2
lb3 = p6l3
lb4 = p6date
lb5 = p6shift
lb6 = p6in
lb7 = p6out
lb8 = p6break
lb9 = p6time
lb10 = p6bonus
lb11 = p6total
pp = p6

 Case selecteddate = 7

lb1 = p7l1
lb2 = p7l2
lb3 = p7l3
lb4 = p7date
lb5 = p7shift
lb6 = p7in
lb7 = p7out
lb8 = p7break
lb9 = p7time
lb10 = p7bonus
lb11 = p7total
pp = p7

 Case selecteddate = 8

lb1 = p8l1
lb2 = p8l2
lb3 = p8l3
lb4 = p8date
lb5 = p8shift
lb6 = p8in
lb7 = p8out
lb8 = p8break
lb9 = p8time
lb10 = p8bonus
lb11 = p8total
pp = p8

 Case selecteddate = 9

lb1 = p9l1
lb2 = p9l2
lb3 = p9l3
lb4 = p9date
lb5 = p9shift
lb6 = p9in
lb7 = p9out
lb8 = p9break
lb9 = p9time
lb10 = p9bonus
lb11 = p9total
pp = p9

 Case selecteddate = 10

lb1 = p10l1
lb2 = p10l2
lb3 = p10l3
lb4 = p10date
lb5 = p10shift
lb6 = p10in
lb7 = p10out
lb8 = p10break
lb9 = p10time
lb10 = p10bonus
lb11 = p10total
pp = p10

 Case selecteddate = 11

lb1 = p11l1
lb2 = p11l2
lb3 = p11l3
lb4 = p11date
lb5 = p11shift
lb6 = p11in
lb7 = p11out
lb8 = p11break
lb9 = p11time
lb10 = p11bonus
lb11 = p11total
pp = p11

 Case selecteddate = 12

lb1 = p12l1
lb2 = p12l2
lb3 = p12l3
lb4 = p12date
lb5 = p12shift
lb6 = p12in
lb7 = p12out
lb8 = p12break
lb9 = p12time
lb10 = p12bonus
lb11 = p12total
pp = p12

 Case selecteddate = 13

lb1 = p13l1
lb2 = p13l2
lb3 = p13l3
lb4 = p13date
lb5 = p13shift
lb6 = p13in
lb7 = p13out
lb8 = p13break
lb9 = p13time
lb10 = p13bonus
lb11 = p13total
pp = p13

 Case selecteddate = 14

lb1 = p14l1
lb2 = p14l2
lb3 = p14l3
lb4 = p14date
lb5 = p14shift
lb6 = p14in
lb7 = p14out
lb8 = p14break
lb9 = p14time
lb10 = p14bonus
lb11 = p14total
pp = p14

 Case selecteddate = 15

lb1 = p15l1
lb2 = p15l2
lb3 = p15l3
lb4 = p15date
lb5 = p15shift
lb6 = p15in
lb7 = p15out
lb8 = p15break
lb9 = p15time
lb10 = p15bonus
lb11 = p15total
pp = p15

 Case selecteddate = 16

lb1 = p16l1
lb2 = p16l2
lb3 = p16l3
lb4 = p16date
lb5 = p16shift
lb6 = p16in
lb7 = p16out
lb8 = p16break
lb9 = p16time
lb10 = p16bonus
lb11 = p16total
pp = p16

 Case selecteddate = 17

lb1 = p17l1
lb2 = p17l2
lb3 = p17l3
lb4 = p17date
lb5 = p17shift
lb6 = p17in
lb7 = p17out
lb8 = p17break
lb9 = p17time
lb10 = p17bonus
lb11 = p17total
pp = p17

 Case selecteddate = 18

lb1 = p18l1
lb2 = p18l2
lb3 = p18l3
lb4 = p18date
lb5 = p18shift
lb6 = p18in
lb7 = p18out
lb8 = p18break
lb9 = p18time
lb10 = p18bonus
lb11 = p18total
pp = p18

 Case selecteddate = 19

lb1 = p19l1
lb2 = p19l2
lb3 = p19l3
lb4 = p19date
lb5 = p19shift
lb6 = p19in
lb7 = p19out
lb8 = p19break
lb9 = p19time
lb10 = p19bonus
lb11 = p19total
pp = p19

 Case selecteddate = 20

lb1 = p20l1
lb2 = p20l2
lb3 = p20l3
lb4 = p20date
lb5 = p20shift
lb6 = p20in
lb7 = p20out
lb8 = p20break
lb9 = p20time
lb10 = p20bonus
lb11 = p20total
pp = p20

 Case selecteddate = 21

lb1 = p21l1
lb2 = p21l2
lb3 = p21l3
lb4 = p21date
lb5 = p21shift
lb6 = p21in
lb7 = p21out
lb8 = p21break
lb9 = p21time
lb10 = p21bonus
lb11 = p21total
pp = p21

 Case selecteddate = 22

lb1 = p22l1
lb2 = p22l2
lb3 = p22l3
lb4 = p22date
lb5 = p22shift
lb6 = p22in
lb7 = p22out
lb8 = p22break
lb9 = p22time
lb10 = p22bonus
lb11 = p22total
pp = p22

 Case selecteddate = 23

lb1 = p23l1
lb2 = p23l2
lb3 = p23l3
lb4 = p23date
lb5 = p23shift
lb6 = p23in
lb7 = p23out
lb8 = p23break
lb9 = p23time
lb10 = p23bonus
lb11 = p23total
pp = p23

 Case selecteddate = 24

lb1 = p24l1
lb2 = p24l2
lb3 = p24l3
lb4 = p24date
lb5 = p24shift
lb6 = p24in
lb7 = p24out
lb8 = p24break
lb9 = p24time
lb10 = p24bonus
lb11 = p24total
pp = p24

 Case selecteddate = 25

lb1 = p25l1
lb2 = p25l2
lb3 = p25l3
lb4 = p25date
lb5 = p25shift
lb6 = p25in
lb7 = p25out
lb8 = p25break
lb9 = p25time
lb10 = p25bonus
lb11 = p25total
pp = p25

 Case selecteddate = 26

lb1 = p26l1
lb2 = p26l2
lb3 = p26l3
lb4 = p26date
lb5 = p26shift
lb6 = p26in
lb7 = p26out
lb8 = p26break
lb9 = p26time
lb10 = p26bonus
lb11 = p26total
pp = p26

 Case selecteddate = 27

lb1 = p27l1
lb2 = p27l2
lb3 = p27l3
lb4 = p27date
lb5 = p27shift
lb6 = p27in
lb7 = p27out
lb8 = p27break
lb9 = p27time
lb10 = p27bonus
lb11 = p27total
pp = p27

 Case selecteddate = 28

lb1 = p28l1
lb2 = p28l2
lb3 = p28l3
lb4 = p28date
lb5 = p28shift
lb6 = p28in
lb7 = p28out
lb8 = p28break
lb9 = p28time
lb10 = p28bonus
lb11 = p28total
pp = p28

 Case selecteddate = 29

lb1 = p29l1
lb2 = p29l2
lb3 = p29l3
lb4 = p29date
lb5 = p29shift
lb6 = p29in
lb7 = p29out
lb8 = p29break
lb9 = p29time
lb10 = p29bonus
lb11 = p29total
pp = p29

 Case selecteddate = 30

lb1 = p30l1
lb2 = p30l2
lb3 = p30l3
lb4 = p30date
lb5 = p30shift
lb6 = p30in
lb7 = p30out
lb8 = p30break
lb9 = p30time
lb10 = p30bonus
lb11 = p30total
pp = p30

 Case selecteddate = 31

lb1 = p31l1
lb2 = p31l2
lb3 = p31l3
lb4 = p31date
lb5 = p31shift
lb6 = p31in
lb7 = p31out
lb8 = p31break
lb9 = p31time
lb10 = p31bonus
lb11 = p31total
pp = p31

End Select

End Sub




Sub Button1_Click

DateTime.DateFormat =  "dd/MM/yyyy"

Dim ttotal As Double 
Dim checko As Boolean 
Dim panelrot As Boolean 
Dim cashhour As Double

panelrot = False
checko = False
ttotal = 0

cashhour = 55

If spbonus.Text = "_" Then
Msgbox("נא להשלים עדכון בונוס","שגיאה")
Else If spbreak.Text = "_" Then
Msgbox("נא להשלים עדכון הפסקה","שגיאה")
Else


'*************** START **********

selecteddatesub  'sets which views to change !!!!


    If spouth.Text = "00" AND spoutmin.Text = "00" Then
     pp.Color = Colors.Red
     SetAlpha(pp, 50)
    lb1.Text  = spinh.Text & ":" & spinmin.Text 'in
    lb4.Text = Label32.Text 'datum
    lb6.Text = spinh.Text & ":" & spinmin.Text 'in
    lb8.Text = spbreak.Text 
     lb10.Text = spbonus.Text 
    pshift1.Visible = False
     pshift1.Enabled = False
     key.Visible = False
     Panel4.Visible = False
     Panel6.Visible = False
     Panel7.Visible = False
     Panel8.Visible = False
     Panel5.Top = oldpanel5top 
     Else
     pp.Color = Colors.Transparent 
     SetAlpha(pp, 0)
     If spouth.Text  < spinh.Text OR spouth.Text  = spinh.Text AND spoutmin.Text < spinmin.Text   Then
    DateBetweenTwoDates(DateTime.Date (DateTime.Now),spouth.Text & ":" & spoutmin.Text & ":00",DateTime.Date (DateTime.Now), spinh.Text & ":" & spinmin.Text & ":00")
     sum = (24 * 60) - sum
    ttotal = (sum - spbreak.Text) * (cashhour / 60)
        checko = True
         lb2.Text  = spouth.Text & ":" & spoutmin.Text
         lb1 .Text  = spinh.Text & ":" & spinmin.Text 'in
        lb4.Text = Label32.Text 'datum
        lb6.Text = spinh.Text & ":" & spinmin.Text 'in
        lb8.Text = spbreak.Text 
         lb10.Text = spbonus.Text 
         'p1shift.Text = spshift.Text
         lb10.Text = spouth.Text & ":" & spoutmin.Text
         lb8.Text = spbreak.Text 
         lb9.Text = sum
         lb10.Text = spbonus.Text 
         lb11.Text = Round2(ttotal + spbonus.Text, 2)
         lb3.Text = lb11.Text

    Else
    
     DateBetweenTwoDates(DateTime.Date (DateTime.Now),spinh.Text & ":" & spinmin.Text & ":00",DateTime.Date (DateTime.Now), spouth.Text & ":" & spoutmin.Text & ":00")

     SetAlpha(p1, 0)
     p1red = 0
     ttotal = (sum - spbreak.Text) * (cashhour / 60)

         checko = True
         lb2.Text  = spouth.Text & ":" & spoutmin.Text
         lb1.Text  = spinh.Text & ":" & spinmin.Text 'in
        lb4.Text = Label32.Text 'datum
        lb4.Text = spinh.Text & ":" & spinmin.Text 'in
        lb8.Text = spbreak.Text 
         lb10.Text = spbonus.Text 
         'p1shift.Text = spshift.Text
         lb10.Text = spouth.Text & ":" & spoutmin.Text
         lb9.Text = sum
         lb10.Text = spbonus.Text 
         lb11.Text = Round2(ttotal + spbonus.Text, 2)
         lb3.Text = lb11.Text
      End If
    
    End If
   
   
moneytotal.Text = Round2(p1l3.Text +  p2l3.Text + p3l3.Text + p4l3.Text + p5l3.Text +  p6l3.Text + p7l3.Text + p8l3.Text +  p9l3.Text + p10l3.Text + p11l3.Text + p12l3.Text +  p13l3.Text + p14l3.Text + p15l3.Text +  p16l3.Text + p17l3.Text + p18l3.Text + p19l3.Text +  p20l3.Text + p21l3.Text + p22l3.Text +  p23l3.Text + p24l3.Text + p25l3.Text + p26l3.Text +  p27l3.Text + p28l3.Text + p29l3.Text +  p30l3.Text + p31l3.Text,2)
moneytotal.Text = moneytotal.Text  & " ש" & """" & "ח"
savedata = False

pshift1.Visible = False
pshift1.Enabled = False
key.Visible = False
Panel4.Visible = False
Panel6.Visible = False
Panel7.Visible = False
Panel8.Visible = False
Panel5.Top = oldpanel5top   

End If

'**************END**************

End Sub

thanks again erel and derez

B4A is great !!!


PS: can you please tell me whats the latest version of b4a?? i have 2.50 is this the lates?

 

[Erel]

i have 2.50 is this the lates?

V2.52 is the latest version. You can use the same link as v2.50 to download it. If you don't have it then please contact support@basic4ppc.com.