Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: c-dLL AUS vb
Autor: dingsbums
Datum: 23.08.02 16:13
der code ist riesig, so genau weiß ich nicht, auf was es da ankommt, ein versuch: DER DLL AUFRUF IN VB: Option Explicit Dim k(5) As Integer 'Declare Function GrindingTime Lib "C:WINNTsystem32szeit.dll" (Pro As Process) As Single Declare Function GrindingTime Lib "szeit.dll" Alias "_GrindingTime@4" (Pro As Process) As Single Declare Function WheelRotationTime Lib "szeit.dll" Alias "_WheelRotationTime@12" (Pro As Process, wl As WHEEL, ByVal Index As Long) As Single Declare Sub GrindingTimeLog Lib "szeit.dll" Alias "_GrindingTimeLog@4" (Pro As Process) (...) Function szeit(idx As Integer, wheelindex As Long, umlaufindex As Long) As Double Dim p As Process Dim ma As maschine Dim u As Long Dim i As Integer 'Set p = Process 'Struktur mit Daten füllen p.Masch = MADAÖffnen ' If Not p Is Nothing Then If p.Masch.abrichtradius > 0 Then ZuweisungenWorkPiece p.Workp p.numwheels = FrmNcTdatSpu.CmbNcTdatWzeug.ListCount zuweisungenWHEEL p 'Umlaufindex ermitteln u = 0 For i = 0 To wheelindex - 1 u = u + p.Wheels(i).numrot Next i umlaufindex = umlaufindex - u Dim zeit As Single zeit = 10 'Schreibt die LogDatei GrindingTimeLog p If idx = 0 Then zeit = GrindingTime(p) If idx = 1 Then zeit = WheelRotationTime(p, p.Wheels(wheelindex), umlaufindex) szeit = CDbl(zeit) Else: MsgBox (LoadResString(4000)) End If ' End If End Function DIE DIAGNOSE DATEI in DER C_DLL: #include #include "Wheel.h" #include "Process.h" /** * Schreibt den Inhalt der Struktur Process als Datei "process.txt" * in das aktuelle Verzeichnis. */ DllExport void WINAPI GrindingTimeLog(Process *process) { FILE *fp; int i,j; fp = fopen("crocess.txt","w"); fprintf(fp,"process->n"); fprintf(fp,"process->machinen"); fprintf(fp,"process->machine.nennx=%fn",process->machine.nennx); fprintf(fp,"process->machine.nenny=%fn",process->machine.nenny); fprintf(fp,"process->machine.nennz=%fn",process->machine.nennz); fprintf(fp,"process->machine.nenna=%fn",process->machine.nenna); fprintf(fp,"process->machine.nennb=%f (...USW..) fclose(fp);

c-dLL AUS vb	91	dingsbums	23.08.02 14:06
Re: c-dLL AUS vb	224	unbekannt	23.08.02 15:06
Re: c-dLL AUS vb	66	dingsbums	23.08.02 15:44
Re: c-dLL AUS vb	220	unbekannt	23.08.02 15:49
Re: c-dLL AUS vb	67	dingsbums	23.08.02 16:13
Re: c-dLL AUS vb	220	unbekannt	23.08.02 16:20
Re: c-dLL AUS vb	55	dingsbums	23.08.02 16:26
und so sieht die Struktur in VB aus:	52	dingsbums	23.08.02 16:42
Re: und so sieht die Struktur in VB aus:	232	unbekannt	23.08.02 16:48
Re: und so sieht die Struktur in VB aus:	228	unbekannt	23.08.02 17:00

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übersicht

Suchen