Hallo Ortrun,
ich hab's mal auf die Schnelle konvertiert. Der nachfolgende Code
mag noch beliebige Fehler enthalten, weil ich ihn nicht habe laufen
lassen. Jedoch zeigt er Dir IMO ganz gut, dass die Unterschiede
zwischen HB und B4A nicht besonders groß sind.
Die Positionierung der Controls habe ich hier manuell vorgenommen.
Kann sein, dass Du manche Elemente nicht sehen kannst, weil Dein
Device nicht die benötigte Auflösung hat. Du kannst allerdings auch
den Designer dafür nehmen.
Code:
'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 o As Int
Dim Konstante As Int
Dim checkbox1 As CheckBox
Dim checkbox2 As CheckBox
Dim checkbox3 As CheckBox
Dim checkbox4 As CheckBox
Dim checkbox5 As CheckBox
Dim checkbox6 As CheckBox
Dim checkbox7 As CheckBox
Dim checkbox8 As CheckBox
Dim T1 As Timer
Dim T2 As Timer
Dim T3 As Timer
Dim b As Beeper
Dim Field1 As Label
Dim btnBeginn As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
checkbox1.Initialize("checkbox1")
checkbox2.Initialize("checkbox2")
checkbox3.Initialize("checkbox3")
checkbox4.Initialize("checkbox4")
checkbox5.Initialize("checkbox5")
checkbox6.Initialize("checkbox6")
checkbox7.Initialize("checkbox7")
checkbox8.Initialize("checkbox8")
Dim CheckBoxHeight As Int
Dim CheckBoxWidth As Int
CheckBoxWidth = 200dip
CheckBoxHeight = 40dip
Activity.AddView(checkbox1, 0, 0 , CheckBoxWidth, CheckBoxHeight)
Activity.AddView(checkbox2, 0, 80dip, CheckBoxWidth, CheckBoxHeight)
Activity.AddView(checkbox3, 0, 120dip, CheckBoxWidth, CheckBoxHeight)
Activity.AddView(checkbox4, 0, 160dip, CheckBoxWidth, CheckBoxHeight)
Activity.AddView(checkbox5, 0, 200dip, CheckBoxWidth, CheckBoxHeight)
Activity.AddView(checkbox6, 0, 240dip, CheckBoxWidth, CheckBoxHeight)
Activity.AddView(checkbox7, 0, 280dip, CheckBoxWidth, CheckBoxHeight)
Activity.AddView(checkbox8, 0, 320dip, CheckBoxWidth, CheckBoxHeight)
checkbox1.Text="30"
checkbox2.Text="5"
checkbox3.Text="30"
checkbox4.Text="5"
checkbox5.Text="30"
checkbox6.Text="5"
checkbox7.Text="30"
checkbox8.Text="2h"
T1.Initialize("T1", 1000)
T2.Initialize("T2", 1000)
T3.Initialize("T3", 1000)
b.Initialize(300, 500)
Field1.Initialize("Field1")
Activity.AddView(Field1, 0, 360dip, 200dip, 40dip)
btnBeginn.Initialize("btnBeginn")
btnBeginn.Text = "Beginn"
Activity.AddView(btnBeginn, 0, 400dip, 200dip, 40dip)
If FirstTime Then
o = 1
T1.Enabled = False
T2.Enabled = False
End If
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub T1_Tick
Konstante = 60000
Select Case o
Case 1
Neu
'msgbox "Pause 600"
checkbox1.Text = "30 <-"
T1.Enabled=False
T2.Enabled=False
T1.Interval=30*Konstante
T2.Interval = T1.Interval/60
T1.Enabled=True
T2.Enabled=True
o = 2
Case 2
b.Beep
checkbox1.Text = "30"
checkbox2.Text = "5 <-"
Field1.Text = ""
checkbox1.Checked=True
'msgbox "Drin"
'AnAus
T1.Enabled=False
T2.Enabled=False
T1.Interval=5*Konstante
T2.Interval = T1.Interval/60
T1.Enabled=True
T2.Enabled=True
o = 3
Case 3
b.Beep
checkbox2.Text = "5"
checkbox3.Text = "30 <-"
Field1.Text = ""
checkbox2.Checked=True
'picture2.Visible = True
'msgbox "Pause 600"
T1.Enabled=False
T2.Enabled=False
T1.Interval=30*Konstante
T2.Interval = T1.Interval/60
T1.Enabled=True
T2.Enabled=True
o = 4
Case 4
b.Beep
checkbox4.Text = "5 <-"
checkbox3.Text = "30"
Field1.Text = ""
checkbox3.Checked=True
'msgbox "Pause 100"
T1.Enabled=False
T2.Enabled=False
T1.Interval=5*Konstante
T2.Interval = T1.Interval/60
T1.Enabled=True
T2.Enabled=True
o = 5
Case 5
b.Beep
checkbox4.Text = "5"
checkbox5.Text = "30 <-"
Field1.Text = ""
checkbox4.Checked=True
'picture2.Visible = False
'picture3.Visible = True
'msgbox "Pause 600"
'AnAus
T1.Enabled=False
T2.Enabled=False
T1.Interval=30*Konstante
T2.Interval = T1.Interval/60
T1.Enabled=True
T2.Enabled=True
o = 6
Case 6
b.Beep
checkbox6.Text = "5 <-"
checkbox5.Text = "30"
Field1.Text = ""
checkbox5.Checked=True
'msgbox "Pause 100"
T1.Enabled=False
T2.Enabled=False
T1.Interval=5*Konstante
T2.Interval = T1.Interval/60
T1.Enabled=True
T2.Enabled=True
o = 7
Case 7
b.Beep
checkbox6.Text = "5"
checkbox7.Text = "30 <-"
Field1.Text = ""
checkbox6.Checked=True
'picture3.Visible = False
'picture4.Visible = True
'msgbox "Pause 600"
T1.Enabled=False
T2.Enabled=False
T1.Interval=30*Konstante
T2.Interval = T1.Interval/60
T1.Enabled=True
T2.Enabled=True
o = 8
Case 8
b.Beep
checkbox8.Text = "2h <-"
checkbox7.Text = "30"
Field1.Text = ""
checkbox7.Checked=True
b.Beep
'msgbox "Pause 600"
T1.Enabled=False
T2.Enabled=False
T1.Interval=120*Konstante
T2.Interval = T1.Interval/60
T1.Enabled=True
T2.Enabled=True
o = 9
Case 9
b.Beep
checkbox8.Text = "2h"
Field1.Text = ""
checkbox8.Checked=True
o = 1
'msgbox "Warten auf Neu"
AnAus
T1.Interval = 1
't2.Interval = t.Interval/60
T2.Enabled=False
btnBeginn.Text = "Beginn"
T1.Enabled = False
Neu
End Select
End Sub
Sub T2_Tick
Field1.Text = Field1.Text & "."
End Sub
Sub T3_Tick
' ResetAutoOffTimer ??
End Sub
Sub AnAus
T1.Enabled=False
T2.Enabled=False
T1.Enabled=True
T2.Enabled=True
End Sub
Sub Neu
Field1.Text=""
checkbox1.Checked=False
checkbox2.Checked=False
checkbox3.Checked=False
checkbox4.Checked=False
checkbox5.Checked=False
checkbox6.Checked=False
checkbox7.Checked=False
checkbox8.Checked=False
checkbox1.Text="30"
checkbox2.Text="5"
checkbox3.Text="30"
checkbox4.Text="5"
checkbox5.Text="30"
checkbox6.Text="5"
checkbox7.Text="30"
checkbox8.Text="2h"
'picture2.Visible=False
'picture3.Visible=False
'picture4.Visible=False
End Sub
Sub btnNeustart_Click()
If Msgbox2("Sicher?", "", "Ja", "", "Nein", Null) = DialogResponse.POSITIVE Then
T1.Enabled = False
T2.Enabled = False
o = 1
btnBeginn.Text = "Beginn"
Neu
T1.Interval = 5
End If
End Sub
Sub btnBeginn_Click
If btnBeginn.Text = "Beginn" Then
T3.Interval=1000
T3.Enabled=True
T2.Enabled=True
btnBeginn.Text = "Pause"
T1.Enabled = True
Else
T3.Enabled=False
T2.Enabled=False
Field1.Text=""
btnBeginn.Text = "Beginn"
T1.Enabled = False
End If
End Sub
Grüße ... Kiffi
Wie konvertiere ich einen HB++ Quelltext in ein B4A - Programm?
Linear Mode
