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

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!

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

ä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

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

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? :)

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

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

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.

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)

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....

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