Whats the quickest way to set bits?

[Darrel Taylor]

<object id='stUkhdQ01IR1FYSF9cWVxcU1Nc' width='425' height='344' type='application/x-shockwave-flash' data='http://www.screentoaster.com/swf/STPlayer.swf' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,115,0'><param name='movie' value='http://www.screentoaster.com/swf/STPlayer.swf'/><param name='allowFullScreen' value='true'/><param name='allowScriptAccess' value='always'/><param name='flashvars' value='video=stUkhdQ01IR1FYSF9cWVxcU1Nc'/></object>

DEFINE OSC 4

;----[USART Settings]-------------------------------------------------------
DEFINE HSER_RCSTA 90h    ' Enable serial port & continuous receive
DEFINE HSER_TXSTA 24h    ' Enable transmit, BRGH = 1
DEFINE HSER_SPBRG 25     ' 9600 Baud @ 4MHz, 0.16%
DEFINE HSER_CLROERR 1    ' Clear overflow automatically

;----[LCD Settings]---------------------------------------------------------
DEFINE LCD_DREG PORTA     ' LCD data port 
DEFINE LCD_DBIT 4         ' LCD data starting bit 0 or 4 
DEFINE LCD_RSREG PORTA    ' LCD register select port 
DEFINE LCD_RSBIT 2        ' LCD register select bit 
DEFINE LCD_EREG PORTA     ' LCD enable port 
DEFINE LCD_EBIT 3         ' LCD enable bit 
DEFINE LCD_BITS 4         ' LCD bus size 4 or 8 
DEFINE LCD_LINES 2        ' Number lines on LCD 
DEFINE LCD_COMMANDUS 2000 ' Command delay time in us 
DEFINE LCD_DATAUS 50      ' Data delay time in us 

;----[A/D Settings]---------------------------------------------------------
DEFINE ADC_BITS 10        ' ADCIN resolution  (Bits)
DEFINE ADC_CLOCK 1        ' ADC clock source  (Fosc/8)
DEFINE ADC_SAMPLEUS 11    ' ADC sampling time (uSec)

;----[Variables]------------------------------------------------------------
GraphMAX   VAR WORD
GraphMIN   VAR WORD
GraphVal   VAR WORD
X          VAR WORD
ADval      VAR WORD
Xmax       VAR WORD
Xmin       VAR WORD
char       VAR BYTE
OverRange  VAR BIT
UnderRange VAR BIT

;----[Aliases]--------------------------------------------------------------
RCIF       VAR PIR1.5
OverPin    VAR PORTC.5
UnderPin   VAR PORTC.4

;----[Default Values]-------------------------------------------------------
GraphMAX   = 100
GraphMIN   = 0
Xmax    = 100
Xmin      = 0

;----[Initialize]-----------------------------------------------------------
PORTB = 0
TRISB = 0
PORTD = 0
TRISD = 0
ANSEL = %00000001
ANSELH = 0
ADCON1.7 = 1
PAUSE 250 : LCDOUT $FE,1 : PAUSE 250 : LCDOUT $FE,1
GOSUB ShowMenu
GOSUB ShowLimits
OverRange = 0
UnderRange = 0

;----[Main Program Loop]----------------------------------------------------
Main:
    IF RCIF THEN GOSUB Terminal
    GOSUB GetAD
    GOSUB ShowGraph
    GOSUB CheckOverUnder
GOTO Main

;----[Get and Scale Analog Reading]-----------------------------------------
GetAD:
    ADCIN 0, ADval
    X = ADval * (Xmax - Xmin)
    X = DIV32 1023 + Xmin
    LCDOUT $FE,$80, "AD=",DEC ADval, "    "
    LCDOUT $FE,$8B, "X=",DEC X, "    "
RETURN

;----[Show the BarGraph]----------------------------------------------------
ShowGraph:
    IF X > GraphMAX THEN
        OverRange = 1
    ELSE
        OverRange = 0
    ENDIF
    IF X < GraphMIN THEN
        UnderRange = 1
    ELSE
        UnderRange = 0
    ENDIF
    X = (X MIN GraphMAX) MAX GraphMIN
    
    ;-- This is the formula being tested ---------------------
    GraphVal = $FFFF >> (16-(((X - GraphMIN) * 16) / (GraphMAX - GraphMIN)))
    
    PORTD = GraphVal & $FF
    PORTB = GraphVal >> 8
RETURN

