Bascom Verständninsproblem
Hi zusammen,
habe nen kleines Programm in Bascom geschrieben und hätte dazu mal zwei Fragen.
Code:
$regfile = "m163def.dat" ' specify the used micro
$crystal = 1000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space
Config Portd = Input
$lib "glcdKS108.lbx"
$include "font8x8.font"
Config Graphlcd = 128 * 64sed , Dataport = Porta , Controlport = Portc , Ce = 1 , Ce2 = 2 , Cd = 5 , Rd = 4 , Reset = 0 , Enable = 3
Cls
Setfont Font8x8
Showpic 0 , 0 , Intro
Lcdat 8 , 1 , "<<<"
Lcdat 8 , 107 , ">>>"
Lcdat 8 , 48 , "Enter"
Do
Debounce Pind.0 , 0 , Intense , Sub
Debounce Pind.1 , 0 , Intense , Sub
Debounce Pind.2 , 0 , Intense , Sub
Loop
End
Intense:
Cls
Lcdat 1 , 18 , "Config Menue"
Lcdat 3 , 28 , "-Intense-"
Lcdat 8 , 1 , "<<<"
Lcdat 8 , 107 , ">>>"
Lcdat 8 , 48 , "Enter"
Return
Intro:
$bgf "intro.bgf"
1. Wenn ich in der DO/LOOP Schleife ne Subroutine aufrufe, und diese mit Return beende, geht er dann wieder in die DO/LOOP Schleife?
2. Wie kann ich einen LCD Statusbalken mit Prozent Anzeige realisieren? Bereich Invertieren? Oder doch besser ascii char?
Besten Dank im voraus.
Gruß
RVG
