"Function Generator" Triangular Wave disturb
Every Triangular pulse is disturb.
.Code:' chip - PIC18F4620 @ __CONFIG _CONFIG1H, _OSC_HSPLL_1H @ __CONFIG _CONFIG3H, _PBADEN_OFF_3H & _MCLRE_ON_3H DEFINE OSC 40 INCLUDE "modedefs.bas" include "My_EasyPIC4_LCD.bas" DEFINE ADC_BITS 10 DEFINE ADC_CLOCK 2 ADCON0 = %00001111 ADCON1 = %00001011 B0 VAR WORD B1 VAR WORD B2 VAR WORD B3 VAR WORD B4 VAR WORD B5 VAR WORD B6 VAR WORD C0 VAR BYTE C1 VAR BYTE PAUSE 1000 LCDOUT $FE,1 PAUSE 1000 TRISB=$00 TRISD=%11110000 'Bits-4,5,6,7 Inputs, & Bits-3,2,1,0 Outputs of PORTD Keyscane: LCDOUT $FE, 1 LCDOUT "Scanning" IF PORTD.4 = 1 THEN SquareWave IF PORTD.5 = 1 THEN TriangularWave IF PORTD.5 = 1 THEN SineWave GOTO Keyscane SineWave: IF PORTD.5 = 1 THEN SineWave 'Wait for release button TRISD=$00 'Make PortD an Output Port LCDOUT $FE, 1 LCDOUT "Sine-Wave" pause 200 C0=0 'Initialize the Sine Angle Init_Sine: TRISD=$00 'PortD an Output Port PORTD=((((SIN C0)+127)/10)*5)+50 '(+127) Removes the Negative Values 'Ampitude (Peak Value) = 1/2 of 5/10 'of the Maximum Output Voltage '50 Represents the DC Offset 'DC Offset = 1/2 of 50/255 'of the Maximum Output Voltage 'The DC Offset is Measured between Zero 'and the Negative Peak of the Sinewave. 'To Obtain the Maximum Value, Change 'Both the 5 and the 10 to a 1. pauseus 1 'Pause Allowed between Angle Changes 'This will create, approximately, 100 Hz C0=C0+1 'Increments the Sine Angle by 1 out of 255 GOTO Init_Sine SquareWave: IF PORTD.4 = 1 THEN SquareWave TRISD=$00 LCDOUT $FE, 1 LCDOUT "Square-Wave" PAUSE 200 Init_Square: TRISD=$00 'PortD an Output Port PORTD=0 'Square-Wave at PortD 'Starting with Decimal 0 out of 255 'of the Maximum Output Voltage. PAUSEUS 2 'The Smallest PAUSE Allowed is 5 micro-seconds. 'approximately 46KHz. PORTD=255 PAUSEUS 2 GOTO Init_Square TriangularWave: IF PORTD.5 = 1 THEN TriangularWave TRISD=$00 LCDOUT $FE, 1 LCDOUT "Triangle-Wave" PAUSE 500 Init_Triangluar: TRISD=$00 'PortD an Output Port PORTD=0 'Triangle-Wave at PortD 'Starting with Decimal 0 out of 255 'of the Maximum Output Voltage. PAUSE 1 'The Smallest PAUSE Allowed is 1 micro-second. '10 micro-seconds, in 1 micro-second steps, 'approximately, 40KHz. PORTD=25 PAUSEUS 1 PORTD=50 PAUSEUS 1 PORTD=75 PAUSEUS 1 PORTD=100 PAUSEUS 1 PORTD=125 PAUSEUS 1 PORTD=150 PAUSEUS 1 PORTD=175 PAUSEUS 1 PORTD=200 PAUSEUS 1 PORTD=225 PAUSEUS 1 PORTD=255 PAUSEUS 1 PORTD=225 PAUSEUS 1 PORTD=200 PAUSEUS 1 PORTD=175 PAUSEUS 1 PORTD=150 PAUSEUS 1 PORTD=125 PAUSEUS 1 PORTD=100 PAUSEUS 1 PORTD=75 PAUSEUS 1 PORTD=50 PAUSEUS 1 PORTD=25 GOTO Init_Triangluar END
Originally Posted by Bruce
Bookmarks