RNFRA+Sensor+Schrittmotor

[Richard]

Das ist kein Programm, wo sind die Sub Routinen und wo werden sie aufgerufen/beendet?
Ein Elseif oder auch ein Then alleine in einer Zeile ergibt keinen Sinn...und bitte Programmzeilen/Beispiele in Code Tags
(

)
Programm
(

)
Einsperren.

Gruß Richard

[DarkSoldier]

kann mir jemand von euch sagen, wie mann eine wenn, dann Beziehung schreibt wäre echt nett.
danke an Richard und radbruch die versucht haben aus meinem blödsinn noch was gescheids zu machen.
mfg
DarkSoldier

[Richard]

if x = 1 then gosub...............'gehe zu subroutine LED EIN
else Gosub ...........................'gehe zu subroutine LED AUS

Bascom Hilfe IF,Then,else, gosub, Call, return ...für jeden Befehl gibt es kleine leicht zu verstehende Beispiele, die solltest (MUSST) Du leider abarbeiten und ausprobieren. Da geht KEIN Weg an vorbei!!!!!! Genau genommen sollte man ALLE Befehle aus der Hilfe so nach und nach durch probieren um die Möglichkeiten von Bascom zu erlernen. Mühsam ernährt sich das Eichhörnchen....oder es verhungert,stirbt aus.

Gruß Richard

[DarkSoldier]

gibts des ganze auch auf deutsch? wenn net is auch egal

[Searcher]

gibts des ganze auch auf deutsch?

Hier ist 'ne Seite auf deutsch, die ich sehr hilfreich finde.

http://halvar.at/elektronik/kleiner_bascom_avr_kurs/

Gruß
Searcher

[DarkSoldier]

Danke werde mir diese seite mal zu gemüte führen baue grad an meinem Robotergehäuse und dann les ichs
Danke
mfg Dark

[DarkSoldier]

Nachdem mir radbruch das ganze programm schon einmal formatiert hat poste ich es jetzt da mir noch eine Frage aufgekommen ist:
Nach dem Unterprogramm besteht Bascom darauf, dass man noch ein loop hinzufügt. Aber soweit ich weiß hat man dann eine schleife. Deshalb ist meine Frage: Wie muss man das programmieren dass er nach einmaligen durchlauf wieder zurück zum hauptprogramm springt?
PS Dass noch nichts im Hauptprogramm steht weiß ich
$regfile = "M32def.dat"
$crystal = 8000000

' Interruptserviceroutinen(ISR) Zuordnen
On Int0 Unterprogramm1
On Int1 Unterprogramm1
On Int2 Unterprogramm1

' erst enablen wenn alle Interrupteinstellungen erledigt sind
Enable Interrupts

' es reicht die funktionen der Pins einmalig festzulegen
Config Pinc.3 = Output
Config Pinc.4 = Output
Config Pinc.5 = Output
Config Pind.6 = Output

Portc.3 = 0
Portc.4 = 1
Portc.5 = 0
Portd.6 = 1 'Portd?

' Hauptschleife
Do

Loop

' Programmende
End


' ISR
Unterprogramm1:

Portc.4 = 0
Portc.5 = 1
Portd.6 = 0

Wait 2

Portd.6 = 1

Wait 2

Portd.6 = 0

Do

Waitms 5
Portc.3 = 1
Waitms 5
Portc.3 = 1
Loop

Return


Danke im Vorraus
MfG Dark