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.
Ein Dampfgenerator mit Füllstandüberwachung
Selbst gebaute Miniaturschiffschrauben
Woran ich sonst so bastele... 

Hier mal noch ein Bild von meinem Board wo man auch sieht das der AREF Bin nach oben gelegt wurde.
Zitat
'Konfiguration der Analogeingänge
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Ein Dampfgenerator mit Füllstandüberwachung
Selbst gebaute Miniaturschiffschrauben
Woran ich sonst so bastele... Hallo Axel![]()
Eigenkreation ?!?!?!?! Wie jetzt? Das Board sieht irgendwie Profimäßig aus. Aber ich sehe, Du möchtest, genau wie ich, auch gern mit paar "wenigerbeinigen" Käfern auskommen.
. Mir fehlt die Erfahrung im TTL Bereich. Wenn die Gruppen dann so arbeiten wie erwünscht werde ich mal die Prommer Funktion antesten und mich hier wieder melden. 
Ein Dampfgenerator mit Füllstandüberwachung
Selbst gebaute Miniaturschiffschrauben
Woran ich sonst so bastele...
Ein Dampfgenerator mit Füllstandüberwachung
Selbst gebaute Miniaturschiffschrauben
Woran ich sonst so bastele... 
Heißt also das er den externen Quarz mit den 3,6864Mhz verwendet. Ich werde dann mal ein wenig experimentieren und schauen ob ich den Internen so hin bekomme wie ich ihn brauche.
Zitat
Ext. Crystal/Resonator Medium Frequenz Start-up Time: 16K CK 64ms
Ein Dampfgenerator mit Füllstandüberwachung
Selbst gebaute Miniaturschiffschrauben
Woran ich sonst so bastele... ..., ja auch zur Erfassung von RC-Signalen.
|
|
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 67 68 69 70 71 72 73 74 |
Config Portb.0 = Input
Config Portb.1 = Output
Config Portb.2 = Output
Config Porta.6 = Output
Config Porta.5 = Output
Config Porta.4 = Output
Config Porta.7 = Output
Config Porta.2 = Output
Config Porta.1 = Output
Config Porta.0 = Output
Config Porta.3 = Output
Dim Speed As Integer
Speed = 200
Dim Zahler As Integer
Dim Hundert As Integer
Dim Zehn As Integer
Dim Eins As Integer
Dim Rest As Integer
Do
For Zahler = 0 To 300 Step 1
Hundert = Zahler \ 100
Rest = Zahler Mod 100
Select Case Hundert
Case 0 : Gosub Hundert_0
Case 1 : Gosub Hundert_1
Case 2 : Gosub Hundert_2
Case 3 : Gosub Hundert_3
End Select
Zehn = Rest \ 10
Select Case Zehn
Case 0 : Gosub Zehn_0
Case 1 : Gosub Zehn_1
Case 2 : Gosub Zehn_2
Case 3 : Gosub Zehn_3
Case 4 : Gosub Zehn_4
Case 5 : Gosub Zehn_5
Case 6 : Gosub Zehn_6
Case 7 : Gosub Zehn_7
Case 8 : Gosub Zehn_8
Case 9 : Gosub Zehn_9
End Select
Eins = Rest Mod 10
Select Case Eins
Case 0 : Gosub Eins_0
Case 1 : Gosub Eins_1
Case 2 : Gosub Eins_2
Case 3 : Gosub Eins_3
Case 4 : Gosub Eins_4
Case 5 : Gosub Eins_5
Case 6 : Gosub Eins_6
Case 7 : Gosub Eins_7
Case 8 : Gosub Eins_8
Case 9 : Gosub Eins_9
End Select
Waitms Speed
Next Zahler
Loop
End
|
|
|
Quellcode |
1 2 3 4 5 6 |
Zehn_4: Porta.6 = 0 Porta.5 = 1 Porta.4 = 0 Porta.7 = 0 Return |


Ein Dampfgenerator mit Füllstandüberwachung
Selbst gebaute Miniaturschiffschrauben
Woran ich sonst so bastele...



Kann mir vielleicht einer von den Experten weiter helfen??? ich danke euch.
Zitat
Timer0_interrupt:
Zaehler_front = Zaehler_front + 1
If Zaehler_front = 0 Then
Blitzer_1 = On
Wechselblitzer_1 = On
Wechselblitzer_2 = Off
Elseif Zaehler_front = 1 Then
Blitzer_1 = Off
Wechselblitzer_1 = Off
Wechselblitzer_2 = Off
Elseif Zaehler_front = 2 Then
Blitzer_1 = On
Wechselblitzer_1 = On
Wechselblitzer_2 = Off
Elseif Zaehler_front = 3 Then
Blitzer_1 = Off
Wechselblitzer_1 = Off
Wechselblitzer_2 = Off
Elseif Zaehler_front = 8 Then
Blitzer_1 = On
Wechselblitzer_1 = Off
Wechselblitzer_2 = On
Elseif Zaehler_front = 1 Then
Blitzer_1 = Off
Wechselblitzer_1 = Off
Wechselblitzer_2 = Off
Elseif Zaehler_front = 2 Then
Blitzer_1 = On
Wechselblitzer_1 = Off
Wechselblitzer_2 = On
Elseif Zaehler_front = 3 Then
Blitzer_1 = Off
Wechselblitzer_1 = Off
Wechselblitzer_2 = Off
Elseif Zaehler_front = 16 Then
Zaehler_front = 0
End If
Return
Ein Dampfgenerator mit Füllstandüberwachung
Selbst gebaute Miniaturschiffschrauben
Woran ich sonst so bastele...
Ich bin doch irgendwie blöd, jetzt wo du das sagst wird sicherlich dort mein Fehler sein.

.

Forensoftware: Burning Board®, entwickelt von WoltLab® GmbH