X

Zmaga.com | Zmagajmo z znanjem  
Programi Programski jeziki Visual Basic  
  Kliknite tukaj, da si ogledate profil, kot ga vidijo drugi

Binarni dekoder

 
  Delite vsebino na Twitterju   Delite vsebino na Facebooku
  V priljubljenem programskem jeziku Visual Basic bomo ustvarili program, ki bo znal dekodirati binarno zakodirana števila.
 
 
1
 
 
  Odprite visual basic in pritisnite Ctrl+N, da odprete nov projekt.

Izberite Windows Forms Application.
 
 
2
 
 
  Novo formo oblikujte tako kot je na sliki.

Se opravičujem za morebitne nerazumljive napise na sliki.
 
 
3
 
 
 
Zdaj bomo dodali kodo ki bo binarno kodo spremenila v število. Kodo dodamo pod akcijo gumba Dekodiraj, tako da dvokliknemo na gumb.

        Dim a As Integer
        'Tukaj smo ustvarili spremenljivko a
        If TextBox1.Text = 1 Then
            a = a + 1
        End If
        If TextBox2.Text = 1 Then
            a = a + 2
        End If
        If TextBox3.Text = 1 Then
            a = a + 4
        End If
        If TextBox4.Text = 1 Then
            a = a + 8
        End If
        If TextBox5.Text = 1 Then
            a = a + 16
        End If
        If TextBox6.Text = 1 Then
            a = a + 32
        End If
        If TextBox7.Text = 1 Then
            a = a + 64
        End If
        If TextBox8.Text = 1 Then
            a = a + 128
        End If

 
 
4
 
 
 
Ker je binarna koda sestavljena sestavljena samo iz enic in ničel moramo dodati kodo ki bo preverila če je vpisano število res takšno.
Prilepimo torej spodnjo kodo:

        If TextBox1.Text < 0 Or TextBox1.Text > 1 Then
            MsgBox("Dovojleni sta samo števili 1 in 0")
        End If
        If TextBox2.Text < 0 Or TextBox2.Text > 1 Then
            MsgBox("Dovojleni sta samo števili 1 in 0")
        End If
        If TextBox3.Text < 0 Or TextBox3.Text > 1 Then
            MsgBox("Dovojleni sta samo števili 1 in 0")
        End If
        If TextBox4.Text < 0 Or TextBox4.Text > 1 Then
            MsgBox("Dovojleni sta samo števili 1 in 0")
        End If
        If TextBox5.Text < 0 Or TextBox5.Text > 1 Then
            MsgBox("Dovojleni sta samo števili 1 in 0")
        End If
        If TextBox6.Text < 0 Or TextBox6.Text > 1 Then
            MsgBox("Dovojleni sta samo števili 1 in 0")
        End If
        If TextBox7.Text < 0 Or TextBox7.Text > 1 Then
            MsgBox("Dovojleni sta samo števili 1 in 0")
        End If
        If TextBox8.Text < 0 Or TextBox8.Text > 1 Then
            MsgBox("Dovojleni sta samo števili 1 in 0")
        End If
        Label2.Text = a
        'Ta ukaz bo izpisal število
Če število ne bo sestavljeno iz enic in ničel bo program vrnil opozorilo.
 
 
5
 
 
  Program samo še zaženite (Debug) in preizkusite.

Ampak pazite pri binarnih kodah ki so manjše od osmih znakov. Če imate na primer binarno kodo 1011 (kar pomeni 11) jo v program vpišete kot 00001011.
 
 
6
 
 
  Za na konec bom opisal še kako deluje binarna koda.

Binarna koda je dvojiški številski sistem, ki je osnova sodobnega digitalnega računalnika. Binarno kodiranje je posebej primerno za računalnike, ker uporablja samo dve vrednosti (1 in 0), ki sta v računalniku predstavljeni kot odsotnost in prisotnost električnega signala.

Vrednosti večje od 1 so predstavljene kot zaporedje binarnih vrednosti, ki se imenujejo biti. Vsak naslednji bit v zaporedju branem od desne proti levi pomeni naslednjo potenco števila 2.

Tako je število 11 v binarnem kodiranju zapisano kot 1011-ena enica, ena ena dvojka, nič štiric in ena osmica.

Če kaj ne bo delovalo, pišite na forum.
 
 
Komentiraj
 
 
 
 
 
16.4.2011, 9:20
Že dolgo časa iščem nekaj takega. Si sam sprogramiral kodo?
 
 
 
 
16.4.2011, 9:46
Pomojem bi bilo veliko enostavneje, če bi uporabil samo 1 textbox ...
 
 
 
 
16.4.2011, 13:07
Da izmislil sem si ga sam.
Kako deluje pa sem našel v oxfordovi enciklopediji izumov.
 
 
 
 
21.3.2012, 17:54
''Zdaj bomo dodali kodo ki bo binarno kodo spremenila v število:'' kam pa jo dodamo?
 
 
 
 
21.3.2012, 23:37
Kodo dodamo h gumbu Dekodiraj. Dvoklikni gumb in se bo odprla funkcija za klik gumba, kamor vneseš kodo.
 
 
 
 
4.4.2012, 16:13
Ker je binarna koda sestavljena sestavljena samo iz enic in ničel moramo dodati kodo ki bo preverila če je vpisano število res takšno.Prilepimo torej spodnjo kodo:
ja pa kam jo prilepimo? spet
 
Prijava in registracija
 
 
 
 
 
 
  Zmagajmo z znanjem na Zmaga.com
 
  Zmaga.com ponuja brezplačno in razumljivo učenje računalniških programov, nudi enkraten način spoznavanja z različnimi svetovnimi jeziki, vas s podrobno obrazloženimi recepti nauči kulinarike in vam prežene strahove pred domačimi opravili.