vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
C++ Code übersetzen in VB6 
Autor: roku
Datum: 09.03.12 12:15

Hallo,

wer kann mir den Code in VB6 übersetzen?

The following program reads the specified NC program registered in CNC,
and displays its contents on the screen.

#include "fwlib32.h"
#define BUFSIZE 1280

/* prgnum is NC program number to read. */
short example( long *prgname )
{
char buf[BUFSIZE+1] ;
short ret ;
long len ;
ret = cnc_upstart4( h, 0 prgname ) ;
if ( ret ) return ( ret ) ;
do {
len = BUFSIZE ;
ret = cnc_upload4( h, &len, buf ) ;
if ( ret == EW_BUFFER ) {
continue ;
}
if ( ret == EW_OK ) {
buf[len] = '\0' ;
printf( "%s", buf ) ;
}
if ( buf[len-1] == '%' ) {
break ;
}
} while ( ret == EW_OK ) ;
ret = cnc_upend4( h ) ;
return ( ret ) ;
}

Bei der Zeile ""ret = cnc_upload4( h, &len, buf ) ;"" habe ich Probleme.
Folgende Funktionen stehen in der fwlib32.bas.

Declare Function cnc_upload4 Lib "fwlib32.dll" (ByVal FlibHndl As Integer, a As Long, ByVal b As String) As Integer
Declare Function cnc_upstart4 Lib "fwlib32.dll" (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As String) As Integer
Declare Function cnc_upend4 Lib "fwlib32.dll" (ByVal FlibHndl As Integer) As Integer

Danke.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
C++ Code übersetzen in VB62.343roku09.03.12 12:15
Re: C++ Code übersetzen in VB61.459Blackbox09.03.12 18:09
Re: C++ Code übersetzen in VB61.338roku10.03.12 10:22
Re: C++ Code übersetzen in VB61.292roku14.03.12 23:13

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel