🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: be.comp.programming
Article #7945

Re: Hulp met Turbo Pascal

#7945
From: fic
Date: Mon, 15 Jul 2002 21:03
27 lines
2008 bytes
"Sumo_Negro" <Sumo_Negro4life@hotmail.com> wrote in message
news:MPG.179cdd8ac5b338a198972e@newsbin.telenet.be...
> Ik ben ergens in een oud tijdschrift iets interessants tegengekomen, een
> programmatje om via je gameport weerstanden te meten.
> Probleem is hetvolgende, programma is geschreven voor Turbo Pascal en
> graag had ik een windowsapplicatie gehad, ben ik verkeerd en kan dit niet
> met Turbo Pascal.
> Hieronder vind je de Source, misschien kan iemand me helpen om dit om te
> zetten in c++, zelf heb ik niet veel kaas gegeten van het programmeren.
>
> Alvast bedankt.

<knip source>

Ik denk dat je deze code beter onder Turbo Pascal (bij voorkeur v7)
compileert naar een DLL. Die moet je dan zonder problemen kunnen gebruiken
in C++.
De 'Writes' vervang je door enkele constanten die je oproept door een 'call
by reference'.
vb.
FUNCTION COUNT(MMV:INTEGER; VAR errorcode : STRING):INTEGER; stdcall;
export;

Succes,

fic.
Technical Details
Message-ID: <TMGY8.8890$8o4.1581@afrodite.telenet-ops.be>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-01!sn-xit-08!supernews.com!isdnet!newsfeed.wirehub.nl!skynet.be!skynet.be!ossa.telenet-ops.be!afrodite.telenet-ops.be.POSTED!not-for-mail
References: <MPG.179cdd8ac5b338a198972e@newsbin.telenet.be>

Show Full Headers
Complete Article Headers
X-Google-Language: DUTCH,ASCII-7-bit
X-Google-Thread: fcea4,981c97a6958990f8
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2002-07-15 14:05:36 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-01!sn-xit-08!supernews.com!isdnet!newsfeed.wirehub.nl!skynet.be!skynet.be!ossa.telenet-ops.be!afrodite.telenet-ops.be.POSTED!not-for-mail
From: "fic" <ficje_NoShit@pi.be>
Newsgroups: be.comp.programming
References: <MPG.179cdd8ac5b338a198972e@newsbin.telenet.be>
Subject: Re: Hulp met Turbo Pascal
Lines: 32
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2600.0000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000
Message-ID: <TMGY8.8890$8o4.1581@afrodite.telenet-ops.be>
Date: Mon, 15 Jul 2002 21:03:47 GMT
NNTP-Posting-Host: 213.119.92.94
X-Complaints-To: abuse@telenet.be
X-Trace: afrodite.telenet-ops.be 1026767027 213.119.92.94 (Mon, 15 Jul 2002 23:03:47 MET DST)
NNTP-Posting-Date: Mon, 15 Jul 2002 23:03:47 MET DST
Organization: Telenet Internet