Diskuzní fórum železničních modelářů

Ahoj

Konečně jsem se dostal k programu. Teprve dnes jsem vyřešil malý problémek s celkovým součtem sbírek. Myslím, že program je hotov. Popisovat zde veškeré funkce nebudu. S programem se blíž můžete seznámit v nápovědě. Jen bych pozdvihl a upozornil na jednu novou funkci. Přímo s programu je možné mě kontaktovat na můj osobní E-mail za podmínek, že jste on-line připojení k internetu. Zda jste, nebo nejste připojeni k internetu, budete programem informováni. Tuto funkci najdete v hlavním menu "Nápověda - Odeslat dotaz" a nebo pod klávesovou zkratkou F3.
Již jsem se setkal s plagiátorstvím na netu. Není to nic, co by mne překvapilo. Takže jsem program podepsal. Nicméně se ničeho nebojte. Stále jde o program Feeware s distribucí Free Download.

Link pro stažení: http://ulozto.cz/xpXfMtMY/evidence-zele ... 13-6-1-exe

Michal

Ps: Jen bych vás rád upozornil, že základní okno je majoritní vůči všem dalším otevřeným oknům a programům. Čili pokud bude mít otevřený jiné okna a budete je chtít zobrazit, musíte shodit program na lištu nabídky Start systému Windows. Jinak je nijak nezobrazíte !!!!

Pěknej nápad.

A kde vezmu ty chybějící databáze *.mdb?
V nápovědě mám jen témata a po rozkliknutí vidím jen černé odstavce. Buď tam není text, nebo je černej. A ty barvy jsou blbě čitelný.
A proč je to okno přesevšechny okna?

Škoda, že ses to nepsal pro online přístup, nechat databáze otevřený pro nahlížení to by bylo počteníčko

bishop píše:Pěknej nápad.

A kde vezmu ty chybějící databáze *.mdb?

