slm. BCB de Timer komutu ile DC motoru sürekli çalışmasını ve hızını ayarlamayı yardımlarınızla başardım. fakat sorunum Timer ile çalışmaya başlayan motoru durduramamak. Button2 ile durdurmaya ayarladım. butona basınca duruyor ama tekrar çalışmaya başlıyor. birde Button1 i çalıştırmaya ayarladım ama ben Button1 e basmadan çalışmaya başlıyor. Birçok kitap karıştırdım ama sorunumu çözemedim. yardımlarınız için teşekkürler. kodlar aşağıda. bu kodlardaki hatalarımı düzeltirseniz sevinirim.
} //--------------------------------------------------------------------------- void __fastcall TForm1::Timer1Timer(TObject *Sender) { int T=100; int ton=CSpinEdit1->Text*T/100; int tof=T-ton;
#include <vcl.h>
#include<winio.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "CSPIN"
#pragma link "PERFGRAP"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner): TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Timer1->OnTimer;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
InitializeWinIo();
SetPortVal(0x378,0,1);
ShutdownWinIo();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
int T=100;
int ton=CSpinEdit1->Text*T/100;
int tof=T-ton;
InitializeWinIo();
SetPortVal(0x378,1,1);
Sleep(ton);
SetPortVal(0x378,0,1);
Sleep(tof);
ShutdownWinIo();
}
//---------------------------------------------------------------------------
DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.
Üye Ol Şimdi DeğilÜye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.