Új hozzászólás Aktív témák

• #2544 Rover623 félisten vamzi #2538

  Új Válasz 2007-03-27 19:17:01 #2544

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Rover623

  félisten

  válasz vamzi #2538 üzenetére

  Ha parázol hogy lebux, használd ezt:
  
  {ez a rutin a
  Str szövegben megadott számot a
  Base számrendszer (max. 16-os) szerint megpróbalja számmá alakitani.
  Ha a string érvénytelen karaktert is tartalmaz, akkor Code = -1 és a visszaadott érték a hibát okozó karakter poziciója }
  
  Const
  _Nums : Array [0..16] Of Char = '0123456789ABCDEF'#0;
  
  Function StrToNum (Str: PChar; Base : Word; Var Code: Integer): LongInt;
  Var
  I : Word; {mindenfélére...pl. ciklusváltozónak is jó lesz}
  Mul, {az aktuális szorzó}
  Work : LongInt; {ebben gyűlik a végeredmény}
  Pozicio : PChar;
  Begin
  Code := 0; {legyünk optimisták...nincs hiba}
  Work := 0; {0-ról indul az eredmény}
  I := StrLen (Str); {milyen hosszú a szöveg?}
  If (I > 0) Then Begin
  {ha legalább egy karakter van a szövegben, akkor hajrá!}
  Mul := 1; {a híres-neves nulladik hatvány}
  StrUpper (Str); {nagybetűsítünk}
  Dec(I); {merthogy a PChar 0-tól indexelődik}
  For I := I Downto 0 Do Begin {végigmászunk a karaktereken}
  Pozicio := StrScan (_Nums, Str [ i ] ); {beazonosítjuk a bütüt}
  If (Pozicio = Nil) Then Begin
  {ha nincs az engedélyezett karakterek között, akkor hiba van!}
  Code := - 1;
  StrToNum := I;
  Exit; {hibával kilépünk}
  End;{if}
  {$IFOPT Q+}
  {$DEFINE OVER}
  {$Q-}
  {$ENDIF}
  Inc (Work, Mul * (Pozicio - _Nums) );{megnöveljük az eredményt}
  Mul := Mul * Base;{ hatványozunk :) }
  {$IFDEF OVER}
  {$Q+}
  {$UNDEF OVER}
  {$ENDIF}
  End; { For }
  End; {ha volt valami a Str-ben}
  StrToNum := Work;{nyilvánossá tesszük a végeredményt}
  End; { StrToNum }
  
  {a leggyakoribb függények, az általános rutint hívják meg}
  
  Function HexaVal (HexaString: PChar; Var Code: Integer): LongInt;
  Begin
  HexaVal := StrToNum (HexaString, 16, Code);
  End; { HexaVal }
  
  Function BinaryVal (BinaryString: PChar; Var Code: Integer): LongInt;
  Begin
  BinaryVal := StrToNum (BinaryString, 2, Code);
  End; { BinaryVal }
  
  Function DecimalVal (DecimalString: PChar; Var Code: Integer): LongInt;
  Begin
  DecimalVal := StrToNum (DecimalString, 10, Code);
  End; { DecimalVal }
  
  Mivel rengeteg programozó van a világon, nem állítom hogy más nem oldotta meg hasonlóképpen, de vmivel kisebb az esélye...
  
  
  [Szerkesztve]

• #2537 doc nagyúr vamzi #2535

  Új Válasz 2007-03-27 17:14:18 #2537

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  doc

  nagyúr

  válasz vamzi #2535 üzenetére

  csak azt áruld el nekem, hogy akkor mi az amit tanultatok? mert ha csak átugrod a forrásban a neked ismeretlen részeket, már akkor is megkapod a választ...
  na jó, most utoljára:
  
  
  FUNCTION Hex2Dec(Hex:STRING):LongInt;
  
  VAR T1,T2,Dec : LongInt;
  Error : Boolean;
  
  BEGIN
  Error:=False;
  T1:=0;T2:=0;DEC:=0;
  FOR T1:=1 TO LENGTH(Hex) DO
  BEGIN
  T2:=Length(Hex)-T1;
  CASE Hex[T1] OF
  '0' : DEC:=DEC+0;
  '1' : DEC:=DEC+Power(16,T2);
  '2' : DEC:=DEC+2*Power(16,T2);
  '3' : DEC:=DEC+3*Power(16,T2);
  '4' : DEC:=DEC+4*Power(16,T2);
  '5' : DEC:=DEC+5*Power(16,T2);
  '6' : DEC:=DEC+6*Power(16,T2);
  '7' : DEC:=DEC+7*Power(16,T2);
  '8' : DEC:=DEC+8*Power(16,T2);
  '9' : DEC:=DEC+9*Power(16,T2);
  'A','a' : DEC:=DEC+10*Power(16,T2);
  'B','b' : DEC:=DEC+11*Power(16,T2);
  'C','c' : DEC:=DEC+12*Power(16,T2);
  'D','d' : DEC:=DEC+13*Power(16,T2);
  'E','e' : DEC:=DEC+14*Power(16,T2);
  'F','f' : DEC:=DEC+15*Power(16,T2);
  ELSE Error:=True;
  END;
  END;
  Hex2Dec:=Dec;
  IF Error THEN Hex2Dec:=0;
  END; { Hex2Dec }
  
  
  amúgy ebben mi olyan van amit nem tanultatok?

