VB 2008 Interrupt durch LPT Port?

[christoph (Gast)]

Hallo,

ich hoffe mir kann wer helfen...

Ich möchte das mein Programm ganz normal abläuft, allerdings wenn sich 
ein Eingang am LPT port ändert soll das Programm unterbrochen werden.

Die Abfrage vom LPT port läuft schon.

Ich hab es mit einer DO LOOP Schleife probiert wo in der Schleife 
Application.DoEvents() drin steht, das funktioniert aber leider nicht, 
das Programm bleibt dann nur in der Schleife und macht sonst nichts...

[Sven H. (dsb_sven)]

Du könntest einen Timer nehmen, im Timer_Tick Event den LPT abfragen und 
wenn er deinen gewünschten Zustand hat ein weiteres Event auslösen.

[christoph (Gast)]

Das ganze sollte aber nur einmal als Funktion eingefügt werden, nicht 
das ich im Programm das immerwieder abfragen muss...

[Sven H. (dsb_sven)]

Ist dein Programm ein Konsolenprogramm oder eines mit grafischer 
Oberfläche?

[christoph (Gast)]

Das Programm hat eine Grafische oberfläche.

Der Interrupt soll als Notaus dienen...

[Sven H. (dsb_sven)]

In deiner grafischen Oberfläche wird dann sowieso alles mit Events 
verarbeitet. Ein Klick auf einen Button löst auch einen solchen Event 
aus.

Wenn du jetzt nen Timer nimmst und das Intervall auf, sagen wir 30ms 
stellst und im Interrupt Handler deines Timers den LPT abfragst könntest 
du auch eine globale Variable verändern und diese in deiner Schleife 
abfragen:

bool NotAus = false;

[...]
void WaitForNotAus()
{
    while (NotAus == false)      // Oder while (!NotAus)
    {
         [mach dein Zeug]
        Application.DoEvents();   // Wichtig, da sonst der Timer Event nicht ausgelöst wird!!
    }
}
[...]

im Timer Event:

void Timer_Tick([...])
{
    if (checkLPT())
    {
        NotAus = true;
    }
}

[christoph (Gast)]

Ok,

dann wer dich mal versuchen das in Basic zu übersetzen...

[Sven H. (dsb_sven)]

Sieh das als "Pseudocode" ;-)

An Sonsten könnte dir das helfen: 
http://www.developerfusion.com/tools/convert/csharp-to-vb/