Code
Code
'****************************************************************
'* Name : VU-meter.BAS *
'* Author : electro_freakz *
'* Notice : Copyright (c) 2009 www.electrofreakz.tk *
'* : All Rights Reserved *
'* Date : 8-4-2009 *
'* Version : 1.0 *
'* Notes : *
'* : *
'****************************************************************
DEVICE 16F628A
CONFIG INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_OFF
ALL_DIGITAL TRUE
;Algemene constanten
SYMBOL Lengte = 16
SYMBOL Schaal = 255
;Poortnamen
SYMBOL Potmeter = PORTA.1
SYMBOL potmeter2 = PORTA.0
;Variabelen declareren
DIM Half AS BYTE
DIM Som AS BYTE
DIM Vol AS BYTE
DIM Weerstand AS BYTE
DIM Weerstand2 AS BYTE
CLEAR
DELAYMS 500
PRINT $FE,$40,$15,$15,$15,$15,$15,$15,$15,$15,_
$10,$10,$10,$10,$10,$10,$10,$10,_
$14,$14,$14,$14,$14,$14,$14,$14
;Hoofdprogramma
CLS
WHILE 1 = 1
Weerstand = POT Potmeter, Schaal
Som = (Weerstand * Lengte) / 85
Vol = Som / 3
Half = Som // 3
PRINT AT 1, 1, REP 0Vol
IF Half > 0 THEN PRINT Half
PRINT REP " "Lengte - Vol
Weerstand2 = POT potmeter2, Schaal
Som = (Weerstand * Lengte) / 85
Vol = Som / 3
Half = Som // 3
PRINT AT 2, 1, REP 0Vol
IF Half > 0 THEN PRINT Half
PRINT REP " "Lengte - Vol
WEND
END