• #2536 VladimirR nagyúr vamzi #2533

  Új Válasz 2007-03-27 17:13:28 #2536

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  VladimirR

  nagyúr

  válasz vamzi #2533 üzenetére

  a unit az gyakorlatilag egy fuggvenykonyvtar (vagy minek hijjak), abban mindenfele fuggvenyek, eljarasok vannak
  programozasi tanulmanyaid mar egeszen biztos talalkoztal unit-okkal, ha massal nem, akkor a crt, vagy meginkabb a system unit-tal
  ahhoz, hogy a bennuk levo eljarasokat, fuggvenyeket hasznalni tudd, ezeket a unit-okat ''be kell hivni'' a kodba, amire a uses kulcsszo (vagymi) hasznal (system unit eseteben ez nem szukseges, az alapbol bennefoglaltatik)
  az olyan fuggvenyek, eljarasok, mint peldaul az inc, dec, val, round, write, writeln, read, readln mind a system unit-ban vannak, de pl a crt unit legismertebb fuggvenyevel, a clrscr-rel is egeszen biztos talalkoztal mar
  ahhoz, hogy egy clrscr-t hasznalni tudj, a program elejen be kell irnod, hogy uses crt;
  ugyanigy, hogy a fenti mathcvt.tpu unit-ot hasznalni tudd, meg kell azt hivnod a kovetkezo modon: uses mathcvt
  ezutan elerhetove valnak a kovetkezo fuggvenyek:
  Function Power(X,Y:WORD):LongInt;         - hatvanyozas
  Function Bin2Dec(Bin:String):LongInt;         2-esbol 10-esbe
  Function Bin2Hex(Bin:String):String;         - 2-esbol 16-osba
  Function Dec2Bin(Dec:LongInt):String;         - 10-esbol 2-esbe
  Function Dec2Hex(Dec:LongInt):String;         - 10-esbol 16-osba
  Function Hex2Bin(Hex:String):String;         - 16-osbol 2-esbe
  Function Hex2Dec(Hex:String):LongInt;         - 16-osbol 10-esbe
  Function Oct2Dec(Oct:String):LongInt;         - 8-asbol 10-esbe
  Function Dec2Oct(Dec:LongInt):String;         - 10-esbol 8-asba
  
  az elso fuggveny-nek ket parametert adsz meg, x a hatvanyalap, y a hatvany foka - a visszateresi ertek x^y lesz
  a tobb fuggveny egy bemeno parametert kap (ami 10-esbol konvertalasnal longint, egyebkent string), s a megfelelo szamrendszerben levo ertekkel ter vissza (tizesbe konvertalasnal longint, egyebkent string)
  
  tehat:
  
  uses mathcvt;
  
  begin
      wrinteln( dec2hex( 255 ) );
      wrinteln( dec2hex( 'FF' ) );
  end.
  
  ez ket sort fog kiirni, az elsoben FF lesz (ez a 255 16-os szamrendszerben), a masodikban pedig 255 (ez az FF 10-es szamrendszerben)
  
  [Szerkesztve]

• #2534 doc nagyúr vamzi #2533

  Új Válasz 2007-03-27 16:59:41 #2534

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  doc

  nagyúr

  válasz vamzi #2533 üzenetére

  nézd, én nem akarok bunkó lenni, de az a forrás teljesen egyértelműen és világosan tartalmazza a neked szükséges megoldást.
  ha nem találod meg benne, akkor szerintem feleljtsd el a programozást, mert sosem fogsz tudni boldogulni vele...

• #2531 Rover623 félisten vamzi #2530

  Új Válasz 2007-03-27 16:33:50 #2531

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Rover623

  félisten

  válasz vamzi #2530 üzenetére

  Nem hivatkozik az semmire...szépen lefordítódik...
  Persze ha futtatni akarod, az gáz...pacalban programot szokás futtatni, nem unitot...
  
  

• #2529 Lortech addikt vamzi #2526

  Új Válasz 2007-03-27 11:35:34 #2529

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Lortech

  addikt

  válasz vamzi #2526 üzenetére

  A ''hexametert'' nem nehéz átváltani, az mindig hat (szótag) lesz.

• #2527 doc nagyúr vamzi #2526

  Új Válasz 2007-03-26 19:55:13 #2527

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  doc

  nagyúr

  válasz vamzi #2526 üzenetére

  úgy látom túl komolyan veszed a saját aláírásodat...
  [link]
  
  a harmadik találat pl. egy komplett .pas forrás...
  
  [Szerkesztve]

• #439 KovacsUr addikt vamzi #438

  Új Válasz 2004-11-27 15:54:32 #439

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  KovacsUr

  addikt

  válasz vamzi #438 üzenetére

  Pontosan mihez értesz és mit szeretnél csinálni?
  
  (Feltéve, hogy még mindig a ''3d-s játékszerkesztőt'' keresed...)

• #412 KovacsUr addikt vamzi #411

  Új Válasz 2004-11-23 11:17:37 #412

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  KovacsUr

  addikt

  válasz vamzi #411 üzenetére

  Ööö... UnrealEd? *kicsit gonosz smiley*

Új hozzászólás Aktív témák