How could bytes be converted into ASCII in a secret code form for students?

[Arnold]

For some of my secondary students studying bits and bytes, I'd like to
make a form in which they can create secret codes with bytes. I'd like
the form to have a memo field that can only accept 0s and 1s and
spaces. I was envisioning the following:

--On after update or so, check the memo and only allow groups of eight
0s and 1s, and only single spaces.

--If students typed groups with < or > eight 0s or 1s, show a msgbox to
alert the them of their errors.

--With the click of a cmdbutton, show the students the result of their
byte coding either in a second memo field or in a report field.

My main problem is that I don't really know how to program ;-) Would
this whole coding of secret coding thing be possible?

I do have some cool code that I've come across that removes double,
triple, and all extra spaces from fields. It also inserts a period at
the end of the data in case the user forgot. Here's this code:
_______________ _____

Private Sub MemoField_After Update()

Dim myLength As Long
Dim mydata As String
Dim lastchar As String
Dim X As Long
Dim temphold As String

If Not IsNull(MemoFiel d) Then
mydata = Trim(MemoField)
myLength = Len(MemoField)
lastchar = Right(MemoField , 1)

End If

If lastchar = "." Or mydata = "" Then
Else
MemoField = mydata & "."
End If

temphold = ""
mydata = ""
For X = 1 To myLength
lastchar = Mid(MemoField, X, 1)
If temphold = " " And lastchar = " " Then
GoTo getnext
Else
temphold = lastchar
mydata = mydata & temphold
End If
getnext:
Next
MemoField = mydata

End Sub
_______________ _____

Private Sub MemoField_LostF ocus()

Dim myLength As Long
Dim mydata As String
Dim lastchar As String

If Not IsNull(MemoFiel d) Then
mydata = Trim(MemoField)
myLength = Len(MemoField)
lastchar = Right(MemoField , 1)
End If

If lastchar = "." Or mydata = "" Then
Else
mydata = mydata & "."
MemoField = mydata
End If

End Sub
_______________ _____

Many thanks in advance.

[Terry Kreft]

Put 2 text boxes (Text0 and Text1) on a form then copy the following code to
the module behind the form
Private Sub Text0_KeyPress( KeyAscii As Integer)
' This tests that the only printable characters entered are 0,1 or <space>
' It also tests that the allowable printable characters are in the correct
position
Select Case KeyAscii
Case 48, 49
If (Len(Me.Text0.T ext) + 1) Mod 9 = 0 Then
KeyAscii = 0
End If
Case 32
' Test position
If (Len(Me.Text0.T ext) + 1) Mod 9 <> 0 Then
KeyAscii = 0
End If
Case Is < 32
' do nothing
Case Else
'throw away
KeyAscii = 0
End Select
End Sub

Private Sub Text0_BeforeUpd ate(Cancel As Integer)
' This checks that the total length of the code entered is correct
' i.e groups of eight digits terminated by a space.
Select Case Len(Me.Text0.Te xt) Mod 9
Case 0, 8
' OK
Case Else
Cancel = True
MsgBox "You must complete the code"
With Me.Text0
.SelStart = Len(Me.Text0.Te xt)
.SelLength = 0
End With
End Select
End Sub

Private Sub Text0_AfterUpda te()
' This converts the bit code to ASCII and
' enters it into Text1
Dim varInput As Variant
Dim intCount As Integer
Dim btCount As Byte
Dim btChar As Byte
Dim strOutput As String

varInput = Split(Me.Text0. Text, " ")
For intCount = LBound(varInput ) To UBound(varInput )
btChar = 0
For btCount = 0 To 7
btChar = btChar Or _
Val(Mid(varInpu t(intCount), 8 - btCount, 1)) * 2 ^
btCount
Next
strOutput = strOutput & Chr(btChar)
Next
Me.Text1 = strOutput
End Sub

Private Sub Text1_AfterUpda te()
' This converts the ASCII to bit code and
' enters it into Text0
Dim varInput As Variant
Dim intCount As Integer
Dim btCount As Byte
Dim btChar As Byte
Dim strInput As String
Dim strOutput As String

strInput = Me.Text1.Text
For intCount = 1 To Len(strInput)
btChar = Asc(Mid(strInpu t, intCount, 1))
For btCount = 0 To 7
strOutput = strOutput _
& Abs(((btChar And (2 ^ (7 - btCount))) = (2 ^ (7 -
btCount))))
Next
strOutput = strOutput & " "
Next
If Len(strOutput) > 1 Then
strOutput = Left(strOutput, Len(strOutput) - 1)
End If
Me.Text0 = strOutput
End Sub
--

Terry Kreft
"Arnold" <ee*******@kc.r r.com> wrote in message
news:11******** *************@g 44g2000cwa.goog legroups.com...

For some of my secondary students studying bits and bytes, I'd like to
make a form in which they can create secret codes with bytes. I'd like
the form to have a memo field that can only accept 0s and 1s and
spaces. I was envisioning the following:

--On after update or so, check the memo and only allow groups of eight
0s and 1s, and only single spaces.

--If students typed groups with < or > eight 0s or 1s, show a msgbox to
alert the them of their errors.

--With the click of a cmdbutton, show the students the result of their
byte coding either in a second memo field or in a report field.

My main problem is that I don't really know how to program ;-) Would
this whole coding of secret coding thing be possible?

I do have some cool code that I've come across that removes double,
triple, and all extra spaces from fields. It also inserts a period at
the end of the data in case the user forgot. Here's this code:
_______________ _____

Private Sub MemoField_After Update()

Dim myLength As Long
Dim mydata As String
Dim lastchar As String
Dim X As Long
Dim temphold As String

If Not IsNull(MemoFiel d) Then
mydata = Trim(MemoField)
myLength = Len(MemoField)
lastchar = Right(MemoField , 1)

End If

If lastchar = "." Or mydata = "" Then
Else
MemoField = mydata & "."
End If

temphold = ""
mydata = ""
For X = 1 To myLength
lastchar = Mid(MemoField, X, 1)
If temphold = " " And lastchar = " " Then
GoTo getnext
Else
temphold = lastchar
mydata = mydata & temphold
End If
getnext:
Next
MemoField = mydata

End Sub
_______________ _____

Private Sub MemoField_LostF ocus()

Dim myLength As Long
Dim mydata As String
Dim lastchar As String

If Not IsNull(MemoFiel d) Then
mydata = Trim(MemoField)
myLength = Len(MemoField)
lastchar = Right(MemoField , 1)
End If

If lastchar = "." Or mydata = "" Then
Else
mydata = mydata & "."
MemoField = mydata
End If

End Sub
_______________ _____

Many thanks in advance.

[Arnold]

Terry,

That's incredible! Thank you so much for your code.