mirror of
https://github.com/MaSzyna-EU07/maszyna.git
synced 2026-07-18 01:59:19 +02:00
Format source code using clang-format
This commit is contained in:
Zbigniew Mandziejewicz
465
Console.cpp
465
Console.cpp
@@ -11,9 +11,9 @@
|
||||
|
||||
//---------------------------------------------------------------------------
|
||||
#pragma package(smart_init)
|
||||
//Ra: klasa statyczna gromadząca sygnały sterujące oraz informacje zwrotne
|
||||
//Ra: stan wejścia zmieniany klawiaturą albo dedykowanym urządzeniem
|
||||
//Ra: stan wyjścia zmieniany przez symulację (mierniki, kontrolki)
|
||||
// Ra: klasa statyczna gromadząca sygnały sterujące oraz informacje zwrotne
|
||||
// Ra: stan wejścia zmieniany klawiaturą albo dedykowanym urządzeniem
|
||||
// Ra: stan wyjścia zmieniany przez symulację (mierniki, kontrolki)
|
||||
|
||||
/*******************************
|
||||
Do klawisza klawiatury przypisana jest maska bitowa oraz numer wejścia.
|
||||
@@ -73,275 +73,278 @@ public static Int32 GetScreenSaverTimeout()
|
||||
};
|
||||
*/
|
||||
|
||||
//Ra: do poprawienia
|
||||
void SetLedState(char Code,bool bOn)
|
||||
{//Ra: bajer do migania LED-ami w klawiaturze
|
||||
if (Win32Platform==VER_PLATFORM_WIN32_NT)
|
||||
{
|
||||
//WriteLog(AnsiString(int(GetAsyncKeyState(Code))));
|
||||
if (bool(GetAsyncKeyState(Code))!=bOn)
|
||||
{
|
||||
keybd_event(Code,MapVirtualKey(Code,0),KEYEVENTF_EXTENDEDKEY,0);
|
||||
keybd_event(Code,MapVirtualKey(Code,0),KEYEVENTF_EXTENDEDKEY|KEYEVENTF_KEYUP,0);
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
TKeyboardState KBState;
|
||||
GetKeyboardState(KBState);
|
||||
KBState[Code]=bOn?1:0;
|
||||
SetKeyboardState(KBState);
|
||||
};
|
||||
// Ra: do poprawienia
|
||||
void SetLedState(char Code, bool bOn)
|
||||
{ // Ra: bajer do migania LED-ami w klawiaturze
|
||||
if (Win32Platform == VER_PLATFORM_WIN32_NT)
|
||||
{
|
||||
// WriteLog(AnsiString(int(GetAsyncKeyState(Code))));
|
||||
if (bool(GetAsyncKeyState(Code)) != bOn)
|
||||
{
|
||||
keybd_event(Code, MapVirtualKey(Code, 0), KEYEVENTF_EXTENDEDKEY, 0);
|
||||
keybd_event(Code, MapVirtualKey(Code, 0), KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP, 0);
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
TKeyboardState KBState;
|
||||
GetKeyboardState(KBState);
|
||||
KBState[Code] = bOn ? 1 : 0;
|
||||
SetKeyboardState(KBState);
|
||||
};
|
||||
};
|
||||
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
int Console::iBits=0; //zmienna statyczna - obiekt Console jest jednen wspólny
|
||||
int Console::iMode=0;
|
||||
int Console::iConfig=0;
|
||||
TPoKeys55 *Console::PoKeys55[2]={NULL,NULL};
|
||||
TLPT *Console::LPT=NULL;
|
||||
int Console::iSwitch[8]; //bistabilne w kabinie, załączane z [Shift], wyłączane bez
|
||||
int Console::iButton[8]; //monostabilne w kabinie, załączane podczas trzymania klawisza
|
||||
int Console::iBits = 0; // zmienna statyczna - obiekt Console jest jednen wspólny
|
||||
int Console::iMode = 0;
|
||||
int Console::iConfig = 0;
|
||||
TPoKeys55 *Console::PoKeys55[2] = {NULL, NULL};
|
||||
TLPT *Console::LPT = NULL;
|
||||
int Console::iSwitch[8]; // bistabilne w kabinie, załączane z [Shift], wyłączane bez
|
||||
int Console::iButton[8]; // monostabilne w kabinie, załączane podczas trzymania klawisza
|
||||
|
||||
__fastcall Console::Console()
|
||||
{
|
||||
PoKeys55[0]=PoKeys55[1]=NULL;
|
||||
for (int i=0;i<8;++i)
|
||||
{//zerowanie przełączników
|
||||
iSwitch[i]=0; //bity 0..127 - bez [Ctrl], 128..255 - z [Ctrl]
|
||||
iButton[i]=0; //bity 0..127 - bez [Shift], 128..255 - z [Shift]
|
||||
}
|
||||
PoKeys55[0] = PoKeys55[1] = NULL;
|
||||
for (int i = 0; i < 8; ++i)
|
||||
{ // zerowanie przełączników
|
||||
iSwitch[i] = 0; // bity 0..127 - bez [Ctrl], 128..255 - z [Ctrl]
|
||||
iButton[i] = 0; // bity 0..127 - bez [Shift], 128..255 - z [Shift]
|
||||
}
|
||||
};
|
||||
|
||||
__fastcall Console::~Console()
|
||||
{
|
||||
delete PoKeys55[0];
|
||||
delete PoKeys55[1];
|
||||
delete PoKeys55[0];
|
||||
delete PoKeys55[1];
|
||||
};
|
||||
|
||||
void __fastcall Console::ModeSet(int m,int h)
|
||||
{//ustawienie trybu pracy
|
||||
iMode=m;
|
||||
iConfig=h;
|
||||
void __fastcall Console::ModeSet(int m, int h)
|
||||
{ // ustawienie trybu pracy
|
||||
iMode = m;
|
||||
iConfig = h;
|
||||
};
|
||||
|
||||
int __fastcall Console::On()
|
||||
{//załączenie konsoli (np. nawiązanie komunikacji)
|
||||
iSwitch[0]=iSwitch[1]=iSwitch[2]=iSwitch[3]=0; //bity 0..127 - bez [Ctrl]
|
||||
iSwitch[4]=iSwitch[5]=iSwitch[6]=iSwitch[7]=0; //bity 128..255 - z [Ctrl]
|
||||
switch (iMode)
|
||||
{case 1: //kontrolki klawiatury
|
||||
case 2: //kontrolki klawiatury
|
||||
iConfig=0; //licznik użycia Scroll Lock
|
||||
break;
|
||||
case 3: //LPT
|
||||
LPT=new TLPT(); //otwarcie inpout32.dll
|
||||
if (LPT?LPT->Connect(iConfig):false)
|
||||
{//wysłać 0?
|
||||
BitsUpdate(-1); //aktualizacjia stanów, bo przy wczytywaniu mogło być nieaktywne
|
||||
WriteLog("Feedback Mode 3: InpOut32.dll OK");
|
||||
}
|
||||
else
|
||||
{//połączenie nie wyszło, ma być NULL
|
||||
delete LPT;
|
||||
LPT=NULL;
|
||||
}
|
||||
break;
|
||||
case 4: //PoKeys
|
||||
PoKeys55[0]=new TPoKeys55();
|
||||
if (PoKeys55[0]?PoKeys55[0]->Connect():false)
|
||||
{WriteLog("Found "+PoKeys55[0]->Version());
|
||||
BitsUpdate(-1); //aktualizacjia stanów, bo przy wczytywaniu mogło być nieaktywne
|
||||
}
|
||||
else
|
||||
{//połączenie nie wyszło, ma być NULL
|
||||
delete PoKeys55[0];
|
||||
PoKeys55[0]=NULL;
|
||||
}
|
||||
break;
|
||||
}
|
||||
return 0;
|
||||
{ // załączenie konsoli (np. nawiązanie komunikacji)
|
||||
iSwitch[0] = iSwitch[1] = iSwitch[2] = iSwitch[3] = 0; // bity 0..127 - bez [Ctrl]
|
||||
iSwitch[4] = iSwitch[5] = iSwitch[6] = iSwitch[7] = 0; // bity 128..255 - z [Ctrl]
|
||||
switch (iMode)
|
||||
{
|
||||
case 1: // kontrolki klawiatury
|
||||
case 2: // kontrolki klawiatury
|
||||
iConfig = 0; // licznik użycia Scroll Lock
|
||||
break;
|
||||
case 3: // LPT
|
||||
LPT = new TLPT(); // otwarcie inpout32.dll
|
||||
if (LPT ? LPT->Connect(iConfig) : false)
|
||||
{ // wysłać 0?
|
||||
BitsUpdate(-1); // aktualizacjia stanów, bo przy wczytywaniu mogło być nieaktywne
|
||||
WriteLog("Feedback Mode 3: InpOut32.dll OK");
|
||||
}
|
||||
else
|
||||
{ // połączenie nie wyszło, ma być NULL
|
||||
delete LPT;
|
||||
LPT = NULL;
|
||||
}
|
||||
break;
|
||||
case 4: // PoKeys
|
||||
PoKeys55[0] = new TPoKeys55();
|
||||
if (PoKeys55[0] ? PoKeys55[0]->Connect() : false)
|
||||
{
|
||||
WriteLog("Found " + PoKeys55[0]->Version());
|
||||
BitsUpdate(-1); // aktualizacjia stanów, bo przy wczytywaniu mogło być nieaktywne
|
||||
}
|
||||
else
|
||||
{ // połączenie nie wyszło, ma być NULL
|
||||
delete PoKeys55[0];
|
||||
PoKeys55[0] = NULL;
|
||||
}
|
||||
break;
|
||||
}
|
||||
return 0;
|
||||
};
|
||||
|
||||
void __fastcall Console::Off()
|
||||
{//wyłączenie informacji zwrotnych (reset pulpitu)
|
||||
BitsClear(-1);
|
||||
if ((iMode==1)||(iMode==2))
|
||||
if (iConfig&1) //licznik użycia Scroll Lock
|
||||
{//bez sensu to jest, ale mi się samo włącza
|
||||
SetLedState(VK_SCROLL,true); //przyciśnięty
|
||||
SetLedState(VK_SCROLL,false); //zwolniony
|
||||
}
|
||||
delete PoKeys55[0]; PoKeys55[0]=NULL;
|
||||
delete PoKeys55[1]; PoKeys55[1]=NULL;
|
||||
delete LPT; LPT=NULL;
|
||||
{ // wyłączenie informacji zwrotnych (reset pulpitu)
|
||||
BitsClear(-1);
|
||||
if ((iMode == 1) || (iMode == 2))
|
||||
if (iConfig & 1) // licznik użycia Scroll Lock
|
||||
{ // bez sensu to jest, ale mi się samo włącza
|
||||
SetLedState(VK_SCROLL, true); // przyciśnięty
|
||||
SetLedState(VK_SCROLL, false); // zwolniony
|
||||
}
|
||||
delete PoKeys55[0];
|
||||
PoKeys55[0] = NULL;
|
||||
delete PoKeys55[1];
|
||||
PoKeys55[1] = NULL;
|
||||
delete LPT;
|
||||
LPT = NULL;
|
||||
};
|
||||
|
||||
void __fastcall Console::BitsSet(int mask,int entry)
|
||||
{//ustawienie bitów o podanej masce (mask) na wejściu (entry)
|
||||
if ((iBits&mask)!=mask) //jeżeli zmiana
|
||||
{int old=iBits; //poprzednie stany
|
||||
iBits|=mask;
|
||||
BitsUpdate(old^iBits); //1 dla bitów zmienionych
|
||||
}
|
||||
void __fastcall Console::BitsSet(int mask, int entry)
|
||||
{ // ustawienie bitów o podanej masce (mask) na wejściu (entry)
|
||||
if ((iBits & mask) != mask) // jeżeli zmiana
|
||||
{
|
||||
int old = iBits; // poprzednie stany
|
||||
iBits |= mask;
|
||||
BitsUpdate(old ^ iBits); // 1 dla bitów zmienionych
|
||||
}
|
||||
};
|
||||
|
||||
void __fastcall Console::BitsClear(int mask,int entry)
|
||||
{//zerowanie bitów o podanej masce (mask) na wejściu (entry)
|
||||
if (iBits&mask) //jeżeli zmiana
|
||||
{int old=iBits; //poprzednie stany
|
||||
iBits&=~mask;
|
||||
BitsUpdate(old^iBits); //1 dla bitów zmienionych
|
||||
}
|
||||
void __fastcall Console::BitsClear(int mask, int entry)
|
||||
{ // zerowanie bitów o podanej masce (mask) na wejściu (entry)
|
||||
if (iBits & mask) // jeżeli zmiana
|
||||
{
|
||||
int old = iBits; // poprzednie stany
|
||||
iBits &= ~mask;
|
||||
BitsUpdate(old ^ iBits); // 1 dla bitów zmienionych
|
||||
}
|
||||
};
|
||||
|
||||
void __fastcall Console::BitsUpdate(int mask)
|
||||
{//aktualizacja stanu interfejsu informacji zwrotnej; (mask) - zakres zmienianych bitów
|
||||
switch (iMode)
|
||||
{case 1: //sterowanie światełkami klawiatury: CA/SHP+opory
|
||||
if (mask&3) //gdy SHP albo CA
|
||||
SetLedState(VK_CAPITAL,iBits&3);
|
||||
if (mask&4) //gdy jazda na oporach
|
||||
{//Scroll Lock ma jakoś dziwnie... zmiana stanu na przeciwny
|
||||
SetLedState(VK_SCROLL,true); //przyciśnięty
|
||||
SetLedState(VK_SCROLL,false); //zwolniony
|
||||
++iConfig; //licznik użycia Scroll Lock
|
||||
}
|
||||
break;
|
||||
case 2: //sterowanie światełkami klawiatury: CA+SHP
|
||||
if (mask&2) //gdy CA
|
||||
SetLedState(VK_CAPITAL,iBits&2);
|
||||
if (mask&1) //gdy SHP
|
||||
{//Scroll Lock ma jakoś dziwnie... zmiana stanu na przeciwny
|
||||
SetLedState(VK_SCROLL,true); //przyciśnięty
|
||||
SetLedState(VK_SCROLL,false); //zwolniony
|
||||
++iConfig; //licznik użycia Scroll Lock
|
||||
}
|
||||
break;
|
||||
case 3: //LPT Marcela z modyfikacją (jazda na oporach zamiast brzęczyka)
|
||||
if (LPT)
|
||||
LPT->Out(iBits);
|
||||
break;
|
||||
case 4: //PoKeys55 wg Marcela - wersja druga z końca 2012
|
||||
if (PoKeys55[0])
|
||||
{//pewnie trzeba będzie to dodatkowo buforować i oczekiwać na potwierdzenie
|
||||
if (mask&0x0001) //b0 gdy SHP
|
||||
PoKeys55[0]->Write(0x40,23-1,iBits&0x0001?1:0);
|
||||
if (mask&0x0002) //b1 gdy zmieniony CA
|
||||
PoKeys55[0]->Write(0x40,24-1,iBits&0x0002?1:0);
|
||||
if (mask&0x0004) //b2 gdy jazda na oporach
|
||||
PoKeys55[0]->Write(0x40,32-1,iBits&0x0004?1:0);
|
||||
if (mask&0x0008) //b3 Lampka WS (wyłącznika szybkiego)
|
||||
PoKeys55[0]->Write(0x40,25-1,iBits&0x0008?1:0);
|
||||
if (mask&0x0010) //b4 Lampka przekaźnika nadmiarowego silników trakcyjnych
|
||||
PoKeys55[0]->Write(0x40,27-1,iBits&0x0010?1:0);
|
||||
if (mask&0x0020) //b5 Lampka styczników liniowych
|
||||
PoKeys55[0]->Write(0x40,29-1,iBits&0x0020?1:0);
|
||||
if (mask&0x0040) //b6 Lampka poślizgu
|
||||
PoKeys55[0]->Write(0x40,30-1,iBits&0x0040?1:0);
|
||||
if (mask&0x0080) //b7 Lampka "przetwornicy"
|
||||
PoKeys55[0]->Write(0x40,28-1,iBits&0x0080?1:0);
|
||||
if (mask&0x0100) //b8 Kontrolka przekaźnika nadmiarowego sprężarki
|
||||
PoKeys55[0]->Write(0x40,33-1,iBits&0x0100?1:0);
|
||||
if (mask&0x0200) //b9 Kontrolka sygnalizacji wentylatorów i oporów
|
||||
PoKeys55[0]->Write(0x40,26-1,iBits&0x0200?1:0);
|
||||
if (mask&0x0400) //b10 Kontrolka wysokiego rozruchu
|
||||
PoKeys55[0]->Write(0x40,31-1,iBits&0x0400?1:0);
|
||||
if (mask&0x0800) //b11 Kontrolka ogrzewania pociągu
|
||||
PoKeys55[0]->Write(0x40,34-1,iBits&0x0800?1:0);
|
||||
if (mask&0x1000) //b12 Ciśnienie w cylindrach do odbijania w haslerze
|
||||
PoKeys55[0]->Write(0x40,52-1,iBits&0x1000?1:0);
|
||||
if (mask&0x2000) //b13 Prąd na silnikach do odbijania w haslerze
|
||||
PoKeys55[0]->Write(0x40,53-1,iBits&0x2000?1:0);
|
||||
}
|
||||
break;
|
||||
}
|
||||
{ // aktualizacja stanu interfejsu informacji zwrotnej; (mask) - zakres zmienianych bitów
|
||||
switch (iMode)
|
||||
{
|
||||
case 1: // sterowanie światełkami klawiatury: CA/SHP+opory
|
||||
if (mask & 3) // gdy SHP albo CA
|
||||
SetLedState(VK_CAPITAL, iBits & 3);
|
||||
if (mask & 4) // gdy jazda na oporach
|
||||
{ // Scroll Lock ma jakoś dziwnie... zmiana stanu na przeciwny
|
||||
SetLedState(VK_SCROLL, true); // przyciśnięty
|
||||
SetLedState(VK_SCROLL, false); // zwolniony
|
||||
++iConfig; // licznik użycia Scroll Lock
|
||||
}
|
||||
break;
|
||||
case 2: // sterowanie światełkami klawiatury: CA+SHP
|
||||
if (mask & 2) // gdy CA
|
||||
SetLedState(VK_CAPITAL, iBits & 2);
|
||||
if (mask & 1) // gdy SHP
|
||||
{ // Scroll Lock ma jakoś dziwnie... zmiana stanu na przeciwny
|
||||
SetLedState(VK_SCROLL, true); // przyciśnięty
|
||||
SetLedState(VK_SCROLL, false); // zwolniony
|
||||
++iConfig; // licznik użycia Scroll Lock
|
||||
}
|
||||
break;
|
||||
case 3: // LPT Marcela z modyfikacją (jazda na oporach zamiast brzęczyka)
|
||||
if (LPT)
|
||||
LPT->Out(iBits);
|
||||
break;
|
||||
case 4: // PoKeys55 wg Marcela - wersja druga z końca 2012
|
||||
if (PoKeys55[0])
|
||||
{ // pewnie trzeba będzie to dodatkowo buforować i oczekiwać na potwierdzenie
|
||||
if (mask & 0x0001) // b0 gdy SHP
|
||||
PoKeys55[0]->Write(0x40, 23 - 1, iBits & 0x0001 ? 1 : 0);
|
||||
if (mask & 0x0002) // b1 gdy zmieniony CA
|
||||
PoKeys55[0]->Write(0x40, 24 - 1, iBits & 0x0002 ? 1 : 0);
|
||||
if (mask & 0x0004) // b2 gdy jazda na oporach
|
||||
PoKeys55[0]->Write(0x40, 32 - 1, iBits & 0x0004 ? 1 : 0);
|
||||
if (mask & 0x0008) // b3 Lampka WS (wyłącznika szybkiego)
|
||||
PoKeys55[0]->Write(0x40, 25 - 1, iBits & 0x0008 ? 1 : 0);
|
||||
if (mask & 0x0010) // b4 Lampka przekaźnika nadmiarowego silników trakcyjnych
|
||||
PoKeys55[0]->Write(0x40, 27 - 1, iBits & 0x0010 ? 1 : 0);
|
||||
if (mask & 0x0020) // b5 Lampka styczników liniowych
|
||||
PoKeys55[0]->Write(0x40, 29 - 1, iBits & 0x0020 ? 1 : 0);
|
||||
if (mask & 0x0040) // b6 Lampka poślizgu
|
||||
PoKeys55[0]->Write(0x40, 30 - 1, iBits & 0x0040 ? 1 : 0);
|
||||
if (mask & 0x0080) // b7 Lampka "przetwornicy"
|
||||
PoKeys55[0]->Write(0x40, 28 - 1, iBits & 0x0080 ? 1 : 0);
|
||||
if (mask & 0x0100) // b8 Kontrolka przekaźnika nadmiarowego sprężarki
|
||||
PoKeys55[0]->Write(0x40, 33 - 1, iBits & 0x0100 ? 1 : 0);
|
||||
if (mask & 0x0200) // b9 Kontrolka sygnalizacji wentylatorów i oporów
|
||||
PoKeys55[0]->Write(0x40, 26 - 1, iBits & 0x0200 ? 1 : 0);
|
||||
if (mask & 0x0400) // b10 Kontrolka wysokiego rozruchu
|
||||
PoKeys55[0]->Write(0x40, 31 - 1, iBits & 0x0400 ? 1 : 0);
|
||||
if (mask & 0x0800) // b11 Kontrolka ogrzewania pociągu
|
||||
PoKeys55[0]->Write(0x40, 34 - 1, iBits & 0x0800 ? 1 : 0);
|
||||
if (mask & 0x1000) // b12 Ciśnienie w cylindrach do odbijania w haslerze
|
||||
PoKeys55[0]->Write(0x40, 52 - 1, iBits & 0x1000 ? 1 : 0);
|
||||
if (mask & 0x2000) // b13 Prąd na silnikach do odbijania w haslerze
|
||||
PoKeys55[0]->Write(0x40, 53 - 1, iBits & 0x2000 ? 1 : 0);
|
||||
}
|
||||
break;
|
||||
}
|
||||
};
|
||||
|
||||
bool __fastcall Console::Pressed(int x)
|
||||
{//na razie tak - czyta się tylko klawiatura
|
||||
return Global::bActive&&(GetKeyState(x)<0);
|
||||
};
|
||||
bool __fastcall Console::Pressed(int x) { // na razie tak - czyta się tylko klawiatura return Global::bActive && (GetKeyState(x) < 0); };
|
||||
|
||||
void __fastcall Console::ValueSet(int x,double y)
|
||||
{//ustawienie wartości (y) na kanale analogowym (x)
|
||||
if (iMode==4)
|
||||
if (PoKeys55[0])
|
||||
{
|
||||
PoKeys55[0]->PWM(x,(((Global::fCalibrateOut[x][3]*y)+Global::fCalibrateOut[x][2])*y+Global::fCalibrateOut[x][1])*y+Global::fCalibrateOut[x][0]); //zakres <0;1>
|
||||
}
|
||||
void __fastcall Console::ValueSet(int x, double y)
|
||||
{ // ustawienie wartości (y) na kanale analogowym (x)
|
||||
if (iMode == 4)
|
||||
if (PoKeys55[0])
|
||||
{
|
||||
PoKeys55[0]->PWM(
|
||||
x, (((Global::fCalibrateOut[x][3] * y) + Global::fCalibrateOut[x][2]) * y +
|
||||
Global::fCalibrateOut[x][1]) *
|
||||
y +
|
||||
Global::fCalibrateOut[x][0]); // zakres <0;1>
|
||||
}
|
||||
};
|
||||
|
||||
void __fastcall Console::Update()
|
||||
{//funkcja powinna być wywoływana regularnie, np. raz w każdej ramce ekranowej
|
||||
if (iMode==4)
|
||||
if (PoKeys55[0])
|
||||
if (PoKeys55[0]->Update((Global::iPause&8)>0))
|
||||
{//wykrycie przestawionych przełączników?
|
||||
Global::iPause&=~8;
|
||||
}
|
||||
else
|
||||
{//błąd komunikacji - zapauzować symulację?
|
||||
if (!(Global::iPause&8)) //jeśli jeszcze nie oflagowana
|
||||
Global::iTextMode=VK_F1; //pokazanie czasu/pauzy
|
||||
Global::iPause|=8; //tak???
|
||||
PoKeys55[0]->Connect(); //próba ponownego podłączenia
|
||||
}
|
||||
{ // funkcja powinna być wywoływana regularnie, np. raz w każdej ramce ekranowej
|
||||
if (iMode == 4)
|
||||
if (PoKeys55[0])
|
||||
if (PoKeys55[0]->Update((Global::iPause & 8) > 0))
|
||||
{ // wykrycie przestawionych przełączników?
|
||||
Global::iPause &= ~8;
|
||||
}
|
||||
else
|
||||
{ // błąd komunikacji - zapauzować symulację?
|
||||
if (!(Global::iPause & 8)) // jeśli jeszcze nie oflagowana
|
||||
Global::iTextMode = VK_F1; // pokazanie czasu/pauzy
|
||||
Global::iPause |= 8; // tak???
|
||||
PoKeys55[0]->Connect(); // próba ponownego podłączenia
|
||||
}
|
||||
};
|
||||
|
||||
float __fastcall Console::AnalogGet(int x)
|
||||
{//pobranie wartości analogowej
|
||||
if (iMode==4)
|
||||
if (PoKeys55[0])
|
||||
return PoKeys55[0]->fAnalog[x];
|
||||
return -1.0;
|
||||
{ // pobranie wartości analogowej
|
||||
if (iMode == 4)
|
||||
if (PoKeys55[0])
|
||||
return PoKeys55[0]->fAnalog[x];
|
||||
return -1.0;
|
||||
};
|
||||
|
||||
unsigned char __fastcall Console::DigitalGet(int x)
|
||||
{//pobranie wartości cyfrowej
|
||||
if (iMode==4)
|
||||
if (PoKeys55[0])
|
||||
return PoKeys55[0]->iInputs[x];
|
||||
return 0;
|
||||
{ // pobranie wartości cyfrowej
|
||||
if (iMode == 4)
|
||||
if (PoKeys55[0])
|
||||
return PoKeys55[0]->iInputs[x];
|
||||
return 0;
|
||||
};
|
||||
|
||||
void __fastcall Console::OnKeyDown(int k)
|
||||
{//naciśnięcie klawisza z powoduje wyłączenie, a
|
||||
if (k&0x10000) //jeśli [Shift]
|
||||
{//ustawienie bitu w tabeli przełączników bistabilnych
|
||||
if (k&0x20000) //jeśli [Ctrl], to zestaw dodatkowy
|
||||
iSwitch[4+(char(k)>>5)]|=1<<(k&31); //załącz bistabliny dodatkowy
|
||||
else
|
||||
{//z [Shift] włączenie bitu bistabilnego i dodatkowego monostabilnego
|
||||
iSwitch[char(k)>>5]|=1<<(k&31); //załącz bistabliny podstawowy
|
||||
iButton[4+(char(k)>>5)]|=(1<<(k&31)); //załącz monostabilny dodatkowy
|
||||
}
|
||||
}
|
||||
else
|
||||
{//zerowanie bitu w tabeli przełączników bistabilnych
|
||||
if (k&0x20000) //jeśli [Ctrl], to zestaw dodatkowy
|
||||
iSwitch[4+(char(k)>>5)]&=~(1<<(k&31)); //wyłącz bistabilny dodatkowy
|
||||
else
|
||||
{iSwitch[char(k)>>5]&=~(1<<(k&31)); //wyłącz bistabilny podstawowy
|
||||
iButton[char(k)>>5]|=1<<(k&31); //załącz monostabilny podstawowy
|
||||
}
|
||||
}
|
||||
{ // naciśnięcie klawisza z powoduje wyłączenie, a
|
||||
if (k & 0x10000) // jeśli [Shift]
|
||||
{ // ustawienie bitu w tabeli przełączników bistabilnych
|
||||
if (k & 0x20000) // jeśli [Ctrl], to zestaw dodatkowy
|
||||
iSwitch[4 + (char(k) >> 5)] |= 1 << (k & 31); // załącz bistabliny dodatkowy
|
||||
else
|
||||
{ // z [Shift] włączenie bitu bistabilnego i dodatkowego monostabilnego
|
||||
iSwitch[char(k) >> 5] |= 1 << (k & 31); // załącz bistabliny podstawowy
|
||||
iButton[4 + (char(k) >> 5)] |= (1 << (k & 31)); // załącz monostabilny dodatkowy
|
||||
}
|
||||
}
|
||||
else
|
||||
{ // zerowanie bitu w tabeli przełączników bistabilnych
|
||||
if (k & 0x20000) // jeśli [Ctrl], to zestaw dodatkowy
|
||||
iSwitch[4 + (char(k) >> 5)] &= ~(1 << (k & 31)); // wyłącz bistabilny dodatkowy
|
||||
else
|
||||
{
|
||||
iSwitch[char(k) >> 5] &= ~(1 << (k & 31)); // wyłącz bistabilny podstawowy
|
||||
iButton[char(k) >> 5] |= 1 << (k & 31); // załącz monostabilny podstawowy
|
||||
}
|
||||
}
|
||||
};
|
||||
void __fastcall Console::OnKeyUp(int k)
|
||||
{//puszczenie klawisza w zasadzie nie ma znaczenia dla iSwitch, ale zeruje iButton
|
||||
if ((k&0x20000)==0) //monostabilne tylko bez [Ctrl]
|
||||
if (k&0x10000) //jeśli [Shift]
|
||||
iButton[4+(char(k)>>5)]&=~(1<<(k&31)); //wyłącz monostabilny dodatkowy
|
||||
else
|
||||
iButton[char(k)>>5]&=~(1<<(k&31)); //wyłącz monostabilny podstawowy
|
||||
{ // puszczenie klawisza w zasadzie nie ma znaczenia dla iSwitch, ale zeruje iButton
|
||||
if ((k & 0x20000) == 0) // monostabilne tylko bez [Ctrl]
|
||||
if (k & 0x10000) // jeśli [Shift]
|
||||
iButton[4 + (char(k) >> 5)] &= ~(1 << (k & 31)); // wyłącz monostabilny dodatkowy
|
||||
else
|
||||
iButton[char(k) >> 5] &= ~(1 << (k & 31)); // wyłącz monostabilny podstawowy
|
||||
};
|
||||
int __fastcall Console::KeyDownConvert(int k)
|
||||
{
|
||||
return int(ktTable[k&0x3FF].iDown);
|
||||
};
|
||||
int __fastcall Console::KeyUpConvert(int k)
|
||||
{
|
||||
return int(ktTable[k&0x3FF].iUp);
|
||||
};
|
||||
|
||||
int __fastcall Console::KeyDownConvert(int k) { return int(ktTable[k & 0x3FF].iDown); };
|
||||
int __fastcall Console::KeyUpConvert(int k) { return int(ktTable[k & 0x3FF].iUp); };
|
||||
|
||||
Reference in New Issue
Block a user