Hallo
(win98 borland 5.0)
kann mir jemand bei meinen quelltext helfen ich kann mir nicht erklären warum er nicht funktioniert (meine leds leuchten nicht)
es ist eine einfache ampelsteuerung die leds über den lpt ansteuert
grüne led
gelbe led
rote led
gelbe und rote led
enlosschleife
ich habe den quelltext aus einen Buch rausgeschrieben
bei dem Buch ist auch eine fertige exe bei die funktioniert
Code:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <time.h>
#include <conio.h>
#define Par_Ss 0x378
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//==============================================
void warten(int);
//==============================================
void outp (unsigned int portadr, unsigned char value)
{
_asm mov edx,portadr
_asm mov al, value
_asm out dx,al
}
unsigned char inportb(unsigned int portadr)
{
unsigned char value;
_asm mov edx,portadr
_asm mov al,value
_asm out dx,al
}
//==============================================
void main (void)
{
while (!kbhit())
{
outp(Par_Ss,1);
warten(1000);
outp(Par_Ss,2);
warten(1000);
outp(Par_Ss,4);
warten(1000);
outp(Par_Ss,6);
warten(1000);
}
}
//==============================================
void warten(int zeit)
{
int a;
a = clock() ;
while(clock() - a < zeit);
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
mfg flo
Lesezeichen