We strongly encourage users to use Package manager for sharing their code on Libstock website, because it boosts your efficiency and leaves the end user with no room for error. [more info]
posted on 2016/12/20 10:58:31 AM CET
Dear members I have a problem, I have prepared the code of GSM CONTROLLING APPLIANCES THROUGH SMS and when I compile it no any error comes after compiling and when i tested it on proteus using PIC16F877A all lights are turned on initially and always remain on until i stopped a simulation. Any one who can collect my code please can help me.. Below it's my code the code was compiled in MikroC for PIC.
/*GSM based device control system*/
/*The device status is stored in EEPROM inorder to avoid power failure problem*/
/*Mobile phone interfacing functions requires serial port with a baud rate of 9600*/
/*************************************************************/
sbit Device1 at RC1_bit; /*Device 1*/
sbit Device2 at RC2_bit; //Device 2
sbit Device3 at RC3_bit; //Device 3
unsigned char msg[7]; /*array to store message content*/
/***********************sends a command passed to it***************************/
void Send_Command(unsigned char *ptr)
{
/*it sends the array until a null character reached*/
unsigned char Tx_Count=0;
do
{ Uart1_Write(ptr[Tx_Count]); Tx_Count++;
}while(ptr[Tx_Count]!='\0'); /*checks for null*/
}
/***********************Initmobile***********************/
void Init_Mobile()
{ Send_Command("AT\r\n");
Delay_Ms(1000);
Send_command("ATE0\r\n"); /*ECHO off*/
Delay_Ms(1000);
Send_Command("AT+CMGF=1\r\n"); /*Select TEXT mode*/
Delay_Ms(1000);
}
/******************Reads message from 1st location****************/
/*The address of the destination array is passed*/
unsigned char Read_Message(unsigned char *ptr_array)
{
unsigned char Rx_Count=0,Rx_Buffer,temp;
unsigned char array1[6];
Rx_Buffer=RCREG;
Rx_Buffer=RCREG;
Rx_Buffer=RCREG;
RCSTA.CREN=0;
RCSTA.CREN=1;
Send_Command("AT+CMGR=1\r\n"); /*Command for reading message*/
do{
while(Uart1_Data_Ready()==0){;} Rx_Buffer=RCREG; //Read message
array1[Rx_Count]=Rx_Buffer; Rx_Count++;
}while(Rx_Count<6);
array1[Rx_Count-1]='\0';
if(strcmp(array1,"ERROR")==0){ Send_Command("AT+CMGR=1\r\n");
}
if(Rx_Buffer=='S') /*Checks for valid message*/
return 0;
else if(Rx_Buffer=='G')
{
do /*if message is there*/
{
while(Uart1_Data_Ready()==0){;} /*receive upto next 0x0A*/
Rx_Buffer=RCREG; //avoid number and msg status
}while(Rx_Buffer!=0x0a);
Rx_Count=0;
do
{ while(Uart1_Data_Ready()==0){;} Rx_Buffer=RCREG; //Read message
ptr_array[Rx_Count]=Rx_Buffer; Rx_Count++;
}while(Rx_Buffer!=0x0d); /*receive message uptp 0x0d*/
ptr_array[Rx_count-1]='\0'; /*the array is terminated with a null*/
return 1;
}
}
void Send_msg(){ Send_Command("AT+CMGS=\"9089189115\"\r");
Delay_Ms(1000);
Send_Command("Activated");
Delay_Ms(1000);
Uart1_Write(0x0d);
Delay_Ms(1000);
Uart1_Write(26); // Ctrl+z
}
/*************************************************************************
**/
void main()
{
unsigned char Count=0,Dev_Status;
Uart1_Init(9600); /*Init Uart*/
Dev_Status=Eeprom_Read(0x00); /*read the previous status*/
ADCON1=0x06; /*Porta as digital*/
TRISA=0XFF; /*PORTA input*/
TRISC&=0XF0;
PORTC=Dev_Status; /*output the status*/
Init_Mobile(); /*Init mobile*/
Delay_Ms(1000); /*1sec delay*/
while(1)
{
/*************************************************************************
***/
if(Read_Message(&msg[0])==1)
{
if(strcmp(msg,"1 ON")==0)
{ Device1=1;
Dev_Status =0x02;
Eeprom_Write(0x00,Dev_Status);
Send_msg();
}
else if(strcmp(msg,"1 OFF")==0)
{
Device1=0;
Dev_Status&=0xfd;
Eeprom_Write(0x00,Dev_Status);
Send_msg();
}
else if(strcmp(msg,"2 ON")==0)
{ Device2=1; Dev_Status=0x04;
Eeprom_Write(0x00,Dev_Status);
Send_msg();
}
else if(strcmp(msg,"2 OFF")==0)
{ Device2=0; Dev_Status&=0xfA;
Eeprom_Write(0x00,Dev_Status);
Send_msg();
}
else if(strcmp(msg,"3 ON")==0)
{ Device3=1; Dev_Status=0x08;
Eeprom_Write(0x00,Dev_Status);
Send_msg();
}
else if(strcmp(msg,"3 OFF")==0)
{ Device3=0; Dev_Status&=0xf7;
Eeprom_Write(0x00,Dev_Status);
Send_msg();
}
Delay_Ms(2000); /*2sec delay*/
Send_Command("AT+CMGD=1\r\n"); //Delete message
Delay_Ms(2000);
}
else
{
;
}
Delay_Ms(3000); //Delay before next checking
}
}
posted on 2016/12/15 05:26:43 PM CET
Respected Sir/Madam
I have recently purchased Linefollower click from you, but i don't get the library for mikrobasic version, in your library it is only in mikroc version, can you please provide me the library for mikrobasic version.
Thanks & regards
posted on 2016/12/15 02:49:57 PM CET
The university has a custom microcontroller that is to be programmed. (It is actually only an implementation, running on top of a Xilinx Spartan-3A FPGA, but for all purposes at hand, it works as an MCU.) It has its own architecture and list of instructions which does not equal any real-life MCU available in the software.
How difficult would it be to add the architecture to one of your software (such as mikroBasic)? Documentation is available - I certainly could write an interpreter for it (I did...), but not an (optimizing) compiler. Could this be done by me? If not, by you? I looked at the data that mikroBasic stores about various devices and it looks like something that's not meant to be modified by the end user.
Thank you in advance
P Sisak
posted on 2016/12/13 10:40:40 PM CET
Dear Microe forum user Group,
I need your help... it's passed away ten years from when i used my Easypic v6 and micropic Basic and i dont remember much of coding and congifuration of the board.
So i ask you an help to make this software calculator became a real hardware calculator.
I need a translation of the code from Applesoft that i have programmed it.
I would like to make work the button like numbers and letters and have an output of on the lcd display, (i have both the display).Thank you in advice:
This is the code in Applesoft Basic:
5 SPEED = 150
6 INVERSE
10 PRINT "APPLE ][ SCIENTIFIC CALCULATOR ALGEBRIC AND RPN 3.0 BY MATTEO TREVISAN"
20 HOME
21 PRINT "DO YOU WANT ALGEBRIC OR RPN CALCULATION MODE: DIGIT COMPLETE WORD": INPUT B$
22 IF B$ = "ALGEBRIC" THEN GOTO 31
23 IF B$ = "RPN" THEN GOTO 26
24 IF B$ < > "ALGEBRIC" THEN GOTO 10
25 IF B$ < > "RPN" THEN GOTO 10
26 PRINT "DO YOU WANT BASIC OR SCIENTIFIC CALCULATION MODE: DIGIT COMPLETE WORD": INPUT C$
27 IF C$ = "BASIC" THEN GOTO 840
28 IF C$ = "SCIENTIFIC" THEN GOTO 1470
29 IF C$ < > "BASIC" THEN GOTO 10
30 IF C$ < > "SCIENTIFIC" THEN GOTO 10
31 PRINT "DO YOU WANT TO ADD,SUBTRACT,DIVIDE, MULTIPLY, SQUARE ROOT, EXPONENTIATION , PERCENTAGE, TANGENT, LOGARITHM, SINE OR COSINE":INPUT A$
40 IF A$ = "ADD" THEN GOTO 120
50 IF A$ = "SUBTRACT" THEN GOTO 170
60 IF A$ = "DIVIDE" THEN GOTO 220
70 IF A$ = "MULTIPLY" THEN GOTO 270
80 IF A$ = "SQUARE ROOT" THEN GOTO 330
81 IF A$ = "EXPONENTIATION" THEN GOTO 390
82 IF A$ = "PERCENTAGE" THEN GOTO 470
83 IF A$ = "PUDDING" THEN PRINT "DO YOU WANT SOME PUDDING?"
84 IF A$ = "SINE" THEN GOTO 550
85 IF A$ = "COSINE" THEN GOTO 620
86 IF A$ = "TANGENT" THEN GOTO 690
87 IF A$ = "LOGARITHM" THEN GOTO 760
90 IF A$ <> "ADD" THEN GOTO 10
91 IF A$ <> "SUBTRACT" THEN GOTO 10
92 IF A$ <> "DIVIDE" THEN GOTO 10
93 IF A$ <> "MULTIPLY" THEN GOTO 10
94 IF A$ <> "SQUARE ROOT" THEN GOTO 10
95 IF A$ <> "EXPONENTIATION" THEN GOTO 10
96 IF A$ <> "PERCENTAGE" THEN GOTO 10
97 IF A$ <> "SINE" THEN GOTO 10
98 IF A$ <> "COSINE" THEN GOTO 10
99 IF A$ <> "TANGENT" THEN GOTO 10
100 IF A$ <> "LOGARITHM" THEN GOTO 10
120 PRINT "TELL ME THE NUMBER TO ADD"
130 PRINT "NUMBER ONE":INPUT B
140 PRINT "NUMBER TWO":INPUT C
150 D = B+C
160 PRINT "THE ADDITION IS "; D
161 FOR K = 1 TO 5000
162 NEXT K
165 GOTO 10
170 PRINT "TELL ME THE NUMBER TO SUBTRACT"
180 PRINT "NUMBER ONE":INPUT E
190 PRINT "NUMBER TWO":INPUT F
200 G = E-F
210 PRINT "THE SUBTRACTION IS "; G
211 FOR K = 1 TO 5000
212 NEXT K
215 GOTO 10
220 PRINT "TELL ME THE NUMBER TO DIVIDE"
230 PRINT "NUMBER ONE":INPUT H
240 PRINT "NUMBER TWO":INPUT I
241 IF I = 0 THEN GOTO 265
250 L = H/I
260 PRINT "THE DIVISION IS "; L
262 FOR K = 1 TO 5000
263 NEXT K
265 GOTO 10
270 PRINT "TELL ME THE NUMBER TO MULTIPLY"
280 PRINT "NUMBER ONE":INPUT M
290 PRINT "NUMBER TWO":INPUT N
300 O = M*N
310 PRINT "THE MULTIPLY IS "; O
311 FOR K = 1 TO 5000
312 NEXT K
315 GOTO 10
320 REM THIS PART OF THE PROGRAM WAS ADDED BY INSANITOR
330 PRINT "TELL ME THE NUMBER TO SQUARE ROOT"
335 PRINT "NUMBER":INPUT Q
350 PRINT "THE SQUARE ROOT IS ";SQR(Q)
360 FOR K = 1 TO 5000
370 NEXT K
380 GOTO 10
390 PRINT "TELL ME THE NUMBER YOU WANT THE EXPONENTIATION"
400 PRINT "NUMBER ONE":INPUT P
410 PRINT "NUMBER TWO":INPUT Q
420 R = P^Q
430 PRINT "THE EXPONENTIATION IS "; R
440 FOR K = 1 TO 5000
450 NEXT K
460 GOTO 10
470 PRINT "TELL ME THE PERCENTAGE TO CALCULATE"
480 PRINT "NUMBER ONE %":INPUT S
490 PRINT "NUMBER TWO":INPUT T
500 U = (S/100)*T
510 PRINT "THE PERCENTAGE IS "; U
520 FOR K = 1 TO 5000
530 NEXT K
540 GOTO 10
550 PRINT "TELL ME THE NUMBER TO SINE"
560 PRINT "INSERT NUMBER":INPUT V
570 Z = SIN(V)
580 PRINT "SINE IS "; Z
590 FOR K = 1 TO 5000
600 NEXT K
610 GOTO 10
620 PRINT "TELL ME THE NUMBER TO COSINE"
630 PRINT "INSERT NUMBER":INPUT Y
640 W = COS(Y)
650 PRINT "COSINE IS "; W
660 FOR K = 1 TO 5000
670 NEXT K
680 GOTO 10
690 PRINT "TELL ME THE NUMBER TO TANGENT"
700 PRINT "INSERT NUMBER":INPUT SA
710 SB = TAN(SA)
720 PRINT "TAN IS "; SB
730 FOR K = 1 TO 5000
740 NEXT K
750 GOTO 10
760 PRINT "TELL ME THE NUMBER TO LOGARITHM"
770 PRINT "INSERT NUMBER":INPUT SC
780 SD = LOG(SC)
790 PRINT "LOGARITHM IS "; SD
800 FOR K = 1 TO 5000
810 NEXT K
820 GOTO 10
840 PRINT "NUMBER ONE":INPUT SA
850 PRINT"NUMBER TWO":INPUT SB
860 PRINT "PLEASE DIGIT ONE OF THE FOLLOWING FUNCTIONS ADD,SUBTRACT,DIVIDE, MULTIPLY, PERCENTAGE, EXPONENTIATION": INPUT E$
870 IF E$ = "ADD" THEN GOTO 910
880 IF E$ = "SUBTRACT" THEN GOTO 970
890 IF E$ = "DIVIDE" THEN GOTO 1211
900 IF E$ = "MULTIPLY" THEN GOTO 1280
901 IF E$="PERCENTAGE" THEN GOTO 1330
902 IF E$="EXPONENTIATION" THEN GOTO 1380
903 IF E$ <> "ADD" THEN GOTO 10
904 IF E$ <> "SUBTRACT" THEN GOTO 10
905 IF E$ <> "DIVIDE" THEN GOTO 10
906 IF E$ <> "MULTIPLY" THEN GOTO 10
907 IF E$ <> "PERCENTAGE" THEN GOTO 10
908 IF E$ <> "EXPONENTIATION" THEN GOTO 10
910 SC = SA+SB
960 PRINT "THE ADDITION IS "; SC
961 FOR SK = 1 TO 5000
962 NEXT SK
965 GOTO 10
970 SD = SA-SB
980 PRINT "THE SUBTRACTION IS "; SD
990 FOR SK = 1 TO 5000
1000 NEXT SK
1010 GOTO 10
1211 IF SB = 0 THEN GOTO 10
1230 SE = SA/SB
1240 PRINT "THE DIVISION IS "; SE
1250 FOR SK = 1 TO 5000
1260 NEXT SK
1270 GOTO 10
1280 SF = SA*SB
1290 PRINT "THE MULTIPLY IS "; SF
1300 FOR SK = 1 TO 5000
1310 NEXT SK
1320 GOTO 10
1330 SY = (SA/100)*SB
1340 PRINT "THE PERCENTAGE IS "; SY
1350 FOR SK = 1 TO 5000
1360 NEXT SK
1370 GOTO 10
1380 SG = SA^SB
1430 PRINT "THE EXPONENTIATION IS "; SG
1440 FOR SK = 1 TO 5000
1450 NEXT SK
1460 GOTO 10
1470 PRINT "INSERT NUMBER " : INPUT SH
1480 PRINT "PLEASE DIGIT ONE OF THE FOLLOWING FUNCTIONS TANGENT, LOGARITHM, SINE, COSINE OR SQUARE ROOT" : INPUT D$
1490 IF D$ = "TANGENT" THEN GOTO 1570
1500 IF D$ = "LOGARITHM" THEN GOTO 1620
1510 IF D$ = "SINE" THEN GOTO 1670
1520 IF D$ = "COSINE" THEN GOTO 1720
1521 IF D$ = "SQUARE ROOT" THEN GOTO 1770
1530 IF D$ < > "TANGENT" THEN GOTO 10
1540 IF D$ < > "LOGARITHM" THEN GOTO 10
1550 IF D$ < > "SINE" THEN GOTO 10
1560 IF D$ < > "COSINE" THEN GOTO 10
1561 IF D$ < > "SQUARE ROOT" THEN GOTO 10
1570 SI = TAN(SH)
1580 PRINT "TAN IS "; SI
1590 FOR SK = 1 TO 5000
1600 NEXT SK
1610 GOTO 10
1620 SL = LOG(SH)
1630 PRINT "LOGARITHM IS "; SL
1640 FOR SK = 1 TO 5000
1650 NEXT SK
1660 GOTO 10
1670 SM = SIN(SH)
1680 PRINT "SINE IS "; SM
1690 FOR SK = 1 TO 5000
1700 NEXT SK
1710 GOTO 10
1720 SN = COS(SH)
1730 PRINT "COSINE IS "; SN
1740 FOR SK = 1 TO 5000
1750 NEXT SK
1760 GOTO 10
1770 SO = SQR(SH)
1780 PRINT "SQUARE ROOT IS "; SO
1790 FOR SK = 1 TO 5000
1800 NEXT SK
1810 GOTO 10
1820 END
posted on 2016/12/01 10:48:38 PM CET
Hi
i have discovery board of stm32l476VG ( www.st.com/stm32l4-discovery ).
but mikroC cant support USB for this board, so mikroC have not any solution to use I2S of this board.
this board have a 43L22 I2S codec of CIRRUS company.
i cant find any source code or library for it.
if anyone have any source code , please help me.
Regards.