Databázové soubory jsou pouze v první verzi programu ( Link: http://www.ulozto.cz/xie9mNK/evi-l-v-p-preklad-zip ) Aktualizace se provádí nahrazením starého spouštěcího souboru za nový. Již jsem vydal dohromady 3 verze.

bishop píše:V nápovědě mám jen témata a po rozkliknutí vidím jen černé odstavce. Buď tam není text, nebo je černej. A ty barvy jsou blbě čitelný.

Co používáš za operační systém ? já jsem program testoval ve Windows7 a vše šlapalo jak má

bishop píše:A proč je to okno přesevšechny okna?

Je to daň za to, že používám základní okno jako další pracovní plochu.

bishop píše:Škoda, že ses to nepsal pro online přístup, nechat databáze otevřený pro nahlížení to by bylo počteníčko

Tato možnost již tu byla probírána a nenašlo zde s moc pozitivními ohlasy. Evidence on-line už existuje a dokonce tu je i samostatné vlákno s tímto tématem. Najdeš ho zde http://katalog.emen.cz/ .

a vlákno je zde:
viewtopic.php?f=26&t=6997

Michal

Edit - 25.11.2013:
Beru vše zpět. Z nápovědou je opravdu v operačních systémech Win 7 problém se čtením nápovědy jak popisuješ. Dokonce jsem přišel i na malý problém s celkovým sečtením všech sbírek. Vše jsem opravil a znovu nahrál na web. Takže v příspěvku jsem opravil odkaz na stažení souboru. Pro jistotu uvedu link i sem : http://ulozto.cz/xpXfMtMY/evidence-zele ... 13-6-1-exe . Teď by mělo být vše v pořádku. Pokud něco objevíte dejte vědět.
Pokud se Vám program kousne a nebudete s ním moct hnout, použijte kouzelnou klávesovou zkratku Ctrl+Alt+Delete a vyvolejte správce úloh. Ve správci si najeďte na kartu "Aplikace" a označte spuštěný program. Poté stačí klepnout na tlačítko "Ukončit úlohu" a program se vypne.

Neviem ci si niekto vsimol a vyskusal ale nech sa snazim ako len viem nedokazem tento program rozbehnut pod win vista. Starsiu verziu spustim ale akonahle na nieco kliknem hlasi error a ukonci program, novsiu verziu ani nespustim.Nejake napady?

Mimochodem - možná by stálo za úvahu naučit tento program "updatovat" knihovny v MultiMAUS.
Mohl bych to někoho naučit, je to celkem jednoduché. Připojí se GenLI do slave konektoru, program odešle jména a čísla mašin a MM si je uloží.

fulda píše:Mimochodem - možná by stálo za úvahu naučit tento program "updatovat" knihovny v MultiMAUS.
Mohl bych to někoho naučit, je to celkem jednoduché. Připojí se GenLI do slave konektoru, program odešle jména a čísla mašin a MM si je uloží.

Ahoj,
nápad to není špatný. Mohl by jsi trochu přiblížit softwarovou komunikaci s myší ?? Třeba by se to dalo využít i jinak . V tomto odvětví zaostávám .

Vím, asi by byla lepší osobní návštěva, ale z Mostu do Prahy to není zrovna za rohem a toho času taky není moc nazmar.

Michal

mizl píše:

fulda píše:Mimochodem - možná by stálo za úvahu naučit tento program "updatovat" knihovny v MultiMAUS.
Mohl bych to někoho naučit, je to celkem jednoduché. Připojí se GenLI do slave konektoru, program odešle jména a čísla mašin a MM si je uloží.

nápad to není špatný. Mohl by jsi trochu přiblížit softwarovou komunikaci s myší ?? Třeba by se to dalo využít i jinak . V tomto odvětví zaostávám .

Ahoj,

nevím proč jsem tady nereagoval hned, asi jsem si nevšiml.

Komunikace je celkem jednoduchá, nutný předpoklad je, že máš ve slave konektoru zapíchlé nějaké rozhraní (LI100, GenLI, ...)
Nebo pochopitelně pokud máš NanoX, tak na rozdvojce, na tom nezáleží.

Rozhraní se tváří v PC jako sériový port, takže stačí otevřít,

Kód: Vybrat vše

FPortHandle := CreateFile(PChar('\\.\'+sCom), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, longint(0));

nastavit správnou rychlost a atributy:

Kód: Vybrat vše

      if GetCommState(FPortHandle, dcbPort) then
      begin
         { fill in the fields of the structure }
         dcbPort.BaudRate := sSpeed; {9600}
         dcbPort.ByteSize := 8;
         dcbPort.Parity := NOPARITY;
         dcbPort.StopBits := ONESTOPBIT;
         dcbPort.Flags := $3005; {Hardware handshake = dcb_Binary or dcb_OutxCtsFlow or dcb_RtsFlow}
         SetCommState(FPortHandle, dcbPort);
      end;


A pak už jen zapisovat:

Kód: Vybrat vše

WriteFile(FPortHandle, PChar(sData)^, Length(sData), dwCharsWritten, nil);

a nebo číst:

Kód: Vybrat vše

ReadFile(FPortHandle, PChar(Result)^, cbCharsAvailable, cbCharsRead, nil);

a na konci pak uzavřít:

Kód: Vybrat vše

Result:=CloseHandle(FPortHandle);

Tak a teď jak se posílá "knihovna". Příkaz pro knihovnu je: 0xEA 0xF1 AddrH AddrL IDX SIZE [NAME][XOR]
To znamená, že pošleš bajt 0xEA, za ním 0xF1 (to 0x znamená, že je to hexa).
Pak pošleš horní polovinu čísla lokomotivy, a spodní polovinu, pak pošleš pořadové číslo položky (počítá se od 0 do počet lokomotiv -1)
Další číslo je celkovej počet lokomotiv
Pak je Ascii jméno lokomotivy - musí bejt 5 znaků, pokud chceš jen 4 znaky, tak první znak bude místo 0xEA jen 0xE9, pro tříznakové jméno 0xE8
a na konci pošleš kontrolní součet, ten vznikne tak, že je to XOR všech předchozích znaků.
Pak dostaneš odpověď 0xE2 0x61 0x82 0xE3
Každou lokomotivu posíláš dvakrát za sebou, pokaždé s mezerou alespoň 100ms.

Kód: Vybrat vše

příklad 4 loco:
0003 "BR140"
0004 "BR86"
0005 "BR70 "
0006 "BR110"

EA F1 00 03 00 04 42 52 31 34 30 39
E2 61 82 E3
{100ms}
EA F1 00 03 00 04 42 52 31 34 30 39
E2 61 82 E3
{100ms}

E9 F1 00 04 01 04 42 52 38 36 07
E2 61 82 E3
{100ms}
E9 F1 00 04 01 04 42 52 38 36 07
E2 61 82 E3
{100ms}

EA F1 00 05 02 04 42 52 37 30 20 2F
E2 61 82 E3
{100ms}
EA F1 00 05 02 04 42 52 37 30 20 2F
E2 61 82 E3
{100ms}

EA F1 00 06 03 04 42 52 31 31 30 3A
E2 61 82 E3
{100ms}
EA F1 00 06 03 04 42 52 31 31 30 3A
E2 61 82 E3


Díky za reakci. Zkusím se na to podívat a případně zakomponovat do programu.

Michal

Ps: teď nemám moc času, neb začala sezóna, pro mě to znamenající pracovní kvapík.

Dobrý den

jistě jste si všimli, že skončil vývoj programu Evidence železničních modelů. Po letech bych se rád zeptal, zda program někdo nadále používá a zda Vám aspoň trochu pomahá. Rád bych tim to způsobem zjistil zde se peogram ještě používa.

Předem děkuji za reakce

Michal

Ja ju pouzivam.
Super vec
Lisko

Taky ho používám, ale ne moc často, protože na modelaření teď není čas a již dlouho mi nic nepřibylo do sbírky.

Myšpulín odpověděl i za mne. Je to přes kopírák.

Taky používám a jsem za něj rád.

Díky používám.

Také používám. Je super. Díky za něj.