Poslední příspěvky

Stran: 1 ... 8 9 [10]
91
Obecné / Re:Hexadecimal to binari
« Poslední příspěvek od Vladik kdy 11-06-2018, 13:09:25 »
Mam k počitačí připojene arduino na kterým je expander.
Arduino posila do PC stav expanderu.

Když pošle  0x7f a ja si to pak převedu na 01111111, mužu si to rozporcovát a tak zjistím v jakem stavu je každý pin
92
Obecné / Re:Hexadecimal to binari
« Poslední příspěvek od Delfin kdy 11-06-2018, 11:33:46 »
Není to domácí ukol  ;)

Když mám tedý výstup v LongInt?
Je funkce String(Longint);

Nechapu. Pokud ma byt vystupem numericky datovy typ, proc tedy provadet konverzi do binarni soustavy? Nestaci Ti potom primo konverze pomoci StrToInt (prip. TryStrToInt):

Kód: Delphi [Vybrat]
  1. var
  2.   I: Integer;
  3. begin
  4.   I := StrToInt('0x7f');
  5. end;

Nove Delphi rozumi hexadecimalni notaci retezcu s prefixem 0x. Nevim zda tomu tak bylo i ve starsich.
93
Obecné / Re:Hexadecimal to binari
« Poslední příspěvek od našinec kdy 11-06-2018, 11:32:05 »
Nevím, zda Ti jde vysloveně o program nebo o převod samotný. Převod umí i kalkulačka ve windows.
94
Obecné / Re:Hexadecimal to binari
« Poslední příspěvek od Vladik kdy 11-06-2018, 11:10:56 »
Není to domácí ukol  ;)

Když mám tedý výstup v LongInt?
Je funkce String(Longint);
95
Obecné / Re:Hexadecimal to binari
« Poslední příspěvek od Delfin kdy 11-06-2018, 10:05:34 »
Bez kontroly chyb vstupu a ne prilis efektivne (coz je ale u potencialne domaciho ukolu jedno) by se dalo napsat napr.:

Kód: Delphi [Vybrat]
  1. function HexStrToBinStr(const Input: string): string;
  2. const
  3.   BCD: array[0..15] of string =
  4.     ('0000', '0001', '0010', '0011', '0100', '0101', '0110', '0111',
  5.     '1000', '1001', '1010', '1011', '1100', '1101', '1110', '1111');
  6. var
  7.   I: Integer;
  8. begin
  9.   Result := '';
  10.   for I := 3 to Length(Input) do
  11.     case Input[I] of
  12.       '0'..'9': Result := Result + BCD[Ord(Input[I]) - Ord('0')];
  13.       'a'..'f': Result := Result + BCD[Ord(Input[I]) - Ord('a') + 10];
  14.       'A'..'F': Result := Result + BCD[Ord(Input[I]) - Ord('A') + 10];
  15.     end;
  16. end;

Delphi maji funkci HexToBin, ale bylo by treba jeste pridelat konverzi vystupu do retezce. Proto je vyse uvedena ukazka o neco jednodussi.
96
Obecné / Hexadecimal to binari
« Poslední příspěvek od Vladik kdy 11-06-2018, 06:44:46 »
Dobrý den.
Když mam Hexadecimal čísla 0xff, 0x00,0x7f, 0xbf.
Bych je potřeboval do binary jako string   11111111, 00000000, 01111111, 10111111.
Děkují.

97
Obecné / Re:Vlakno jako funkce
« Poslední příspěvek od Libor.Karko kdy 10-06-2018, 17:00:39 »
Ve win je to ok, ale v linuxu to místo ukončení vlákna ukončí celou aplikací  >:(
98
Obecné / Re:Vlakno jako funkce
« Poslední příspěvek od Libor.Karko kdy 10-06-2018, 16:50:20 »
Tak stačilo zaměnít na CloseThread  ;)
Jsem to ale plantala  ;D
99
Obecné / Re:Vlakno jako funkce
« Poslední příspěvek od Delfin kdy 10-06-2018, 16:23:33 »
I tam je   function CloseThread (threadHandle : TThreadID) : dword;

Ano, jen ve Tvem kodu v prvnim prispevku je CloseHandle, ne CloseThread.
100
Obecné / Re:Vlakno jako funkce
« Poslední příspěvek od Libor.Karko kdy 10-06-2018, 16:21:14 »
I tam je   function CloseThread (threadHandle : TThreadID) : dword;
Stran: 1 ... 8 9 [10]