Eingänge an RNBFRA-Board überwachen - Neuling

[robo_wolf]

wäre super.
Danke Dir schon mal.

Silvio

[x-ryder]

so sorry, hab das ganz vergessen, ahb viel zu tun ^^ schule, ähnliches

aber hier der code:

'###################################################
'Testprogramm 6
'für
'RoboterNetz Standard-Roboter Board RBNFRA 1.2
'
'Aufgabe:
'Testet Eingangsport indem Wert über RS232
'übermittelt wird (9600 Baud einstellen)
'
'Autor: Frank
'Weitere Beispiele und Beschreibung der Hardware
'unter http://www.Roboternetz.de
'###################################################

$regfile = "m32def.dat"                                     ' oder bei Mega16 $regfile = "m16def.dat"
$baud = 9600
$crystal = 8000000                                          'Quarzfrequenz

Config Scl = Portc.0                                        'Ports fuer I2C-Bus
Config Sda = Portc.1

Config Pind.6 = Output                                      'Schrittmotoren Ein/Aus
Config Pinc.5 = Output                                      'Schrittmotor Links Richtung
Config Pinc.3 = Output                                      'Schrittmotor Links Step
Config Pinc.4 = Output                                      'Schrittmotor Rechts Richtung
Config Pinc.2 = Output                                      'Schrittmotor Rechts Step

Config Int1 = Rising
Enable Interrupts
On Int1 Int1_isr

Const Writeeingabeport_adr = &H7E                           'I2C Adr PCF 2
Const Readeingabeport_adr = &H7F                            'I2C Adr PCF 2

Dim I2cdaten As Byte                                        'Datenbyte aus PCF8574

Dim I As Byte
Dim J As Word
Dim A As Word
Dim B As Word

I2cinit
I2cstart
I2cwbyte &H74                                               'Schreibbefehl an PCF3 schicken
            'Led´s ein ,Motorendstufen ein, Port-Peripherie ein, RBN-Bus Sleep Modus aus (also Peripherie aktiv)
I2cwbyte &B00000010                                         'Datenbyte an PCF3
I2cstop

Portd.6 = 0                                                 'Schrittmotoren erst mal ausschalten

I2cdaten = 1

B = 251                                                     'Taste 2    (Port4)
A = 247                                                     'Taste 1    (Port3)
I = 0

Do
   If I2cdaten = A Then Gosub Motor1_2
   If I2cdaten = B Then Gosub Motoren_aus
Loop


'********************* Unterprogramme ****************************************************************

Motor1_2:
Portc.5 = 0                                                 'Richtung  Motor 1
Portc.4 = 1                                                 'Richtung  Motor 2
Portd.6 = 1                                                 'Motoren einschalten

Portc.2 = 0
Portc.3 = 0
Waitms 1
Portc.2 = 1
Portc.3 = 1
Waitms 1
Portd.6 = 0
Return

Read_data:
Return


Motoren_aus:
Portd.6 = 0
Return

Int1_isr:
   I2cstart
   I2cwbyte Readeingabeport_adr                             'Lesebefehl an PCF schicken
   I2crbyte I2cdaten , Nack                                 'Datenbyte von PCF lesen
   I2cstop
   Waitms 50
   Print I ; " Eingangsport Wert" ; I2cdaten
   Incr I
Return

bitte, sollte so funzen, jedes mal wenn der int vom pcf kommt, lies die taste ein

Martin

[robo_wolf]

Hallo Martin,
erst mal vielen Dank für die Mühe.
Werde es heute Abend testen und mich noch mal melden.
Gruß Silvio

[robo_wolf]

hallo Martin,
leider funktioniert das Programm so nicht.
Konnte es zwar übertragen, aber es reagiert auf keine Taste.

Config Int1 = Rising
Enable Interrupts
On Int1 Int1_isr

Kann es vielleicht sein, dass der AVR mit "= Rising" auf einen Highpegel warte. Habe die Tasten gegen GND schalten lassen. ???

Was ist eigentlich mit "On Int1 Int1_isr" gemeint?
Du weißt doch ->Neuling

Gruß Silvio

[x-ryder]

also, erstens musst du natürlich den int-ausgang vom pdc an den int1 dranpaggn, dann sollte das falling sein, du hast recht, aber nur weil der int vom pcf low-active ist...

und mit on int1 int1_isr ist gemeint: wenn int1 anspringt, und sacht: du ich hab da was bekommen, dann springe in die subroutine int1_isr (dabei setzt sich isr aus Interrupt Service Routine zusammen)

Martin

[robo_wolf]

Hallo Martin,
leider kann ich damit nicht all so viel anfangen.

