Sie sind nicht angemeldet.
Das Wettringer Modellbauforum »
Arbeitstechniken - Allgemeine Hilfen, Tipps und Tricks »
Fotografie, Literatur, Elektronik, Reinigen & Präsentieren, Werkzeuge & Material »Lieber Besucher, herzlich willkommen bei: Das Wettringer Modellbauforum. Falls dies Ihr erster Besuch auf dieser Seite ist, lesen Sie sich bitte die Hilfe durch. Dort wird Ihnen die Bedienung dieser Seite näher erläutert. Darüber hinaus sollten Sie sich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutzen Sie das Registrierungsformular, um sich zu registrieren oder informieren Sie sich ausführlich über den Registrierungsvorgang. Falls Sie sich bereits zu einem früheren Zeitpunkt registriert haben, können Sie sich hier anmelden.
Mittwoch, 24. Oktober 2012, 22:02
Danach habe ich mal noch folgende den Port für die Led geändert und danach das Programm mal gebrannt mit dem mySmartUSB. Und diesmal war keine Fehlermeldung gekommen und nachdem ich das
Zitat
'Definition für Mega 8
$regfile "m8def.dat"
und neu schaut es so aus.
'Definition für Mega 8A
$regfile "m8Adef.dat"
Mittwoch, 24. Oktober 2012, 22:34
Mittwoch, 24. Oktober 2012, 23:22
Ein Dampfgenerator mit Füllstandüberwachung Selbst gebaute Miniaturschiffschrauben Woran ich sonst so bastele...
Donnerstag, 25. Oktober 2012, 07:00
, dann kann es ja losgehen. 
Na mal schauen, vielleicht erweitere ich meinen Eigenbau so, daß ich auch andere Atmel-Käferchen, also mit mehr Beinchen, und vor allem auch mehr Aus- /Eingänge habe. Den Schaltplan habe ich ja noch und so dürfte eine Erweiterung und Neubau nicht so wild sein. 
Freitag, 26. Oktober 2012, 18:55
Freitag, 26. Oktober 2012, 19:36
Ein Dampfgenerator mit Füllstandüberwachung Selbst gebaute Miniaturschiffschrauben Woran ich sonst so bastele...
Dienstag, 30. Oktober 2012, 16:20
Achja ich weiß viele werden sich jetzt nicht viel unter diesem Code vorstellen können. Da habe ich noch ein kleines Video für euch gemacht, dort sieht man dann mal den Efekt den ich Programmiert habe.
'Blitzer Steuerung für Modellautos'
'Prozessor: ATMega 8A
$regfile "m8adef.dat"
$crystal = 1000000
'Definiton der LED´s
Config Portb.0 = Output
Config Portb.1 = Output
Dim Speed As Integer
Speed = 250
Do
Portb.0 = 1
Waitms Speed
Portb.0 = 0
Waitms Speed
Portb.0 = 1
Waitms Speed
Portb.0 = 0
Waitms 500
Portb.1 = 1
Waitms Speed
Portb.1 = 0
Waitms Speed
Portb.1 = 1
Waitms Speed
Portb.1 = 0
Waitms 500
Loop
End
Donnerstag, 1. November 2012, 20:23
. Hab dann mal abgeschrieben und es ausprobiert........ tja, ich habe ja nur Attiny13 da und nix ging. Also wieder im Netz schlau gemacht und etwas im Kopf zugeschrieben. Dann ist es gelaufen. Hab dann noch etwas mit herumexperimentiert und wieder umgeschriebn, weil ich dachte geht besser aber das war dann nix. Also wieder herumgepinselt und so eine Art Lauflicht mit 10 Dioden gebrannt. Sieht ganz lustig aus. Sollte wohl mal mein Board einstellen!??
Donnerstag, 1. November 2012, 21:29
Ein Dampfgenerator mit Füllstandüberwachung Selbst gebaute Miniaturschiffschrauben Woran ich sonst so bastele...
Freitag, 2. November 2012, 12:59
weißt du was ich da Falsch gemacht habe???
$crystal = 8000000
'Definiton der LED´s
Config Portb.0 = Output
Config Portb.1 = Output
Const Off = 1
Const On = 0
Const Led_green Portb.0 < hier gibt er mir eine Fehlermeldung expected in filename
Const Led_red Portb.1 < hier gibt er mir eine Fehlermeldung expected in filename
Dim Speed As Integer
Speed = 250
Do
Led_1 On
Waitms Speed
Led_1 Off
Waitms Speed
Led_1 On
Waitms Speed
Led_1 Off
Waitms 500
Led_2 On
Waitms Speed
Led_2 Off
Waitms Speed
Led_2 On
Waitms Speed
Led_2 Off
Waitms 500
Loop
End
Dienstag, 11. Dezember 2012, 21:37
Habe mal die Zeile Rot gefärbt wo die Fehlermeldung kommt.
'Blitzer Steuerung für Modellautos'
'Prozessor: ATMega 8A
$regfile "m8adef.dat"
$crystal = 8000000
'Definiton der LED´s
Const On = 1
Const Off = 0
Config Portb.0 = Output
Config Portb.1 = Output
Config Portc.0 = Output
Config Portc.1 = Output
Config Portc.2 = Output
Config Portc.3 = Output
Declare Sub Rundumlicht
Dim Speed As Integer
Speed = 100
Do
Portc.0 = On
Waitms Speed
Portc.0 = Off
Portc.1 = On
Waitms Speed
Portc.1 = Off
Portc.2 = On
Waitms Speed
Portc.2 = Off
Portc.3 = On
Waitms Speed
Portc.3 = Off
Loop
End Sub Rundumlicht <- Hier kommt die Fehlermeldung
Dim Speed As Integer
Speed = 20
Do
Call Sub Rundumlicht
Portb.0 = On
Portb.1 = On
Waitms Speed
Portb.0 = Off
Portb.1 = Off
Waitms Speed
Portb.0 = On
Portb.1 = On
Waitms Speed
Portb.0 = Off
Portb.1 = Off
Waitms 150
Loop
End
Dienstag, 11. Dezember 2012, 23:30
|
Quellcode |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 |
'Blitzer Steuerung für Modellautos' 'Prozessor: ATMega 8A $regfile "m8def.dat" $crystal = 8000000 'Definiton der LED´s Const On = 1 Const Off = 0 Config Portb.0 = Output Config Portb.1 = Output Config Portc.0 = Output Config Portc.1 = Output Config Portc.2 = Output Config Portc.3 = Output Dim Speed As Integer '------------------------------------------------------------------------------ Speed = 20 Do Gosub Rundumlicht Portb.0 = On Portb.1 = On Waitms Speed Portb.0 = Off Portb.1 = Off Waitms Speed Portb.0 = On Portb.1 = On Waitms Speed Portb.0 = Off Portb.1 = Off Waitms 150 Loop End '------------------------------------------------------------------------------ Rundumlicht: Speed = 100 Portc.0 = On Waitms Speed Portc.0 = Off Portc.1 = On Waitms Speed Portc.1 = Off Portc.2 = On Waitms Speed Portc.2 = Off Portc.3 = On Waitms Speed Portc.3 = Off Return '------------------------------------------------------------------------------ |
Ein Dampfgenerator mit Füllstandüberwachung Selbst gebaute Miniaturschiffschrauben Woran ich sonst so bastele...
Mittwoch, 12. Dezember 2012, 00:08
Montag, 14. Januar 2013, 21:51
Wie sich jetzt viele denken können, kann es sich nur um das Projekt für die Rundumleuchten handeln, und genauso ist es.Werde das ganze dann nochmal mit meinen Potis testen die ich bisher für die Rundumlichtschaltung genommen habe. Damit ich die Bestmögliche Taktgeschwindigkeit finde. Dann wird es auch für euch ein Video davon geben.
' Geändert am 14.01.2013 für Atmega8A durch Patrick Niklas
'
' In: D.2: Poti-Mittelabgriff
' oder LDR-Spannungsteiler an ADC1
' Out: LED B.0
' LED B.1
' LED B.4
' LED B.5
'
$regfile = "m8adef.dat"
$crystal = 2000000
Config Portd.2 = Input 'Poti/LDR
Config Portb.0 = Output 'LED 1
Config Portb.1 = Output 'LED 2
Config Portb.4 = Output 'LED 3
Config Portb.5 = Output 'LED 4
Led_1 Alias Portb.0
Led_2 Alias Portb.1
Led_3 Alias Portb.4
Led_4 Alias Portb.5
Dim Analogwandler As Integer 'Variable zur Aufnahme des Wertes vom Analogwandler
Config Adc = Single , Prescaler = Auto , Reference = Avcc 'Analogwandler definieren
'Start Adc 'AD-Wandler starten (nach Config automatisch)
Do
Analogwandler = Getadc(1) 'AD-Wandler einlesen. Werte zwischen 0 und 1023
Led_1 = 1
Led_2 = 0
Led_3 = 0
Led_4 = 0
Waitms Analogwandler
Led_1 = 0
Led_2 = 1
Led_3 = 0
Led_4 = 0
Waitms Analogwandler
Led_1 = 0
Led_2 = 0
Led_3 = 1
Led_4 = 0
Waitms Analogwandler
Led_1 = 0
Led_2 = 0
Led_3 = 0
Led_4 = 1
Waitms Analogwandler
Loop
End
Dienstag, 15. Januar 2013, 00:24
Dienstag, 15. Januar 2013, 20:17
Dienstag, 15. Januar 2013, 23:50
Mittwoch, 16. Januar 2013, 11:50
Quelle: hier zu finden
Beschreibung
SMD LED Bauart 1206
300 mcd sehr hell
0,35/0,35 gleichmäßiger
Verlauf
Länge 3,2 mm
Breite 1,6 mm
Höhe 1,1 mm
V typ. 3,2 V
V max. 3,6 V
Die Linse ist Yellow-diffused
RoHS konform
Mittwoch, 16. Januar 2013, 14:54
Mittwoch, 16. Januar 2013, 17:20
Mittwoch, 16. Januar 2013, 21:01
Mittwoch, 16. Januar 2013, 21:08
Mittwoch, 16. Januar 2013, 21:18
Mittwoch, 16. Januar 2013, 21:22
Mittwoch, 16. Januar 2013, 21:28
Mittwoch, 16. Januar 2013, 21:38
Mittwoch, 16. Januar 2013, 21:59
Ich werde dann ausführlich berichten, wenn die Platte eingetroffen ist. Dann muss ich mal etwas experimentieren, ob ich die LED's, die ich hier habe, so weit dimmen kann dass man sie kaum noch sieht. 
Donnerstag, 18. April 2024, 08:56
Zum SeitenanfangForensoftware: Burning Board®, entwickelt von WoltLab® GmbH
