Was übersehe ich?

[M. G. (sirmel)]

Nabend zusammen,
folgendes Programm:

$regfile = "m8def.dat"
$framesize = 48
$swstack = 64
$hwstack = 64
$crystal = 8000000
$baud = 9600


Dim Empfangen As String * 3
Dim X As Bit , Y As Bit , Z As Bit 
Dim Ansteuerung As Byte , Wecksound As Byte
Dim Ansteuerung2 As Integer

X = 0
Y = 0
Z = 0
Wecker = 0

Config Portb = Output

Config Portc = Output

Config Portd.4 = Output
Config Portd.3 = Output
Summer Alias Portd.4
Pc Alias Portd.3

On Urxc Onrxd
Enable Urxc
Enable Interrupts





Do
If Len(empfangen) > 2 Then
   Ansteuerung2 = Val(empfangen)
   Select Case Ansteuerung2
      Case 400
         Pc = 1
         Empfangen = ""
      Case 401
         Pc = 0
         Empfangen = ""
      Case Is < 256
         Gosub Ansteuern
   End Select
End If
Loop
End

Ansteuern:
Ansteuerung = Ansteuerung2
   Portb = Ansteuerung
   Gosub Stehlampe
   Gosub Leuchtkugel
   Gosub Lichterkette
Empfangen = ""
Return

Lichterkette:
If Portb.4 = 1 Then : If X = 0 Then : Portc = &B00000000 : Portc.1 = 1 : X = 1 : Waitms 500 : Portc = &B00000000 : End If : End If
If Portb.4 = 0 Then : If X = 1 Then : Portc = &B00000000 : Portc.0 = 1 : X = 0 : Waitms 500 : Portc = &B00000000 : End If : End If
Return

Stehlampe:
If Portb.6 = 1 Then : If Y = 0 Then : Portc = &B00000000 : Portc.3 = 1 : Y = 1 : Waitms 500 : Portc = &B00000000 : End If : End If
If Portb.6 = 0 Then : If Y = 1 Then : Portc = &B00000000 : Portc.2 = 1 : Y = 0 : Waitms 500 : Portc = &B00000000 : End If : End If
Return

Leuchtkugel:
If Portb.7 = 1 Then : If Z = 0 Then : Portc = &B00000000 : Portc.5 = 1 : Z = 1 : Waitms 500 : Portc = &B00000000 : End If : End If
If Portb.7 = 0 Then : If Z = 1 Then : Portc = &B00000000 : Portc.4 = 1 : Z = 0 : Waitms 500 : Portc = &B00000000 : End If : End If
Return

Onrxd:
Empfangen = Empfangen + Chr(udr)
Return

Problem ist: Der Portb wird nicht richtig gesetzt. Nachdem die 
"Ansteuern" Schleife ausgeführt wurde, messe ich jeden Port von b durch 
aber keiner ist "1". Deshalb funktionieren auch die Schleifen 
Lichterkette, Leuchtkugel und Stehlampe nicht. Ist da irgendwas falsch? 
(Der µC läuft über (Mhz Interner Takt)

[Lothar M. (Firma: Titel) (lkmiller) (Moderator)]

>   Ansteuerung2 = Val(empfangen)
>   Select Case Ansteuerung2
>      Case 400
>      :
>      Case 401
>      :
>      Case Is < 256
>      :
>   End Select

Trag doch in deinen Case mal noch einen Default-Zweig ein, dann siehst 
du, ob du Werte ungleich 400, 401 und größer 255 empfängst.

[M. G. (sirmel)]

Ne das passiert ja nicht er spring schon die die Schleife Ansteuern

[Johannes M. (johnny-m)]

M. G. wrote:
> Was übersehe ich?
Offensichtlich hauptsächlich die Forenregeln!

z.B. folgende:
>> # Aussagekräftigen Betreff wählen
>> # Im Betreff angeben um welchen Controllertyp es geht (AVR, PIC, ...)

[Lothar M. (Firma: Titel) (lkmiller) (Moderator)]

Johannes M. wrote:
> Offensichtlich hauptsächlich die Forenregeln!
> :
>>> # Im Betreff angeben um welchen Controllertyp es geht (AVR, PIC, ...)

$regfile = "m8def.dat"

Es kann nur einen geben ;-)

