Need help: MikroC/MikroC Pro Compiler + PIC18F4550

[red_horse]

---

^
Gamit kaayo ng delay bai. Ky huwaton pa man ni PIC na maka reply si GSM.
And kabantay ka anang mag text ta di ba di man dayon ma send?
Need jud na ang delay bai. Kanang 500 milliseconds na gigamit dra I think mao na pinaka safe para ana na modem. Pero pwedi sad unya nimo na experiment ug paggamay.

Anyway wa pa man sad ko kagamit ug GSM modem. Dili pa ko ka afford, hehe.
Katong ako globe tattoo gigamit then visual basic(vb6) ang mag send sa AT commands. Then interface sa PIC para home automation.
Pero pareha pareha lang japun ang mga AT commands gigamit.
Nakasuway sad ko PIC ug 6100 na cellphone. Pero ang codes gi base ra nako sa nakita nako sa forum.

[fwi-fwi]

makes sense sad bitaw. murag tagaan sah nimu siya ug gamayng delay para mahuman siya sa pag-send sa first message before ka mag-send ug laing message. murag napun-an ang gamayng understanding nako sa programming dah. haha salamat napud bai red_horse.

mahal2x sad jud ning GSM module na among gamitonon. paksit pitaka pero ok ra, basta ka-graduate lang. hahaha wala koy idea anang visual basic bai. suya lagi ko nimu bai, nakasuway naman ka gamit ug cellphone na gi-interface sa PIC. haha mag-experimento lang nya pud ko ug ako. d^^,b

[red_horse]

^ Need sad ug time bai na maka process si GSM.
Anyway mas maka suya ng imoha bai ky GSM modem jud. Kaning ako namulong lang ko ug way para dili kaayo mahal ako gasto.

Ang problema sa mo gamit ug globe tattoo ug vb6 ky dili siya stand alone, need jud siya ug PC. Pero OK siya para sa mga projects na mag gamit ug database.

Naa ko gamay ug simple na video ay,
VB6+GlobeTattoo+PIC16F887

[fwi-fwi]

woah! cool lagi to bai red_horse! perti najud nakong suyaa. pinaka-imba na akong nabuhat kay line-follower raman to, 3 pajud mi gatabang ug himu. hahahaha

bai red_horse, naa ko problem ba, mayta ug naa kay time sa pagtubag. ug sa ubang mga masters diha, mangayo lang pud ko ug tabang.

gamit ani kay PIC18F4550, 8MHz, Vs = 5V. ang program kay dapat after 30secs, ang highest x reading within that 30secs kay mu-determine kung unsa na LED ang mu-ON.

conditions:
x_max < 0 =============== RC0 = 0, RC4 = 0, RC7 = 0
1 >= x_max < 2 (volts) ===== RC0 = 0, RC4 = 0, RC7 = 1
2 >= x_max < 3 (volts) ===== RC0 = 0, RC4 = 1, RC7 = 0
x_max >= 3 (volts) ======== RC0 = 1, RC4 = 0, RC7 = 0
after 30secs kay restart napud.

ang problema kay dili jud mu-work ang akong gihimu na program. ako gi-paste ang akong code na nahimu ug ang schematic niya.

Code na akong nabuhat: (mikroC 8.2.0.0 akoang gamit. dili katong mikroC PRO)
//start
unsigned int cnt;
unsigned long x, x_max;

void interrupt() {
cnt++; // Increment value of cnt on every interrupt
TMR0L = 96;
INTCON = 0x20; // Set T0IE, clear T0IF
}

void readData() {
x = Adc_read(0);
//y = Adc_read(1);
// z = Adc_read(2);
}

