Hallo,
ich hab ein Problem bei der Steuerung von LED's mit VB:

Ich möchte, dass 8 LED's auf einem Interface (->LPT) die Zahlen 1-255 darstellen. (00000001, 00000010, 00000011..usw)
Zwar weiß ich, wie es mit einzelnen Befehlen möglich ist, aber da muss es doch auch noch eine andere Arte geben, VB selber zählen zu lassen. (mit Sub-Programmen?)

Danke!

Du musst dir erstmal die Datei inpout32.dll runterladen und sie in dein System-Ordner packen (%WinDir%System).

Dann schreibst du die Deklaration in deinen Globalen Teil und packst einen Timer auf dein Formular.

Den nennst du tmrTimer

Dann schreibst du folgenden Code:

Code :

Private Sub tmrTimer_Timer() Const port_adress = 888 Static Value As Byte If Value = 255 Then Value = 0 'Overflow vermeiden Value = Value + 1 out port_adress, Value End Sub

port_adress ist die Portadresse, normalerweise 888.

_________________


[ Diese Nachricht wurde geändert von: DonComi am 15 Nov 2004 20:58 ]