VB6 wechselntes signal von 1 auf 0 – Seite 4

Also wenn die neuen Bits praktisch die 6 Bits auschalten(kein Label in den Vordergrund) dann isses doch nur ne If abfrage in der Schalterverarbeitung

dim end_beep as boolean
beep_timer.interval= dataarrival_timer.intervall

sub beep_timer
  if not end_beep then
    beep hertzt, beep_timer.interval
  endif
end sub

if mid(zustand,7,1)=1 then
  end_beep=false
else
  end_beep=true
  schalterverarbeitung
endif

Also er beept praktisch immer von data_arrival bis dataarival
Ist bit7 wieder 1 machter er wieder ein beep solang bis das nächste paket kommt=dauerton

Is bit 7=0 hört er auf und geht in die schalterverarbeitung

Meinst du so?
Oder muss die schalterverarbeitung trotzdem weitergehn?

Gruß

Hi,
hab das so ungefähr gemeint,
im Grund könnte man es doch mit einer Schleife machen und zwar wenn
If Mid(SchalterZustand, 7, 1)
sagen wir 5 mal abgefragt wurde dann soll Beep ertönen, sozusagen mit einem Zähler

aber wie man das genau macht ?

Gruß

naja einfach ne Variable hochzählen, die musst halt wieder in die Deklaration damit sie ihren wert behält

Und dann:

if Mid(SchalterZustand, 7, 1) =1 then
  if zählvar <6 then  
    zählvar=zählver+1
  else
    beep
    zählvar=0
  endif
.
.
.
endif

Gruß