开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 电子书籍 > Delphi/CppBuilder > 查看源码
Ascii.cpp
资源名称：c++builder6编程实例.ZIP　[点击查看]
上传用户：lulishicai
上传日期：2010-03-01
资源大小：13202k
文件大小：11k
源码类别：

Delphi/CppBuilder

开发平台：

C++ Builder

Ascii.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "Ascii.h"
  6. //---------------------------------------------------------------------------
  7. #pragma package(smart_init)
  8. #pragma resource "*.dfm"
  9. TForm1 *Form1;
  10. String str1;
  11. //---------------------------------------------------------------------------
  12. __fastcall TForm1::TForm1(TComponent* Owner)
  13.         : TForm(Owner)
  14. {
  15. }
  16. //---------------------------------------------------------------------------
  18. void __fastcall TForm1::RadioButton1Click(TObject *Sender)
  19. {
  20. str1="";
  21. str1=str1+"                       ___                                "+"n";
  22. str1=str1+"                       \  \                               "+"n";
  23. str1=str1+"                        \  `\                             "+"n";
  24. str1=str1+"     ___                 \   \                            "+"n";
  25. str1=str1+"    |    \                \   `\                          "+"n";
  26. str1=str1+"    |_____\                \    \                         "+"n";
  27. str1=str1+"    |______\                \    `\                       "+"n";
  28. str1=str1+"    |       \                \     \                      "+"n";
  29. str1=str1+"    |      __\__---------------------------------._.      "+"n";
  30. str1=str1+"  __|---~~~__o_o_o_o_o_o_o_o_o_o_o_o_o_o_o_o_o_o_[][__   "+"n";
  31. str1=str1+" |___                         /~      )                __"+"n";
  32. str1=str1+"     ~~~---..._______________/      ,/_________________/  "+"n";
  33. str1=str1+"                            /      /                      "+"n";
  34. str1=str1+"                           /     ,/                       "+"n";
  35. str1=str1+"                          /     /                         "+"n";
  36. str1=str1+"                         /    ,/                          "+"n";
  37. str1=str1+"                        /    /                            "+"n";
  38. str1=str1+"                       /   ,/                             "+"n";
  39. str1=str1+"                      /   /                               "+"n";
  40. str1=str1+"                     /  ,/                                "+"n";
  41. str1=str1+"                    /__/                                  "+"n";
  42. //飞机图案
  43. }
  44. //---------------------------------------------------------------------------
  46. void __fastcall TForm1::RadioButton2Click(TObject *Sender)
  47. {
  48. str1="";
  49. str1=str1+"    ,                                           "+"n";
  50. str1=str1+" _,,).~,,._                                    "+"n";
  51. str1=str1+" (()`  ``)))),,_                               "+"n";
  52. str1=str1+"  |      ''(()))),,_          ____            "+"n";
  53. str1=str1+"  |6`   |   ''((()))  -._____-     `-.-,       "+"n";
  54. str1=str1+"  |    .| |    )))))                  )))     "+"n";
  55. str1=str1+"  |   |   `.     ''                     ((((    "+"n";
  56. str1=str1+"  ,__)     /                          |))))   "+"n";
  57. str1=str1+"            |                           (((((   "+"n";
  58. str1=str1+"                               |       ))))))  "+"n";
  59. str1=str1+"              `|    |           ,     /((((((  "+"n";
  60. str1=str1+"               |   / `-.______.<     |  )))))  "+"n";
  61. str1=str1+"               |   |  /         `.     ((((   "+"n";
  62. str1=str1+"               |  /  |           `.  | (((    "+"n";
  63. str1=str1+"                 | | |             )| |  ))    "+"n";
  64. str1=str1+"                | | | |            / | |        "+"n";
  65. str1=str1+"                | | /_(           /_(/ /        "+"n";
  66. str1=str1+"                /_(/__]           _/_(         "+"n";
  67. str1=str1+"               /__]                /__]         "+"n";
  68. //奔马图案
  69. }
  70. //---------------------------------------------------------------------------
  72. void __fastcall TForm1::RadioButton3Click(TObject *Sender)
  73. {
  74. str1="";
  75. str1=str1+"               -. -.                     "+"n";
  76. str1=str1+"             (  (  (                     "+"n";
  77. str1=str1+"                )  ) _..-.._            "+"n";
  78. str1=str1+"             __)/ , ,        `.          "+"n";
  79. str1=str1+"           ,'     `.     ,--.  `.        "+"n";
  80. str1=str1+"         ,'   @        .     `          "+"n";
  81. str1=str1+"        (Y            (           ;''.   "+"n";
  82. str1=str1+"         `--.____,               ,  ;   "+"n";
  83. str1=str1+"         ((_ ,----  ,---       _, _,     "+"n";
  84. str1=str1+"            (((_,- (((______,-           "+"n";
  85. //兔子图案
  86. }
  87. //---------------------------------------------------------------------------
  89. void __fastcall TForm1::RadioButton4Click(TObject *Sender)
  90. {
  91. str1="";
  92. str1=str1+"       .==-.                   .-==.     "+"n";
  93. str1=str1+"        ()8`-._   .   .   _.- 8()/      "+"n";
  94. str1=str1+"        (88'   ::.  ./  .::   '88)      "+"n";
  95. str1=str1+"         _. `-::::.(#).::::- `._/       "+"n";
  96. str1=str1+"           `._... .q(_)p. ..._.          "+"n";
  97. str1=str1+"             ""-..- |=|`-..-""           "+"n";
  98. str1=str1+"             .""  . |=|`. `"".           "+"n";
  99. str1=str1+"           , :8(o)./|=|.(o)8:`.         "+"n";
  100. str1=str1+"          (O :8 ::/ _/ :: 8: O)        "+"n";
  101. str1=str1+"           O `::/       ::  O/         "+"n";
  102. str1=str1+"            ""--          `--""          "+"n";
  103. //蝴蝶图案
  104. }
  105. //---------------------------------------------------------------------------
  107. void __fastcall TForm1::RadioButton5Click(TObject *Sender)
  108. {
  109. str1="";
  110. str1=str1+"     .-''-.                             "+"n";
  111. str1=str1+"    / ,                                "+"n";
  112. str1=str1+" .- `(o)    ;                           "+"n";
  113. str1=str1+" -==.       |                           "+"n";
  114. str1=str1+"     `._...-;-.                         "+"n";
  115. str1=str1+"      )--'''   `-.                      "+"n";
  116. str1=str1+"     /   .        `-.                   "+"n";
  117. str1=str1+"    /   /      `.    `-.                "+"n";
  118. str1=str1+"    |       ;         `-._________    "+"n";
  119. str1=str1+"    |        `.`.;          -------`.  "+"n";
  120. str1=str1+"         `-.   \\          `---...|  "+"n";
  121. str1=str1+"      `.     `-. ```.-- ._   `---...|  "+"n";
  122. str1=str1+"        `-.....7`-.))     `-._`-.. /   "+"n";
  123. str1=str1+"          `._ /   `-`         `-.,     "+"n";
  124. str1=str1+"            / /                         "+"n";
  125. str1=str1+"           /=(_                         "+"n";
  126. str1=str1+"        -./--  `                        "+"n";
  127. str1=str1+"      ,^-(_                             "+"n";
  128. str1=str1+"      ,--  `                            "+"n";
  129. //鸟图案
  130. }
  131. //---------------------------------------------------------------------------
  133. void __fastcall TForm1::RadioButton6Click(TObject *Sender)
  134. {
  135. str1="";
  136. str1=str1+"        ***********                ***********          "+"n";
  137. str1=str1+"     ******************          ******************     "+"n";
  138. str1=str1+"  ***********************      ***********************  "+"n";
  139. str1=str1+" *************************    ************************* "+"n";
  140. str1=str1+"***************************  ***************************"+"n";
  141. str1=str1+"********************************************************"+"n";
  142. str1=str1+"********************************************************"+"n";
  143. str1=str1+" ****************************************************** "+"n";
  144. str1=str1+"  ****************************************************  "+"n";
  145. str1=str1+"   **************************************************   "+"n";
  146. str1=str1+"     **********************************************     "+"n";
  147. str1=str1+"       ******************************************       "+"n";
  148. str1=str1+"         **************************************         "+"n";
  149. str1=str1+"           **********************************           "+"n";
  150. str1=str1+"             ******************************             "+"n";
  151. str1=str1+"               **************************               "+"n";
  152. str1=str1+"                  ********************                  "+"n";
  153. str1=str1+"                      ************                      "+"n";
  154. str1=str1+"                          **                            "+"n";
  155. //心图案
  156. }
  157. //---------------------------------------------------------------------------
  159. void __fastcall TForm1::RadioButton7Click(TObject *Sender)
  160. {
  161. str1="";
  162. str1=str1+"__        __                             "+"n";
  163. str1=str1+"\ \      / /_ _ _ __   __ _              "+"n";
  164. str1=str1+" \ \ /\ / / _` | '_ \ / _` |             "+"n";
  165. str1=str1+"  \ V  V / (_| | | | | (_| |             "+"n";
  166. str1=str1+"   \_/\_/ \__,_|_| |_|\__, |             "+"n";
  167. str1=str1+"                      |___/              "+"n";
  168. str1=str1+"__  ___                                  "+"n";
  169. str1=str1+"\ \/ (_)_ __   __ _                      "+"n";
  170. str1=str1+" \  /| | '_ \ / _` |                     "+"n";
  171. str1=str1+" /  \| | | | | (_| |                     "+"n";
  172. str1=str1+"/_/\_\_|_| |_|\__, |                     "+"n";
  173. str1=str1+"              |___/                      "+"n";
  174. str1=str1+"     _ _                                 "+"n";
  175. str1=str1+"    | (_)_ __   __ _                     "+"n";
  176. str1=str1+" _  | | | '_ \ / _` |                    "+"n";
  177. str1=str1+"| |_| | | | | | (_| |                    "+"n";
  178. str1=str1+" \___/|_|_| |_|\__, |                    "+"n";
  179. str1=str1+"               |___/                     "+"n";
  180. //名字图案
  181. }
  182. //---------------------------------------------------------------------------
  184. void __fastcall TForm1::RadioButton8Click(TObject *Sender)
  185. {
  186. str1="";
  187. str1=str1+"  +---------------------------------------------+"+"n";
  188. str1=str1+"  |*********************************************|"+"n";
  189. str1=str1+"  |*...........................................*|"+"n";
  190. str1=str1+"  |*.%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%.*|"+"n";
  191. str1=str1+"  |*.%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! %.*|"+"n";
  192. str1=str1+"  |*.%!################################### ! %.*|"+"n";
  193. str1=str1+"  |*.%!#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@# ! %.*|"+"n";
  194. str1=str1+"  |*.%!#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@# ! %.*|"+"n";
  195. str1=str1+"  |*.%!################################### ! %.*|"+"n";
  196. str1=str1+"  |*.%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! %.*|"+"n";
  197. str1=str1+"  |*.%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%.*|"+"n";
  198. str1=str1+"  |*...........................................*|"+"n";
  199. str1=str1+"  |*********************************************|"+"n";
  200. str1=str1+"  +---------------------------------------------+"+"n";
  201. //矩形图案
  202. }
  203. //---------------------------------------------------------------------------
  205. void __fastcall TForm1::Button1Click(TObject *Sender)
  206. {
  207. Form1->RichEdit1->Lines->Text=str1;
  208. //绘制艺术图案
  209. }
  210. //---------------------------------------------------------------------------
  212. void __fastcall TForm1::Button2Click(TObject *Sender)
  213. {
  214. Form1->RichEdit1->Lines->Clear();
  215. //清除文本框中的艺图案
  216. }
  217. //---------------------------------------------------------------------------
  218.