dotNETportal.cz

Zdravim chtel bych poprosit o pomoc..Mame zaukol vytvorit program kdtery ma prevadet cislo ze dvojkove do desitkove soustaty...vubec nvm jak na to a mame to jako pololetni praci..muze nekdo prosim pomoct?? predem diky

Ja sem nechtel aby za me nekdo resil domaci ukol ja jsem jen potreboval pomoc ale vidim ze tady asi ochotnou osobu ktera tomu rozumi a mohla by poradit nenajdu no..

Kdyby jste četl pravidla tak je tam dáno,že se pomáhá na konkrétní případy.My tady nevidíme jedinej řádek kódu.Pokud máte svůj kód a něco Vám nejde tak myslím,že tu bude každý ochoten pomoct,ale nepočítejte s tím,že Vám tu někdo bude dělat domací úkoly a Vy nehnete prstem.

chapu co mi tady vseci pisete ale porad proste jak chci tak chci nemuzu pochopit jak se to dela na papir ten algoritmus treba zvladnu ale v tom vb si fakt nvm rady ale jinak diky ;-)skusim se na to jeste podivat...

Možno že je to dobre a možno nie.

Skús pozrieť http://vbnet.cz/clanek--45-vb_net_od_zac...

http://vbnet.cz/clanek--5-vb_net_od_zaca...

http://vbnet.cz/clanek--24-programujeme_...

Public Class Form1
    Dim i As Integer = 0
    Dim x As Integer = 0
    Dim a As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        a = TextBox1.Text
        For i = 0 To TextBox1.TextLength - 1
            x += CInt(a.Substring(i, 1)) * 2 ^ (CInt(TextBox1.TextLength) - i - 1)
        Next
        Label1.Text = x
        a = ""
        x = 0
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        x = CInt(TextBox1.Text)
        Do While x >= 1
            a = x Mod (2) & a
            x = x \ 2
        Loop
        Label1.Text = a
        a = ""
        x = 0
    End Sub
End Class

Všetkým sa ospravedlňujem.

dik vyskousim uz sem neco skusil tak to skusim nejak zkombynovat..