Odprite visual basic in pritisnite Ctrl+N, da odprete nov projekt.
Izberite Windows Forms Application.
|
|||||
 |
|||||
|
|||||
Novo formo oblikujte tako kot je na sliki.
Se opravičujem za morebitne nerazumljive napise na sliki.
|
|||||
|
|||||
 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 |
|||||
|
|||||
 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. |
|||||
|
|||||
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.
|
|||||
|
|||||
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.
|
|||||
