Results 1 to 14 of 14

Thread: The Bat Encoder

  1. Aug 22nd, 2000, 02:55 PM #1
    dimava
    dimava is offline

    Thread Starter
    Frenzied Member
    Join Date
    Jun 2000
    Location
    East Providence, RI
    Posts
    1,715
    I MADE THE BAT ENCODER, ITS A EXE, YOU JUST CLICK ON THE LETTERS AND IT ENCODES THEM INTO A TEXT BOX BELOW. GIVE ME YOUR EMAIL AND I WILL EMAIL IT TO YOU, its 44kb
    NXSupport - Your one-stop source for computer help
    Reply With Quote Reply With Quote
  2. Aug 22nd, 2000, 03:03 PM #2
    dimava
    dimava is offline

    Thread Starter
    Frenzied Member
    Join Date
    Jun 2000
    Location
    East Providence, RI
    Posts
    1,715
    here is a website:

    http://www.angelfire.com/ri/dimava/bat_encoder.exe
    NXSupport - Your one-stop source for computer help
    Reply With Quote Reply With Quote
  3. Aug 22nd, 2000, 03:09 PM #3
    Guest
    Here is the code to the Bat Encoder..sorry Batman, but everyone needs to know the Bat source code to the Bat encoder to keep Bat Enemies out .

    Code:
    Function ChrCode(Txt As String) As String
On Error Resume Next
For X = 1 To Len(Txt$)
    outstring$ = outstring$ + "Chr$(" + CStr(Asc(Mid(Txt$, X, 1))) + ") & "
Next X
outstring$ = Trim(outstring$)
outstring$ = Mid(outstring$, 1, Len(outstring$) - 2)
ChrCode = outstring$
End Function

Usage:
'Requirements:  Two text boxes and a Command Button

Private Sub Text1_Change()
X = ChrCode(Text1)
Text2.Text = "" & X & ""
End Sub

