vb@rchiv · Diskussionsforen · LPT1 Num_Tasten

VB Classic
VB.NET
ADO.NET
VBA
C#

sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!

HOME WORKSHOPS TIPPS & TRICKS BEFEHLSREFERENZ API-REFERENZ FAQ

··· FORUM

Forenübersicht Suchen Forumsregeln

Allgemeine Foren

Allgemeine Fragen Fragen zur vb@rchiv CD Tipps & Workshops Suche VB Code

VB.NET, C#

Ein-/Umsteiger Fortgeschrittene ADO.NET/Datenbanken ASP.NET/WebServices C# Ecke

VB Classic 5/6, VBA

Einsteiger Fortgeschrittene ActiveX Datenbanken Windows API VB Skript (VBS)

Sonderforen

sev-Komponenten Jobs Suche/Gesuche Projekte & Betatester

DOWNLOAD TOOLBESPRECHUNG BÜCHERECKE MARKETPLACE GRAFIK & DESIGN VB-SEITEN

[612 User online]
[584 im Forum]

Partnerseiten
Top 5 Partnerlinks

Weitere...

Entwickler / Welt

··· Diskussionsforen · Visual-Basic Einsteiger

Sie sind aktuell nicht angemeldet. Funktionen: Einloggen | Neu registrieren | Suchen

Visual-Basic Einsteiger

LPT1 Num_Tasten

Autor: Lars
Datum: 23.10.01 17:09

Hallo, benutze das Num -Tastenfeld, und wenn ich eine Taste Drücke, soll ein Binärwert für den LPT1 zum ansteuern von Lampen ausgegeben werden. Klappt auch soweit, nur wenn ich eine Taste länger drücke addiert sich der binärwert. d.h. es ist so alls wenn ich die Taste mehrmals drücke ohne einmal loszulassen. Mit welchem Befehl kann ich es machen dass das Sub nur 1mal ausgeführt wird egal wie lange ich die Taste drücke. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyNumpad0 wert.Text = 255: Out 888, 255 Case vbKeyNumpad1 wert.Text = wert.Text + 1: Out 888, wert.Text Case vbKeyNumpad2 wert.Text = wert.Text + 2: Out 888, wert.Text Case vbKeyNumpad3 wert.Text = wert.Text + 4: Out 888, wert.Text Case vbKeyNumpad4 End Select End Sub Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyNumpad0 wert.Text = 0: Out 888, 0 Case vbKeyNumpad1 wert.Text = wert.Text - 1: Out 888, wert.Text Case vbKeyNumpad2 wert.Text = wert.Text - 2: Out 888, wert.Text Case vbKeyNumpad3 wert.Text = wert.Text - 4: Out 888, wert.Text End Select End Sub beim drücken wird der wert.text addiert und dann wieder beim loslassen abgezogen. Nur mit dem lange draufdrücken klappts net. MfG Lars

alle Nachrichten anzeigen

Gesamtübersicht | Zum Thema | Suchen

Thema

Views

Autor

Datum

LPT1 Num_Tasten	63	Lars	23.10.01 17:09
Vielleicht so...	264	Dieter	24.10.01 00:43

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen | Neu registrieren

Funktionen: Zum Thema | Gesamtübersicht Suchen

sevISDN 1.0

Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m.

Weitere Infos

Tipp des Monats

Oktober 2025
Matthias Kozlowski

Umlaute konvertieren

Ersetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.)

Details

sevGraph (VB/VBA)

Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig!

Weitere Infos

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel