Zmaga.com | Spletno pridobivanje znanja
 
Domov | Programi | Programski jeziki | Visual Basic | Binarni dekoder
Guest
Kliknite, da si ogledate svoj profil
Najboljše in najbolj slastne
Seniorji.info
Najbolj pribljubljen Photoshop vodič
Učenje
Programi Programi
Jeziki Jeziki
Recepti Recepti
Naredi sam Naredi sam
Bližnjice
 
  Binarni dekoder
V priljubljenem programskem jeziku Visual Basic bomo ustvarili program, ki bo znal dekodirati binarno zakodirana števila. 		 
  Avtor: sasko.123 | Različica: 9.0 | 16. april 2011 |  
 
 
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.
 		 
 
 
 
  Progress Bar v Visual Basicu 2010
Visual Basic | 31. julij 2012 | Avtor: Mirko Krizan
V tej lekciji vam bom pokazal, kako narediti preprost progress bar v Visual Basic 2010.
  Ustvarjanje objektov s kodo
Visual Basic | 2. junij 2011 | Avtor: PowerZan
Včasih ne veste, koliko objektov bo uporabljanih na vaši formi, zato potem ne morete narediti statično formo. V tej srednje težki lekciji vam bom pokazal, kako dodajati različne objekte v formo.
  Upravljanje programa v orodni vrstici
Visual Basic | 2. julij 2012 | Avtor: SnoXy
Tokrat bomo v Visual Basic napisanemu programu dodali možnost nadzora preko ikone v orodni vrstici.
  Kako narediti preprosti brskalnik
Visual Basic | 2. december 2010 | Avtor: PowerZan
V tej lekciji vam bom pokazal, kako v okolju Visual Basic Express naredite preprost brskalnik.
  Hitri kalkulator
Visual Basic | 1. julij 2009 | Avtor: Erco
Visual Basic nam nudi ogromno možnosti za izdelovanje programov. Zakaj ne bi poskusili izdelati majhen, a vseeno bolj napreden program v obliki kalkulatorja?
  Zavarujmo program s serijsko kodo 1/2
Visual Basic | 31. marec 2011 | Avtor: PowerZan
V tej lekciji vam bom pokazal, kako zavarujemo svoj program s serijsko kodo. V prvem delu bomo najprej ustvarili generator serijske kode, da ga bomo lahko uporabili v drugem delu.
   
  Prosimo, da se prijavite, da boste lahko komentirali
  Kliknite, da odprete profil uporabnika  
minkic, 16.4.2011, 9:20
Že dolgo časa iščem nekaj takega. Si sam sprogramiral kodo?
 
 
  Kliknite, da odprete profil uporabnika  
jokEEEr, 16.4.2011, 9:46
Pomojem bi bilo veliko enostavneje, če bi uporabil samo 1 textbox ...
 
 
  Kliknite, da odprete profil uporabnika  
sasko.123, 16.4.2011, 13:07
Da izmislil sem si ga sam.
Kako deluje pa sem našel v oxfordovi enciklopediji izumov.
 
 
  Kliknite, da odprete profil uporabnika  
VIDUKA, 21.3.2012, 17:54
''Zdaj bomo dodali kodo ki bo binarno kodo spremenila v število:'' kam pa jo dodamo?
 
 
  Kliknite, da odprete profil uporabnika  
podtalje, 21.3.2012, 23:37
Kodo dodamo h gumbu Dekodiraj. Dvoklikni gumb in se bo odprla funkcija za klik gumba, kamor vneseš kodo.
 
 
  Kliknite, da odprete profil uporabnika  
VIDUKA, 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
 
   
 
 
spletno pridobivanje znanja
Zmaga.com | sodeluj | forum | info