void main(){
CMCON = 0x07;
ADCON1 = 0x1C;
TRISA = 0x0F;
TRISB = 0x3F;
TRISC = 0x00;
PORTC = 0x00;

T0CON = 0xC7; // Set TMR0 in 8bit mode, assign (256) prescaler to TMR0
TMR0L = 96; // Timer0 initial value
INTCON = 0xA0; // Enable TMRO interrupt
cnt = 0; // Initialize cnt
x_max = 0;

while(1){

readData();
if(x > x_max){
x_max = x;
}

else if(cnt==1470){ // 256*4*(1/8000000)*(256-96)*1470 = 30secs
cnt = 0;

if((x_max>=205)&&(x_max<410)){ // 1 >= x_max < 2 (volts)
PORTC.F0 = 0;
PORTC.F4 = 0;
PORTC.F7 = 1;
}
else if((x_max>=410)&&(x_max<615)){ // 2 >= x_max < 3 (volts)
PORTC.F0 = 0;
PORTC.F4 = 1;
PORTC.F7 = 0;
}
else if(x_max>=615){ // x_max >= 3 (volts)
PORTC.F0 = 1;
PORTC.F4 = 0;
PORTC.F7 = 0;
}
else{
PORTC.F0 = 0;
PORTC.F4 = 0;
PORTC.F7 = 0;
}
x_max = 0;
}
}
}
//end

Spoiler: Schematic 

[Tin_Tin]

bai red_horse, salamat sa concern. nakahimu nako sa part sa among project na mugamit ug ADC ug UART. pero naa ko pangutana bai ba, unsai gamit aning akong gi-arrow? gkan ni sa thesis sa nag-una namo na batch. wala nalang pud nako hilabti pero ni-work raman pag-simulate. PIC16F877A ang gigamit ani unya g-interface ni siya ug SCA1020 accelerometer unya i-send ang values gikan sa accelerometer gamit ang SIM900D GSM module.


// dili ni siya ang tibuok program bai, ang main function lang ni.
void main(){
ADCON1 = 0x80;
TRISA = 0xFF;
TRISB = 0x3F;
TRISC = 0x00;
PORTC = 0x30;

Usart_Init(9600);
Usart_Write('A');
Usart_Write('T');
Usart_Write('\r');

TRISB = 0x00;
PORTB = 0xFF;
Delay_ms(500);
Usart_Write('A');
Usart_Write('T');
Usart_Write('+');
Usart_Write('C');
Usart_Write('M');
Usart_Write('G');
Usart_Write('F');
Usart_Write('=');
Usart_Write('1');
Usart_Write('\r');
TRISB = 0x00;
PORTB = 0x00;
Delay_ms(500);

while(1){
readData();
TRISC = 0x00;
PORTC = 0x20;
TRISD = 0x00;
PORTD = 0xFF;
send_data();
Delay_ms(500);

Usart_Write('X');
send_first_digits();

TRISB = 0x00;
PORTB = 0xFF;
Delay_ms(50);
Usart_Write('Y');
send_second_digits();

Usart_Write(0x1A); //<--------- kani siya ba, unsai gamit ani?
TRISB = 0x00;
PORTB = 0x00;
TRISC = 0x00;
PORTC = 0x30;
Delay_ms(500);
Usart_Write ('\r');
}
}

Nag transmit ka sa usart nga port ug '00011010'. Dali ra ang MikroC kay complete sa libraries daan pero mas nindot daw ug compiler ang HI-TEC nga C.

[red_horse]

woah! cool lagi to bai red_horse! perti najud nakong suyaa. pinaka-imba na akong nabuhat kay line-follower raman to, 3 pajud mi gatabang ug himu. hahahaha

bai red_horse, naa ko problem ba, mayta ug naa kay time sa pagtubag. ug sa ubang mga masters diha, mangayo lang pud ko ug tabang.

gamit ani kay PIC18F4550, 8MHz, Vs = 5V. ang program kay dapat after 30secs, ang highest x reading within that 30secs kay mu-determine kung unsa na LED ang mu-ON.

conditions:
x_max < 0 =============== RC0 = 0, RC4 = 0, RC7 = 0
1 >= x_max < 2 (volts) ===== RC0 = 0, RC4 = 0, RC7 = 1
2 >= x_max < 3 (volts) ===== RC0 = 0, RC4 = 1, RC7 = 0
x_max >= 3 (volts) ======== RC0 = 1, RC4 = 0, RC7 = 0
after 30secs kay restart napud.

