Warum funktioniert das Programm nicht?

Michael K. Gast 22.05.2013 23:12 #3174530

Lesenswert?

•

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
   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

Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Beitrag melden

Spess53 Gast 22.05.2013 23:18 #3174532

Lesenswert?

•

▲
▼

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

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Michael K. Gast 22.05.2013 23:21 #3174536

Lesenswert?

•

▲
▼

Hallo,

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

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Spess53 Gast 22.05.2013 23:28 #3174543

Lesenswert?

•

▲
▼

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

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Martin K. (maart) 22.05.2013 23:30 #3174544

Lesenswert?

•

▲
▼

Eventuell passt ja das Stichwort "prellender Taster"

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Martin K. (maart) 22.05.2013 23:32 #3174548

Lesenswert?

•

▲
▼

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?

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Michael K. Gast 22.05.2013 23:48 #3174560

Lesenswert?

•

▲
▼

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

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Martin K. (maart) 22.05.2013 23:55 #3174567

Lesenswert?

•

▲
▼

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.

Antwort Zitieren Bearbeiten Löschen Beitrag melden

pff Gast 22.05.2013 23:56 #3174569

Lesenswert?

•

▲
▼

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

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Martin K. (maart) 22.05.2013 23:57 #3174571

Lesenswert?

•

▲
▼

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

Das kommt erst als zweiter Schritt ;-)

Antwort Zitieren Bearbeiten Löschen Beitrag melden

pff Gast 23.05.2013 00:02 #3174574

Lesenswert?

•

▲
▼

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...

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Martin K. (maart) 23.05.2013 00:10 #3174579

Lesenswert?

•

▲
▼

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?

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Micha Gast 23.05.2013 00:12 #3174582

Lesenswert?

•

▲
▼

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 :)

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Martin K. (maart) 23.05.2013 00:15 #3174584

Lesenswert?

•

▲
▼

Micha schrieb:
> Das funktioniert aber super :)

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

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Martin K. (maart) 23.05.2013 00:18 #3174590

Lesenswert?

•

▲
▼

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?

Antwort Zitieren Bearbeiten Löschen Beitrag melden

nummer 5 Gast 23.05.2013 01:44 #3174625

Lesenswert?

•

▲
▼

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

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Micha Gast 23.05.2013 20:32 #3175836

Lesenswert?

•

▲
▼

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?

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Peter R. (peterfido) 23.05.2013 23:52 #3176130

Lesenswert?

•

▲
▼

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
   If Ischarwaiting() = 1 Then
      Eingang = Inkey()
      Select Case Eingang
            Reset Portd.5
            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
         Waitms 20
      Loop Until Pind.2 = 1                                 'Warten bis Taster wieder losgelassen wurde
   End If

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Warum funktioniert das Programm nicht?

Antwort schreiben