 |
|
|
Elektronika.lt portalo forumas
Jūs esate neprisijungęs lankytojas. Norint dalyvauti diskusijose, būtina užsiregistruoti ir prisijungti prie forumo.
Prisijungę galėsite kurti naujas temas, atsakyti į kitų užduotus klausimus, balsuoti forumo apklausose.
Administracija pasilieka teisę pašalinti pasisakymus bei dalyvius,
kurie nesilaiko forumo taisyklių.
Pastebėjus nusižengimus, prašome pranešti.
Dabar yra 2024 05 20, 18:53. Visos datos yra GMT + 2 valandos.
|
|
|
 |
Forumas » Programavimas » LPT arba COM portai [DELPHI] ?
|
Jūs negalite rašyti naujų pranešimų į šį forumą
Jūs negalite atsakinėti į pranešimus šiame forume
Jūs negalite redaguoti savo pranešimų šiame forume
Jūs negalite ištrinti savo pranešimų šiame forume
Jūs negalite dalyvauti apklausose šiame forume
|
|
|
 |
LPT arba COM portai [DELPHI] ? |
 Parašytas: 2007 02 10, 02:44 |
  |
|
|
|
| Kaip i Delphi priimti signala. Su IO.DLL pluginu gal imanoma? ten su juo gana nesudetinga. Kaip per com porta priimti, nes tarkim lpt uzimtas siuntimui. (Nu tarkim yra mygtukas, nuspaudziu ta mygtuka ir man ismeta kompas lentele nuspaustas mygtukas 1 ir t.t iki kiek imanoma daugiau (Cia nuo porto priklauso)). ? |
|
_________________
Aš naudojau parašą reklamai |
|
|
|
|
LPT arba COM portai [DELPHI] ? |
| Parašytas: 2007 02 12, 11:33 |
|
|
|
|
IO.dll biblioteka leidžia tau tiesiogiai 'prieiti' prie kompiuterio geležies (LPT, ComPort, mini garsiakalbio ir kt. adresų); Kartais tai naudinga, bet nevisada saugu. Jei tenori sužinoti, ar išorėje paspaustas mygtukas, gali A) panaudoti Joystiko jungtį (15 pin garso plokštėje); labai paprasta
B) Naudoji mikrokontrolerį ir ComPort jungtį; nėra sudėtinga
C) Naudoji mikrokontrolerį ir USB jungtį; sudėtingiau, bet universaliau
Esu panaudojęs visus variantus  |
|
|
|
|
|
|
LPT arba COM portai [DELPHI] ? |
| Parašytas: 2007 02 12, 14:53 |
|
|
|
|
Butu gerai apie A ir apie B kuo placiau iki kodo rasymo  Butu gerai kad galeciau bent 6 ar 4 mygtukus tureti! |
|
_________________
Aš naudojau parašą reklamai |
|
|
|
|
LPT arba COM portai [DELPHI] ? |
| Parašytas: 2007 02 13, 20:00 |
|
|
|
|
Jei garso plokštėje yra 15pin jungtis 'linksmakočiui'  , arba yra nenaudojamas koks paprastas USB Keypadas ar joystickas, labai paprasta sukurti programėlę, kuri gali reaguoti į mygtukų paspaudimus. Gal su gatavu joystiku dar ir lengviau, nereikia aiškintis kur kokie signalai. Kodo pavyzdį pateiksiu ryt, darbe, tingiu dabar iš atminties burti. |
|
|
|
|
|
|
|
LPT arba COM portai [DELPHI] ? |
| Parašytas: 2007 02 14, 09:46 |
|
|
|
|
Atvejis A: (turim 15pin game port)
Nagrinėjam schemą:
http://pinouts.ru/Inputs/GameportPC_pinout.shtml
kurioje išsiaiškinam, kad Button1 paspaudimas - tai atitinkamo pino sujungimas su žeme. Pasidarom reikalingus laidus į jungtį, toliau rašom programą:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, mmsystem;
type
TMMJoyStick = packed record
Msg: Cardinal; // The message ID
Buttons: Longint; // The wParam
XPos: word; // The lParam
YPos: word;
Result: Longint;
end;
type
TForm1 = class(TForm)
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
procedure FormCreate(Sender: TObject);
procedure MMJOY1BUTTONDOWN (var LocMessage: TMMJoyStick); message MM_JOY1BUTTONDOWN;
procedure MMJOY1BUTTONUP (var LocMessage: TMMJoyStick); message MM_JOY1BUTTONUP;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
//kurdami formą sukuriame priėjimą; nurodome ir intervalą
procedure TForm1.FormCreate(Sender: TObject);
var
myJoyCaps: TJoyCaps;
begin
joyGetDevCaps(joystickid1,@myJoyCaps, sizeof(myJoyCaps));
joySetCapture(self.Handle, joystickid1, 100, true);
end;
//jeigu buvo atleistas mygtukas ...
procedure TForm1.MMJOY1BUTTONUP (var LocMessage: TMMJoyStick);
begin
CheckBox1.checked := (LocMessage.Buttons and joy_button1)>0;
CheckBox2.checked := (LocMessage.Buttons and joy_button2)>0;
end;
//jeigu buvo paspaustas mygtukas ...
procedure TForm1.MMJOY1BUTTONDOWN (var LocMessage: TMMJoyStick);
begin
CheckBox1.checked := (LocMessage.Buttons and joy_button1)>0;
CheckBox2.checked := (LocMessage.Buttons and joy_button2)>0;
end;
//išlaisviname jungtį
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
joyReleaseCapture(joystickid1);
end;
end.
Čia pateikiu iškarpytą variantą, manau turėtų veikti. Iš principo TMMJoyStick įrašas nėra reikalingas, jis aprašytas mmsystem modulyje, visą kodą galima būtų sutrumpinti. Be MMJOY1BUTTONDOWN/UP funkcijų, yra ir kitos (ašių, judėjimo). Jos naudojamos panašiai, ir leistų sukurti analoginį įėjimą/us.
Jei turime Joystiką su USB jungtimi, šis kodas taip pat turėtų veikti. |
|
|
|
|
|
|
|
LPT arba COM portai [DELPHI] ? |
| Parašytas: 2007 02 14, 10:01 |
|
|
|
|
B) Naudoji mikrokontrolerį ir ComPort jungtį;
Čia, tiesą sakant, nėra ką ir aprašinėti, reikia tik sulituoti MAX232 mikroschemą, kurį nors iš AVR mikrokontrolerių (ATTiny2313, ATMega8,..), prie maxo prilituoji 9pin jungtį, mikrokontrolerio I/O kojas per mygtukus (swithus) nuvedi į žemę. Toliau belieka tik parašyti kodą. Programa kompiuteryje nuskaito iš mikrokontrolerio duomenis ir kažką daro. Programą rašant Delphi aplinkoje, galima panaudoti RS232 komponentą - CPort ar kitą.
Be abejo, be inputų reiktų turėti ir outputus, todėl prie mC per ULN2803 ar tranzistorius lituojame reles, ir turime pilnavertę I/O plokštę. Šiuo atveju kodas mikrokontroleryje darysis sudėtingesnis, nes reiks sukurti komandų atpažinimo sistemą. |
|
|
|
|
|
|
|
LPT arba COM portai [DELPHI] ? |
| Parašytas: 2007 02 20, 20:47 |
|
|
|
|
| Su CreateFile atsidarai norimą COM portą, susikonfigūruoji portą su SetCommState ir naudoji standarines ReadFile bei WriteFile funkcijas. Viskas. Nekils nei jokių problemų su WinXP. Veiks puikiai. Ir jokių DLLų, jokių papildomų komponentų instaliuoti nereikės. |
|
|
|
|
|
|
LPT arba COM portai [DELPHI] ? |
| Parašytas: 2007 02 21, 13:54 |
|
|
|
|
Vakaras, gal galima placiau? Oni, kazkodel meta man klaida, kazkas su tuo kodu negerai pacioj pradzioj su:
procedure FormCreate(Sender: TObject);
procedure MMJOY1BUTTONDOWN (var LocMessage: TMMJoyStick); message MM_JOY1BUTTONDOWN;
procedure MMJOY1BUTTONUP (var LocMessage: TMMJoyStick); message MM_JOY1BUTTONUP;
procedure FormClose(Sender: TObject; var Action: TCloseAction); |
|
_________________
Aš naudojau parašą reklamai |
|
|
|
|
LPT arba COM portai [DELPHI] ? |
| Parašytas: 2007 02 22, 17:44 |
|
|
|
|
| mantelis rašo: |
Oni, kazkodel meta man klaida, kazkas su tuo kodu negerai pacioj pradzioj su:
procedure FormCreate(Sender: TObject); |
Papostink klaidos aprašą, įtariu kad blogai nukopijuota; Beje, šiam kodui nereikai papildomų *.dll bibliotekų ir komponentų. |
|
|
|
|
|
|
 |
Google paieška forume |
|
|
|
Naujos temos forume |
|
|
FS 22 Tractors
Farming Simulator 19 Mods,
FS 22 Maps,
FS22 Mods |
|
ETS2 Mods
ETS2 Trucks,
ETS2 Bus,
Euro Truck Simulator 2 Mods
|
|
FS22 Tractors
Farming Simulator 22 Mods,
FS22 Maps,
FS22 Trucks |
|
VAT calculator
VAT number check,
What is VAT,
How much is VAT |
|
Paskola internetu
Vartojimo paskola,
paskola automobiliui,
paskola būsto remontui |
|
Thermal monocular
Thermal vision camera,
Night vision ar scope,
Night vision spotting scope |
|
FS22 Mods
FS22 Harvesters,
FS22 Tractors Mods,
FS22 Maps Mods |
|
FS22 Mods
FS22 Maps,
FS22 Harvesters,
FS22 Tractors |
|
Dantų protezavimas
All on 4 implantai,
Endodontija mikroskopu,
Dantų implantacija |
|
Sims 4 Mods
Sims 4 CC Clothes,
Sims 4 Hair CC,
Sims 4 Skill Cheat |
|
|
 |