[M.G (Gast)]

Bitte noch mehr qualifizierte Kommentare=)

[Johannes M. (johnny-m)]

Lothar Miller wrote:
>>>> # Im Betreff angeben um welchen Controllertyp es geht (AVR, PIC, ...)
>

$regfile = "m8def.dat"

> Es kann nur einen geben ;-)
Bei mir steht das nicht im Betreff ...;-)

[Sven P. (Gast)]

Wird PORTB auch irgendwo mal gesetzt oder übersehe ich das jetzt?

[Johannes M. (johnny-m)]

Sven Pauli wrote:
> Wird PORTB auch irgendwo mal gesetzt oder übersehe ich das jetzt?
Ich sehe es auch nirgends. Sind wir schon zu zweit. Port B ist 
offensichtlich Ausgang und alle Pins 0 (default).

[Sven H. (Gast)]

Davon abgesehen, dass ein switch ohne default einfach nur Pfui ist!

[M.G (Gast)]

Portb wird doch hier gesetzt:
Ansteuerung = Ansteuerung2
Portb = Ansteuerung

[Stefan B. (stefan)]

Funktioniert deine seriele Übertragung? Ich würde mal nach dem Val() 
Empfangen und Ansteuerung2 zurück an den PC schicken.

[M.G (Gast)]

Funktioniert ich bekomme genau die Werte dich ich sende. Es wird nur 
nicht der Port gesetzt.

[Läubi .. (laeubi)]

Sven H. wrote:
> Davon abgesehen, dass ein switch ohne default einfach nur Pfui ist!
In Hardware ja... in Software ... wieso?

[M.G (Gast)]

Was bedeutet switch ohne default?

[sfthsfghgsdfhg (Gast)]

über len würd ich nicht machen ... wenn deine kommunikation mal aus dem 
tritt kommt wirds übel.
nimm n definiertes endzeichen CR oder LF

[Lothar M. (Firma: Titel) (lkmiller) (Moderator)]

@ M.G (Gast)
> Es wird nur nicht der Port gesetzt.
Hast du es überhaupt schon mal irgendwie geschafft, am Port B die Bits 
4, 6 und 7 zu setzen?

>> Portb = 16
>> Portb = 64
>> Portb = 128

[M.G (Gast)]

Ich hab das mal in einem Testprogramm ausprobiert:

Dim x as byte

x=16

config portb=output


Do
portb=x
print x
wait 1
loop

und da hat er mir 16 ausgegeben und portb.3 gesetzt. mit anderen Werten 
hab das auch funktioniert. Werd das nachher mal ausprobieren, indem ich 
den den Ansteuerung2 Wert einfach vorgebe.

[Lothar M. (Firma: Titel) (lkmiller) (Moderator)]

> 16 ausgegeben und portb.3 gesetzt
Das wäre aber falsch :-(
Weil Bit 3 = 8
Bit    7   6   5   4  3  2  1  0
Wert 128  64  32  16  8  4  2  1

[M. G. (sirmel)]

Sry meinte portb.4 mein Fehler. So hab folgendes Ausprobiert:

Ansteuern:
Ansteuerung = 255
   Portb = Ansteuerung
   Gosub Stehlampe
   Gosub Leuchtkugel
   Gosub Lichterkette
Empfangen = ""
Return

Aber da tut sich auch nix. Nirgendwo einen Highpegel :/

[Lothar M. (Firma: Titel) (lkmiller) (Moderator)]

Und so?
>   Portb = 255

Oder anders gesagt:
kommst du tatsächlich in deine Routine "Ansteuern"?

[Sascha (Gast)]

Hallo,

Ansteuerung2 ist als Integer deklariert, das heißt 2 Byte - da stellt 
sich die Frage welches der beiden Bytes denn nun in das Portregister 
soll. Wascheinlich wird bei der Typkonvertierung von Int -> Byte das MSB 
übernommen, und das ist bei Werten <256 immer Null.


Sascha

[Paul Baumann (Gast)]

Ich denke, daß diese Zeile:
Case Is < 256
         Gosub Ansteuern

dahingehend geändert werden muß:

Case Is < 256 : Gosub Ansteuern

MfG Paul