ang problema kay dili jud mu-work ang akong gihimu na program. ako gi-paste ang akong code na nahimu ug ang schematic niya.

Code na akong nabuhat: (mikroC 8.2.0.0 akoang gamit. dili katong mikroC PRO)
//start
unsigned int cnt;
unsigned long x, x_max;

void interrupt() {
cnt++; // Increment value of cnt on every interrupt
TMR0L = 96;
INTCON = 0x20; // Set T0IE, clear T0IF
}

void readData() {
x = Adc_read(0);
//y = Adc_read(1);
// z = Adc_read(2);
}

void main(){
CMCON = 0x07;
ADCON1 = 0x1C;
TRISA = 0x0F;
TRISB = 0x3F;
TRISC = 0x00;
PORTC = 0x00;

T0CON = 0xC7; // Set TMR0 in 8bit mode, assign (256) prescaler to TMR0
TMR0L = 96; // Timer0 initial value
INTCON = 0xA0; // Enable TMRO interrupt
cnt = 0; // Initialize cnt
x_max = 0;

while(1){

readData();
if(x > x_max){
x_max = x;
}

else if(cnt==1470){ // 256*4*(1/8000000)*(256-96)*1470 = 30secs
cnt = 0;

if((x_max>=205)&&(x_max<410)){ // 1 >= x_max < 2 (volts)
PORTC.F0 = 0;
PORTC.F4 = 0;
PORTC.F7 = 1;
}
else if((x_max>=410)&&(x_max<615)){ // 2 >= x_max < 3 (volts)
PORTC.F0 = 0;
PORTC.F4 = 1;
PORTC.F7 = 0;
}
else if(x_max>=615){ // x_max >= 3 (volts)
PORTC.F0 = 1;
PORTC.F4 = 0;
PORTC.F7 = 0;
}
else{
PORTC.F0 = 0;
PORTC.F4 = 0;
PORTC.F7 = 0;
}
x_max = 0;
}
}
}
//end

Spoiler: Schematic 

Sorry bro karun lang jud ko maka online.. Supersurf lang ni ako ginagamit.

Anyway MikroC Pro man ako gamit. Ako sa i-try imo codes bossing hah. Newbie pa pud ko kaayo aning PIC18f4550. Di ko sure sa config settings, daghan kaayo compared sa pic887. Ahehehe.

[fwi-fwi]

salamat bai tin_tin.
mikroC man sad gud ang gipagamit sa amoa, mao napugos ug pagkat-on.

basin ganahan ka mag-code2 karon bai ba, mangayu lang unta ko ug tabang sa lain nakong problema. d^^,b

Spoiler! 

gamit ani kay PIC18F4550, 8MHz, Vs = 5V. ang program kay dapat after 30secs, ang highest x reading within that 30secs kay mu-determine kung unsa na LED ang mu-ON.

conditions:
x_max < 0 =============== RC0 = 0, RC4 = 0, RC7 = 0
1 >= x_max < 2 (volts) ===== RC0 = 0, RC4 = 0, RC7 = 1
2 >= x_max < 3 (volts) ===== RC0 = 0, RC4 = 1, RC7 = 0
x_max >= 3 (volts) ======== RC0 = 1, RC4 = 0, RC7 = 0
after 30secs kay restart napud.

ang problema kay dili jud mu-work ang akong gihimu na program. ako gi-paste ang akong code na nahimu ug ang schematic niya.

Code na akong nabuhat: (mikroC 8.2.0.0 akoang gamit. dili katong mikroC PRO)
//start
unsigned int cnt;
unsigned long x, x_max;

void interrupt() {
cnt++; // Increment value of cnt on every interrupt
TMR0L = 96;
INTCON = 0x20; // Set T0IE, clear T0IF
}

void readData() {
x = Adc_read(0);
//y = Adc_read(1);
// z = Adc_read(2);
}

