Visual Basic - C a Visual Basic

Life is soft - evento anual de software empresarial
   
Vista:

C a Visual Basic

Publicado por osman (1 intervención) el 11/11/2007 23:02:16
Hola a todos, hice un pequeno proyecto de electronica y un amigo realizo el siguiente programa en C, por favor alguien puede traducirlo a Visual Basic?

gracias

#include<stdio.h>
#include<conio.h>
#include<bios.h>
#define Longitud 0x03 // utilizamos de longitud de 8
#define Stop 0x00 // stop de 0
#define Paridad 0x00 // Sin paridad
#define Velocidad 0xE0 // velocidad de 9600 baudios
#define COM1 0x3F8 // puerto serial
#define ESC 27
#define tab 9

int inicializa,estado,CAMBIO=1,x1=1,y1=16,x2=1,y2=3,dato;
char valor;

mensaje()
{
clrscr();
textcolor(11);
gotoxy(30,1);
cprintf("Comunicacion serial");
textcolor(10);
gotoxy(25,15);
cprintf("Datos enviados");
gotoxy(25,2);
cprintf("DATOS REcibidos");
textcolor(15);
}

void main(void)
{
char car ;
clrscr() ;
inicializa=Longitud | Stop | Paridad | Velocidad;
bioscom(0,inicializa,0);
mensaje();
while(car!=ESC)
{
estado=inportb(COM1+5) & 0x01 ;
if(estado==1)
{
dato=inportb(COM1) ;
gotoxy(x2,y2);
cprintf("%d-",dato*1);
if(x2>=79)
{
x2=1 ;
y2++ ;
}
else
{
x2=+4 ;
}
if(y2==15)
{
y2=3 ;
mensaje();
}
}
if (kbhit())
{
car=getch();
gotoxy(x1,y1) ;
cprintf("%c",car);
outportb(COM1,car) ;
if(x1==79)
{
x1=1 ;
y1++ ;
}
else
{
x1++ ;
}
if(y1==25)
{
y1=16;
mensaje() ;
}
}
}
}
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder