mirror of
https://github.com/MaSzyna-EU07/maszyna.git
synced 2026-07-18 01:59:19 +02:00
Set dp branch as trunk
This commit is contained in:
ShaXbee
347
Console.cpp
Normal file
347
Console.cpp
Normal file
@@ -0,0 +1,347 @@
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
#include <vcl.h>
|
||||
#pragma hdrstop
|
||||
|
||||
#include "Console.h"
|
||||
#include "Globals.h"
|
||||
#include "Logs.h"
|
||||
#include "PoKeys55.h"
|
||||
#include "LPT.h"
|
||||
|
||||
//---------------------------------------------------------------------------
|
||||
#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)
|
||||
|
||||
/*******************************
|
||||
Do klawisza klawiatury przypisana jest maska bitowa oraz numer wejścia.
|
||||
Naciśnięcie klawisza powoduje wywołanie procedury ustawienia bitu o podanej
|
||||
masce na podanym wejściu. Zwonienie klawisza analogicznie wywołuje zerowanie
|
||||
bitu wg maski. Zasadniczo w masce ustawiony jest jeden bit, ale w razie
|
||||
potrzeby może być ich więcej.
|
||||
|
||||
Oddzielne wejścia są wprowadzone po to, by można było używać więcej niż 32
|
||||
bity do sterowania. Podział na wejścia jest również ze względów organizacyjnych,
|
||||
np. sterowanie światłami może mieć oddzielny numer wejścia niż przełączanie
|
||||
radia, ponieważ nie ma potrzeby ich uzależniać (tzn. badać wspólną maskę bitową).
|
||||
|
||||
Do każdego wejścia podpięty jest skrypt binarny, charakterystyczny dla danej
|
||||
konstrukcji pojazdu. Sprawdza on zależności (w tym uszkodzenia) za pomocą
|
||||
operacji logicznych na maskach bitowych. Do każdego wejścia jest przypisana
|
||||
jedna, oddzielna maska 32 bit, ale w razie potrzeby istnieje też możliwość
|
||||
korzystania z masek innych wejść. Skrypt może też wysyłać maski na inne wejścia,
|
||||
ale należy unikać rekurencji.
|
||||
|
||||
Definiowanie wejść oraz przeznaczenia ich masek jest w gestii konstruktora
|
||||
skryptu. Każdy pojazd może mieć inny schemat wejść i masek, ale w miarę możliwości
|
||||
należy dążyć do unifikacji. Skrypty mogą również używać dodatkowych masek bitowych.
|
||||
Maski bitowe odpowiadają stanom przełączników, czujników, styczników itd.
|
||||
|
||||
Działanie jest następujące:
|
||||
- na klawiaturze konsoli naciskany jest przycisk
|
||||
- naciśnięcie przycisku zamieniane jest na maskę bitową oraz numer wejścia
|
||||
- wywoływany jest skrypt danego wejścia z ową maską
|
||||
- skrypt sprawdza zależności i np. modyfikuje własności fizyki albo inne maski
|
||||
- ewentualnie do wyzwalacza czasowego dodana jest maska i numer wejścia
|
||||
|
||||
/*******************************/
|
||||
|
||||
/* //kod do przetrawienia:
|
||||
//aby się nie włączacz wygaszacz ekranu, co jakiś czas naciska się wirtualnie ScrollLock
|
||||
|
||||
[DllImport("user32.dll")]
|
||||
static extern void keybd_event(byte bVk, byte bScan, uint dwFlags, UIntPtr dwExtraInfo);
|
||||
|
||||
private static void PressScrollLock()
|
||||
{//przyciska i zwalnia ScrollLock
|
||||
const byte vkScroll = 0x91;
|
||||
const byte keyeventfKeyup = 0x2;
|
||||
keybd_event(vkScroll, 0x45, 0, (UIntPtr)0);
|
||||
keybd_event(vkScroll, 0x45, keyeventfKeyup, (UIntPtr)0);
|
||||
};
|
||||
|
||||
[DllImport("user32.dll")]
|
||||
private static extern bool SystemParametersInfo(int uAction,int uParam,int &lpvParam,int flags);
|
||||
|
||||
public static Int32 GetScreenSaverTimeout()
|
||||
{
|
||||
Int32 value=0;
|
||||
SystemParametersInfo(14,0,&value,0);
|
||||
return value;
|
||||
};
|
||||
*/
|
||||
|
||||
//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
|
||||
|
||||
__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]
|
||||
}
|
||||
};
|
||||
|
||||
__fastcall Console::~Console()
|
||||
{
|
||||
delete PoKeys55[0];
|
||||
delete PoKeys55[1];
|
||||
};
|
||||
|
||||
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;
|
||||
};
|
||||
|
||||
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;
|
||||
};
|
||||
|
||||
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::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;
|
||||
}
|
||||
};
|
||||
|
||||
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::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
|
||||
}
|
||||
};
|
||||
|
||||
float __fastcall Console::AnalogGet(int x)
|
||||
{//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;
|
||||
};
|
||||
|
||||
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
|
||||
}
|
||||
}
|
||||
};
|
||||
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
|
||||
};
|
||||
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