I don't think I can convert the entire code, but here are a few tips.

Lines that start with "//" are comments.

gotoxy() goes to a specific screen position (the screen is assumed to be in text mode, 80 columns x 25 lines, or something similar); printf() will show a text.

if (ch) should be translated in VFP as if ch # 0, since it seems to be numeric, and that is the way equality is interpreted in C. Similar for while.

I suspect that bioscom() is a user-defined function, not a built-in C command.


>Dear all,
>I have a C source code for reading data from com port.
>I want to change it to VFP code.
>Can anyone help me?
>I dont want to enter number for choose type of instrument. my instrument is Baskool and port is COM1 and Buad is 2400
>
>i need only section between if( scale_type==1) // Bascool
> and else // Scale
>
>thanks for your help
>
>
>
>
>

>
>#define PP 0x320
>#define NO1 14
>#define NO2 350
>
>#include <stdio.h>
>#include <conio.h>
>#include <dos.h>
>#include <io.h>
>#include <stdlib.h>
>#include <bios.h>
>
>void main()
>{
>  FILE *fop;
>  int t;
>  int i,j,k,l,i1,j1,l1,k1,zero,j2,l2,k2,last;
>  unsigned char ch ,comno,scale_type,baud;
>
>  textbackground(BLUE);
>  window(1,1,80,25);
>  clrscr();
>  gotoxy(30,2);
>  printf("P A N D  Industries Co.");
>
>  gotoxy(20,5);
>  printf("Enter COM Port No.:< 1:com1  , 2:com2 >");
>   do
>   {
>   comno = getch()-'1';
>   } while((comno != 0)&&(comno != 1));
>  putch(comno+'1');
>
>  gotoxy(20,10);
>  printf("Enter Scale Type :< 1:Bascool  , 2:Scale >");
>   do
>   {
>   scale_type= getch()-'0';
>   } while((scale_type!= 1)&&(scale_type!= 2));
>  putch(scale_type+'0');
>
>  gotoxy(20,15);
>  printf("Enter Baud Rate :< 1:2400, 2:4800 bps >");
>   do
>   {
>   baud= getch()-'0';
>   } while((baud!= 1)&&(baud!= 2));
>  putch(baud+'0');
>//....................................................................
>  if( baud==2) bioscom(0,0xc3,comno);
>    else       bioscom(0,0xa3,comno);
>
>  clrscr();
>
>  gotoxy(30,5);
>  printf("P A N D  Industries Co.");
>  gotoxy(20,8);
>  printf("Test Program For Reading Weight From Serial Port");
>  gotoxy(20,10);
>  if( scale_type==1)  printf(" COM %d: %d bps   Bascool",comno+1,baud*2400);
>	  else        printf(" COM %d: %d bps   Scale",comno+1,baud*2400);
>
>  if( scale_type==1)      // Bascool
>	while(!kbhit())
>	{
>	 while ( ( bioscom(2,0,comno) & 0xff ) !=0xbb && !kbhit()) ;
>	 if(!kbhit())
>	 {
>	 gotoxy(20,15);
>	 ch = bioscom(2,0,comno) & 0xff ;
>	 if (ch==0xe0 || ch==0xf0 )
>	  ch = bioscom(2,0,comno) & 0xff ;
>	 if(ch)  printf("total weight = %x",ch);
>	 else  printf("total weight = ");
>	 ch = bioscom(2,0,comno) & 0xff ;
>	 printf("%x",ch>>4);
>	 printf(".");
>	 printf("%x",ch%16);
>	 ch = bioscom(2,0,comno) & 0xff ;
>//     ch=ch>>4;
>	 printf("%02x    ",ch );
>	 }
>	}
>	else                    // Scale
>  while(!kbhit())
>	{
>	 while ( (( bioscom(2,0,comno) & 0xff ) !=0xbb )&&!kbhit()) ;
>	 gotoxy(20,15);
>
>	 ch = bioscom(2,0,comno) & 0xff ;
>	 if (ch==0xe0 || ch==0xf0 )
>	  ch = bioscom(2,0,comno) & 0xff ;
>	 if(ch)  printf("total weight = %x",ch);
>	 else  printf("total weight = ");
>	 //printf("total weight = %x.",ch);
>	 ch = bioscom(2,0,comno) & 0xff ;
>	 printf("%x",ch>>4);
>	 printf(".");
>	 printf("%x",ch%16);
>	 //printf("%02x",ch );
>	 ch = bioscom(2,0,comno) & 0xff ;
>	 //ch=ch>>4;
>	 printf("%02x",ch );
>	 printf("  ");
>	}
>  textbackground(BLACK);
>  window(1,1,80,25);
>  clrscr();
>
>}
>
>