Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB6: Binaari ja ASCii on ystäviämme

Sivun loppuun

Puhveli [13.03.2004 17:17:09]

#

Ihmettelin tässä että jos jokainen ascii -merkki koostuu kaheksasta ykkösestä tai nollasta, niin silloinhan kaksvärisen kuvan voi tallentaa 8 x pienempään tilaan. Ihan uutta, tota kukaan ei koskaan ole keksiny :D

Onkelma vaan on etten tiedä kui asciikoodi muutetaan binaariks ja päinvihdoin. Kertokaas hyvät toverit!

hunajavohveli [13.03.2004 17:30:34]

#

Lue ohjelmointiputkasta löytyvä opas "Tietokoneen luvut"
Koodivinkeistä löytyy myös ohjelmia, jotka muuntavat kymmenlukuja (joita ASCII-kooditkin ovat) binääriluvuiksi.

Puhveli [13.03.2004 18:34:15]

#

ähym, meillä oli matikassa just noita eri lukujärjestelmiä, ja tuli mieleen et onkohan se binaariluku pelkästää merkin ascii -koodi käännettynä kaksjärjestelmäks... No, se oli todistettava, just siinä luvussa josta kerroit. Kiitos hunajaiseni

Puhveli [13.03.2004 18:34:52]

#

niin se muuten on binaari eikä binääri niinkuin monet harhaoppiset kuvittelee. Se tuli mullekin täytenä yllätyksenä

Sami [13.03.2004 18:48:49]

#

Verrataanpas binaarin ja binäärin yleisyyttä googlefightilla: http://www.googlefight.com/cgi-bin/compare.pl?q1=binaari&q2=bin%E4%E4ri&B1=Make­+a+fight%21&compare=1&langue=us

Ja se bin[aa/ää]riluku on sen ascii-luku käännettynä bin[aa/ää]riksi (eihän tuo bin[aa/ää]ri-kirjoitustapa ole ärsyttävä, eihän? :)

Puhveli [13.03.2004 18:50:34]

#

Toi vain todistaa sitä että harhaoppisuus on nopeasti leviävä (/levinnyt) harrastus, joka tulee kitkeä maan päältä.
Kirjoitustapa ei muuten suinkaan ole ärsyttävä :D

rndprogy [13.03.2004 19:03:36]

#

Mina eikun minä olen aina kirjoittanut binaari ja luulin että on tullut typo. Mutta huh. hmm offtopichtahtavaa.

Antti Laaksonen [13.03.2004 23:57:01]

#

Molemmat muodot ovat oikein, binaari ja binääri.

lainaus:

Ihmettelin tässä että jos jokainen ascii -merkki koostuu kaheksasta ykkösestä tai nollasta, niin silloinhan kaksvärisen kuvan voi tallentaa 8 x pienempään tilaan.

Pitää paikkansa, esim. mustavalkoiset BMP-kuvat on tallennettu näin.

hunajavohveli [14.03.2004 22:47:58]

#

No sitä minäkin, että eikö ole oikein sanoi sitten binaari, tai binääri. Englannistahan se tietty tulee: Binary, suomeksi sen voi vääntää binääri, tai sitten käyttää aata niin kuin englannissa. Veikkaan että se ääksi vääntö lähti Binaryn yystä. Sehän on etuvokaali ja etuvokaalit ei oikein sovi suomessa yhteen takavokaalien kanssa...

Niin ja offtopicista puheenollen (no ei välttämättä aivan offtopickia sentään)

julius_88 [14.03.2004 23:18:55]

#

No siis, mä kerran mietin tota ASCii/Binaari juttua ja sain tämmöstä aikaseksi...
Lisää formiin kaks text boxia(Text1 ja Text2) ja kaks buttonia (Command1 ja Command2)

Function BinToDes(Bin As String) As Integer
Dim Des As Integer
For i = Len(Bin) To 1 Step -1
 Des = Des + Val(Mid$(Bin, i, 1)) * (2 ^ (Len(Bin) - i))
Next i
BinToDes = Des
'määritellään Binaarista desimaalksi oleva funktio.
'(tämä on ohjelmointiputkasta otettu)
End Function

Function DesToBin(Des As Integer) As String
Dim Bin As String
Do
 Bin = Trim(Str$(Des Mod 2)) + Bin
 Des = Des - ((Des \ 2) + Des Mod 2)
Loop Until Des < 1
DesToBin = Bin
'määritellään desimaalista binaariksi oleva funktio.
'(tämä myös)
End Function

Private Sub Command1_Click()
Text2.Text = DesToBin(Asc(Text1.Text))
If Len(Text2.Text) = 7 Then
Text2.Text = "0" & Text2.Text
    ElseIf Len(Text2.Text) = 6 Then
    Text2.Text = "00" & Text2.Text
End If
'Ensimmäinen button muuttaa Text1.Text:ssä
'olevan kirjaimen/luvun binaariksi
'(muuttaa vain ensimmäisen merkin)
End Sub
Private Sub Command2_Click()
Text2.Text = Chr(BinToDes(Text1.Text))
'Muuttaa taas binaari luvun merkiksi (tietääkseni kääntää
'vain 8 ensimmäistä lukua)
End Sub

Tässä voi olla virheitä ja en ole varma, että tarkotitko tällaista....

julius_88 [14.03.2004 23:20:29]

#

Mul on muuten VB 6.0 et ainaki siin mul toimii toi, en tiedä toimiiko vanhemmissa versioissa.


Sivun alkuun

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta