Bascom Befehle

[Killer]

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:

Dim Eins As Long 
while Eins > 1

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

Im Vorraus schonmal Dankeeee!

MfG Killer

[tippo]

Hallo !

mit "wend"

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

[Killer]

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

MfG Killer

[tippo]

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

[Killer]

Das sieht doch gut aus
Vielen Dank!!!!

MfG Killer

[Killer]

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

MfG Killer

[tippo]

Mit "Call".

Funktion definieren:

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:

Call Batteriespannung    'Taste 1 Zeigt Bateriespannung über RS232 an

Steht alles im Beispielprogramm

mfG
Tippo

[linux_80]

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:

' 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:

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.