[Pytanie] System 10-tkowy, 3-kowy, 2-kowy

[Andre13]

Cześć!

 

 

 

Szukam kodu, który przekonwertuje liczbę z systemu dziesiątkowego na trójkowy i dwójkowy i vice versa.

[Sopelek997]

z UDF MathEx

; #FUNKCJA# ======================================================================================
; Nazwa..........: _ConvertSystemXtoY
; Opis...........: Konwertuje system liczbowy X do systemu liczbowego Y
; Składnia.......: _ConvertSystemXtoY($iSysIn, $iNumber, $iSysOut)
; Parametry......: $iSysIn - System liczbowy liczby wyjsciowej (1-36)
;                          $iNumber - Liczba, która ma zostać przeliczona na inny system liczbowy
;                          $iSysOut - System liczbowy, w którym zapisana będzie liczba wynikowa (1-36)
; Zwracane wart..: Sukces - Zwraca wartosc liczby
;                                          Niepowodzenie - Zwraca -1 - Liczba podana w pierwszym parametrze nie jest w zakresie 1-36
;                                          Niepowodzenie - Zwraca -2 - Liczba podana w trzecim parametrze nie jest w zakresie 1-36
;                                          Niepowodzenie - Zwraca -3 - Liczba zawiera nieprawidłowe znaki
; Autor .........: Sopel
; =================================================================================================
Func _ConvertSystemXtoY($iSysIn, $iNumber, $iSysOut)
    Local $znaki[36] = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z']
    Local $liczba
    Local $bPoprawnosc
    Local $sys10 = 0
    Local $sysy = ''
    Local $i
    If $iSysIn < 0 Or $iSysIn > 36 Then Return -1
    If $iSysOut < 0 Or $iSysOut > 36 Then Return -2

    $iNumber = StringUpper($iNumber)
    $liczba = StringSplit($iNumber, '')
    Local $bPoprawnosc
    For $i = 1 To StringLen($iNumber)
        $bPoprawnosc = False
        If Asc($liczba[$i]) >= 48 And Asc($liczba[$i]) <= 57 Then
            $liczba[$i] = Asc($liczba[$i]) - 48
            $bPoprawnosc = True
        EndIf
        If Asc($liczba[$i]) >= 65 And Asc($liczba[$i]) <= 90 Then
            $liczba[$i] = Asc($liczba[$i]) - 55
            $bPoprawnosc = True
        EndIf
        If $bPoprawnosc = False Then Return -3
    Next

    For $i = StringLen($iNumber) To 1 Step -1
        $sys10 += $iSysIn ^ (StringLen($iNumber) - $i) * $liczba[$i]
    Next

    Do
        $sysy = $znaki[Mod($sys10, $iSysOut)] & $sysy
        $sys10 = Floor($sys10 / $iSysOut)
    Until $sys10 = 0
    Return $sysy
EndFunc   ;==>_ConvertSystemXtoY

[Andre13]

Dzięki, muszę wstawiać w include <>?

Dzięki @UP & @DOWN!

[hehe7]

Najlepiej wstaw w include i dodaj samą funkcję lub bez include używając jego części.

[Andre13]

Podaj mniej więcej, którą część, bo robię taki a'la kalkulator od matmy, a z include nie często się bawię.

 

/edit:

 

Ktoś poda?

 

//edit (kurde milczą):

No dobra, ktoś da chociaż przykład , jak ma tego kodu użyć

///jak nie to proszę zamknąć.

[Sopelek997]

Na prawdę nie potrafisz tego użyć nawet z pełnym opisem funkcji?

[hehe7]

Np

#include <MathEx.au3>
Func _ConvertSystemXtoY($iSysIn, $iNumber, $iSysOut); tylko parametry podstawiasz które masz dokładnie opisane w budowanie funkcji u góry kolega Ci podał.
itd dalej dalej dalej
EndFunc

 

 

$iSysIn - System liczbowy liczby wyjsciowej (1-36)

; $iNumber - Liczba, która ma zostać przeliczona na inny system liczbowy

; $iSysOut - System liczbowy, w którym zapisana będzie liczba wynikowa(1-36)

[Andre13]

dobra zrozumiałem: iSysIn = 10

$iNumber = Guictrlread ($input8)

$SysOut = 2 Przeliczy z 10 na 2. Tak?

[Zkumeku]

Przetestuj sobie to, a zrozumiesz:

 

$wejscie = InputBox("Wejscie","Podaj liczbe",5)

$zmiana =_ConvertSystemXtoY(10,$wejscie,2)

MsgBox(0,"Wyjscie", $zmiana)

 

składnia jest prosta:

_ConvertSystemXtoY( DO_ZAMIANY_SYSTEM_LICZBOWY_NP_10_=_DZIESIETNY , LICZBA_DO_ZMIANY , ZMIENIONY_SYSTEM_LICZBOWY_NP_2_=_DWOJKOWY) 

[Andre13]

@up ogarnełem jakieś 5 min przed twoim postem.

[Andre13]

Dobra działa, ale wynik jest podawany od tyłu: bo 2 z 10-siątki to 10 z 2-ki, a wyświetla 01.

 

/edit

Bym zapomniał: @ref

[Sopelek997]

bo 2 z 10-siątki to 10 z 2-ki

Ledwo co można zrozumieć z tego.

 

Ogólnie to znów ty coś źle robisz, bo funkcja działa poprawnie.

http://screenshooter.net/2148672/cyvktfj

 

I już pisałem, że ten kod ma jedną małą poprawkę co do tego, więc mam nadzieję, że nie użyłeś całego UDFa nie poprawiając tej funkcji.

[Andre13]

@up

 

 

Przetestuj sobie to, a zrozumiesz:

 

$wejscie = InputBox("Wejscie","Podaj liczbe",5)

$zmiana =_ConvertSystemXtoY(10,$wejscie,2)

MsgBox(0,"Wyjscie", $zmiana)

Użyłem tego: I to mi wychodzi: http://screenshooter.net/3788195/nhgjjyw

[Zkumeku]

@up

 

Użyłem tego: I to mi wychodzi: http://screenshooter.net/3788195/nhgjjyw

 

Dziwne... powinno wyjść 10.

 

Mi jak wziąłem funkcję podaną w tym temacie, dobrze wychodzi.

[Sopelek997]

Pisałem już, że w MathEx.au3 ta funkcja nie odwraca kolejności (albo miałem napisać). Dlatego napisałem ci całą w pierwszym poscie.

[Andre13]

może mam błąd w ud'fie, ale nie sądze, bo by nie działało, jtr poprawie.

[Andre13]

UDF poprawny, ale błąd nadal taki sam.

[Zkumeku]

UDF poprawny, ale błąd nadal taki sam.

 

To użyj funkcji z tego tematu, a z udf ją wywal czy coś. Think!

[Andre13]

okej, spróbuje. Ogólnie fajny udf

[IZZER4]

Na 2 owy to dzielisz przez 2 do 8 liczb

Np 120/2 -0

60/2 -0

30/2 -0

15/2 - 1

7/2 - 1

Itd