Warum funktioniert das Programm nicht?

[Michael K. (Gast)]

Hallo Leute,

kann mir einer helfen?
Ich will mit einem Taster (PIND.2) eine LED (PORTD.5) ein- und 
ausschalten.
Ich habe in Visual Basic ein Programm geschrieben welche mir die LED 
ein- und ausschaltet. Aber warum kann ich mit meinem Taster diese LED 
nicht ein- bzw. ausschalten?

Und vielleicht kann mir ja einer mit VB helfen wie kann ich den 
gesendetet Printbefehl des AVRs in VB in ein Label schreiben? (Auch wenn 
ich per Taster drücke!?)

Vielen Lieben dank jetzt schon mal :)

Micha

$regfile = "m8def.dat"
$crystal = 1000000
$baud = 2400

Config Portd.5 = Output
Config Pind.2 = Input
Config Pind.3 = Input
Config Portd.6 = Output

Dim Eingang As String * 255


Do

   Select Case Pind.2
      Case 0
         Portd.5 = 0
         Print "0"
      Case 1
         Portd.5 = 1
         Print "1"
   End Select


   Eingang = ""
   Input Eingang

   Select Case Eingang
      Case "0"
         Portd.5 = 0
         Print "0"
      Case "1"
         Portd.5 = 1
         Print "1"
   End Select

Loop

End

[Spess53 (Gast)]

Hi

>Config Portd.5 = Output
>Config Pind.2 = Input
>Config Pind.3 = Input
>Config Portd.6 = Output

Ist dieses Durcheinander PIN/PORT beabsichtigt?

MfG Spess

[Michael K. (Gast)]

Hallo,

nein ist es nicht das hat sich so ergeben beim Testen und probieren weil 
diese Funktion nicht geht.

[Spess53 (Gast)]

Hi

>nein ist es nicht das hat sich so ergeben beim Testen und probieren weil
>diese Funktion nicht geht.

Dann wird es Zeit, das du erst mal ein paar Tage das Programmieren sein 
läßt und das Datenblatt intensiv liest. Dir fehlen die Grundlagen.

MfG Spess

[Martin K. (maart)]

Eventuell passt ja das Stichwort "prellender Taster"

[Martin K. (maart)]

So wie ich das jetzt in meinem Zustand überblicke:
Wenn du den Taster gedrückt hälst, sollte die LED an bleiben, lässt du 
den Taster wieder los, erlischt sie.
Funktioniert das soweit?

[Michael K. (Gast)]

Martin Kreiner schrieb:
> So wie ich das jetzt in meinem Zustand überblicke:
> Wenn du den Taster gedrückt hälst, sollte die LED an bleiben, lässt du
> den Taster wieder los, erlischt sie.
> Funktioniert das soweit?

So ist es geplant aber funktioniert so leider nicht. Nehme ich diese 
Zeile raus funktioniert es

> Eingang = ""
>    Input Eingang
>
>    Select Case Eingang
>       Case "0"
>          Portd.5 = 0
>          Print "0"
>       Case "1"
>          Portd.5 = 1
>          Print "1"
>    End Select

[Martin K. (maart)]

Bitte entschuldige, ich habe schon ein paar gepustet.

> Nehme ich diese Zeile raus funktioniert es

Warum hast du sie überhaupt drin? Die Pin-Abfrage hast du doch schon in 
der vorrausgehen case-Abfrage gemacht.

[pff (Gast)]

deinen avr scheinst du in bascom zu programmieren.
schau dir mal den befehl "debounce" an
 man muss auch mal in die befehlsliste schauen... ;-)

[Martin K. (maart)]

pff schrieb:
> schau dir mal den befehl "debounce" an

Das kommt erst als zweiter Schritt ;-)

[pff (Gast)]

Martin Kreiner schrieb:
> Das kommt erst als zweiter Schritt ;-)

jetzt seh ichs auch,
der letzte beitrag den ich las war von 23:30... :-)
aber dann mache einen print von der var eingang...

[Martin K. (maart)]

Auf die schnelle Google-Suche habe ich jetzt nur herausfinden können, 
das BASCOM bei select case nur nummerische Werte zulässt.
Bei der zweiten Abfrage handelt es sich aber um einen String. Hm, hätte 
der Compiler doch monieren müssen, oder nicht?

[Micha (Gast)]

Martin Kreiner schrieb:
> Auf die schnelle Google-Suche habe ich jetzt nur herausfinden können,
> das BASCOM bei [i]select case[/i] nur nummerische Werte zulässt.
> Bei der zweiten Abfrage handelt es sich aber um einen String. Hm, hätte
> der Compiler doch monieren müssen, oder nicht?

Das funktioniert aber super :)

[Martin K. (maart)]

Micha schrieb:
> Das funktioniert aber super :)

Na gut, ein einzelnes Zeichen wird wohl auch als (Ascii?)Nummer 
angesehen. Ist schon ok.

[Martin K. (maart)]

Micha schrieb:
> Das funktioniert aber super :)

Ok, neue Theorie: Beide select case Abfragen funktionieren für sich 
alleine genommen.
Was passiert aber, wenn man per print etwas ausgeben will, aber die 
vorherige Übertragung noch nicht abgeschlossen ist? Pufferüberlauf, 
Fehler oder läuft?

[nummer 5 (Gast)]

wartet INPUT auf bestimmte eingaben und blockiert, bis sie diese 
bekommt?

[Micha (Gast)]

nummer 5 schrieb:
> wartet INPUT auf bestimmte eingaben und blockiert, bis sie diese
> bekommt?

kann es wirklich an dem input Eingang liegen? muss dieser irgendwie 
geschlossen werden?

[Peter R. (peterfido)]

Ungetestet würde ich es so probieren:

$regfile = "m8def.dat"
$crystal = 1000000
$baud = 2400


$hwstack = 20
$swstack = 20
$framesize = 10

Ddrd = &B00100000                                           'D.5 als Ausgang
Portd = &B00000100                                          'Pullups

Dim Eingang As Byte


Do

   If Ischarwaiting() = 1 Then
      Eingang = Inkey()
      Select Case Eingang
         Case 48                                               '0
            Reset Portd.5
         Case 49                                            '1
            Set Portd.5
      End Select
      Print Chr(eingang)
   End If

   If Pind.2 = 0 Then                                       'Taster nach GND mit Pullups
      Toggle Portd.5
      Print Portd.5
      Do
         Waitms 20
      Loop Until Pind.2 = 1                                 'Warten bis Taster wieder losgelassen wurde
   End If

Loop

End