PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : Frage zur RN_RELAIS



The Puma
17.04.2006, 13:11
Ich habe denn versorgungsspannung uber externer power anschluss geschalten

An denn power anschluss habe ich 10v angelegt.
Nun wirt der 6v regelatur sehr heiss.

Wo ist dass problem
Alle relais werden angezogen

Bitte um hilfe

Grussen
John

Frank
17.04.2006, 13:39
Wenn alle angezogen sind ist das recht normal. Kleiner Kühlkörper ist durchaus sinnvoll wenn es häufige rvorkommt das soviele Relais aktiv sind.

The Puma
17.04.2006, 13:48
Gibt es die moglichkeit dass die relais nicht anzeihen wenn mann spannung anlegt

Gibt es fur denn UCN2981 ein invertierenden ic?

Frank
17.04.2006, 13:56
Du musst die Relais sofort bei Reset des Hauptboards per I2C ausschalten, andere Möglichkeit gibt es derzeit leider nicht. Aber das abschalten geht dann so schnell das man Einschalten oft nicht bemerkt.

robo_wolf
17.04.2006, 14:00
Hallo John,
warm wird so ein Spannungsregler immer.
wie hats du den Jumper 1 gesetzt?
### Silvio ###

The Puma
17.04.2006, 14:40
jumper auf ext gezetst.
regulator wirt sehr heiss

Komt warscheinlich dass alle relais beim einschalten angezuhen werden.

Hat jemand anders hierauch problemen mit?

robo_wolf
17.04.2006, 17:42
Hallo John,
wie Frank schon geschrieben hat, muß man die Relais nach dem "Einschalten" der Controllerplatine oder nach "Programmstart" ausschalten.
Habe mal in Franks Beispiel rum kopiert. Geht sicher eleganter...




'################################################# ##
'relaiskarte.bas
'für
'RoboterNetz Standard-Roboter Board RBNFRA 1.2
'
'
'Aufgabe:
'Relaiskarte wird getestet
'Alle 8 Relais bzw. Fet Schaltstufen werden nacheinander
'für 2 Sekunden eingeschaltet
'
'Autor: Frank
'Weitere Beispiele und Beschreibung der Hardware
'unter http://www.Roboternetz.de + robotikhardware.de
'################################################# ##


Declare Sub Rnb_relaisschalten(byval Relaisnr As Byte , Byval Status As Byte)

Const Relaisport_adr = &H76 'I2C Adr PCF 2


Dim Relaisstatus As Byte
Dim I As Byte


$crystal = 8000000 'Quarzfrequenz
$baud = 9600
Config Scl = Portc.0 'Ports fuer IIC-Bus
Config Sda = Portc.1

I2cinit


'******** Diese 4 Befehle sind nur ab RNBFRA Version 1.2 (nicht in V 1.1)
' notwendig und bzw. möglich (erweiterte Energiesparfunktion und LED´s)
' Bei Board 1.1 bitte auskommentieren oder löschen
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
'*********
For I = 0 To 7
Call Rnb_relaisschalten(i , 0) 'erst mal alle Relais sollen abfallen
Next I
Waitms 1

Wiederhole:

For I = 0 To 7
Call Rnb_relaisschalten(i , 1) 'Relais i so anziehen
Next I

Wait 2 'Warte 2 Sekundne

For I = 0 To 7
Call Rnb_relaisschalten(i , 0) 'Relais i soll abfallen
Next I

Wait 2 'Warte 2 Sekundne

Goto Wiederhole



'Die Hilfsfunktion erleichtert das ein und Ausschalten bestimmter Relais
'Variable: Relaisnr ( 0 bis 7) steht für ein bestimmtes Relais
'Variable: status (1 oder 0) schaltet Relais ein oder aus
'Bei Status 1 wird die entsprechende Relais anziehen, bei 0 abfallen
Sub Rnb_relaisschalten(byval Relaisnr As Byte , Byval Status As Byte)


Relaisstatus.relaisnr = Status
I2cstart
I2cwbyte Relaisport_adr 'Schreibbefehl an PCF schicken
I2cwbyte Relaisstatus 'Datenbyte an PCF
I2cstop
End Sub




End

Ein kleiner Kühlkörper wäre auch nicht schlecht.
http://www.reichelt.de/inhalt.html?SID=17yXpxO6wQARIAAGLbBysba42d005db243 bd247a6b336227a68ad;ACTION=3;LASTACTION=4;SORT=art ikel.artnr;GRUPPE=C81;WG=0;SUCHE=k%FChlk%F6rper;AR TIKEL=V%20FI356;START=0;END=16;STATIC=0;FC=667;PRO VID=0;TITEL=0;CASE=ignore;CONNECT=AND;WHOLE_WORD_S EARCH=0;SORT_SEARCH=standard
### Silvio ###