loetstelle.net
Lötstelle Userforum
 
 FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen   RegistrierenRegistrieren 
 ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin 

Zähler
Gehe zu Seite Zurück  1, 2, 3  Weiter
 
Neues Thema eröffnen   Neue Antwort erstellen    loetstelle.net Foren-Übersicht -> BASCOM
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
modellfreund



Anmeldungsdatum: 01.03.2008
Beiträge: 410
Wohnort: Aken

BeitragVerfasst am: Mo 28.Dez 2009 08:07:25    Titel: Bauteile finden Antworten mit Zitat

Hallo Gerold,

ich habe nun mal einen versuch gestartet das Programm zu schreiben. Funktioniert das überhaupt so oder müsste ich nun Taster_1 bis Taster_7 drücken, damit ich wieder bei Taster_1 ankomme? Wie sieht es mit der Speicherverteilung aus, ich habe im Netz keine "Standartkonfiguration" für den µC gefunden. Das Speichern des letzen Zustands habe ich mir nun auch geschenkt. Dadurch das immer nur die aktive Fahrstraße leuchtet ist die Bedienung nun sehr komfortabel. Wie sieht es mit den Vorwiderständen vom Transistor aus, passen die?

Code:
$regfile = "M162def.dat"
$crystal = 1000000
$hwstack = 100
$swstack = 100
$framesize = 100


Led_a Alias Porta.0
Config Led_a = Output

Led_b Alias Porta.1
Config Led_b = Output

Led_c Alias Porta.2
Config Led_c = Output

Led_d Alias Porta.3
Config Led_d = Output

Led_e Alias Porta.4
Config Led_e = Output

Led_f Alias Porta.5
Config Led_f = Output

Led_g Alias Porta.6
Config Led_g = Output

Led_h Alias Porta.7
Config Led_h = Output

Led_i Alias Porte.0
Config Led_i = Output

Led_j Alias Porte.1
Config Led_j = Output

Led_k Alias Porte.2
Config Led_k = Output


Wa_10_1 Alias Portc.7
Config Wa_10_1 = Output

Wa_10_2 Alias Portc.6
Config Wa_10_2 = Output

Wa_11_1 Alias Portc.5
Config Wa_11_1 = Output

Wa_11_2 Alias Portc.4
Config Wa_11_2 = Output

Wa_12_1 Alias Portc.3
Config Wa_12_1 = Output

Wa_12_2 Alias Portc.2
Config Wa_12_2 = Output

Wa_13_1 Alias Portc.1
Config Wa_13_1 = Output

Wa_13_2 Alias Portc.0
Config Wa_13_2 = Output

Wa_14_1 Alias Portb.7
Config Wa_14_1 = Output

Wa_14_2 Alias Portb.6
Config Wa_14_2 = Output

Wa_15_1 Alias Portb.5
Config Wa_15_1 = Output

Wa_15_2 Alias Portb.4
Config Wa_15_2 = Output

Wa_16_1 Alias Portb.3
Config Wa_16_1 = Output

Wa_16_2 Alias Portb.2
Config Wa_16_2 = Output

Wa_17_1 Alias Portb.1
Config Wa_17_1 = Output

Wa_17_2 Alias Portb.0
Config Wa_17_2 = Output



Taster_1 Alias Pind.0
Config Taster_1 = Input
Portd.0 = 1

Taster_2 Alias Pind.1
Config Taster_2 = Input
Portd.1 = 1

Taster_3 Alias Pind.2
Config Taster_3 = Input
Portd.2 = 1

Taster_4 Alias Pind.3
Config Taster_4 = Input
Portd.3 = 1

Taster_5 Alias Pind.4
Config Taster_5 = Input
Portd.4 = 1

Taster_6 Alias Pind.5
Config Taster_6 = Input
Portd.5 = 1

Taster_7 Alias Pind.6
Config Taster_7 = Input
Portd.6 = 1


Do

If Taster_1 = 0 Then
Led_a = 1
Led_b = 1
Led_c = 1
Led_d = 1
Led_e = 1
Led_f = 1
Led_g = 1
Led_h = 1
Led_i = 1
Led_j = 1
Led_k = 1
Wait 1
Led_a = 0
Led_b = 0
Led_c = 0
Led_d = 0
Led_e = 0
Led_f = 0
Led_g = 0
Led_h = 0
Led_i = 0
Led_j = 0
Led_k = 0
Wa_17_1 = 1
Waitms 100
Wa_17_1 = 0
Waitms 500
Wa_14_1 = 1
Waitms 100
Wa_14_1 = 0
Waitms 500
Wa_15_1 = 1
Waitms 100
Wa_15_1 = 0
Led_f = 1
Waitms 500
Wa_13_1 = 1
Waitms 100
Wa_13_1 = 0
Led_d = 1
Waitms 500
Wa_12_2 = 1
Waitms 100
Wa_12_2 = 0
Led_a = 1
End If



