Miten siis onnistuu simppelisti 16-bit binääri jonon konevertointi desimaaliksi.
Esim1.
Input=0100000000000000
Output=2
Esim2.
Input=0000000000000001
Output=32768
Miten tämä onnistuu helpolla VB6:ssä?
Esim1.
Input=0100000000000000
Output=2
Esim2.
Input=0000000000000001
Output=32768
Miten tämä onnistuu helpolla VB6:ssä?
Vastaukset 8
Vanhimmat
http://forums.aspfree.com/asp-free-lounge-32/vbulletin-permissions-92428.html
etsi tuolta BinaryToInt. Oletan että tuo input on stringi. Muutenhan siinä ei ole järkeä
Noissa esimerkeissäsi on binaari väärin päin:
Esim esim2:
0000000000000001 on 1 eikä 32768
Ellei siten kyseessä ole jokin sairas systeemi jossa bitit on väärin päin.
Tiedän kyllä, että ensimmäinen bitti kuuluu olla normaalisti vasemmalla, mutta tähän systeemiin on ilmeisesti käännetty bitit enemmän ihmisen luettavaan muotoon eli eka bitti on vasemmalla.
Mutta sillä nyt ei ole tässä merkitystä, kunhan saan tuon konversion aikaan oikein joka tapaukseesa.
vb onkin täydellinen valinta häviäjille
Niin otsikko kertoo kaiken
No ellei kyseessä ole persialainen tai Hebrew:n kieleinen systeemi jossa kirjoitetaan oikealta vasemalle, en tuota ymmärrä. tai sitten jollakulla on mennyt endianess käsitys sekaisin (sehän ei tarkoita bittejä vaan tavuja).
Neuvoisin vielä tarkistamaan tavujärjästyksen.
Osaatkohan ainuttakaan kieltä.
Yllättäen googlella löytyi seuraava:
http://www.devx.com/vb2themax/Tip/18959
Pitää vaan muutella lukeminen toisessa järjestyksessä.
Ilmeisesti voidaan olettaa kyseessä olevan binääriluku, joten ei tarvitse käsitellä kuin nollia ja ykkösiä.
Näin tekisin sen itse:
For i=1 to len(BinääriLuku$)
DesLuku=DesLuku val(mid$(BinääriLuku$,i,1))*2^(i-1)
next i