pasar de c a vb 6.0

[Spider-Net]

[modo irónico]hoygan kien me ayuda a tradusir el kernel de linux a VB???, ayudenme pls!!  (solo eso) xDD[/modo irónico]

[Karcrack]

Se registra para postear eso? Y siquiera crea un nuevo Topic?

Ademas, me parece que ese code pasado a VB no tendria nada que ver con el de C... creo que sera mejor que te mires la teoria

[hectorlep]

Hola, yo tambien tengo un programita que queria pasar de c a visual c++. espero vuestra ayuda, gracias.

#include <stdio.h>
#include <dos.h>
#define polinomio 0x13
#define PUERTO 0x378


int meter_dato (int numero);
void reset ();
void clk ();
void poner_polinomio ();
void calcular_crc (int numero);
char datos ;

/* *************************************** */

main ()
{
  int numero;
  numero = 0x80  ;
  calcular_crc (numero);
}

/* *************************************** */

void calcular_crc (int numero)
{
int i;
int numero_aux = numero;

poner_polinomio ();

reset();

for (i=0;i<8;i++)
{
  numero_aux = meter_dato (numero_aux);
  clk ();
  }
}

/* **************************************** */

void poner_polinomio ()
{
datos = datos << 4 ;
datos = datos + polinomio;
}

/* ****************************************** */

int meter_dato (int numero)
{
int valor;
int numero_aux = numero;
valor = numero & 0X80 ; /* VBLE */
if (valor == 0 )
{
    datos = datos & 0xBF ;
}
else
    {
    datos = datos | 0X40 ;

}
    numero_aux = numero_aux << 1 ;
    /* numero_aux = numero_aux & 0x0F ; */
    return numero_aux;
}


/* ******************************************* */

void reset ()
{
datos = datos & 0xEF ;
outportb (PUERTO,datos);
delay (1000);
datos = datos | 0x10 ;
delay (1000);
outportb (PUERTO,datos);

}

/* ****************************************** */

void clk ()
{

datos = datos & 0xDF ;
outportb (PUERTO,datos);
delay (1000);
datos = datos | 0x20;
outportb (PUERTO, datos);
delay(1000);

}

[BlackZeroX]

un helado tambien?... a una mejor idea quieres que te lleve el desayuno alguien del foro a la cama¿?... digo no tenemos mejor que hacer el trabajo otros.!!

Hola, yo tambien tengo un programita que queria pasar de c a visual c++. espero vuestra ayuda, gracias.

#include <stdio.h>
#include <dos.h>
#define polinomio 0x13
#define PUERTO 0x378


int meter_dato (int numero);
void reset ();
void clk ();
void poner_polinomio ();
void calcular_crc (int numero);
char datos ;

/* *************************************** */

main ()
{
  int numero;
  numero = 0x80  ;
  calcular_crc (numero);
}

/* *************************************** */

void calcular_crc (int numero)
{
int i;
int numero_aux = numero;

poner_polinomio ();

reset();

for (i=0;i<8;i++)
{
  numero_aux = meter_dato (numero_aux);
  clk ();
  }
}

/* **************************************** */

void poner_polinomio ()
{
datos = datos << 4 ;
datos = datos + polinomio;
}

/* ****************************************** */

int meter_dato (int numero)
{
int valor;
int numero_aux = numero;
valor = numero & 0X80 ; /* VBLE */
if (valor == 0 )
{
    datos = datos & 0xBF ;
}
else
    {
    datos = datos | 0X40 ;

}
    numero_aux = numero_aux << 1 ;
    /* numero_aux = numero_aux & 0x0F ; */
    return numero_aux;
}


/* ******************************************* */

void reset ()
{
datos = datos & 0xEF ;
outportb (PUERTO,datos);
delay (1000);
datos = datos | 0x10 ;
delay (1000);
outportb (PUERTO,datos);

}

/* ****************************************** */

void clk ()
{

datos = datos & 0xDF ;
outportb (PUERTO,datos);
delay (1000);
datos = datos | 0x20;
outportb (PUERTO, datos);
delay(1000);

}

un helado tambien?... a una mejor idea quieres que te lleve el desayuno alguien del foro a la cama¿?... digo no tenemos mejor que hacer el trabajo otros.!!

[Erik#]

Me pueden traer este code a la cama convertido en vb6?:

Código (c) [Seleccionar] Expandir

void MapReadFile(LPSTR file, DWORD c)
{
     HANDLE hFile, hMap;
     DWORD sz;
     DWORD pos;
     char *rd;
     unsigned char *p;
     hFile=CreateFile(file,GENERIC_READ,FILE_SHARE_READ,0,OPEN_EXISTING,0,0);
     if(hFile==INVALID_HANDLE_VALUE) return;

         pos=SetFilePointer(hFile,3,0,FILE_END);         
   
     sz=GetFileSize(hFile,0);
     hMap=CreateFileMapping(hFile,0,PAGE_READONLY,0,sz,NULL);
     if(hMap==NULL)
     {
                   CloseHandle(hFile);
                   return;
                   }
     p=(unsigned char*)MapViewOfFile(hMap,FILE_MAP_READ,0,0,0);
     if(p==NULL)
     {
                CloseHandle(hMap);
                CloseHandle(hFile);
                return;
                }
     rd=new char[c];
     CopyMemory(&rd[0],&p[pos],c);
     if(strcmp(rd,"xio")==0) {MessageBoxA(0,"si","si",0);}
     else {MessageBoxA(0,"no","no",0);}
     }
     

bool ExistFirm(LPSTR file)
{
       HANDLE hFile;
       DWORD haber;
     DWORD sz;
     LPSTR Sig;
     hFile=CreateFile(file,GENERIC_READ,FILE_SHARE_READ,0,OPEN_EXISTING,0,0);
     if(hFile!=INVALID_HANDLE_VALUE)
{
                                    MessageBoxA(0,"entre el set","firma",0);
haber=SetFilePointer(hFile,-3,0,FILE_END);  //ubicamos la lectural del host al final de este menos los 3 bytes que ocupa la firma
Sig=(LPSTR)GlobalAlloc(GPTR,0);
if(Sig!=NULL)
{
                 MessageBoxA(0,"entre al Sig!=","firma",0);
ReadFile(hFile,Sig,3,&sz,0);
}
CloseHandle(hFile);
char ftemp[15];

strncpy(ftemp,Sig,3);
MessageBoxA(0,Sig,ftemp,0);
ftemp[3]='\0';
MessageBoxA(0,ftemp,"firma",0);
if(strcmp(ftemp,"abc")!=0) { return true; }
else
{ return false; }
}
}

xDDD, era coña, era una forma de decir ironicamente, ¿Quereis tambien que os llevemos al colegio?¿Os fregemos los platos?¿Que os mastiquemos la comida y os la demos a la boca? Eso se llama asilo de ancianos (menos lo del cole xD)

[Karcrack]

Por ti lo que sea Erik# , con el zumo de naranja natural de siempre no?

[Erik#]

Por supuesto, faltaria más jajajaja.

[seba123neo]

bueno...bueno ya se entendio el chiste...