Keskustelu: Ohjelmointikysymykset: VB6: hyvin yksinkertainen ongelma(vb)

Jos tekstilaatikossa ensimmäinen numero on 0, niin se ei näytä sitä ollenkaan. Saisiko jotenkin sen näyttämään myös sen?

mitenniin ei näytä?

kun vaikka käännän jonkun kirjaimen binääri muotoiseksi, niin se jättää aina sen ekan nollan pois, vaikka yhteensä pitäisi olla 8 numeroa. esim a= 01100001, mutta ohjelma näyttää 1100001.

no jos se on numeerinen niin tottakai ne jää pois. säädä se tekstiksi ja tarkista että jos merkkejä on vähemmän kuin kahdeksan ni se lisää ne tarpeelliset. esim luvusta 00001000 ei jää eka nolla vaan kaikki ekat nollat pois. :P

joo:P kiitos, sain toimimaan, mut huomasin kans jossai komennois on 2 nollaa edes ni muutin vähän koodii lisäks:

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
End Sub

'ja hyvin toimii

älä iffaile noin turhasti, tee yksinkertaisesti näin: if len(text2)<8 then text2 = string(8-len(text2),"0") & text2
niin ja kuten huomasit niin tuota .text juttua ei tarvitse.

lainaus:

niin ja kuten huomasit niin tuota .text juttua ei tarvitse.

Se on kyllä harmi...

Tässä on vielä lyhyempi toteutus...

Text2.Text = Right(String(8, "0") + DesToBin(Asc(Text1.Text)), 8)