Liczba postów: 3
Liczba wątków: 1
Dołączył: 18.06.2019
18.06.2019, 18:30
Visual Basic Excel l.całkowitą przedstawić w postaci szesnastkowej
Dzień dobry
Mam problem z zadaniem "Zadaną liczbę całkowitą przedstawić w postaci szesnastkowej"
Mogę nawet zapłacić za pomoc bo sytuacja jest strasznie słaba
Liczba postów: 2465
Liczba wątków: 17
Dołączył: 12.11.2007
18.06.2019, 19:31
RE: Visual Basic Excel l.całkowitą przedstawić w postaci szesnastkowej
Dzień dobry, czy możesz pokazać, co Ci udało się zrobić do tej pory? To zadanie można rozwiązać na przynajmniej 2 sposoby, więc rzucisz na siebie podejrzenie, rozwiązując go nie tak, jak oczekuje tego nauczyciel.
Liczba postów: 3
Liczba wątków: 1
Dołączył: 18.06.2019
18.06.2019, 19:35
(Ten post był ostatnio modyfikowany: 18.06.2019, 20:41 przez fugaz.)
RE: Visual Basic Excel l.całkowitą przedstawić w postaci szesnastkowej
Jak bym wiedział jak to zrobić to bym się nie pytał

Proszę o pomoc. Zapłacę jak coś bo muszę to mieć na jutro.
Pomożesz?
Liczba postów: 2465
Liczba wątków: 17
Dołączył: 12.11.2007
18.06.2019, 21:30
(Ten post był ostatnio modyfikowany: 18.06.2019, 21:34 przez Szachista.)
RE: Visual Basic Excel l.całkowitą przedstawić w postaci szesnastkowej
Kod:
Sub DziesietnaSzesnastkowa()
Dim n, d As Integer
Dim h As String
n = InputBox("Podaj liczbe dziesietna")
While n > 0
d = n Mod 16
If d < 10 Then
h = Chr(48 + d) + h
Else
h = Chr(55 + d) + h
End If
n = Int(n / 16)
Wend
MsgBox (h)
End Sub
Liczba postów: 3
Liczba wątków: 1
Dołączył: 18.06.2019
18.06.2019, 21:36
(Ten post był ostatnio modyfikowany: 18.06.2019, 21:41 przez fugaz.)
RE: Visual Basic Excel l.całkowitą przedstawić w postaci szesnastkowej
Bardzo dziękuje

)