home *** CD-ROM | disk | FTP | other *** search
/ DarkBasic Professional / DarkBasicPro.iso / data1.cab / Lang_Files_(English) / Help / examples / text / text2-example.dba < prev   
Encoding:
Text File  |  2004-09-22  |  1.6 KB  |  60 lines
  1. rem Text Functionality
  2.  
  3. rem Check for all fonts
  4. PERFORM CHECKLIST FOR FONTS
  5.  
  6. rem Test loop
  7. do
  8.  
  9. rem Produce random values
  10. checklistindex=1+rnd(checklist quantity()-1)
  11. FontName$=checklist string$(checklistindex)
  12. RgbValue=rgb(rnd(255),rnd(255),rnd(255))
  13. X=mousex()
  14. Y=mousey()
  15. SizeValue=6+rnd(10)
  16. Character$=chr$(65+rnd(25))
  17. RandomValue=1+rnd(9)
  18. Word$="Supercalifragelisticexpialidocious"
  19. StringValue$=str$(rnd(123))
  20.  
  21. rem Try each command at random
  22. cls rgb(0,64,0)
  23. TEXT X, Y-20, Word$
  24. CENTER TEXT X, Y, Word$
  25. if rnd(5)=1 then INK RgbValue,0
  26. if rnd(1000)=1 then SET TEXT FONT FontName$
  27. if rnd(1000)=1 then SET TEXT SIZE SizeValue
  28. if rnd(1000)=1 then SET TEXT OPAQUE
  29. if rnd(1000)=1 then SET TEXT TRANSPARENT
  30. if rnd(1000)=1 then SET TEXT TO NORMAL
  31. if rnd(1000)=1 then SET TEXT TO ITALIC
  32. if rnd(1000)=1 then SET TEXT TO BOLD
  33. if rnd(1000)=1 then SET TEXT TO BOLDITALIC
  34.  
  35. rem Display data
  36. print "TEXT EXPRESSION DATA"
  37. print
  38. print "background:";TEXT BACKGROUND TYPE()
  39. print "font:";TEXT FONT$()
  40. print "size:";TEXT SIZE()
  41. print "style:";TEXT STYLE()
  42. print "width:";TEXT WIDTH(Word$)
  43. print "height:";TEXT HEIGHT(Word$)
  44. print
  45. print "asc:";ASC(Character$)
  46. print "bin$:";BIN$(RandomValue)
  47. print "chr$:";CHR$(32+RandomValue)
  48. print "hex$:";HEX$(RandomValue)
  49. print "left$:";LEFT$(Word$,RandomValue)
  50. print "len:";LEN(Word$)
  51. print "lower$:";LOWER$(Word$)
  52. print "upper$:";UPPER$(Word$)
  53. print "mid$:";MID$(Word$,RandomValue)
  54. print "right$:";RIGHT$(Word$,RandomValue)
  55. print "str$:";STR$(RandomValue)
  56. print "val:";VAL(StringValue$)
  57. print "space$:";SPACE$(RandomValue);"."
  58.  
  59. loop
  60.