If Taster_2 = 0 Then
Led_a = 1
Led_b = 1
Led_c = 1
Led_d = 1
Led_e = 1
Led_f = 1
Led_g = 1
Led_h = 1
Led_i = 1
Led_j = 1
Led_k = 1
Wait 1
Led_a = 0
Led_b = 0
Led_c = 0
Led_d = 0
Led_e = 0
Led_f = 0
Led_g = 0
Led_h = 0
Led_i = 0
Led_j = 0
Led_k = 0
Wa_17_1 = 1
Waitms 100
Wa_17_1 = 0
Waitms 500
Wa_14_1 = 1
Waitms 100
Wa_14_1 = 0
Waitms 500
Wa_15_1 = 1
Waitms 100
Wa_15_1 = 0
Led_f = 1
Waitms 500
Wa_13_1 = 1
Waitms 100
Wa_13_1 = 0
Led_d = 1
Waitms 500
Wa_12_1 = 1
Waitms 100
Wa_12_1 = 0
Led_b = 1
End If


If Taster_3 = 0 Then
Led_a = 1
Led_b = 1
Led_c = 1
Led_d = 1
Led_e = 1
Led_f = 1
Led_g = 1
Led_h = 1
Led_i = 1
Led_j = 1
Led_k = 1
Wait 1
Led_a = 0
Led_b = 0
Led_c = 0
Led_d = 0
Led_e = 0
Led_f = 0
Led_g = 0
Led_h = 0
Led_i = 0
Led_j = 0
Led_k = 0
Wa_10_1 = 1
Waitms 100
Wa_10_1 = 0
Led_c = 1
Waitms 500
Wa_11_1 = 1
Waitms 100
Wa_11_1 = 0
Led_e = 1
Waitms 500
Wa_13_2 = 1
Waitms 100
Wa_13_2 = 0
Waitms 500
Wa_14_1 = 1
Waitms 100
Wa_14_1 = 0
Waitms 500
Wa_15_1 = 1
Waitms 100
Wa_15_1 = 0
Waitms 500
Wa_17_1 = 1
Waitms 100
Wa_17_1 = 0
Led_f = 1
End If


If Taster_4 = 0 Then
Led_a = 1
Led_b = 1
Led_c = 1
Led_d = 1
Led_e = 1
Led_f = 1
Led_g = 1
Led_h = 1
Led_i = 1
Led_j = 1
Led_k = 1
Wait 1
Led_a = 0
Led_b = 0
Led_c = 0
Led_d = 0
Led_e = 0
Led_f = 0
Led_g = 0
Led_h = 0
Led_i = 0
Led_j = 0
Led_k = 0
Wa_10_1 = 1
Waitms 100
Wa_10_1 = 0
Led_c = 1
Waitms 500
Wa_11_2 = 1
Waitms 100
Wa_11_2 = 0
Waitms 500
Wa_14_1 = 1
Waitms 100
Wa_14_1 = 0
Waitms 500
Wa_15_2 = 1
Waitms 100
Wa_15_2 = 0
Waitms 500
Wa_17_1 = 1
Waitms 100
Wa_17_1 = 0
Led_g = 1
End If


If Taster_5 = 0 Then
Led_a = 1
Led_b = 1
Led_c = 1
Led_d = 1
Led_e = 1
Led_f = 1
Led_g = 1
Led_h = 1
Led_i = 1
Led_j = 1
Led_k = 1
Wait 1
Led_a = 0
Led_b = 0
Led_c = 0
Led_d = 0
Led_e = 0
Led_f = 0
Led_g = 0
Led_h = 0
Led_i = 0
Led_j = 0
Led_k = 0
Wa_10_2 = 1
Waitms 100
Wa_10_2 = 0
Waitms 500
Wa_16_1 = 1
Waitms 100
Wa_16_1 = 0
Led_j = 1
Waitms 500
Wa_17_2 = 1
Waitms 100
Wa_17_2 = 0
Led_h = 1
End If