;----[Show Menu for Terminal]-----------------------------------------------
ShowMenu:
    HSEROUT ["MENU: 1=GraphMAX, 2=GraphMIN, 3=Xmax, 4=Xmin :"]
RETURN

;----[Handle the RS232 Terminal]--------------------------------------------
Terminal:
    HSERIN [char]
    SELECT CASE char
      CASE "1" : HSEROUT [13,10,"Enter the GraphMAX: "]
                 HSERIN  [DEC GraphMAX]
      CASE "2" : HSEROUT [13,10,"Enter the GraphMIN: "]
                 HSERIN  [DEC GraphMIN]
      CASE "3" : HSEROUT [13,10,"Enter the Xmax: "]
                 HSERIN  [DEC Xmax] 
      CASE "4" : HSEROUT [13,10,"Enter the Xmin: "]
                 HSERIN  [DEC Xmin]
      CASE ELSE : HSEROUT [7]
    END SELECT

;----[Show Limits]----------------------------------------------------------
ShowLimits:
    LCDOUT $FE,$C0,"    GRAPH    X      "
    LCDOUT $FE,$94,"MAX:                "
    LCDOUT $FE,$D4,"MIN:                "
    LCDOUT $FE,$99,DEC GraphMAX
    LCDOUT $FE,$D9,DEC GraphMIN
    LCDOUT $FE,$A1,DEC Xmax
    LCDOUT $FE,$E1,DEC Xmin

RETURN

;----[Look for Over and Under Range]----------------------------------------
BlinkSpeed  CON 50
BlinkCount  VAR WORD

CheckOverUnder:
    BlinkCount = BlinkCount + 1
    IF BlinkCount = BlinkSpeed THEN
        BlinkCount = 0
        IF OverRange THEN
            TOGGLE OverPin
        ELSE
            LOW OverPin
        ENDIF
        IF UnderRange THEN
            TOGGLE UnderPin
        ELSE
            LOW UnderPin
        ENDIF
    ENDIF
RETURN

This post has been promoted to a bar graph wiki page, located here: http://www.picbasic.co.uk/forum/cont...ge-min-and-max

[mackrackit]

Wow!!!!!
That is cooool!!!!!!!

[aratti]

Assuming you have to measure max 18 volts, then you will need a resistor devider by 4 which will yield 4,5 volts to the ADC input. Assuming you will use a 10 bits convertion then:

45000/1024 = 44 (rounded)

Your 16 leds graphs = $FFFF >>( 16- ((ADC * 44 * 16)/45000))

Cheers

Al.

[bearpawz]

thanks daryl, it does in fact work. I got tired last night and gave up on it and I think we were cross posting some how. Now all I have to do is tackle communications and Im done with this part of the project.

Btw: Whats that cool little program your using in your video?

[Darrel Taylor]

Yeah, it was kind of late.
But like I said, I needed the practice.

The simulator is Proteus VSM from Labcenter Electronics.
Definately the coolest program I've ever had.

[Charles Linquis]

Darrel,

I'm thinking of buying Proteus VSM. I know I should ask Labcenter, but since you use it with PBP, could I ask you a few questions?

All my schematic capture is in Altium (formerly Protel). Do you know if Proteus will import other formats? Altium will export in Orcad 8 format and a few others.

If I write a program in PBP, I assume that I have to feed Proteus the .ASM file in for the simulation. Is that true? I can't imagine that it would show me the PBP line it was executing during an animation. Just how easy is it to use in conjunction with PBP?

[Darrel Taylor]

I don't think it can import files from any other programs.
There's nothing in the menu's, but I don't know if there are any external conversion programs.

With PBP 2.60A, you can work directly with your PBP code and it will single step through the program as it's simulating. The internal editor is terrible, but you can use MCS as an external editor. It doesn't use MCS to single step, but it's easier to write stuff.

You can also integrate it with MPLAB, and it will single step using the MPLAB IDE and watch variables, have breakpoints etc, but it reduces the screen space for the simulation.

For me, it's easier to compile programs like I always do with MCS, and just run the .HEX file in Proteus like I would on real hardware. No single stepping that way, but I don't need to single step anymore anyhow.

There's a demo version available.
It's doesn't let you create your own schematics, but there are a bunch of samples that you can write your own PBP code for. It's kind of like buying several development boards. You can't change the hardware, but you can write programs to run on them. And they're free.

I've saved so much money since I got it.
I don't buy chips and parts and breadboards and LCD's etc. anymore.
All my breadboards and electronics stuff are still in boxes after the move to Colorado. Just don't need them anymore.