Projekt badawczy Polska-Namibia 2010

jest tak:
oi: troche pytan o sprzet + soft (np kolorki w rgb, jak sie poslugiwac ftp, przeliczanie na system bianrny, albo z bianrnego na dziesietny, szestnastkowy + algorytmy) w sumie to nie pamietam co jeszce bo pisalem to w lata temu :P (4pkt mi zabraklo do wojewodzkich :?)

konkurs informatyczny organizowany przez prokom (nie bylo mnie na nim, ale powiem co mi qmple mowili ;)): cwiczenia praktyczne, typu pisanie na czas + liczenie w excelu, jakies wykresy itp + zrobienie www i jeszcze jakies <span style="color:red;">[ciach!]</span>ly (potem cos trudniejszego bylo, ale nie pamietam :?).

tyle co pamietam ;) jak mi sie cos przypomni to zapodam :P

a tak w ogole: jezeli nie zrobisz tego http://www.oi.edu.pl/zadania/ to o wogole nie idz :P

" />Witam mam problem. Muszę w VB Excel napisać funkcję (wykorzystując algorytm hornera) zamieniającą liczbę systemu dwójkowego na system dziesiętny.(To znaczy chodzi mi też o zamianę z innych systemów na inne, ale przede wszystkim z dwójkowego na dziesiętny) Funkcja musi uwzględniać "," to znaczy po wpisaniu 10101,10101 ma wyjść wynik w systemie dziesiętnym, a nie błąd. I po wpisaniu np.10102 ma wyskoczyć, że użyliśmy złych znaków/cyfr.
Bardzo bym prosił o szybką odpowiedź. Oto co do tej pory sam zrobiłem:
Kod:1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Public Function przeliczanie(n, x)
Dim a(0 To 10)
dl = Len(n)
For i = 1 To dl
a(1) = Mid(n, i, 1)
Select Case a(i)
Case "A"
a(i) = 10
Case "B"
a(i) = 11
Case "C"
a(i) = 12
Case "D"
a(i) = 13
Case "E"
a(i) = 14
Case "F"
a(i) = 15
End Select
If a(i) <= x Then
w = w & a(i)
Next i
y = a(0)
For i = 1 To dl
y = y * x + a(i)
Next i
MsgBox ("po zamianie " & n & " w systemie " & x & " na system dziesiętny otrzymujemy liczbę " & y)
GoTo Linia2
End If
MsgBox ("Podałeś złe wartości!")
GoTo Linia1
Linia1:
MsgBox ("Nim wpiszesz dane następnym razem zastanów się :D")
Linia2:
MsgBox ("Dziękuję :D")

End Function