If Taster_6 = 0 Then
Led_a = 1
Led_b = 1
Led_c = 1
Led_d = 1
Led_e = 1
Led_f = 1
Led_g = 1
Led_h = 1
Led_i = 1
Led_j = 1
Led_k = 1
Wait 1
Led_a = 0
Led_b = 0
Led_c = 0
Led_d = 0
Led_e = 0
Led_f = 0
Led_g = 0
Led_h = 0
Led_i = 0
Led_j = 0
Led_k = 0
Wa_17_1 = 1
Waitms 100
Wa_17_1 = 0
Waitms 500
Wa_15_1 = 1
Waitms 100
Wa_15_1 = 0
Waitms 500
Wa_14_2 = 1
Waitms 100
Wa_14_2 = 0
Led_i = 1
End If


If Taster_7 = 0 Then
Led_a = 1
Led_b = 1
Led_c = 1
Led_d = 1
Led_e = 1
Led_f = 1
Led_g = 1
Led_h = 1
Led_i = 1
Led_j = 1
Led_k = 1
Wait 1
Led_a = 0
Led_b = 0
Led_c = 0
Led_d = 0
Led_e = 0
Led_f = 0
Led_g = 0
Led_h = 0
Led_i = 0
Led_j = 0
Led_k = 0
Wa_10_2 = 1
Waitms 100
Wa_10_2 = 0
Led_h = 1
Waitms 500
Wa_16_2 = 1
Waitms 100
Wa_16_2 = 0
Led_k = 1
End If

Loop
End

Das ist denke ich, ein leicht verständliches Programm. Ich habe mir gedacht, dass nach einer Eingabe erstmal alle LEDs leuchten um die Eingabe zu bestätigen.

LG Felix

_________________
www.lang-gartenbahn.de
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen MSN Messenger
modellfreund



Anmeldungsdatum: 01.03.2008
Beiträge: 410
Wohnort: Aken

BeitragVerfasst am: Sa 02.Jan 2010 11:49:16    Titel: Bauteile finden Antworten mit Zitat

Hallo,

ich habe es jetzt einfach mal probiert und mal 2 Test-Weichen und ein paar LEDs angeschlossen. Auf den ersten Blick scheint alles super zu funktionieren.

Gruß Felix

_________________
www.lang-gartenbahn.de
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen MSN Messenger
gerold



Anmeldungsdatum: 27.07.2007
Beiträge: 927
Wohnort: Oberhofen im Inntal (Tirol)

BeitragVerfasst am: Sa 02.Jan 2010 13:18:03    Titel: Bauteile finden Antworten mit Zitat

modellfreund hat folgendes geschrieben:
ein leicht verständliches Programm

Hallo Felix!

Ich möchte dir den Befehl MACRO vorstellen. Smile

Siehe: http://avrhelp.mcselec.com/index.html?macro.htm

Code:
$regfile = "M162def.dat"
$crystal = 1000000
$hwstack = 100
$swstack = 100
$framesize = 100

Led_a Alias Porta.0
Config Led_a = Output

...

Wa_10_1 Alias Portc.7
Config Wa_10_1 = Output

Wa_10_2 Alias Portc.6
Config Wa_10_2 = Output

...

Taster_1 Alias Pind.0
Config Taster_1 = Input
Portd.0 = 1

...

macro wait_short
    waitms 500
end macro

macro wait_long
    waitms 1000
end macro

macro leds_off
    Led_a = 0: Led_b = 0: Led_c = 0: Led_d = 0
    Led_e = 0: Led_f = 0: Led_g = 0: Led_h = 0
    Led_i = 0: Led_j = 0: Led_k = 0
end macro

macro leds_on
    Led_a = 1: Led_b = 1: Led_c = 1: Led_d = 1
    Led_e = 1: Led_f = 1: Led_g = 1: Led_h = 1
    Led_i = 1: Led_j = 1: Led_k = 1   
end macro

macro set_wa_12_1
    Wa_12_1 = 1
    Waitms 100
    Wa_12_1 = 0
end macro

macro set_wa_12_2
    Wa_12_2 = 1
    Waitms 100
    Wa_12_2 = 0
end macro

...


