Nabídka portálu se při zobrazení článku přesouvá na konec pravého sloupce nabídek.
Převod textu na binární formu ve Visual Basicu |
Autor: SwitCZ
| Zdroj: diskuze www.builder.cz
| Vytvořeno: 14.10.2003 13:58:37
| Publikováno: 17.10.2003
| Čtenářů: 2919
| Unikátních: 2889
|
Tato funkce text "A" převede na 01000001 41 A
Samozřejmě umí i dlouhé texty.
Na formulář vložte textbox (2x) a tlačítko (1x)
Pro textbox2 nastavte vlastnost multiline na true a vlastnost scrollbar na 2 (Vertikální) roztáhněte textbox2 aby byly vidět alespoň 4 řádky.
Do kódu formuláře vložte následující text a můžete experimentovat.
Private Sub Command1_Click()
With Text2
'.MultiLine = True (RO)
'.ScrollBars = 2 '(VERTICAL,RO)
.Font = "Courier"
End With
Text2.Text = str2bin(Text1.Text)
End Sub
Public Function str2bin(vstup)
Dim sTemp As String
Dim x As Integer
Dim z As Integer
Dim b As Integer
sTemp = ""
For z = 1 To Len(vstup)
x = Asc(Mid(vstup, z, 1))
For b = 7 To 0 Step -1
If (x >= 2 ^ b) Then
sTemp = sTemp & "1"
x = x - 2 ^ b
Else
sTemp = sTemp & "0"
End If
Next b
'Formatovani sTempu
' 8bit mezera hex mezera znak
sTemp = sTemp & " " & _
Hex(Asc(Mid(vstup, z, 1))) & _
" " & Mid(vstup, z, 1) & _
vbNewLine
Next z
str2bin = sTemp
End Function
|