Solved

Cipher, Beginners Question

Posted on 1998-10-13
5
258 Views
Last Modified: 2010-04-30
Ok, I have code here that Will have a INputbox pop up and Ask you to enter a word to Cipher, the Only problem is it goes one word at a time.  I want to be able to Cipher a complete word rather than one word at a time, It's a basic Question, I'm only a newbie.

Private Sub cmdCipher_Click()
   Dim Letter as String
   Letter = Inputbox("Enter a Word To cipher")
   Label1.Caption = Label1.Caption & Letter
   Label2.Caption = Label2.Caption & Chrs$(Asc(Letter) + 3)
End Sub


Thanks in advance
0
Comment
Question by:infiniteloop
5 Comments
 
LVL 4

Accepted Solution

by:
mcix earned 10 total points
ID: 1439803
Private Sub Command1_Click()
    Dim mstrNewWord As String
    Dim mstrOldWord  As String
    mstrOldWord = InputBox("Enter a Word To cipher")
    mstrNewWord = Cipher(mstrOldWord)
   
End Sub

Public Function Cipher(vstrInWord As String) As String

    Dim mintCurrentPosition As Integer
    Dim mstrTempWord As String
    Dim mstrCurrentCharacter As String
    For mintCurrentPosition = 1 To Len(vstrInWord)
   
        mstrCurrentCharacter = Mid$(vstrInWord, mintCurrentPosition, 1)
        mstrTempWord = mstrTempWord & Chr$(Asc(mstrCurrentCharacter) + 3)
       
    Next
    Cipher = mstrTempWord

End Function
0
 
LVL 1

Expert Comment

by:cvidler
ID: 1439804
Try this code:

Text$ = InputBox$("Enter text to cipher:")
Label1.Caption = Text$
Temp$ = ""    'Clear Temp to prevent problems, extra characters
For i% = 1 to Len(Text$)       'Loop through all characters
   Temp$ = Temp$ + Chr$(Asc(Mid$(Text$, i%, 1)) + 3)
Next i%

This should work nicely.
0
 
LVL 12

Expert Comment

by:mark2150
ID: 1439805
Try putting:

Phrase = Msgbox("Enter phrase to cipher:")
Label1.Caption = ""
Label2.Caption = ""
FOR ndx = 1 TO LEN( Phrase )
    Letter = MID( Phrase, ndx, 1 )
    Label1.Caption = Label1.Caption & Letter
    Label2.Caption = Label2.Caption & CHR( ASC( Letter ) + 3 )
NEXT ndx

Let me know what grade you get on your homework...

M

0
 
LVL 1

Author Comment

by:infiniteloop
ID: 1439806
Damn That was QUICK!!!!!!!!,

Thanks
0
 
LVL 1

Author Comment

by:infiniteloop
ID: 1439807
Homework eh!! =)


0

Featured Post

NAS Cloud Backup Strategies

This article explains backup scenarios when using network storage. We review the so-called “3-2-1 strategy” and summarize the methods you can use to send NAS data to the cloud

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

When trying to find the cause of a problem in VBA or VB6 it's often valuable to know what procedures were executed prior to the error. You can use the Call Stack for that but it is often inadequate because it may show procedures you aren't intereste…
Article by: Martin
Here are a few simple, working, games that you can use as-is or as the basis for your own games. Tic-Tac-Toe This is one of the simplest of all games.   The game allows for a choice of who goes first and keeps track of the number of wins for…
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…

809 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question