Shift Poti , Right , 2 wäre richtig.
Pwm1a = Poti müsste gehen.
$regfile = "m8def.dat" 'Controllerdefinitionsdatei einbinden
$crystal = 8000000 'Systemtakt angeben (Baudrate)
$hwstack = 40 'Stacks
$swstack = 16
$framesize = 32
$baud = 19200 'Baudrate UART
Dim Zeichen As Byte 'UART-Empfang
Dim Z As Byte 'Timerüberlaufzähler
Dim Poti As Word
'Dim Wert As Byte
Rot Alias Portd.7 'Namen für LED-Beine
Gruen Alias Portc.3
Config Rot = Output 'Ausgänge
Config Gruen = Output
Rot = 1 'LEDs erstmal an
Gruen = 1
Config Adc = Single , Prescaler = Auto , Reference = Avcc
'Phasenkorrekter 8-Bit-PWM, PWM-Frequenz=245Hz
Config Timer1 = Pwm , Prescale = 64 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down
Pwm1a = 250
Pwm1b = 100
Do 'Hauptschleife Begin
'erstes Teilprogramm - UART Empfang und auswerten
If Ischarwaiting() = 1 Then 'Wenn Zeichen Empfangen
Zeichen = Inkey() 'dann Zeichen aus Puffer lesen
If Zeichen = "1" Then 'Wenn Zeichen = "1"
Rot = 1 '...
Print "Led An"
Elseif Zeichen = "0" Then 'Wenn Zeichen = "0"
Rot = 0 '...
Print "Led Aus"
Elseif Zeichen = "t" Then 'Wenn Zeichen = "t"
Toggle Rot '...
Print "Toggle Led"
Elseif Zeichen = "?" Then 'Wenn Zeichen = "?"
If Rot = 0 Then 'sonst wenn Led aus ist...
Print "Led ist aus"
Elseif Rot = 1 Then 'Dann wenn Led an ist...
Print "Led ist an"
End If
Else
Pwm1a = Zeichen
End If
End If
'zweites Teilprogramm - LED durch timer blinken lassen
If Tifr.tov1 = 1 Then 'wenn Timer übergelaufen ist
Tifr.tov1 = 1 'Überlaufflag zurücksetzen
Incr Z
If Z = 245 Then 'Überläufe zählen (245)
Z = 0 'Zähler zurücksetzen
Toggle Gruen 'LED toggeln
Poti = Getadc(0)
Shift Poti , Right , 2
Pwm1a = Poti
End If
End If
Loop 'Hauptschleife Ende
In #21 hier..
Hat das etwas zählen von rechts nach links zu tun? also 0=1, 1=2, 2=4, 3=8, 4=64, 5=1024... usw.?
7 6 5 4 3 2 1 0 (Bit-Nummer)
128 64 32 16 8 4 2 1 (Dezimalwert)
-------------------------------
1 0 1 0 1 0 1 0 = 128 + 32 + 8 + 2 = 170
Um 1 nach rechts geschoben:
0 1 0 1 0 1 0 1 = 64 + 16 + 4 + 1 = 85
Die letzte 0 (=der Rest) fällt raus, vorne kommen immer 0 rein.
Fazit: Teilung durch 2.
Respektive anders herum beim links schieben.
Daher auch diese "krummen" Werte wie 0..255, weil:
1 1 1 1 1 1 1 1 = 255
also der maximal representierbare Wert. Übrigens, daher ist 1KB auch nicht 1000
Bytes, sondern 1024. Wenn man das Byte jetzt um 2 Bits erweitern würde, wie dein
ADC Wert, ist man recht nah an 1000 dran. Reichte damals aus, dividieren durch 1000 war "zu teuer".Ich weiß nicht, ob LotadaC noch Lust hat, mir etwas beizubringen, da Du mir geholfen hast. Das war aber auch besser so, denn wenn ich nicht gleich den richtigen Weg finde, komme ich auch nicht von der Spur runter. Ich verharre dann bei meinen ersten Gedanken und kann nicht wieder los lassen.
Nein...
Hatte die letzten Tage und wahrscheinlich auch am kommenden WE wenig Zeit.
Das wollte ich erreichen (für ca. 8 Stunden, also Nachts). Aber über UART muss doch immer der PC verbunden sein?