Do

    If Taster_1 = 0 Then
        leds_on
        wait_long
        leds_off
       
        set_wa_17_1
        wait_short
       
        set_wa_14_1
        wait_short
       
        set_wa_15_1
        Led_f = 1
        wait_short
       
        set_wa_13_1
        Led_d = 1
        wait_short
       
        set_wa_12_2
        Led_a = 1
    elseif Taster_2 = 0 Then
        leds_on
        wait_long
        leds_off
       
        set_wa_17_1
        wait_short
       
        set_wa_14_1
        wait_short
       
        set_wa_15_1
        Led_f = 1
        wait_short
       
        set_wa_13_1
        Led_d = 1
        wait_short
       
        set_wa_12_1
        Led_b = 1
    elseif Taster_... = 0 then
        ...
    End If
   
Loop
End

mfg
Gerold
Smile

_________________
http://halvar.at | http://sw3.at | Kleiner Bascom AVR Kurs
Wissen hat eine wunderbare Eigenschaft: Es verdoppelt sich, wenn man es teilt.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
gerold



Anmeldungsdatum: 27.07.2007
Beiträge: 927
Wohnort: Oberhofen im Inntal (Tirol)

BeitragVerfasst am: Sa 02.Jan 2010 13:39:11    Titel: Bauteile finden Antworten mit Zitat

Hallo Felix!

Zu deinem Schaltplan möchte ich auch noch ein paar Worte schreiben.

Wie in diesem Schaltplan http://halvar.at/elektronik/kleiner_bascom_avr_kurs/stromversorgung/minimaler_anschlussplan_atmega8_v02.gif gezeigt wird, solltest du zwischen VCC und GND einen kleinen Kondensator platzieren. So nahe wie möglich am µC. Vereinfacht ausgedrückt: das dämpft Störungen und macht deine Schaltung zuverlässiger.

Der ATmega162 darf laut Datenblatt insgesamt mit bis zu 200 mA belastet werden. Wenn alle 11 LEDs leuchten, dann überlastest du den µC. Verwende höhere Widerstände für die LEDs. Nimm statt 120 Ohm lieber 200 Ohm. Das senkt den Stromverbrauch der LEDs. Sie sollten trotzdem noch hell genug leuchten -- probiere es einfach mal aus.

mfg
Gerold
Smile

_________________
http://halvar.at | http://sw3.at | Kleiner Bascom AVR Kurs
Wissen hat eine wunderbare Eigenschaft: Es verdoppelt sich, wenn man es teilt.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
modellfreund



Anmeldungsdatum: 01.03.2008
Beiträge: 410
Wohnort: Aken

BeitragVerfasst am: Fr 08.Jan 2010 15:36:54    Titel: Bauteile finden Antworten mit Zitat

Hallo Gerold,

gestern sind nun endlich die Weihnachten bestellten Teile gekommen. Unteranderem auch ein paar Attiny13. Nun wollte ich heute den Blitzer mal ausprobieren, doch es passiert nichts. Ich habe mit dem STK500 nicht einmal ein Led zum leuchten gebracht. Gibt es irgendeinen trick wie man das Teil programmiert? Auf dem STK500 gibt es 2 verschiedene Steckplätze wo er passen würde, SCKT3600A1 und SCKT3400A1, welchen sollte ich verwenden?

Gruß Felix

_________________
www.lang-gartenbahn.de
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen MSN Messenger
modellfreund



Anmeldungsdatum: 01.03.2008
Beiträge: 410
Wohnort: Aken

BeitragVerfasst am: Sa 09.Jan 2010 12:30:01    Titel: Bauteile finden Antworten mit Zitat

Hallo,

hat sich erledigt, ich habe es nun hinbekommen. Es müssen extern noch 2 Brücken gezogen werden. (PORTE.XT1 > PORTB.PB3 und PORTE.RST > PORTB.PB5) Aber mal noch was anderes, ist irgendjemand im Netz schonmal über eine Liste gestolpert welcher µC man beim STK500 auf welchen Steckplatz gesteckt werden muss? Die "niedliche" Liste in der Beschreibung hilft einem kaum weiter.

Gruß Felix

_________________
www.lang-gartenbahn.de
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen MSN Messenger
BellaD



Anmeldungsdatum: 03.12.2006
Beiträge: 1708
Wohnort: Klinik der misshandelten Kuscheltiere

BeitragVerfasst am: So 10.Jan 2010 17:38:42    Titel: Bauteile finden Antworten mit Zitat

moin
Zitat:
µC man beim STK500 auf welchen Steckplatz gesteckt werden muss? Die "niedliche" Liste in der Beschreibung hilft einem kaum weiter.


Da sollte man mal in die Hilfe des AVR-Studios schauen , unter STK500 stehen sie alle drinn Rolling Eyes
Da du Bascomm programmierst musst du dann wohl oder übel auch das AVR-Studio installieren um an die Hilfe zu kommen Razz

