Post by nutter3 on May 9, 2008 13:33:33 GMT -5
OK.. here's my contribution to the demo programs, not sure as to how much it can still be used.. but there ya go. If there's any questions, ask away..
'My try at a simple prog.. Morse Coder? :)
TextMode(TEXT_BUFFERED)
'Dimming vars starts here.. :)
dim Morse, UserIn$ , FinUser$,UserInLower$ ,tobeconvert$,converted$
dim char1$,char2$,char3$,char4$,char5$,char6$,char7$,char8$,char9$
dim char10$,char11$,char12$,char13$,charcounter,strlen,onecharloop,charnumber
CharCounter = 0
OnecharLoop = 0
Start:
Locate 2,1: Printr ".-=Morse Encoder, coded by Mr Fezz=-."
Locate 1,20: Printr "Usage: enter ABC characters to be"
Locate 1,21: Printr "converted. Space to Restart Prog"
Locate 4,4
Input "Enter text:", UserIn$
CharNumber = 0
strlen = Len(UserIn$)
'Printr strlen ' <-- prints lenght of string '<-- debug
UserInLower$ = Lcase$(UserIn$)
'Printr UserInLower$ '<-- debug
NextChar:
CharNumber = Charnumber + 1
'Getting FIRST char
tobeconvert$ = mid$ (UserInLower$,CharNumber,1)
'Printr tobeconvert$ '<-- debug
If strlen = charnumber -1 then goto Endprinter endif
' Read
GoTo Compare
' write converted char to a var
FinCompare:
if charcounter = 1 then char1$ = FinUser$: Goto Nextchar
elseif charcounter = 2 then char2$ = Finuser$: Goto NextChar
elseif charcounter = 3 then char3$ = Finuser$: Goto Nextchar
Elseif charcounter = 4 then char4$ = Finuser$: Goto Nextchar
Elseif Charcounter = 5 then Char5$ = Finuser$: Goto NextChar
Elseif charcounter = 6 then Char6$ = Finuser$: Goto Nextchar
Elseif charcounter = 7 then Char7$ = Finuser$: Goto Nextchar
Elseif charcounter = 8 then Char8$ = Finuser$: Goto Nextchar
Elseif charcounter = 9 then Char9$ = Finuser$: Goto Nextchar
Elseif charcounter = 10 then Char10$ = Finuser$: Goto Nextchar
Elseif charcounter = 11 then Char11$ = Finuser$: Goto Nextchar
Elseif charcounter = 12 then Char12$ = Finuser$: Goto Nextchar
Elseif charcounter = 13 then Char13$ = Finuser$
EndIf
EndPrinter:
Locate 10,15
If strlen = 0 then Print "please enter text": goto TExtDrawer Endif
Locate 2,15
Print Char1$
If Strlen > 1 then Print " ":Print Char2$
if strlen >2 then Print " ":Print char3$
If strlen > 3 then Print " ": Print Char4$
If strlen > 4 then Print " ": Print Char5$
If strlen > 5 then Print " ": Print Char6$
If strlen > 6 then Print " ": Print Char7$
If strlen > 7 then Print " ": Print Char8$
If strlen > 8 then Print " ": Print Char9$
If strlen > 9 then Print " ": Print Char10$
If strlen > 10 then Print " ": Print Char11$
If strlen > 11 then Print " ": Print Char12$
If strlen > 12 then Print " ": Print Char13$
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
EndIf
TextDrawer:
DrawText()
'-------------- END OF PROGRAM!-------------
While True:
If scankeydown (VK_SPACE) then
RUN
Else
Sleep (100)
EndIf
WEnd
End
Compare:
if tobeConvert$ = "a" then FinUser$ = ".-" endif
If tobeConvert$ = "b" then FinUser$ = "-..." EndIf
If tobeConvert$ = "c" then FinUser$ = "-.-." EndIf
If tobeConvert$ = "d" then FinUser$ = "-.." EndIf
If tobeConvert$ = "e" then FinUser$ = "." EndIf
If tobeConvert$ = "f" then FinUser$ = "..-." EndIf
If tobeConvert$ = "g" then FinUser$ = "--." EndIf
If tobeConvert$ = "h" then FinUser$ = "...." EndIf
If tobeConvert$ = "i" then FinUser$ = ".." EndIf
If tobeConvert$ = "j" then FinUser$ = ".---" EndIf
If tobeConvert$ = "k" then FinUser$ = "-.-" EndIf
If tobeConvert$ = "l" then FinUser$ = ".-.." EndIf
If tobeConvert$ = "m" then FinUser$ = "--" EndIf
If tobeConvert$ = "n" then FinUser$ = "-" EndIf
If tobeConvert$ = "o" then FinUser$ = "---" EndIf
If tobeConvert$ = "p" then FinUser$ = ".--." EndIf
If tobeConvert$ = "q" then FinUser$ = "--.-" EndIf
If tobeConvert$ = "r" then FinUser$ = ".-." EndIf
If tobeConvert$ = "s" then FinUser$ = "..." EndIf
If tobeConvert$ = "t" then FinUser$ = "-" EndIf
If tobeConvert$ = "u" then FinUser$ = "..-" EndIf
If tobeConvert$ = "v" then FinUser$ = "...-" EndIf
If tobeConvert$ = "w" then FinUser$ = ".--" EndIf
If tobeConvert$ = "x" then FinUser$ = "-..-" EndIf
If tobeConvert$ = "y" then FinUser$ = "-.--" EndIf
If tobeConvert$ = "z" then FinUser$ = "--.." EndIf
If tobeConvert$ = "." then FinUser$ = ".-.-.-" EndIf
If tobeConvert$ = "," then FinUser$ = "--..--" EndIf
If tobeConvert$ = "?" then FinUser$ = "..--.." EndIf
If tobeconvert$ = " " then FinUser$ = " " Endif
If tobeconvert$ = "1" then FinUser$ = ".----" EndIf
If tobeconvert$ = "2" then FinUser$ = "..---" EndIf
If tobeconvert$ = "3" then FinUser$ = "...--" EndIf
If tobeconvert$ = "4" then FinUser$ = "....-" EndIf
If tobeconvert$ = "5" then FinUser$ = "....." EndIf
If tobeconvert$ = "6" then FinUser$ = "-...." EndIf
If tobeconvert$ = "7" then FinUser$ = "--..." EndIf
If tobeconvert$ = "8" then FinUser$ = "---.." EndIf
If tobeconvert$ = "9" then FinUser$ = "----." EndIf
If tobeconvert$ = "0" then FinUser$ = "-----" EndIf
'------------- Section for debugging only ----------
'Printr "charcount 1:":printr charcounter
charcounter = charcounter + 1
'Printr "charcount new:": printr charcounter
'Printr "Final value FinUser$"
'Printr FinUser$
'------------- End Debugging section ---------------
Goto Fincompare