Tells the ASCII Value of the Alphabet/number/Etc
Tells the ASCII Value of the Alphabet/number/Etc
API Declarations
Take one Command Button,RichtextBox,TextBox.
Rate Tells the ASCII Value of the Alphabet/number/Etc
(1(1 Vote))
//in text box and when the user click on command button the result will be
//shown in richtextbox.
Private Sub Command1_Click()
Dim TestValues As String, tmpchar As String, Answer As String
For I = 1 To Len(text1.Text)
TestValues = Asc(Mid(text1, I, 1))
Answer = InStr(1, TestValues, tmpchar)
a = Mid(text1, I, 1)
Richtextbox.Text = Richtextbox.Text & Space(1) & "The ASCII Value of" & Space(1) & a & Space(1) & "is" & Space(1) & TestValues & vbCrLf
Next I
End Sub
Tells the ASCII Value of the Alphabet/number/Etc Comments
No comments yet — be the first to post one!
Post a Comment