German Fragen zu Timer und Button

M

mrexodia

Member

• Oct 3, 2012

• #1

Ich hab ein paar Fragen und zwar will ich das wenn ein Button gedrückt wird (man muss auf dem Button drauf bleiben) alle 0,5 Sekunden etwas passiert (immer das gleiche)

Und ich will das auf dem Button ein Bild dargestellt wird.

Ich hoffe ihr könnt mir helfen!

mfg mrexodia

 

klaus

Expert

Licensed User

Longtime User

• Oct 3, 2012

• #2

Ich habe so was noch nie ausprobiert.
Aber es sollte so funktionieren:
- mit Button_Down einen Timer laufen lassen Timer1.Enabled = True
- in der gleichen Routine das Buttonbild ändern
- in der Timer-Tick Routine Deine Aufgabe durchführen
- in der Button_Up Routine den Timer anhalten und das Bild zurücksetzen.

Beste Grüsse.

 

M

mrexodia

Member

• Oct 4, 2012

• #3

Ne so hab ich das nich gemeint!

Sondern so:

-Das Bild ist immer auf dem Button

-Wenn man den Button gedrückt hält soll alle 0.5s etwas passieren

 

klaus

Expert

Licensed User

Longtime User

• Oct 4, 2012

• #4

Gleich wie schon beschrieben:
- mit Button_Down einen Timer laufen lassen Timer1.Enabled = True
- in der Timer-Tick Routine Deine Aufgabe durchführen
- in der Button_Up Routine den Timer anhalten.

Das Bild kann man im Designer dem Button hinzufügen.

Beste Grüsse.

 

M

mrexodia

Member

• Oct 4, 2012

• #5

Das Bild kann man im Designer dem Button hinzufügen.

Beste Grüsse.[/QUOTE]

Bin ich blind?


Ich sehe da keine Einstellung für ein Bild (Ich hab es in der liste nebendran stehen)

 

klaus

Expert

Licensed User

Longtime User

• Oct 4, 2012

• #6

In
Drawable StatelistDrawable wählen
Enable Drawable BitmapDrawable wählen
Image file dein Bild wählen.

Pressed Drawable BitmapDrawable wählen
Image file dein Bild wählen.

Falls Du ein Bild für Disabled Drawable hast kannst Du das gleich wie oben einfügen.

Beste Grüsse.

 

M

mrexodia

Member

• Oct 4, 2012

• #7

Danke funktioniert!

EDIT: Funktioniert doch nicht

mein Code sieht so aus:

Sub button_down

timer.Enabled = True
Sub timer_tick

hier die befehle

End Sub
End Sub

und bei Process_globals hab ich das so eingetragen:

Dim timer As Timer
timer.Intialize(500)

 

Last edited: Oct 4, 2012

klaus

Expert

Licensed User

Longtime User

• Oct 4, 2012

• #8

So muss es sein :

B4X:

Sub button_Down
   timer.Enabled = True
End Sub

Sub timer_tick
   ' hier die befehle
End Sub

Sub button_Up
   timer.Enabled = False
End Sub

Beste Grüsse.

 

M

mrexodia

Member

• Oct 4, 2012

• #9

Danke! Jetz Funktioniert es wirklich !
:sign0098:

 

M

mrexodia

Member

• Oct 4, 2012

• #10

Ok jetz noch etwas:

Ich will das ein Element immer am rechten Rand platziert wird egal wie groß der Bildschirm ist.

Kann man da irgendwie die Bildschirm größe Auslesen und das Element automatisch dort platzieren?

 

klaus

Expert

Licensed User

Longtime User

• Oct 4, 2012

• #11

Klar !
100%x und 100%y oder Activity.Width und Activity.Height geben die zur Verfügung stehenden Bildschirmgrösse in Pixels zurück..

Alle Views haben eine Left und Top Eigenschaft die erlaubt diese am Bildschirm zu verschieben.
Wenn eine View als Elternview ein Panel hat sind die Left und Top Eigenschaften der View auf der Elternview basiert.

Hast Du schon mal in den Beginner's Guide reingeschaut ?

Beste Grüsse.