RandGen2.SetRndMax(6)

// Device and Clock 
Device = 18F452                // Tell the compiler what chip we are using 
Clock = 20                     // Tell the compiler what we will be setting the clock to (Mhz)            
 
// LCD optional settings 
#option LCD_DATA = PORTC.4          // LCD setup data port (sets it to 4 data lines only)
#option LCD_RS = PORTE.0          
#option LCD_EN = PORTE.1
 
// Modules 
Include "LCD.bas"                   // include LCD module
Include "convert.bas"               // include convert to convert dec, binary to string etc.
Include "randgen2.bas" 
 
// Variable Declarations
Dim RandomVal As LongWord       // used to store the random number
Dim myvalue As Byte             // used to store random number seed
 
// Set Ports             
ADCON1 = $07        // Make all pins digital I/O's - check datasheet 
TRISA = %111111     // Make PORTA all inputs  
TRISB = %11111111   // Make PORTB all inputs 
TRISC = %00000000   // Make PORTC all outputs          
TRISD = %00000000   // Make PORTD all outputs 
TRISE = %000        // Make PORTE all outputs
 
// Delay for LCD and Ports setup
DelayMS(200)                  // Allow LCD to warm up  
LCD.Cls                       // Clear the LCD screen
 
// Initialize Variables  
myvalue = 2
RandGen2.Initialize (myvalue)        // Initialize the Random Number generator. 
RandGen2.SetRndMax(6)                // Set random MAX number
 
// Main Program 
While True                 
        RandomVal = RandGen2.rand ()   // Grab a random number
 
        LCD.WriteAt(1,1,"Rand Value = ",Convert.DecToStr(RandomVal,1))    // Send text to the LCD screen
 
        DelayMS(1000)
Wend