mfg

_________________
Eine Weiterverbreitung ohne ausdrückliche Genehmigung ist untersagt. Für Schäden, lehnen wir jegliche Haftung ab.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
BellaD



Anmeldungsdatum: 03.12.2006
Beiträge: 1708
Wohnort: Klinik der misshandelten Kuscheltiere

BeitragVerfasst am: So 10.Jan 2010 17:54:44    Titel: Bauteile finden Antworten mit Zitat

Code:
AVR deviceSTK500 soc  Color     Number  Target ISP header
AT90S1200 SCKT3300D3Red                3SPROG3
AT90S2313
ATtiny2313
AT90S2323 SCKT3400D1Blue               1SPROG1.
AT90S2343                               Connect RST on PORTE
ATtiny12                                Connect XT1 on PORTE
ATtiny13
ATtiny22
ATtiny25
ATtiny45
ATtiny85
ATtiny11  SCKT3400D1Blue               1High-Voltage program
ATtiny28  SCKT3500D-None      -         High-Voltage program
AT90S4414 SCKT3000D3Red                3SPROG3
AT90S8515
ATmega161
ATmega8515
ATmega162
AT89s51   SCKT3000D3Red                3SPROG3.  These are M
AT89s52
AT90S4434 SCKT3100A3Red                3SPROG3
AT90S8535
ATmega16
ATmega163
ATmega164P
ATmega32
ATmega323
ATmega324P
ATmega644
ATmega644P
ATmega1284P
ATmega8535
AT90S2333 SCKT3200A2Green              2SPROG2
AT90S4433
ATtiny48
ATtiny88
ATmega48(P)
ATmega8
ATmega88(P)
ATmega168(P)
ATmega328P
ATtiny15  SCKT3600A1Blue               1SPROG1.
                                        Connect RST on PORTE
ATtiny26* SCKT3700A1Blue               1SPROG1
ATtiny261*                              Connect RST on PORTE
ATtiny461*                              Connect XT1 on PORTE
ATtiny861*
ATmega64  Use the STK501 Top Module
ATmega103
ATmega128
ATmega1281
ATmega2561
AT90CAN32
AT90CAN64
AT90CAN128
ATmega165 Use the STK502 Top Module
ATmega165P
ATmega169
ATmega169P
ATmega325
ATmega325P
ATmega329
ATmega329P
ATmega645
ATmega649
ATmega640 Use the STK503 Top Module
ATmega1280
ATmega2560
ATmega1650Use the STK504 Top Module
ATmega1690
ATmega3250
ATmega3250P
ATmega3290
ATmega3290P
ATmega6450
ATmega6490
ATtiny24  Use the STK505 Top Module
ATtiny44
ATtiny84
AT90PWM2  Use the STK520 Top Module
AT90PWM2B
AT90PWM3
AT90PWM3B
AT90USB646Use the STK525 Top Module
AT90USB647
AT90USB1286
AT90USB1287
AT90USB82 AT90USB162Use the STK526 Top Module
AT86RF401 No socket support. External ISP-programming suppor

_________________
Eine Weiterverbreitung ohne ausdrückliche Genehmigung ist untersagt. Für Schäden, lehnen wir jegliche Haftung ab.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
modellfreund



Anmeldungsdatum: 01.03.2008
Beiträge: 410
Wohnort: Aken

BeitragVerfasst am: Mo 11.Jan 2010 18:57:27    Titel: Bauteile finden Antworten mit Zitat

Hallo,

ich werde dann mal das Programm installieren.... müssen. Very Happy Aber vielen Dank für die Liste.

LG Felix

_________________
www.lang-gartenbahn.de
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen MSN Messenger
modellfreund



Anmeldungsdatum: 01.03.2008
Beiträge: 410
Wohnort: Aken

BeitragVerfasst am: Fr 15.Jan 2010 19:53:23    Titel: Bauteile finden Antworten mit Zitat

Hallo,

ich habe heute mal alle Taster und LEDs an die Platine angeschlossen. Ohne ein Taster betätigt zu haben sind nach ca. 3 Sekunden alles LEDs angegangen und der µC wurde kochend heiß. Nun macht er nichts mehr, er lässt sich zwar noch beschreiben aber alle Ausgänge haben ein 1-Signal. Der Gesamtstrom ist also viel zu hoch. Was könnte ich nun machen? Ein paar neue Atmega162V bestellen und nochmal versuchen? Die Verdrahtung habe ich nochmal geprüft, kommt alles an dem Pin an wie im Schaltplan zu sehen.

