erstes Programm

[sulu]

Hi, hab jetzt mal das Testprogramm so weit ge3kürzt, sodass derMoter läuft, und ich ihn in linker bzw. rechter Drehung bewegen kann.
Ich weiß jetzt nur nicht wo ich die Geschwindigkeit ( Pwm ) eingeben kann.

[Carbolo]

Hi sulu, ich gehe davon aus, dass du ein Robotikhardware - Board hast, vermutlich RN- control 1.4. In folgendem Sequenz werden die Motoren stufenweise beschleunigt:

Do
Pwm1a = I
Pwm1b = I
Waitms 40
I = I + 5
Loop Until I > 1023

Demzufolge kannst du das auch ohne Schleife machen:

Pwm1a = Wert
Pwm1b = Wert

Wobei "Wert" die gewünschte Drehzahl ist!

Kleiner Tipp für die Zukunft (das sage ich meiner Freundin auch imma): versuch dich schon am Anfang möglichst genau auszudrücken Also welches Board/Aufbau du hast bzw. wo du schon alles gesucht hast etc.

Schöne Grüße:
Z

[sulu]

Hi,
jetzt weiss was du meinst. Ist ja eigentlich ganz logisch!
Und was das Ausdrücken betrift, das war mein Fehler, sorry.
Hab nich mitgedacht

[sulu]

Hi, mein Programm sieht so aus :

$regfile = "m16def.dat"

Dim I As Integer
Dim N As Integer
dim Ton As Integer


$crystal = 16000000
$baud = 9600


Porta.7 = 1


'Ports für rechten Motor
Config Pinb.0 = Output
Config Pinb.1 = Output
Config Pind.5 = Output





'Rechter Motor ein
Portb.0 = 1
Portb.1 = 0
Portd.5 = 1 '

I = 100
Do
Pwm1a = I
Pwm1b = I
Waitms 40
I = I + 5
Loop Until I > 1023

Nur leider interessieren die Pwm Werte scheinbar nicht

[Xtreme]

Du musst nen Timer setzen... glaub ich.

MfG Xtreme

[Carbolo]

Wie es Extreme sagt: Du hast den timer rausgespart, sprich: dir fehlen die globalen Werte.

Auszug aus dem Testprogramm:

.............

Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down
Pwm1a = 0 'initialisieren
Pwm1b = 0
Tccr1b = Tccr1b Or &H02 'Prescaler = 8


Schöne Grüße:
Z

[sulu]

Hab mal rum probiert. Jetzt klappt es .
Macht ja echt Bock das Programmieren!