USB-COM pin-ide lülitus

[otsija]

Vs: USB-COM pin-ide lülitus

Töölaual näiteks on miski soft, klikin selle peal ja avanenud aknas on kusagil miski nupp, mille abil lihtsalt relee/releed labaselt sisse/välja lülitada.

[A.S.]

Vs: USB-COM pin-ide lülitus

https://sites.google.com/site/terminalbpp/

On ju soft, on ka klõpsutamiseks nupp (lausa kaks neid seal all paremas ääres), aga vähe usku, et säherduse pisikese vooluga suurt midagi lülitada saad.

[Vilkur]

Vs: USB-COM pin-ide lülitus

Töölaual näiteks on miski soft, klikin selle peal ja avanenud aknas on kusagil miski nupp, mille abil lihtsalt relee/releed labaselt sisse/välja lülitada.

Minul on kasutuses portstat.exe. http://www.taltech.com/downloads/file/portstat
Lülitamas on küll Exceli makro, aga saab ka käsitsi.
Transistorit on siiski vahele vaja relee lülitamiseks.
Ja töötab paremini 32-bitise Windowsi peal.

[A.R.]

Vs: USB-COM pin-ide lülitus

https://sites.google.com/site/terminalbpp/
On ju soft, on ka klõpsutamiseks nupp (lausa kaks neid seal all paremas ääres), aga vähe usku, et säherduse pisikese vooluga suurt midagi lülitada saad.

Mina võtaks
http://www.taltech.com/downloads/freesoftware ComDebug
Otsid milline on sinu COM, siis paned ta paika ja võid neid kahte lülitada.
Kui viitsid ühendada pinnid saad ka tagasisidet. võid ka saata lugeda teksti.
Ja kui vool on pisike siis lased voolu transistori baas ning saad suurema voolu.

Ja kui tahad saad teha selle kõik ekraanil väiksemaks.

[Starfish]

Vs: USB-COM pin-ide lülitus

Töölaual näiteks on miski soft, klikin selle peal ja avanenud aknas on kusagil miski nupp, mille abil lihtsalt relee/releed labaselt sisse/välja lülitada.

Kas printeri port ei sobiks selle jaoks ?
Sealtsamast venekeelselt lehelt see lugeja/kirjutaja saab 5 minutiga muuta sobivaks, kus sisse/välja nupud ja näiteks veel paneel mis värvi muudab (data1 - heleroheline/ data0 - tumeroheline).

Ja kui tahad saad teha selle kõik ekraanil väiksemaks.

Mismoodi väiksemaks ?

Dialog/RCdata ma sealt avada ei saanud et midagi muuta.
(Näiteks windowsi kalkulaatori saab sedasi muuta nagu isu on...)

[otsija]

Vs: USB-COM pin-ide lülitus

Pole printerporti, USB-COM üleminek vedeleb, mõtlesin, et teeks ta vähekenegi kasulikuks, millalgi proovin neid eespool soovitatud trikke.

[A.R.]

Vs: USB-COM pin-ide lülitus

Mismoodi väiksemaks ?

Õpid natuke juurde, kirjutad mõne rea programmi ja paned arvuti tegema seda mida Sina tahad.
Siis saad need lülitused panna nupuga kahele reale.
Või lubad kasutada hex koodi ja juhid LPT ühe arvuga.

Aga alustuseks oleks hea kui oleks idee mis peab toimuma.

[Starfish]

Vs: USB-COM pin-ide lülitus

http://www.kernelchip.ru/pcports.php

Sealt all viimane teema on COM port ja on programmi näiteid.

[Mephistopheles]

Vs: USB-COM pin-ide lülitus

COM pordi poole p88rdumiseks ei ole DLLe v6i mingeid EXEsid vaja, avad COM pordi nagu tavalise faili. Paralleel pordiga on tsipa nutusem (saab samuti ilma DLL/EXE failideta, kuid n6uab verd, higi ja pisaraid), pead windowsi systeemsete funktsioonide poole p88rduma.

Mina sain nii kaugele, et saab data bitikesi kl6bistada ja lugeda (kui on vastavas moodis) ning sama siis kontroll bitikestega. Staatuse bitikestega oli mingi hullem jama ja sinna mu koodimine j2igi. See vaev k6ik oli selle jaoks, et juhtida CU20045SCPB-T23A VFD ekraanikest (pilte, video 1, video 2).

Kood COM pordiga suhtlemiseks (Delphis kirjutatud):

var
    com_stream          : THandle;
    com_port            : String;
    com_data_out        : String;
    com_data_in         : String;
    com_data_in_buffer  : Array [0..255] Of Char;
    com_data_cntr       : dWord;
    idx                 : Integer;


{*****************}
{* Open COM port *}
{*****************}
com_port := 'COM1';
com_stream := CreateFile(PChar(com_port), GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
if com_stream = INVALID_HANDLE_VALUE then
    ShowMessage('Unable to open ' + com_port);


{******************}
{* Close COM port *}
{******************}
if not CloseHandle(com_stream) then
    ShowMessage('Unable to close ' + com_port);


{***********************}
{* Write into COM port *}
{***********************}
if WriteFile(com_stream, PChar(com_data_out)^, Length(com_data_out), com_data_cntr, nil) = false then
    showmessage('Unable to send data');


{**********************}
{* read from COM port *}
{**********************}
if ReadFile(com_stream, com_data_in_buffer, sizeof(com_data_in_buffer), com_data_cntr, nil) = false then
    ShowMessage('Unable to read data')
else
begin
    com_data_in := '';
    for idx := 0 to com_data_cntr - 1 do
        com_data_in := com_data_in + com_data_in_buffer[idx];
end;