Gruß Felix

_________________
www.lang-gartenbahn.de
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen MSN Messenger
gerold



Anmeldungsdatum: 27.07.2007
Beiträge: 927
Wohnort: Oberhofen im Inntal (Tirol)

BeitragVerfasst am: Fr 15.Jan 2010 20:11:28    Titel: Bauteile finden Antworten mit Zitat

modellfreund hat folgendes geschrieben:
Die Verdrahtung habe ich nochmal geprüft, kommt alles an dem Pin an wie im Schaltplan zu sehen.

Hallo Felix!

Zeichne mal einen aktuellen Plan mit all den Bauteilen die du einsetzt. Und das aktuelle Programm wäre auch nicht schlecht, wenn man sich das mal ansehen könnte. Vielleicht ist ein PIN als Ausgang konfiguriert, obwohl dieser z.B. direkt mit VCC oder GND verbunden ist. Usw...

lg
Gerold
Smile

_________________
http://halvar.at | http://sw3.at | Kleiner Bascom AVR Kurs
Wissen hat eine wunderbare Eigenschaft: Es verdoppelt sich, wenn man es teilt.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
modellfreund



Anmeldungsdatum: 01.03.2008
Beiträge: 410
Wohnort: Aken

BeitragVerfasst am: Fr 15.Jan 2010 20:42:51    Titel: Bauteile finden Antworten mit Zitat

Hallo Gerold,

am Stromlaufplan hat sich zu dem auf Seite 1 nichts geändert. Es sind halt nur noch keine Weichenantriebe angeschlossen. Das Programm hat sich ein wenig verändert, da die Platine schon fertig gelötet war, als der Tip von dír kahm, dass der µC nur max. 200mA Ausgangsstrom liefert. Nun leuchten bei einer Eingabe nicht alle LEDs sondern nur die der zukünftigen Fahrstraße.

Code:
$regfile = "M162def.dat"
$crystal = 1000000
$hwstack = 300
$swstack = 300
$framesize = 300


Led_a Alias Porta.0
Config Led_a = Output

Led_b Alias Porta.1
Config Led_b = Output

Led_c Alias Porta.2
Config Led_c = Output

Led_d Alias Porta.3
Config Led_d = Output

Led_e Alias Porta.4
Config Led_e = Output

Led_f Alias Porta.5
Config Led_f = Output

Led_g Alias Porta.6
Config Led_g = Output

Led_h Alias Porta.7
Config Led_h = Output

Led_i Alias Porte.0
Config Led_i = Output

Led_j Alias Porte.1
Config Led_j = Output

Led_k Alias Porte.2
Config Led_k = Output


Wa_10_1 Alias Portc.7
Config Wa_10_1 = Output

Wa_10_2 Alias Portc.6
Config Wa_10_2 = Output

Wa_11_1 Alias Portc.5
Config Wa_11_1 = Output

Wa_11_2 Alias Portc.4
Config Wa_11_2 = Output

Wa_12_1 Alias Portc.3
Config Wa_12_1 = Output

Wa_12_2 Alias Portc.2
Config Wa_12_2 = Output

Wa_13_1 Alias Portc.1
Config Wa_13_1 = Output

Wa_13_2 Alias Portc.0
Config Wa_13_2 = Output

Wa_14_1 Alias Portb.7
Config Wa_14_1 = Output

Wa_14_2 Alias Portb.6
Config Wa_14_2 = Output

Wa_15_1 Alias Portb.5
Config Wa_15_1 = Output

Wa_15_2 Alias Portb.4
Config Wa_15_2 = Output

Wa_16_1 Alias Portb.3
Config Wa_16_1 = Output

Wa_16_2 Alias Portb.2
Config Wa_16_2 = Output

Wa_17_1 Alias Portb.1
Config Wa_17_1 = Output

Wa_17_2 Alias Portb.0
Config Wa_17_2 = Output



Taster_1 Alias Pind.0
Config Taster_1 = Input
Portd.0 = 1

Taster_2 Alias Pind.1
Config Taster_2 = Input
Portd.1 = 1

Taster_3 Alias Pind.2
Config Taster_3 = Input
Portd.2 = 1

Taster_4 Alias Pind.3
Config Taster_4 = Input
Portd.3 = 1

Taster_5 Alias Pind.4
Config Taster_5 = Input
Portd.4 = 1

