Bascom prorgamm für einen Anfänger

[patti16]

Hallo leute,

hat einer ein Programm für das Board RN-Atmega 8 V.1.4 wo man per knopf druck ein servo bewegen lässt? oder könnte mir jemand sowas schreiben?

ich habe das zwar schonmal ausprobiert, aber da ich ein anfänger bin habe ich noch probleme damit.

danke schonmal im voraus.

gruß
patrick

[Marco78]

Es ist ja nicht schlimm, das du noch Anfänger bist. Alle mussten mal anfangen (auch wenn einige hier das wohl schon vergessen haben ).
Wenn du es schon probiert hast, poste doch mal dein Code. Dann kann man sehen, was falsch ist oder was man evtl verbessern könnte. Ich denke damit lernst du mehr als wenn du ein fertiges Programm dafür hast.

[patti16]

hi


glaube nicht das ihr ihn sehn wollt ist alles falsch habe den gestern dann mal nach gucken lassen. Aber glaube ich habe jetzt was gefunden zur tasten deklartion.

aber danke marco78.

gruß
patrick

[patti16]

hi

hier habe ich mal das programm:

$regfile = "m8def.dat"

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

Dim Ws As Word 'Wird für Messung bei Tastenabfrage verwendet
Dim Adc_ohne_taste As Word

$crystal = 7372800 'Quarzfrequenz

$baud = 9600

I = 0
Sound Portb.0 , 400 , 450 'BEEP
Sound Portb.0 , 400 , 250 'BEEP
Sound Portb.0 , 400 , 450 'BEEP



Enable Int0
Config Int0 = Rising
On Int0 sprungmarke
Enable Interrupts

do
loop

Sprungmarke:


Config Servos = 1 , Servo1 = Portb.5 , Reload = 10

Config Portb = Output
Config Pinb.5 = Output


Servo(1) = 100 '1000 uS on


Do
For I = 0 To 100
Servo(1) = I
Waitms 1000
Next

For I = 200 To 0 Step -1
Servo(1) = I
Waitms 1000
Next
Loop

Return
End


so habe gerade das nochmal geändert.


gruß
patrick