home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 63 / CDACTUAL63.iso / Aplicaciones / DarkBasic / DemoDarkBasic.exe / help / examples / text / exam09.dba < prev    next >
Encoding:
Text File  |  2000-04-09  |  3.9 KB  |  153 lines

  1. Rem * Title  : Manipulating Strings
  2. Rem * Author : DBS-MB
  3. Rem * Date   : 1st August 99
  4. rem ==========================================
  5. rem DARK BASIC EXAMPLE PROGRAM 9
  6. rem ==========================================
  7. rem This program will use more string command
  8. rem ------------------------------------------
  9.     
  10. rem Set the ink to white and paper color to black 
  11. ink rgb(244,214,210),1
  12.  
  13. rem Pick a new font
  14. rem the new font will work with all text command but not the print command
  15.     
  16. rem This is the font i want to use
  17. set text font "times new roman"
  18.     
  19. rem Set the size of the new font  
  20. set text size 32
  21.  
  22. rem *****************
  23. rem * command asc() *
  24. rem *****************
  25. print "THE COMMAND ASC() WILL RETURN THE FIRST LETTER IN THE STRING HELLO"
  26. print "THE ASCII NUMBER OF THE FIRST LETTER IN HELLO IS ",asc("HELLO")
  27. print
  28. print "TO GET ALL THE ASCII NUMBERS FROM THE STRING USE THESE COMMANDS"
  29. print 
  30.  
  31. message$="HELLO"
  32.  
  33. rem First get the number of letter in message$
  34. print "THE LETTER IS          ";
  35. for t= 1 to len(message$)
  36.     rem print the letter
  37.     print mid$(message$,t),"   ";
  38. next t
  39. print 
  40. print 
  41.  
  42. rem First get the number of letter in message$
  43. print "THE NUMBERS ARE ";
  44. for t= 1 to len(message$)
  45.     rem print the numbers
  46.     print ASC(mid$(message$,t)),"  ";
  47. next t
  48. print 
  49. print 
  50.  
  51. print "PRESS SPACEKEY"
  52. suspend for key
  53. cls 
  54.  
  55. rem ******************
  56. rem * command bin$() *
  57. rem ******************
  58. print "THE BINARY REPRESENTATION OF THE NUMBER 1024 is "
  59. print bin$(255)
  60. print
  61.  
  62. rem ******************
  63. rem * command HEX$() *
  64. rem ******************
  65. print "THE HEX REPRESENTATION OF THE NUMBER 255 is "
  66. print HEX$(255)
  67. print
  68.  
  69. rem *****************
  70. rem * command val() *
  71. rem *****************
  72. print "TO TURN A STRING INTO A INTEGER NUMBER USE THE VAL() COMMAND"
  73. print "THE STRING 1024 WILL BE TURNED INTO A NUMBER ",val("1024")
  74. print
  75.  
  76. rem ******************
  77. rem * command str$() *
  78. rem ******************
  79. print "TO TURN A NUMBER INTO A STRING USE THE STR$() COMMAND"
  80. print "THE NUMBER 1024 WILL BE TURNED INTO A STRING ",STR$(1024)
  81. print
  82.  
  83. rem *****************
  84. rem * command len() *
  85. rem *****************
  86. print "TO COUNT THE LETTER IN A STRING USE THE LEN() COMMAND"
  87. print "THE STRING HELLO WILL RETURN 5 ",len(message$)
  88. print
  89.  
  90. rem ******************
  91. rem * command chr$() *
  92. rem ******************
  93. print "THE COMMAND CHR$() WILL TURN A ASCII NUMBER INTO A ONE LETTER STRING"
  94. print "THE ASCII NUMBER 42 IS A STAR "
  95. print chr$(42)
  96. print 
  97.  
  98. rem ******************
  99. rem * command lower$() *
  100. rem ******************
  101. print "THE COMMAND LOWER$() WILL RETURN A STRING AS LOWERCASE"
  102. print "THE STRING 'Hello WORLD' IS RETURNED AS "
  103. print lower$("Hello WORLD")
  104. print 
  105.  
  106. rem ******************
  107. rem * command upper$() *
  108. rem ******************
  109. print "THE COMMAND UPPER$() WILL RETURN A STRING AS UPPERCASE"
  110. print "THE STRING 'Hello World' IS RETURNED AS "
  111. print upper$("Hello World")
  112. print 
  113.  
  114. print "PRESS SPACEKEY"
  115. suspend for key
  116. cls 
  117.  
  118. rem *******************
  119. rem * command left$() *
  120. rem *******************
  121. print "THE COMMAND LEFT$()"
  122. print "WILL RETURN FROM THE LEFT OF THE STRING"
  123. print "ALL THE LETTER UPTO NUMBER"
  124. print "THE STRING HELLO WORLD WOULD RETURN "
  125. print left$("HELLO WORLD",5)  
  126. print 
  127.  
  128. rem ********************
  129. rem * command right$() *
  130. rem ********************
  131. print "THE COMMAND RIGHT$()"
  132. print "WILL RETURN FROM THE RIGHT OF THE STRING"
  133. print "ALL THE LETTER UPTO NUMBER"
  134. print "THE STRING HELLO WORLD WOULD RETURN "
  135. print right$("HELLO WORLD",5)  
  136. print     
  137.  
  138. rem ******************
  139. rem * command mid$() *
  140. rem ******************
  141. print "THE COMMAND MID$()"
  142. print "WILL RETURN FROM THE MIDDLE OF THE STRING"
  143. print "THE LETTER AT THE NUMBER POSITION SPECIFIED"
  144. print "THE STRING HELLO WORLD WOULD RETURN "
  145. print mid$("HELLO WORLD",7)  
  146. print 
  147.  
  148. rem Will wait for you to press any key
  149. suspend for key
  150.  
  151. rem End the program
  152. end
  153.