Minty
Stwórczyni omc dr fizyki
 
Pojedynki: być może
Pomogła: 259 razy Posty: 3447
33795 Prestiż
|
Wysłany: 05-09-2007, 09:55 [TGF] Zamiana systemów liczbowych
|
|
|
W Internecie często spotykane są zapisy heksadecymalne (szesnastkowe; HEX) liczb, zwykle kolorów. Można je przekonwertować na zapisy decymalne (dziesiętne; DEC), które są wygodniejsze dla większości ludzi, przetworzyć, a następnie znowu zapisać w formie hex. Oto sposób:
Wymagany jest obiekt Base Converter oraz jeden Edit object (wartosc).
Zamiana wartości HEX w obiekcie "wartosc" na wartość DEC odbywa się tak (+zamiana na tekst, aby umieścić wynik w Edit object):
| Cytat: | | str$( ConvDec( Base Converter, 16, (Edittext$(wartosc)) ) ) |
Zamiana DEC na HEX odbywa się tak:
| Cytat: | | ConvBase$( Base Converter, 16, (Edit Value(wartosc)) ) |
Oczywiście przemieniany nie musi być koniecznie system szesnastkowy. Wystarczy zamienić 16 w powyższych wzorach na np. 2, aby uzyskać konwersję między systemem binarnym, lub 8, aby dostępny stał się system ósemkowy. |
|