Taster_6 Alias Pind.5
Config Taster_6 = Input
Portd.5 = 1

Taster_7 Alias Pind.6
Config Taster_7 = Input
Portd.6 = 1


Do

If Taster_1 = 0 Then
Led_a = 0
Led_b = 0
Led_c = 0
Led_d = 0
Led_e = 0
Led_f = 0
Led_g = 0
Led_h = 0
Led_i = 0
Led_j = 0
Led_k = 0
Waitms 10
Led_a = 1
Led_d = 1
Led_f = 1
Wait 1
Led_a = 0
Led_d = 0
Led_f = 0
Wa_17_1 = 1
Waitms 100
Wa_17_1 = 0
Waitms 500
Wa_14_1 = 1
Waitms 100
Wa_14_1 = 0
Waitms 500
Wa_15_1 = 1
Waitms 100
Wa_15_1 = 0
Led_f = 1
Waitms 500
Wa_13_1 = 1
Waitms 100
Wa_13_1 = 0
Led_d = 1
Waitms 500
Wa_12_2 = 1
Waitms 100
Wa_12_2 = 0
Led_a = 1
End If



If Taster_2 = 0 Then
Led_a = 0
Led_b = 0
Led_c = 0
Led_d = 0
Led_e = 0
Led_f = 0
Led_g = 0
Led_h = 0
Led_i = 0
Led_j = 0
Led_k = 0
Waitms 10
Led_b = 1
Led_d = 1
Led_f = 1
Wait 1
Led_b = 0
Led_d = 0
Led_f = 0
Wa_17_1 = 1
Waitms 100
Wa_17_1 = 0
Waitms 500
Wa_14_1 = 1
Waitms 100
Wa_14_1 = 0
Waitms 500
Wa_15_1 = 1
Waitms 100
Wa_15_1 = 0
Led_f = 1
Waitms 500
Wa_13_1 = 1
Waitms 100
Wa_13_1 = 0
Led_d = 1
Waitms 500
Wa_12_1 = 1
Waitms 100
Wa_12_1 = 0
Led_b = 1
End If


If Taster_3 = 0 Then
Led_a = 0
Led_b = 0
Led_c = 0
Led_d = 0
Led_e = 0
Led_f = 0
Led_g = 0
Led_h = 0
Led_i = 0
Led_j = 0
Led_k = 0
Waitms 10
Led_c = 1
Led_e = 1
Led_f = 1
Wait 1
Led_c = 0
Led_e = 0
Led_f = 0
Wa_10_1 = 1
Waitms 100
Wa_10_1 = 0
Led_c = 1
Waitms 500
Wa_11_1 = 1
Waitms 100
Wa_11_1 = 0
Led_e = 1
Waitms 500
Wa_13_2 = 1
Waitms 100
Wa_13_2 = 0
Waitms 500
Wa_14_1 = 1
Waitms 100
Wa_14_1 = 0
Waitms 500
Wa_15_1 = 1
Waitms 100
Wa_15_1 = 0
Waitms 500
Wa_17_1 = 1
Waitms 100
Wa_17_1 = 0
Led_f = 1
End If


If Taster_4 = 0 Then
Led_a = 0
Led_b = 0
Led_c = 0
Led_d = 0
Led_e = 0
Led_f = 0
Led_g = 0
Led_h = 0
Led_i = 0
Led_j = 0
Led_k = 0
Waitms 10
Led_c = 1
Led_g = 1
Wait 1
Led_c = 0
Led_g = 0
Wa_10_1 = 1
Waitms 100
Wa_10_1 = 0
Led_c = 1
Waitms 500
Wa_11_2 = 1
Waitms 100
Wa_11_2 = 0
Waitms 500
Wa_14_1 = 1
Waitms 100
Wa_14_1 = 0
Waitms 500
Wa_15_2 = 1
Waitms 100
Wa_15_2 = 0
Waitms 500
Wa_17_1 = 1
Waitms 100
Wa_17_1 = 0
Led_g = 1
End If


If Taster_5 = 0 Then
Led_a = 0
Led_b = 0
Led_c = 0
Led_d = 0
Led_e = 0
Led_f = 0
Led_g = 0
Led_h = 0
Led_i = 0
Led_j = 0
Led_k = 0
Waitms 10
Led_h = 1
Led_j = 1
Wait 1
Led_h = 0
Led_j = 0
Wa_10_2 = 1
Waitms 100
Wa_10_2 = 0
Waitms 500
Wa_16_1 = 1
Waitms 100
Wa_16_1 = 0
Led_j = 1
Waitms 500
Wa_17_2 = 1
Waitms 100
Wa_17_2 = 0
Led_h = 1
End If


