Member Avatar for helloworld

hello, i have copied parts of it from the book, am not allowed is there anyway someone can chage as much as there can, and try and get rid of ASC, is there another way of doing it, without ASC, OR ASCW, please someone help, please
nicky


Public Function Zeichen_OUT(Zeichen As String, wheelNr As Integer) As String
'go left, direction reflector (Umkehrwalze)
Dim Z As Integer
Dim offsetZ As Integer
offsetZ = RotorOffset(wheelNr) - RingOffset(wheelNr)
Z = (Asc(Zeichen) - 64) + offsetZ
If Z < 1 Then Z = Z + 26
If Z > 26 Then Z = Z - 26
Zeichen = Mid(ROTORS(RotorType(wheelNr)), Z, 1)
Z = (Asc(Zeichen) - 64) - offsetZ
If Z < 1 Then Z = Z + 26
If Z > 26 Then Z = Z - 26
Zeichen_OUT = Chr(Z + 64)
End Function

  • 3 Contributors
  • 4 Replies
  • 92 Views
  • 1 Day Discussion Span
  • Latest Post Latest Post by campkev
Member Avatar for campkev

please help you cheat on your homework?

Member Avatar for helloworld

there is always someone who has done notthing with there lives and wish to damage others, is only a few lines, help those who find it difficult

Member Avatar for Yomet

And then there are those who actually want to do something with their lives.

Find some other forum where this kind of activity might be welcome

As for difficult - that's where you grow... (*hint, hint, hint*)

Member Avatar for campkev

amen brother

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.