void main(){
CMCON = 0x07;
ADCON1 = 0x1C;
TRISA = 0x0F;
TRISB = 0x3F;
TRISC = 0x00;
PORTC = 0x00;

T0CON = 0xC7; // Set TMR0 in 8bit mode, assign (256) prescaler to TMR0
TMR0L = 96; // Timer0 initial value
INTCON = 0xA0; // Enable TMRO interrupt
cnt = 0; // Initialize cnt
x_max = 0;

while(1){

readData();
if(x > x_max){
x_max = x;
}

else if(cnt==1470){ // 256*4*(1/8000000)*(256-96)*1470 = 30secs
cnt = 0;

if((x_max>=205)&&(x_max<410)){ // 1 >= x_max < 2 (volts)
PORTC.F0 = 0;
PORTC.F4 = 0;
PORTC.F7 = 1;
}
else if((x_max>=410)&&(x_max<615)){ // 2 >= x_max < 3 (volts)
PORTC.F0 = 0;
PORTC.F4 = 1;
PORTC.F7 = 0;
}
else if(x_max>=615){ // x_max >= 3 (volts)
PORTC.F0 = 1;
PORTC.F4 = 0;
PORTC.F7 = 0;
}
else{
PORTC.F0 = 0;
PORTC.F4 = 0;
PORTC.F7 = 0;
}
x_max = 0;
}
}
}
//end

Spoiler: Schematic 

[fwi-fwi]

ok lang bai red_horse, wa jud nai problema.
pare-pareha lang man sad ug mga registers ang pic18f4550 ug pic16f877a. kung dili jud ka comforatble na amg-work with pic18f4550 kay pic16f877a lang gamita, ang ako lang kay dapat mahibaw-an nako ang unsai dapat na-flow sa code na maka-register sa highest reading within a set of time. d^^,b

[red_horse]

Please daw try ani bro,


###################################
unsigned int cnt;
unsigned long x, x_max;

void interrupt() {
cnt++; // Increment value of cnt on every interrupt
TMR0L = 96;
INTCON = 0x20; // Set T0IE, clear T0IF
}

void readData() {
x = Adc_read(0);
//y = Adc_read(1);
// z = Adc_read(2);
}

void main(){
CMCON = 0x07;
ADCON1 = 0x0E;
TRISA = 0x01;
TrisD = 0;
PORTD = 0;
//TRISB = 0x3F;
TRISC = 0x00;
PORTC = 0x00;

T0CON = 0xC7; // Set TMR0 in 8bit mode, assign (256) prescaler to TMR0
TMR0L = 96; // Timer0 initial value
INTCON = 0xA0; // Enable TMRO interrupt
cnt = 0; // Initialize cnt
x_max = 0;

while(1){

readData();
if(x > x_max){
x_max = x;
PORTD = x;
}

if (cnt==150){ // 256*4*(1/8000000)*(256-96)*1470 = 30secs
cnt = 0;

if((x_max>=380)&&(x_max<600)){ // 1 >= x_max < 2 (volts)
PORTC.F0 = 0;
PORTC.F4 = 0;
PORTC.F7 = 1;
}

if((x_max>=600)&&(x_max<800)){ // 2 >= x_max < 3 (volts)
PORTC.F0 = 0;
PORTC.F4 = 1;
PORTC.F7 = 0;
}

if(x_max>=800){ // x_max >= 3 (volts)
PORTC.F0 = 1;
PORTC.F4 = 0;
PORTC.F7 = 0;
}
if(x_max<=379){ // x_max < 3 (volts)
PORTC.F0 = 0;
PORTC.F4 = 0;
PORTC.F7 = 0;
}
/*
else PORTC = 0; {
PORTC.F0 = 0;
PORTC.F4 = 0;
PORTC.F7 = 0;
}
*/

x_max = 0;
}
}
}

###############################

And please butangi ug resistors imo mga LEDs bro. Akong gi less than 30 seconds para dali nato makit-an ang pag change sa LEDs.

[red_horse]

PIC18F4550 ako gigamit bro..