Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
Przesunięty przez: Artik
02-01-2019, 01:57
Zamiana systemów liczb Excel
Autor Wiadomość
Denis
świeżak


Posty: 4
Wysłany: 31-12-2018, 21:09   Zamiana systemów liczb Excel

Zamiana liczb Excel. Potrzebuje napisać prostą konwerter liczb rzeczywistych dla liczb w systemach bin,3-owy,4-owy,5,6,7,8 ma zamieniać na liczby dziesiętne
ID posta: 359353 Skopiuj do schowka
 
 
Marecki 
Excel Expert



Wersja: Win Office 2019
Pomógł: 2085 razy
Posty: 6886
Wysłany: 31-12-2018, 23:26   

Czy o taką funkcję ci chodziło?
Kod:
Sub test()
    Const Number As Long = 2012
    Debug.Print Num_to_Dec(2, Number)    'z dwójkowego na dziesiętny
    Debug.Print Num_to_Dec(3, Number)    'z trójkowego na dziesiętny
    Debug.Print Num_to_Dec(4, Number)    'z czwórkowego na dziesiętny
    Debug.Print Num_to_Dec(5, Number)    'itd
    Debug.Print Num_to_Dec(6, Number)    'itd
    Debug.Print Num_to_Dec(7, Number)    'itd
End Sub


Function Num_to_Dec(Sys As Byte, Num As Long) As Long
    Dim Len_Num As Long
    Dim i As Byte
    Dim Char As Byte
    Dim x As Long
    Dim res As Long

    Len_Num = VBA.Len(Num)

    For i = 1 To Len_Num
        Char = Mid(Num, i, 1)
        x = Char * Sys ^ (Len_Num - i)
        res = x + res
    Next i

    Num_to_Dec = res

End Function


Jako że miała być "prosta", to funkcja nie posiada weryfikacji liczby systemowej - tzn. nie sprawdza poprawności czy dana liczba zapisana jest w systemie dwójkowym, trójkowym czy jakimś innym.
Mało tego, nie posiada żadnej obsługi błędów :mrgreen:
_________________
Hardware - ta część komputera, którą można kopnąć kiedy software przestanie funkcjonować.

Szkolenia z Excela , FB
Office 2019 Professional Plus , Windows 10 x64
Pozdrawiam, były mkkk23 teraz Marecki.
ID posta: 359356 Skopiuj do schowka
 
 
Denis
świeżak


Posty: 4
Wysłany: 01-01-2019, 16:05   

Dzięki wielkie, właśnie o coś takiego mi chodziło :->

Edit:
Co zrobić by działało to również dla liczb ujemnych?
ID posta: 359390 Skopiuj do schowka
 
 
Marecki 
Excel Expert



Wersja: Win Office 2019
Pomógł: 2085 razy
Posty: 6886
Wysłany: 01-01-2019, 19:21   

Denis napisał/a:
Co zrobić by działało to również dla liczb ujemnych?

Denis, czy Ty próbujesz uprościć zasadę obliczania liczb binarnych, by wypuścić nowy szybszy procesor ?

Nie wiem czy wiesz, ale w takim zapisie dwójkowym nie ma znaku minus takiego, którego my używamy przy zapisie liczb dziesiętnych.
Owszem są liczby dwójkowe ujemne i są oznaczane znakiem bitu po którym występuje moduł liczby.
0 oznacza liczbę dodatnią, a 1 liczbę ujemną.
Czy masz taki zapis?

Pokaż załącznik z kilkoma przykładami co i jak chcesz liczyć.
I tak na poważnie, to do czego to potrzebujesz ?
_________________
Hardware - ta część komputera, którą można kopnąć kiedy software przestanie funkcjonować.

Szkolenia z Excela , FB
Office 2019 Professional Plus , Windows 10 x64
Pozdrawiam, były mkkk23 teraz Marecki.
ID posta: 359403 Skopiuj do schowka
 
 
Denis
świeżak


Posty: 4
Wysłany: 01-01-2019, 19:56   

To jest jedno z zadań pracy domowej " Dana jest liczba rzeczywista (np. -43.6501) w układzie p (1<p<9). Należy podać jej wartość zapisaną w DEC."

Wiem że liczby binarne są dodatnie ale chodziło mi o zapis w u2
ID posta: 359408 Skopiuj do schowka
 
 
Marecki 
Excel Expert



Wersja: Win Office 2019
Pomógł: 2085 razy
Posty: 6886
Wysłany: 01-01-2019, 21:05   

Nie jestem matematykiem i nie wiem co to za układ p (1<p<9) :-(
_________________
Hardware - ta część komputera, którą można kopnąć kiedy software przestanie funkcjonować.

Szkolenia z Excela , FB
Office 2019 Professional Plus , Windows 10 x64
Pozdrawiam, były mkkk23 teraz Marecki.
ID posta: 359413 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe