Commandbutton doppelt belegen

Computer: Software & Programmierung Visual Basic
#1

Hallo!

Wie schafft man es das man mit einem commandbutton ein und ausschalten kann (in der Elektrotechnik Stromstoßrelais).

Ich habe bereits versucht sowas zu programmieren aber es klappt leider nicht.
Mein misslungener versuch:

Private Sub btn_setzenruecksetzen_Click()
If btn_setzenruecksetzen.Value = True Then
ClearDigitalChannel (1)
btn_setzenruecksetzen.Caption = „setzen“
btn_setzenruecksetzen.Value = False
Else
SetDigitalChannel (1)
btn_setzenruecksetzen.Caption = „rücksetzen“
btn_setzenruecksetzen.Value = True
End If
End Sub

Hier will ich die Diode (Digital Ausgang 1) am Vellerman Experimentierboard ein und ausschalten mit nur einem Button.

Danke für eure Hilfe im voraus!!!

M.f.G.

Bernd

#2

Hallo Bernd,

so rein aus dem Gedaechtnis heraus, kannst du nicht einen Button als Gedrueckt simulieren. Sowas muesstest du schon selber programmieren. Sprich ein eigenes OCX basteln :smile:
Ich habe dazu hier mal ein Demo gepostet, was wohl auch in der FAQ ist :smile:

Willst du das net, so kannst du aber die Beschriftung aendern und ggfls. die Farbe oder das Bild je nachdem ob gedrueckt ist oder nicht!
Wenn dir das reicht, so koenntest du das wiefolgt realisieren :smile:

ich hoffe wir reden von VB 6 ?

Private Sub Form\_Load()
btn\_setzenruecksetzen.Caption ="&Setzen"
End Sub

Private Sub btn\_setzenruecksetzen\_Click()
If lcase(btn\_setzenruecksetzen.Caption)="setzen" then
'es wird gesetzt
btn\_setzenruecksetzen.Caption="&Ruecksetzen"
SetDigitalChannel (1)
Else
'es wird rueckgesetzt
ClearDigitalChannel (1)
btn\_setzenruecksetzen.Caption="&Setzen"
End If
End Sub

Ist aus dem Stehgreif getippselt, aber sollte functieren :smile:

MfG Alex

#3

Hallo, Bernd!

Wie schafft man es das man mit einem commandbutton ein und
ausschalten kann (in der Elektrotechnik Stromstoßrelais).

Falsches Objekt: Du brauchst keinen CommandButton, sondern einen OptionButton. Das ist im Normalfall der Kuller, den man anklicken kann. Das gibt’s aber auch als schaltflächenähnliches Teil, welches automatisch grafisch den Unterschied zwischen gedrückt und nicht gedrückt darstellt. Dann ggf. noch eine Änderung der Caption dazu, und Du solltest alles haben was Du brauchst.

Gruß, Manfred

#4

Ich weiß nicht ob das bei VB 6 auch so ist, aber bei VB .NET kannst du eine CheckBox verwenden, musst nur noch die Appearance-Einstellung auf Button ändern.

Musst du mal gucken.

#5

Hallo,

das habe ich mir in VB6 mal angesehen, Du hast Recht! Das geht!

In VB6 ist das nur die Eigenschaft ‚Style‘, die auf ‚grafisch‘ (1) umgestellt werden muss.

Gruß, Rainer

#6

Wie schafft man es das man mit einem commandbutton ein und
ausschalten kann (in der Elektrotechnik Stromstoßrelais).
Hier will ich die Diode (Digital Ausgang 1) am Vellerman
Experimentierboard ein und ausschalten mit nur einem Button.

Hi Bernd,
probier das mal, getestet mit Excel-Vba:

Option Explicit
'
Private Sub CommandButton1\_Click()
Static Setzen As Boolean
If Setzen = False Then
 MsgBox "ClearDigitalChannel (1)"
 CommandButton1.Caption = "setzen"
Else
 MsgBox "SetDigitalChannel (1)"
 CommandButton1.Caption = "rücksetzen"
End If
Setzen = Not Setzen
End Sub

Gruß
Reinhard