Bascom Schleifen Problem

[Hartmut L. (hartmutl)]

Hallo von einem absoluten Anfänger (kurz vor der Rente).
Im Rahmen meiner (noch) beruflichen Tätigkeit muss (darf)
ich über 150 Kabelbäume (siehe Schaltbild) prüfen. Manuell
mittels Durchgangstester und Voltmeter etwas mühsam.
Diese Aufgabe soll ein Attiny13 übernehmen. Das beigefügte
(einfache und mikrige) Programm würde zwar funktionieren,
aber eine akustische Meldung, 3x schnelles "piepen" pro
Prüfling, wäre von vorteil um nicht ständig die LED's zu
beobachten.Nur wie muss die Schleife dafür aussehen?
Meine Versuche sind kläglich in die "Hose" gegangen. Bei
meinen "Versuchen" war ständig ein "Dauerpiepen" zu hören!
Wer kann mir da weiterhelfen?

'Anschlussbelegung des Tiny13:

'Pin 1: Reset, Widerstand 10k nach Pin 8 (VCC)
'Pin 2: PB3, ADC-Eingang ADC3, Messeingang
'Pin 3: PB4, ADC-Eingang ADC2, Messeingang
'Pin 4: GND, Masse
'Pin 5: PB0, LED für "Gut-Meldung", 5,0V
'Pin 6: PB1, LED für "Gut-Meldung", Kabel OK
'Pin 7: PB2, ADC-Eingang ADC1, Messeingang
'Pin 8: VCC, Versorgungsspannung


$regfile = "attiny13.dat"
$crystal = 9600000
$hwstack = 16
$swstack = 16
$framesize = 16

Config Portb.0 = Output                               ' LED grün = 5,0 V
Config Portb.1 = Output                               ' LED grün = Kabel OK


Dim W As Word
Dim U As Word
Dim V As Word


Config Adc = Single , Prescaler = Auto , Reference = Avcc

Do
Start Adc

W = Getadc(1)                              ' messen des Analogwertes
U = Getadc(2)                              ' messen des Analogwertes
V = Getadc(3)                              ' messen des Analogwertes

Stop Adc

'Widerstandsschleifen Messung an 2 Punkten
'Wenn die Spannung am ADC 2 mit einer Hysterese
'von 200mV zwischen 3,9V und 4,1V beträgt und
'am ADC 3 mit einer Hysterese von 200mV
'zwischen 1,9V und 2,1V beträgt, dann
'soll eine LED an Portb.0 leuchten.


If U > 840 Then                                  'Spannung > 4,1 V
   Portb.0 = 0
End If

If V > 430 Then                                  'Spannung > 2,1 V
   Portb.0 = 0
End If

If U < 840 And U > 799 And V < 430 And V > 389 Then         'Spannungsprüfung
   Portb.0 = 1
End If

If U < 799 Then                                  'Spannung < 3,9V
   Portb.0 = 0
End If

If V < 389 Then                                  'Spannung < 1,9V
   Portb.0 = 0
End If

If W > 251 Then                                  ' Spannung > 5,1 V
   Portb.1 = 0
End If

If W < 251 And W > 243 Then                      ' Spannung 4,9 - 5,1 V
   Portb.1 = 1
End If

If W < 243 Then                                  ' Spannung < 4,9V
   Portb.1 = 0
End If


'If Portb.0 = 1 And Portb.1 = 1 Then

     '3x schnelles Piepen , wenn Bedingung erfüllt
     'bis zur nächsten Prüfung an Portb.0 oder
     'Portb.1 oder aktivieren von Portb.5

'End If

Loop

End

[Paul B. (paul_baumann)]

Hallo Hartmut,
wo willst Du denn eigentlich raus kommen mit Deinem Piep-Signal?

Du könntest mit dem Sound-Befehl an's Werk gehen:

Config Portb.0 = Output 'Hier mußt Du sehen, welchen Portpin Du nehmen 
kannst
Speaker Alias Portb.0
Dim Schleifenzaehler as Byte
If Portb.0 = 1 And Portb.1 = 1 Then
 For Schleifenzaehler = 2 to 0 Step -1
    Sound Speaker , 165 , 1011
    waitms 500
 Next Schleifenzaehler
End if


MfG Paul

[Hartmut L. (hartmutl)]

Hallo Paul,

danke für die schnelle Antwort. Ich benutze keinen Lautsprecher
sondern einen aktiven Signalgeber. Ich habe nun den Portb.5
dafür genommen und folgende Schleife eingegeben. Nun piept es
ständig, wenn die Bedingung erfüllt ist.
Was muss ich machen, damit es, wenn die Bedingung erfüllt ist,
nur 3x "piept" ? Fehlt da noch ein "Merker"?


If Portb.0 = 1 And Portb.1 = 1 Then
 For Schleifenzaehler = 2 to 0 Step -1
    Portb.5 = 1
    Waitms 10
    Portb.5 = 0
    Waitms 10
 Next Schleifenzaehler
End if


MfG  Hartmut

[Paul Baumann (Gast)]

>Fehlt da noch ein "Merker"?

Ja, -nur was sollte als Kriterium dienen, um diesen Merker wieder
zurückzusetzen?
So lange das Kabel dransteckt und in Ordnung ist, ist auch die Bedingung
erfüllt.

MfG Paul

[Hartmut L. (hartmutl)]

> So lange das Kabel dransteckt und in Ordnung ist, ist auch die Bedingung
> erfüllt.

In diesem Fall soll es ja auch nur 3x piepen und nicht ständig. Oder 
muss das
Prog kpl. umgeschrieben werden?
Ich habe nur das gefährliche Halbwissen....

MfG  Hartmut

[Luca E. (derlucae98)]

Wie wäre es mit:

If Portb.0 = 1 And Portb.1 = 1 Then
 For Schleifenzaehler = 2 to 0 Step -1
    Portb.5 = 1
    Waitms 10
    Portb.5 = 0
    Waitms 10
    If Schleifenzähler = 0 then goto [SUB/Label]
 Next Schleifenzaehler
End if

[Paul Baumann (Gast)]

Dann erzwinge, daß die Bedingung nicht mehr wahr ist, wenn es piept:

If Portb.0 = 1 And Portb.1 = 1 Then
 Portb.0 = 0

[Hartmut L. (hartmutl)]

Hallo,

danke für die Informationen. Ich habe leider keinen Erfolg erzielen 
können.
Mein Halbwissen reicht leider nicht aus. Dann werde ich weiter LED's 
beobachten. Nochmals Danke für die schnellen Rückmeldungen.


MfG  Hartmut

[Hartmut L. (hartmutl)]

Hallo,

mein Prog läuft.

........
Dim Slz As Byte
Dim Gut As Byte
........
Do
........
If Portb.0 = 1 And Portb.1 = 1 Then

  If Gut = 0 Then
      Gut = 1
      For Slz = 2 To 0 Step -1
         Portb.5 = 1
         Waitms 8
         Portb.5 = 0
         Waitms 8
      Next Slz
  End If
      Else
      Gut = 0

End If

[Weingut P. (weinbauer)]

gut gemacht :)