Pin auf High setzen Staver40/Atmega32 -> Bin Neuling

[linux_80]

Wie programmierst Du den M32 über den Bootloader oder per ISP ?

Wenn per ISP dann lies mal die Fusebits aus, und zeig sie her, dann schau ma mal ob der die 14MHz verwendet.

Ansonsten müssen wir warten bis wer anders 'ne Idee hat wie das mit diesem Board geht.

[plumpi]

Habe keinen ISP. Programmiere über den Bootloader. Und zwar über den Lawicel BootLoader.

[plumpi]

Das folgende Programm funktioniert einwandfrei:

$regfile = "M32DEF.DAT"                                     ' Mega32
$crystal = 14745600                                         ' StAVeR-40 XTAL
$baud = 9600

Dim S As Integer                                            ' Sende Integerwert
Dim Mybaud As Long


Config Porta = Output
'Config Portd.0 = Input

Do

Print "hello"
                                               'Wenn Input Integer 1 dann

Porta.0 = 1
Porta.1 = 1
Porta.2 = 1
Porta.3 = 1
Porta.4 = 1
Porta.5 = 1
Porta.6 = 1
Porta.7 = 1
Wait 2
Porta.0 = 0
Porta.1 = 0
Porta.2 = 0
Porta.3 = 0
Porta.4 = 0
Porta.5 = 0
Porta.6 = 0
Porta.7 = 0
Wait 2



Loop

Sobald ich "Input S" setze und ohne "if-Schleife" irgendeinen Integer Wert abfrage, geht nichts. Habe auch die Mhz verändert und bekomme dann Falsche Werte. Also daran glaube ich kann es nicht liegen.

[plumpi]

Hi,

jetzt funktioniert es!!

$regfile = "M32DEF.DAT"                                     ' Mega32
$crystal = 14745600                                         ' StAVeR-40 XTAL
$baud = 9600

Dim S As Integer                                            ' Sende Integerwert
Dim Mybaud As Long


Config Porta = Output
'Config Portd.0 = Input

Do

Input S

                                                    ' Warte auf Input von RS232
If S = 1 Then
Print "hello"
                                               'Wenn Input Integer 1 dann

Porta.0 = 1
Porta.1 = 1
Porta.2 = 1
Porta.3 = 1
Porta.4 = 1
Porta.5 = 1
Porta.6 = 1
Porta.7 = 1
Wait 2
Porta.0 = 0
Porta.1 = 0
Porta.2 = 0
Porta.3 = 0
Porta.4 = 0
Porta.5 = 0
Porta.6 = 0
Porta.7 = 0
Wait 2
End If


Loop

Ich muss zusätzlich immer die Return Taste drücken.

Warum ist das so??. Gibts keine Möglichkeit ohne RETURN Taste zu arbeiten?

[linux_80]

ja,
schau Dir mal diese Befehle in der Hilfe an:
Ischarwaiting, Waitkey, Inkey
Da ist auch immer ein Beispiel dabei.

[plumpi]

Vielen Dank für die Hilfe!

Mit Inkey() läuft das Prima.