If Taster_6 = 0 Then
Led_a = 0
Led_b = 0
Led_c = 0
Led_d = 0
Led_e = 0
Led_f = 0
Led_g = 0
Led_h = 0
Led_i = 0
Led_j = 0
Led_k = 0
Waitms 10
Led_i = 1
Wait 1
Led_i = 0
Wa_17_1 = 1
Waitms 100
Wa_17_1 = 0
Waitms 500
Wa_15_1 = 1
Waitms 100
Wa_15_1 = 0
Waitms 500
Wa_14_2 = 1
Waitms 100
Wa_14_2 = 0
Led_i = 1
End If


If Taster_7 = 0 Then
Led_a = 0
Led_b = 0
Led_c = 0
Led_d = 0
Led_e = 0
Led_f = 0
Led_g = 0
Led_h = 0
Led_i = 0
Led_j = 0
Led_k = 0
Waitms 10
Led_h = 1
Led_k = 1
Wait 1
Led_h = 0
Led_k = 0
Wa_10_2 = 1
Waitms 100
Wa_10_2 = 0
Led_h = 1
Waitms 500
Wa_16_2 = 1
Waitms 100
Wa_16_2 = 0
Led_k = 1
End If

Loop
End


LG Felix

_________________
www.lang-gartenbahn.de
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen MSN Messenger
gerold



Anmeldungsdatum: 27.07.2007
Beiträge: 927
Wohnort: Oberhofen im Inntal (Tirol)

BeitragVerfasst am: Fr 15.Jan 2010 22:14:28    Titel: Bauteile finden Antworten mit Zitat

Hallo Felix!

Die üblichen Verdächtigen:

- Statt 5 V bekommt der µC 12 V
- Der µC wurde falsch herum eingesteckt
- Bauteile wurden verkehrt herum eingelötet
- Kurzschluss einer oder mehrerer Leiterbahnen
- Beim Aufbau der Platine wurde etwas falsch verdrahtet
- Kein Stützkondensator zwischen VCC und GND so nahe wie möglich beim µC Smile
- keine stabile Stromversorgung
- schlecht aufgebaute Stromversorgung (schwingen)
- Ist ein (noch unbeschalteter) Ausgang zufällig direkt an VCC oder GND geraten?

lg
Gerold
Smile

_________________
http://halvar.at | http://sw3.at | Kleiner Bascom AVR Kurs
Wissen hat eine wunderbare Eigenschaft: Es verdoppelt sich, wenn man es teilt.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
modellfreund



Anmeldungsdatum: 01.03.2008
Beiträge: 410
Wohnort: Aken

BeitragVerfasst am: Sa 16.Jan 2010 11:42:00    Titel: Bauteile finden Antworten mit Zitat

Hallo Gerold,

ich traue es mir eigentlich garnicht zu sagen. Embarassed Der µC hat wirklich statt 5V, 12V bekommen. Ich habe gestern noch neue bestellt, malsehen ob dann alles funktioniert.

Gruß Felix

_________________
www.lang-gartenbahn.de
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen MSN Messenger
gerold



Anmeldungsdatum: 27.07.2007
Beiträge: 927
Wohnort: Oberhofen im Inntal (Tirol)

BeitragVerfasst am: Sa 16.Jan 2010 13:13:52    Titel: Bauteile finden Antworten mit Zitat

modellfreund hat folgendes geschrieben:
Der µC hat wirklich statt 5V, 12V bekommen.

Hallo Felix!

Das ist gut! Wink Fehler gefunden -- Fehler behoben.

lg
Gerold
Smile

_________________
http://halvar.at | http://sw3.at | Kleiner Bascom AVR Kurs
Wissen hat eine wunderbare Eigenschaft: Es verdoppelt sich, wenn man es teilt.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Anzeige






Verfasst am: Heute 11:39:49    Titel: Bauteile finden

Nach oben
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    loetstelle.net Foren-Übersicht -> BASCOM Alle Zeiten sind GMT + 1 Stunde
Gehe zu Seite Zurück  1, 2, 3  Weiter
Seite 2 von 3

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum nicht herunterladen


Powered by phpBB 2.x © 2001, 2002 phpBB Group

Sie sind Besucher Nr. 1199374
©opyright by Markus Vohburger 2005 All Rights reserved