also, erstens musst du natürlich den int-ausgang vom pdc an den int1 dranpaggn, dann sollte das falling sein, du hast recht, aber nur weil der int vom pcf low-active ist...

den int-ausgang vom pdc an den int1 dranpaggn

der int vom pcf low-active ist

Kannst du mir das noch mal eindeutschen?
(ich weiss, es nervt schon )

Gruß Silvio

[x-ryder]

also, der AVR hat dochn port namens int1 richtig, das iss ne sekundäre funktion von sonem pin... der muss an den INT ausgang vom pcf.
dann sollteste den eben nich als rising sondern als falling configurieren

Martin ^^

[robo_wolf]

langt es also wenn ich deinen Code
von Config Int1 = Rising
auf Config Int1 = Falling
umschreibe?

Gruß Silvio

[x-ryder]

japp, aber du musst den int auch noch anschließen

[robo_wolf]

so nun habe ich das Prgramm auf den Interrupt Int2 umgeschrieben.

'******************************************************************************
'über die Tasten 1[Porteingang 3] und 2[Porteingang 4] am rnbfra-Board sollen die beiden Schrittmotoren durch einen Interrupt gesteuert werden ein aus
'******************************************************************************

$regfile = "m32def.dat"
$baud = 9600
$crystal = 8000000                                          'Quarzfrequenz

Config Scl = Portc.0                                        'Ports fuer I2C-Bus
Config Sda = Portc.1

Config Pind.6 = Output                                      'Schrittmotoren Ein/Aus
Config Pinc.5 = Output                                      'Schrittmotor Links Richtung
Config Pinc.3 = Output                                      'Schrittmotor Links Step
Config Pinc.4 = Output                                      'Schrittmotor Rechts Richtung
Config Pinc.2 = Output                                      'Schrittmotor Rechts Step

Config Pinb.2 = Input                                       'Interrupt Int2

Config Int2 = Falling
Enable Int2
Enable Interrupts
On Int2 Int2_isr

Const Writeeingabeport_adr = &H7E                           'I2C Adr PCF 2
Const Readeingabeport_adr = &H7F                            'I2C Adr PCF 2

Dim I2cdaten As Byte                                        'Datenbyte aus PCF8574
Dim Taste1 As Word
Dim Taste2 As Word
Dim I As Word

I2cinit
I2cstart
I2cwbyte &H74                                               'Schreibbefehl an PCF3 schicken
            'Led´s ein ,Motorendstufen ein, Port-Peripherie ein, RBN-Bus Sleep Modus aus (also Peripherie aktiv)
I2cwbyte &B00000010                                         'Datenbyte an PCF3
I2cstop

Portd.6 = 0                                                 'Schrittmotoren erst mal ausschalten

I2cdaten = 1


Taste1 = 247                                                'Taste 1    (Eingangsport-Port3)
Taste2 = 251                                                'Taste 2    (Eingangsport-Port4)
I = 200

'******************** Hauptprogramm ********************************************

Do
   If I2cdaten = Taste1 Then Gosub Motor1_2
   If I2cdaten = Taste2 Then Gosub Motoren_aus

Loop


'********************* Unterprogramme ******************************************

Motor1_2:
Portc.5 = 0                                                 'Richtung  Motor 1
Portc.4 = 1                                                 'Richtung  Motor 2
Portd.6 = 1                                                 'Motoren einschalten

Portc.2 = 0                                                 'Step rechts
Portc.3 = 0                                                 'Step links
Waitms 1
Portc.2 = 1                                                 'Step rechts
Portc.3 = 1                                                 'Step links
Waitms 1
Portd.6 = 0                                                 'Motoren ausschalten
Return

Read_data:
Return


Motoren_aus:
Portd.6 = 0                                                 'Motoren ausschalten
Return

Int2_isr:
   I2cstart
   I2cwbyte Readeingabeport_adr                             'Lesebefehl an PCF schicken
   I2crbyte I2cdaten , Nack                                 'Datenbyte von PCF lesen
   I2cstop
   Waitms 50
   Print I ; " Eingangsport Wert" ; I2cdaten
   Incr I
Return

Nur leider funktioniert es noch immer nicht.

Nochmal zur Funktionsweise:
An den Eingangsport 3 und 4 des rnbfra-Board habe ich je einen Taster der auf GND schaltet. Die Tasten geben Werte von 247 und 251 zurück.
Durch drücken einer Taste soll das Hauptprogramm(die Schleife) unterbrochen werden und den Wert in den I2cdaten schreiben. Damit zurück ins Hauptprogramm springen und den Wert entsprechend auswerten und das entsprechend Unterprogramm(Motoren1_2 bzw. Motoren_aus) aufrufen.

Habe ich irgendwo einen Denkfehler drin oder muß ich anders an das Problem ran...?

Gruß Silvio