Voltage output from PIC16f628A

[mister_e]

I don't know wich terminal software you're using but be sure it send ASCII character and use the right modifier in your Serin/Serin2/DEBUGIN/HSERIN line.

Look for # or DEC.

Also, make sure your terminal software don't send cr and lf character.

Once you're sure of it, you should have better results.

If you send 100 and receive it correctly, you should have a 16% duty cycle.

[bennamanna]

Gday,

I am using serial communicator that is with microcode studio. I cant see a setting to ensure it is sending ascii. I made sure it was not sending cr and it made no diference.

The code I am using is below.

NCLUDE "modedefs.bas" ' Include serial modes
SI VAR PORTB.1 ' Serial Input pin
B0 VAR BYTE
Define OSC 10

Define LCD_DREG PORTA ' RA0..3
Define LCD_DBIT 0
Define LCD_RSREG PORTA ' RA6
Define LCD_RSBIT 6
Define LCD_EREG PORTA ' RA4
Define LCD_EBIT 4
Define LCD_BITS 4
TRISA = 0
TRISB = 0
CMCON = 7

Pause 1000 ' Wait for LCD to startup

duty VAR BYTE ' Duty cycle value (CCPR3L:CCP3CON<5:4>)

TRISB.3 = 0 ' Set PORTB.5 (CCP3) to output
CCP1CON = %00001100 ' Set CCP3 to PWM
T2CON = %00010101 ' Turn on Timer2, Prescale=4

PR2 = 155 ' Set PR2 to get 1KHz out
duty = 100 ' Set duty cycle to 20%

loop:
SerIn SI,T9600,,duty
if duty > 625 then
LCDOut $FE,1 ' Clear LCD screen
LCDOut "Duty to great" ' Display line 1
goto loop
endif

CCP1CON.4 = duty.0 ' Store duty to registers as
CCP1CON.5 = duty.1 ' a 10-bit word
CCPR1L = duty >> 2

'duty = duty + 5 ' Increase duty cycle
LCDOut $FE,1 ' Clear LCD screen
LCDOut # duty ' Display line 1

GoTo loop ' Do it forever

Any other ideas why it is not receiving the same as I send it?

Thanks,

Ben

[sayzer]

hi Ben,

Since our PICs are serial processors, at least for now, and must execute the instructions serially, that is to say one line or instruction at a time, you will never get Serin and Serout commands working at the same time.

If you use hardware USART, then it will be working in the background, so that you can receive something at the same time you send it.


-----------------------------

[mister_e]

As i said before... look for # modifier... it convert your ASCII string to a DECIMAL value.

[bennamanna]

Hi sayzer,

Thanks for your reply. I did not think that my code was trying to use ser in and out at the same time? Could you indicate where I am doing this? Thanks mate.

mister_e,

Thanks once again. I'm sorry if I'm making you repeat your self. As stated before I am a beginner. I had however already played with # in my code. I tested it with and without. With out # all i get is jargon.

Thanks,

Ben

[mister_e]

T2CON = %00010101 ' Turn on Timer2, Prescale=4
'
'
'
duty = 100 ' Set duty cycle to 20%

1. your prescaler is not set to 1:16 as said in the calc. Now, it's set to 1:4. Have a look in datasheet section 8.0 register 8-1 T2CON. you'll discover you need to use T2CON=%00000110

2. duty=100 set a duty cycle of 16%... still as per the calc. 20% Duty=125

SerIn SI,T9600,,duty

i think it's invalid.

you should try

SerIn SI,T9600,#duty

In Microcode Studio serial communicator, you have access to the settings. Right to 'send' button there's a little arrow.. click on it, go to line terminator, then check 'No terminator'

[bennamanna]

Gday,

I changed the items you found to be in correct. It still will not output what I send via RS232. It comes up with other numbers. I will repost the code I have ended up with below.

INCLUDE "modedefs.bas" ' Include serial modes
SI VAR PORTB.1 ' Serial Input pin
B0 VAR BYTE
Define OSC 10

Define LCD_DREG PORTA ' RA0..3
Define LCD_DBIT 0
Define LCD_RSREG PORTA ' RA6
Define LCD_RSBIT 6
Define LCD_EREG PORTA ' RA4
Define LCD_EBIT 4
Define LCD_BITS 4
TRISA = 0
TRISB = 0
CMCON = 7

Pause 1000 ' Wait for LCD to startup

duty VAR word ' Duty cycle value (CCPR3L:CCP3CON<5:4>)

TRISB.3 = 0 ' Set PORTB.5 (CCP3) to output
CCP1CON = %00001100 ' Set CCP3 to PWM
T2CON = %00000110 ' Turn on Timer2, Prescale=6

PR2 = 155 ' Set PR2 to get 1KHz out
duty = 125 ' Set duty cycle to 20%

loop:
SerIn SI,T9600,,# duty

if duty > 625 then
LCDOut $FE,1 ' Clear LCD screen
LCDOut "Duty to great" ' Display line 1
goto loop
endif

CCP1CON.4 = duty.0 ' Store duty to registers as
CCP1CON.5 = duty.1 ' a 10-bit word
CCPR1L = duty >> 2

'duty = duty + 5 ' Increase duty cycle
LCDOut $FE,1 ' Clear LCD screen
LCDOut # duty ' Display line 1

GoTo loop ' Do it forever



Any other ideas?

Thanks,

Ben