Bascom Simulator

[Rone]

Hallo!

Lad Dir von myAVR das ProgTool 1.20 herunter.
Schau Dir das kleine Programm an.
Damit kannst Fusebits beschreiben, flashen, verfusten AVR
retten, und was weis ich sonst noch alles.
Ich flashe meine µC auch damit. Mit Bascom Hex-File erzeugen
und mit dem ProgTool flashen. Geht auch schneller damit,
weils nicht wie Bascom das EEprom mitbeschreibt.

MfG
Rone

[s17]

Yes Sir! Das Servo macht das was ich will! Yesss!!! Danke Tom und Rone! Hab mir Prog Tool 1.2 heruntergeladen und mit dem gings jetzt tatsächlich das clockdiv aufzuheben. Bascom hat trotzdem noch immer nicht die gesetzten Fuses richtig angezeigt - warum auch immer. Ich weiß zwar nicht für was das clockdiv gut sein soll, aber was solls...

Danke nochmal für Eure Geduld und Hilfe!

lg

Wolfgang

[TomEdl]

Ich weiß zwar nicht für was das clockdiv gut sein soll, aber was solls...

Der dividiert die Taktfrequenz. Clock=Takt, Div=Divide=Dividieren

Grüße
Thomas

[s17]

Ich hätte wieder mal eine Frage, weil wieder mal was nicht funktioniert... Ich möchte dem mcontroller eingaben geben und je nachdem eine Led schneller und langsamer blinken lassen.

$regfile = "attiny13.dat"
 $crystal = 1200000
$hwstack = 22

Config Portb.0 = Output
Config Portb.1 = Input
Enable Interrupts


Do

If Portb.1 = 0 Then
Waitms 1000
Portb.0 = 1
Waitms 1000
Portb.0 = 0
End If

If Portb.1 = 1 Then
Portb.0 = 1
Waitms 200
Portb.0 = 0
Waitms 200
End If
Loop

End

Ich lege an Pin4 gnd und pin8 5v Spannung vom Netzgerät an. die Led geht von Pin5 nach gnd. Dann habe ich noch eine Ader von pin8 nach pin6 (portb.1) und mit einem widerstand von 1kohm nach gnd, die ich je nachdem öffne und schließe... Wahrscheinlich ist die schaltung blödsinn aber mir fällt es nicht besser ein. Kann mir da nochmal jemand helfen?

Vielen Dank

lg

Wolfgang

[TomEdl]

Hallo!

Was genau öffnest du? Wenn der Pin in der Luft hängt, also ohne irgendwas dran, dann fängt er sich Störungen ein und bleibt eventuell sogar auf high.

Besser wäre, du nimmst einen Draht von Portb.1 und legst diesen auf GND (ohne Widerstand). Dazu musst du dann aber den internen Pullup-Widerstand einschalten.

$regfile = "attiny13.dat" 
 $crystal = 1200000 
$hwstack = 22 

Config Portb.0 = Output 
Config Pinb.1 = Input
Portb.1 = 1 
Enable Interrupts 


Do 

If Portb.1 = 0 Then 
Waitms 1000 
Portb.0 = 1 
Waitms 1000 
Portb.0 = 0 
End If 

If Portb.1 = 1 Then 
Portb.0 = 1 
Waitms 200 
Portb.0 = 0 
Waitms 200 
End If 
Loop 

End

Außerdem darfst du nicht Config Portb.1 = Input verwenden, sondern Config Pinb.1 = Input

Grüße
Thomas

[s17]

Ich hab jetzt den Pullup widerstand mit Pinb.1 = 1 aktiviert und gnd mit pinb1 verbunden und wieder entfernt. Er reagiert auf die Veränderung macht aber nicht das was ich ihm ihm Programm sage. Beim lange Blinken macht er es länger und wenn er kurz blinken soll leuchtet die Diode die ganze Zeit.

Was ich nicht verstehe ist, warum man den Pin nur mit gnd verbinden muß, damit eine spannung anliegt... und was der Unterschied zwischen pinb.1 und Portb.1 ist...

lg

Wolfgang

[TomEdl]

Ich hab jetzt den Pullup widerstand mit Pinb.1 = 1 aktiviert und gnd mit pinb1 verbunden und wieder entfernt. Er reagiert auf die Veränderung macht aber nicht das was ich ihm ihm Programm sage. Beim lange Blinken macht er es länger und wenn er kurz blinken soll leuchtet die Diode die ganze Zeit.

Was ich nicht verstehe ist, warum man den Pin nur mit gnd verbinden muß, damit eine spannung anliegt... und was der Unterschied zwischen pinb.1 und Portb.1 ist...

Den Pullup Widerstand musst die mit Portb.1 = 1 einschalten. Nur die Deklaration als Eingang ist Pinb.1 = Input

Auf welcher Frequenz läuft der Controller?

Wenn der Pin nicht auf GND liegt, dann liegen +5V über den Pullup-Widerstand ständig am Pin an. Verbindest du den Pin nun mit GND liegen 0V am Pin an.



Grüße
Thomas

[s17]

der controller läuft mit 1,2 Mhz. Heißt das, wenn ich den Pullup Widerstand einschalte, daß eine Verbindung von der Stromversorgung zum entsprechenden Pin hergestellt wird und daß deshalb die 5V anliegen? Und wenn ich den pin dann mit gnd verbinde der strom sich den Weg des geringsten Widerstands sucht und über diese ader abfließt? (anders kann ich mir es nicht erklären)

$regfile = "attiny13.dat"
 $crystal = 1200000
$hwstack = 22

Config Portb.0 = Output
Config Pinb.1 = Input
Portb.1 = 1

Enable Interrupts


Do

While Pinb.1 = 0
Waitms 1000
Portb.0 = 1
Waitms 1000
Portb.0 = 0
Wend

While Pinb.1 = 1
Portb.0 = 1
Waitms 500
Pinb.0 = 0
Waitms 500
Wend

Loop

End

Statt dem schnelleren Blinken leuchtet die Diode die ganze Zeit...

lg

Wolfgang[/quote]

[TomEdl]

Hallo!

Du setzt in der zweiten Schleife den Pin mit Pinb.0=0 zurück. Du musst ihn aber mit Portb.0=0 zurücksetzen, genauso, wie du es in der oberen Schleife gemacht hast.

Grüße
Thomas

[s17]

Ah danke! Im großen und ganzen funktionierts jetzt, aber irgendwie sehr ungenau. Er stellt sich auch manchmal um, obwohl ich gar nichts mache - und dann blinkt er oft noch ein paar mal weiter obwohl ich den Zustand an pin pb1 ändere...