Bascom Befehle

Hey,
wer hat soviel Ahnung vom Bascom dass er mir hier weiterhelfen kann?
Es gibt ja die Standart Schleife "do...loop". Ich möchte aber verschachtelte Schleifen bauen, die (z.B.) so arbeiten sollen: Solange Variable grösser als 1 ist, mache das und das.
Ich habs mit "while" probiert also zum Beispiel:

Code:

---

Dim Eins As Long
while Eins > 1

---

das Problem: wie schließe ich diese Schleife jetzt wieder?

Im Vorraus schonmal Dankeeee! ;-)

MfG Killer

Hallo !

mit "wend" :)

Code:

---

A = 1
While A < 10
Print A 'print var
Incr A
Wend

---

(aus der Bascom Hilfe)
Zu finden auf der Bascom Homepage als BascomAVR Handbuch (pdf, 15,5MB)

mfg
Tippo

Danke soweit! Und wie sieht es mit Funktionen aus? Wie baue ich sie auf und kann ich mit "goto" auf sie "springen"???

MfG Killer

Hallo !
Schau dir mal hier https://www.roboternetz.de/wissen/index.php/RN-Control das Beispielprogramm durch und stöbere ein bissche in den diversen Beispielcodes.
Ich bin sicher du findest schnell deine Antworten ;)

mfG
Tippo

Das sieht doch gut aus :-)
Vielen Dank!!!!

MfG Killer

Okay aber was mir da nicht raus hervorgeht, wie man eine Funktion aufrufen kann... wer kann mir helfen???

MfG Killer

Mit "Call".

Funktion definieren:

Code:

---

Sub Batteriespannung()
Local W As Word
  Start Adc
  W = Getadc(6)
  Volt = W * Ref
  Volt = Volt * 5.2941
  Print "Die aktuelle Spannung beträgt: " ; Volt ; " Volt"

End Sub

---

Funktion aufrufen:

Code:

---

Call Batteriespannung    'Taste 1 Zeigt Bateriespannung über RS232 an

---

Steht alles im Beispielprogramm ;)

mfG
Tippo

Holla,

@tippo, das ist aber keine Funktion !

Eine Funktion hat, zum Unterschied einer Sub, die Möglichkeit einen Wert zurückzuliefern. Diesen Wert muss man beim Aufruf an eine Variable zuweisen.

Function schaut so aus:

Code:

---

' als erstes muss die Function bekannt gemacht werden:
Declare Function Batteriespannung() as Word

' Die Function selber
Function Batteriespannung() as Word

  Start Adc
  ' Der Wert der zurückgegeben werden soll,
  ' muss einer Variablen zugewiesen werden, die den Namen der Function hat:
  Batteriespannung = Getadc(6)

End Function

---

Aufrufen:

Code:

---

Dim W as Word
Dim Volt as Single
Const Ref = 5 / 1023      'Für Batteriespannungsberechnung

' Aufrufen der Function und den Wert nach W
W = Batteriespannung()

Volt = W * Ref
Volt = Volt * 5.2941
Print "Die aktuelle Spannung beträgt: " ; Volt ; " Volt"

...
End

---

Call ist nur um eine Sub aufzurufen, es kann kein Wert direkt zurückgegeben werden.

Am besten in die Hilfe von Bascom schauen, da gibts zu allem ein Beispiel.