'Input:  Text1
'Output:  Text2
    Reply With Quote Reply With Quote
  4. Aug 22nd, 2000, 03:12 PM #4
    dimava
    dimava is offline

    Thread Starter
    Frenzied Member
    Join Date
    Jun 2000
    Location
    East Providence, RI
    Posts
    1,715
    acctually I made it in a diffrent way
    NXSupport - Your one-stop source for computer help
    Reply With Quote Reply With Quote
  6. Aug 22nd, 2000, 04:03 PM #5
    Guest
    I see. Yours is pretty nice as well. Mine is typing, yours is with the click of a mouse ;]. Very nice Dimava .
    Reply With Quote Reply With Quote
  7. Aug 22nd, 2000, 04:06 PM #6
    dimava
    dimava is offline

    Thread Starter
    Frenzied Member
    Join Date
    Jun 2000
    Location
    East Providence, RI
    Posts
    1,715
    thanks
    NXSupport - Your one-stop source for computer help
    Reply With Quote Reply With Quote
  8. Aug 22nd, 2000, 04:11 PM #7
    parksie
    parksie is offline
    Monday Morning Lunatic parksie's Avatar
    Join Date
    Mar 2000
    Location
    Mashin' on the motorway
    Posts
    8,169
    MsgBox chr(87) & chr(72) & chr(65) & chr(84) & chr(32) & chr(73) & chr(83) & chr(32) & chr(84) & chr(72) & chr(69) & chr(32) & chr(68) & chr(73) & chr(70) & chr(70) & chr(69) & chr(82) & chr(69) & chr(78) & chr(67) & chr(69) & chr(32) & chr(66) & chr(69) & chr(84) & chr(87) & chr(69) & chr(69) & chr(78) & chr(32) & chr(84) & chr(72) & chr(69) & chr(32) & chr(84) & chr(87) & chr(79) & chr(32) & chr(77) & chr(69) & chr(84) & chr(72) & chr(79) & chr(68) & chr(83) & chr(32) & chr(32) & chr(32) & chr(73) & chr(32) & chr(80) & chr(82) & chr(69) & chr(70) & chr(69) & chr(82) & chr(32) & chr(77) & chr(65) & chr(84) & chr(84) & chr(72) & chr(69) & chr(87) & chr(83) & chr(68) & chr(73) & chr(77) & chr(65) & chr(86) & chr(65) & chr(83) & chr(32) & chr(73) & chr(83) & chr(32) & chr(86) & chr(69) & chr(82) & chr(89) & chr(32) & chr(79) & chr(82) & chr(73) & chr(71) & chr(73) & chr(78) & chr(65) & chr(76) & chr(32) & chr(84) & chr(72) & chr(79) & chr(85)
    I refuse to tie my hands behind my back and hear somebody say "Bend Over, Boy, Because You Have It Coming To You".
    -- Linus Torvalds
    Reply With Quote Reply With Quote
  9. Aug 22nd, 2000, 04:49 PM #8
    dimava
    dimava is offline

    Thread Starter
    Frenzied Member
    Join Date
    Jun 2000
    Location
    East Providence, RI
    Posts
    1,715
    MsgBox Chr(72) & Chr(69) & Chr(76) & Chr(76) & Chr(79) & Chr(32) & Chr(70) & Chr(69) & Chr(76) & _
    Chr(76) & Chr(79) & Chr(32) & Chr(66) & Chr(65) & Chr(84) & Chr(32) & Chr(80) & Chr(69) & Chr(79) & Chr(80) & Chr(76) & Chr(69) & Chr(32) & Chr(73) & Chr(32) & Chr(74) & Chr(85) & Chr(83) & Chr(84) & Chr(32) & Chr(87) & Chr(65) & Chr(78) & Chr(84) & Chr(69) & Chr(68) & Chr(32) & Chr(84) & Chr(79) & Chr(32) & Chr(84) & Chr(69) & Chr(76) & Chr(76) & Chr(32) & Chr(89) & Chr(79) & Chr(85) & Chr(32) & Chr(65) & Chr(76) & Chr(76) & Chr(32) & Chr(84) & Chr(72) & Chr(65) & Chr(84) & Chr(32) & Chr(73) & Chr(32) & Chr(65) & Chr(77) & Chr(32) & Chr(84) & Chr(72) & Chr(69) & Chr(32) & Chr(82) & Chr(69) & Chr(65) & Chr(76) & Chr(32) & Chr(66) & Chr(65) & Chr(84) & Chr(77) & Chr(65) & Chr(78) & Chr(32) & Chr(65) & Chr(78) & Chr(68) & Chr(32) & Chr(65) & Chr(76) & Chr(76) & Chr(32) & Chr(89) & Chr(79) & Chr(85) & Chr(32) & Chr(79) & Chr(84) & Chr(72) & Chr(69) & Chr(82) & Chr(32) & Chr(66) & Chr(65) & Chr(84) & Chr(77) & Chr(65) & _
    Chr(78) & Chr(32) & Chr(65) & Chr(82) & Chr(69) & Chr(32) & Chr(74) & Chr(85) & Chr(83) & Chr(84) & Chr(32) & Chr(73) & Chr(77) & Chr(73) & Chr(84) & Chr(65) & Chr(84) & Chr(73) & Chr(78) & Chr(71) & Chr(32) & Chr(83) & Chr(79) & Chr(32) & Chr(87) & Chr(79) & Chr(85) & Chr(78) & Chr(84) & Chr(32) & Chr(84) & Chr(72) & Chr(82) & Chr(32) & Chr(82) & Chr(69) & Chr(65) & Chr(76) & Chr(32) & Chr(66) & Chr(65) & Chr(84) & Chr(77) & Chr(65) & Chr(78) & Chr(32) & Chr(80) & Chr(76) & Chr(69) & Chr(65) & Chr(83) & Chr(69) & Chr(32) & Chr(83) & Chr(84) & Chr(65) & Chr(78) & Chr(68) & Chr(32) & Chr(85) & Chr(80) & Chr(32) & Chr(65) & Chr(78) & Chr(68) & Chr(32) & Chr(80) & Chr(85) & Chr(84) & Chr(32) & Chr(84) & Chr(72) & Chr(69) & Chr(32) & Chr(70) & Chr(73) & Chr(78) & Chr(71) & Chr(69) & Chr(82) & Chr(83) & Chr(32) & Chr(79) & Chr(78) & Chr(32) & Chr(69) & Chr(65) & Chr(67) & Chr(72) & Chr(32) & Chr(72) & Chr(65) & Chr(78) & Chr(68) & Chr(32) & Chr(85) & Chr(80) & Chr(32) & Chr(65) & Chr(78) & Chr(68) & _
    Chr(32) & Chr(66) & Chr(69) & Chr(32) & Chr(80) & Chr(82) & Chr(79) & Chr(85) & Chr(68) & Chr(32) & Chr(46) & Chr(46) & Chr(46)
    NXSupport - Your one-stop source for computer help
    Reply With Quote Reply With Quote
  11. Aug 22nd, 2000, 04:49 PM #9
    Guest
    parksie, the difference:

    Dimava has it so like when you click the button:

    Text1.text = Chr(#)

    I have it so that when you type, it will convert it.
    Dimava did each one singley.
    Whereas the code I gave, took less time .

    But I do like the design of Dimava's program.
    Reply With Quote Reply With Quote
  12. Aug 22nd, 2000, 04:51 PM #10
    dimava
    dimava is offline

    Thread Starter
    Frenzied Member
    Join Date
    Jun 2000
    Location
    East Providence, RI
    Posts
    1,715
    acctually I did text1.text = text1.text& chr()

    here is my whole source:

    Code:
    Private Sub Command1_Click()
End Sub

Private Sub cmdA_Click()
If Text1.Text = "" Then
Text1.Text = Text1.Text & "chr(65)"
Else:
Text1.Text = Text1.Text & " " & "&" & " " & "chr(65)"
End If
End Sub

Private Sub cmdB_Click()
If Text1.Text = "" Then
Text1.Text = Text1.Text & "chr(66)"
Else:
Text1.Text = Text1.Text & " " & "&" & " " & "chr(66)"
End If
End Sub

Private Sub cmdC_Click()
If Text1.Text = "" Then
Text1.Text = Text1.Text & "chr(67)"
Else:
Text1.Text = Text1.Text & " " & "&" & " " & "chr(67)"
End If
End Sub

Private Sub cmdD_Click()
If Text1.Text = "" Then
Text1.Text = Text1.Text & "chr(68)"
Else:
Text1.Text = Text1.Text & " " & "&" & " " & "chr(68)"
End If
End Sub

Private Sub cmdE_Click()
If Text1.Text = "" Then
Text1.Text = Text1.Text & "chr(69)"
Else:
Text1.Text = Text1.Text & " " & "&" & " " & "chr(69)"
End If
End Sub

Private Sub cmdF_Click()
If Text1.Text = "" Then
Text1.Text = Text1.Text & "chr(70)"
Else:
Text1.Text = Text1.Text & " " & "&" & " " & "chr(70)"
End If
End Sub

Private Sub cmdG_Click()
If Text1.Text = "" Then
Text1.Text = Text1.Text & "chr(71)"
Else:
Text1.Text = Text1.Text & " " & "&" & " " & "chr(71)"
End If
End Sub

Private Sub cmdH_Click()
If Text1.Text = "" Then
Text1.Text = Text1.Text & "chr(72)"
Else:
Text1.Text = Text1.Text & " " & "&" & " " & "chr(72)"
End If
End Sub

Private Sub cmdI_Click()
If Text1.Text = "" Then
Text1.Text = Text1.Text & "chr(73)"
Else:
Text1.Text = Text1.Text & " " & "&" & " " & "chr(73)"
End If
End Sub

Private Sub cmdJ_Click()
If Text1.Text = "" Then
Text1.Text = Text1.Text & "chr(74)"
Else:
Text1.Text = Text1.Text & " " & "&" & " " & "chr(74)"
End If
End Sub

Private Sub cmdK_Click()
If Text1.Text = "" Then
Text1.Text = Text1.Text & "chr(75)"
Else:
Text1.Text = Text1.Text & " " & "&" & " " & "chr(75)"
End If
End Sub

Private Sub cmdL_Click()
If Text1.Text = "" Then
Text1.Text = Text1.Text & "chr(76)"
Else:
Text1.Text = Text1.Text & " " & "&" & " " & "chr(76)"
End If
End Sub

Private Sub cmdM_Click()
If Text1.Text = "" Then
Text1.Text = Text1.Text & "chr(77)"
Else:
Text1.Text = Text1.Text & " " & "&" & " " & "chr(77)"
End If
End Sub

Private Sub cmdN_Click()
If Text1.Text = "" Then
Text1.Text = Text1.Text & "chr(78)"
Else:
Text1.Text = Text1.Text & " " & "&" & " " & "chr(78)"
End If
End Sub

Private Sub cmdO_Click()
If Text1.Text = "" Then
Text1.Text = Text1.Text & "chr(79)"
Else:
Text1.Text = Text1.Text & " " & "&" & " " & "chr(79)"
End If
End Sub

Private Sub cmdP_Click()
If Text1.Text = "" Then
Text1.Text = Text1.Text & "chr(80)"
Else:
Text1.Text = Text1.Text & " " & "&" & " " & "chr(80)"
End If
End Sub

Private Sub cmdQ_Click()
If Text1.Text = "" Then
Text1.Text = Text1.Text & "chr(81)"
Else:
Text1.Text = Text1.Text & " " & "&" & " " & "chr(81)"
End If
End Sub

Private Sub cmdR_Click()
If Text1.Text = "" Then
Text1.Text = Text1.Text & "chr(82)"
Else:
Text1.Text = Text1.Text & " " & "&" & " " & "chr(82)"
End If
End Sub

Private Sub cmdS_Click()
If Text1.Text = "" Then
Text1.Text = Text1.Text & "chr(83)"
Else:
Text1.Text = Text1.Text & " " & "&" & " " & "chr(83)"
End If
End Sub

Private Sub cmdSpace_Click()
If Text1.Text = "" Then
Text1.Text = Text1.Text & "chr(32)"
Else:
Text1.Text = Text1.Text & " " & "&" & " " & "chr(32)"
End If
End Sub

Private Sub cmdT_Click()
If Text1.Text = "" Then
Text1.Text = Text1.Text & "chr(84)"
Else:
Text1.Text = Text1.Text & " " & "&" & " " & "chr(84)"
End If
End Sub

Private Sub cmdU_Click()
If Text1.Text = "" Then
Text1.Text = Text1.Text & "chr(85)"
Else:
Text1.Text = Text1.Text & " " & "&" & " " & "chr(85)"
End If
End Sub

Private Sub cmdV_Click()
If Text1.Text = "" Then
Text1.Text = Text1.Text & "chr(86)"
Else:
Text1.Text = Text1.Text & " " & "&" & " " & "chr(86)"
End If
End Sub

Private Sub cmdW_Click()
If Text1.Text = "" Then
Text1.Text = Text1.Text & "chr(87)"
Else:
Text1.Text = Text1.Text & " " & "&" & " " & "chr(87)"
End If
End Sub

Private Sub cmdX_Click()
If Text1.Text = "" Then
Text1.Text = Text1.Text & "chr(88)"
Else:
Text1.Text = Text1.Text & " " & "&" & " " & "chr(88)"
End If
End Sub

Private Sub cmdY_Click()
If Text1.Text = "" Then
Text1.Text = Text1.Text & "chr(89)"
Else:
Text1.Text = Text1.Text & " " & "&" & " " & "chr(89)"
End If
End Sub

Private Sub cmdZ_Click()
If Text1.Text = "" Then
Text1.Text = Text1.Text & "chr(90)"
Else:
Text1.Text = Text1.Text & " " & "&" & " " & "chr(90)"
End If
End Sub

Private Sub Form_Load()

End Sub
    NXSupport - Your one-stop source for computer help
    Reply With Quote Reply With Quote
  13. Aug 22nd, 2000, 04:51 PM #11
    parksie
    parksie is offline
    Monday Morning Lunatic parksie's Avatar
    Join Date
    Mar 2000
    Location
    Mashin' on the motorway
    Posts
    8,169
    <heh>

    Oh yeah...I missed that one. It is a nice original design, though.
    I refuse to tie my hands behind my back and hear somebody say "Bend Over, Boy, Because You Have It Coming To You".
    -- Linus Torvalds
    Reply With Quote Reply With Quote
  14. Aug 22nd, 2000, 04:55 PM #12
    parksie
    parksie is offline
    Monday Morning Lunatic parksie's Avatar
    Join Date
    Mar 2000
    Location
    Mashin' on the motorway
    Posts
    8,169
    Did you write all that out or use a small VB program to generate it?
    I refuse to tie my hands behind my back and hear somebody say "Bend Over, Boy, Because You Have It Coming To You".
    -- Linus Torvalds
    Reply With Quote Reply With Quote
  15. Aug 22nd, 2000, 05:04 PM #13
    Sam Finch
    Sam Finch is offline
    Frenzied Member
    Join Date
    Mar 2000
    Posts
    1,089
    you realise if you'd used a control array you could have done that in 3 lines of code.
    Reply With Quote Reply With Quote
  16. Aug 22nd, 2000, 05:07 PM #14
    dimava
    dimava is offline

    Thread Starter
    Frenzied Member
    Join Date
    Jun 2000
    Location
    East Providence, RI
    Posts
    1,715
    I did COPY PASTE PASTE PASTE then I just changed the numbers. Yea I know I could have done it in less but I dont know how but any ways, as long as it works, its fine with me
    NXSupport - Your one-stop source for computer help
    Reply With Quote Reply With Quote
« Previous Thread | Next Thread »

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Forum Rules


Click Here to Expand Forum to Full Width