📄 ascii.cpp
字号:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Ascii.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
String str1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton1Click(TObject *Sender)
{
str1="";
str1=str1+" ___ "+"\n";
str1=str1+" \\ \\ "+"\n";
str1=str1+" \\ `\\ "+"\n";
str1=str1+" ___ \\ \\ "+"\n";
str1=str1+" | \\ \\ `\\ "+"\n";
str1=str1+" |_____\\ \\ \\ "+"\n";
str1=str1+" |______\\ \\ `\\ "+"\n";
str1=str1+" | \\ \\ \\ "+"\n";
str1=str1+" | __\\__---------------------------------._. "+"\n";
str1=str1+" __|---~~~__o_o_o_o_o_o_o_o_o_o_o_o_o_o_o_o_o_o_[][\__ "+"\n";
str1=str1+" |___ /~ ) \__"+"\n";
str1=str1+" ~~~---..._______________/ ,/_________________/ "+"\n";
str1=str1+" / / "+"\n";
str1=str1+" \ / ,/ "+"\n";
str1=str1+" / / "+"\n";
str1=str1+" / ,/ "+"\n";
str1=str1+" / / "+"\n";
str1=str1+" / ,/ "+"\n";
str1=str1+" / / "+"\n";
str1=str1+" / ,/ "+"\n";
str1=str1+" /__/ "+"\n";
//飞机图案
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton2Click(TObject *Sender)
{
str1="";
str1=str1+" , "+"\n";
str1=str1+" _,,)\.~,,._ "+"\n";
str1=str1+" (()` ``)\))),,_ "+"\n";
str1=str1+" | \ ''((\)))),,_ ____ "+"\n";
str1=str1+" |6` | ''((\())) -._____- `-.-, "+"\n";
str1=str1+" | .| |\ ))))) \))) "+"\n";
str1=str1+" | | `. '' (((( "+"\n";
str1=str1+" \,__) \/ |)))) "+"\n";
str1=str1+" | ((((( "+"\n";
str1=str1+" \ | )))))) "+"\n";
str1=str1+" `| | ,\ /(((((( "+"\n";
str1=str1+" | / `-.______.< \ | ))))) "+"\n";
str1=str1+" | | / `. \ \ (((( "+"\n";
str1=str1+" | / \ | `.\ | ((( "+"\n";
str1=str1+" \ | | | )| | )) "+"\n";
str1=str1+" | | | | / | | "+"\n";
str1=str1+" | | /_( /_(/ / "+"\n";
str1=str1+" /_(/__] \_/_( "+"\n";
str1=str1+" /__] /__] "+"\n";
//奔马图案
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton3Click(TObject *Sender)
{
str1="";
str1=str1+" -. -. "+"\n";
str1=str1+" ( ( ( "+"\n";
str1=str1+" \ ) ) _..-.._ "+"\n";
str1=str1+" __)/ , , `. "+"\n";
str1=str1+" ,' `. ,--. `. "+"\n";
str1=str1+" ,' @ . ` \ "+"\n";
str1=str1+" (Y ( ;''. "+"\n";
str1=str1+" `--.____, \ , ; "+"\n";
str1=str1+" ((_ ,---- ,--- _, _, "+"\n";
str1=str1+" (((_,- (((______,- "+"\n";
//兔子图案
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton4Click(TObject *Sender)
{
str1="";
str1=str1+" .==-. .-==. "+"\n";
str1=str1+" \()8`-._ . . _.- 8()/ "+"\n";
str1=str1+" (88' ::. \./ .:: '88) "+"\n";
str1=str1+" \_. `-::::.(#).::::- `._/ "+"\n";
str1=str1+" `._... .q(_)p. ..._. "+"\n";
str1=str1+" ""-..- |=|`-..-"" "+"\n";
str1=str1+" ."" . |=|`. `"". "+"\n";
str1=str1+" , :8(o)./|=|\.(o)8:`. "+"\n";
str1=str1+" (O :8 ::/ \_/ \:: 8: O) "+"\n";
str1=str1+" \O `::/ \:: O/ "+"\n";
str1=str1+" ""-- `--"" "+"\n";
//蝴蝶图案
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton5Click(TObject *Sender)
{
str1="";
str1=str1+" .-''-. "+"\n";
str1=str1+" / , \ "+"\n";
str1=str1+" .- `(o) ; "+"\n";
str1=str1+" -==. | "+"\n";
str1=str1+" `._...-;-. "+"\n";
str1=str1+" )--''' `-. "+"\n";
str1=str1+" / . `-. "+"\n";
str1=str1+" / / `. `-. "+"\n";
str1=str1+" | \ ; \ `-._________ "+"\n";
str1=str1+" | \ `.`.; -------`. "+"\n";
str1=str1+" \ `-. \\\\ `---...| "+"\n";
str1=str1+" `. `-. ```\.-- ._ `---...| "+"\n";
str1=str1+" `-.....7`-.))\ `-._`-.. / "+"\n";
str1=str1+" `._\ / `-` `-., "+"\n";
str1=str1+" / / "+"\n";
str1=str1+" /=(_ "+"\n";
str1=str1+" -./-- ` "+"\n";
str1=str1+" ,^-(_ "+"\n";
str1=str1+" ,-- ` "+"\n";
//鸟图案
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton6Click(TObject *Sender)
{
str1="";
str1=str1+" *********** *********** "+"\n";
str1=str1+" ****************** ****************** "+"\n";
str1=str1+" *********************** *********************** "+"\n";
str1=str1+" ************************* ************************* "+"\n";
str1=str1+"*************************** ***************************"+"\n";
str1=str1+"********************************************************"+"\n";
str1=str1+"********************************************************"+"\n";
str1=str1+" ****************************************************** "+"\n";
str1=str1+" **************************************************** "+"\n";
str1=str1+" ************************************************** "+"\n";
str1=str1+" ********************************************** "+"\n";
str1=str1+" ****************************************** "+"\n";
str1=str1+" ************************************** "+"\n";
str1=str1+" ********************************** "+"\n";
str1=str1+" ****************************** "+"\n";
str1=str1+" ************************** "+"\n";
str1=str1+" ******************** "+"\n";
str1=str1+" ************ "+"\n";
str1=str1+" ** "+"\n";
//心图案
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton7Click(TObject *Sender)
{
str1="";
str1=str1+"__ __ "+"\n";
str1=str1+"\\ \\ / /_ _ _ __ __ _ "+"\n";
str1=str1+" \\ \\ /\\ / / _` | '_ \\ / _` | "+"\n";
str1=str1+" \\ V V / (_| | | | | (_| | "+"\n";
str1=str1+" \\_/\\_/ \\__,_|_| |_|\\__, | "+"\n";
str1=str1+" |___/ "+"\n";
str1=str1+"__ ___ "+"\n";
str1=str1+"\\ \\/ (_)_ __ __ _ "+"\n";
str1=str1+" \\ /| | '_ \\ / _` | "+"\n";
str1=str1+" / \\| | | | | (_| | "+"\n";
str1=str1+"/_/\\_\\_|_| |_|\\__, | "+"\n";
str1=str1+" |___/ "+"\n";
str1=str1+" _ _ "+"\n";
str1=str1+" | (_)_ __ __ _ "+"\n";
str1=str1+" _ | | | '_ \\ / _` | "+"\n";
str1=str1+"| |_| | | | | | (_| | "+"\n";
str1=str1+" \\___/|_|_| |_|\\__, | "+"\n";
str1=str1+" |___/ "+"\n";
//名字图案
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton8Click(TObject *Sender)
{
str1="";
str1=str1+" +---------------------------------------------+"+"\n";
str1=str1+" |*********************************************|"+"\n";
str1=str1+" |*...........................................*|"+"\n";
str1=str1+" |*.%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%.*|"+"\n";
str1=str1+" |*.%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! %.*|"+"\n";
str1=str1+" |*.%!################################### ! %.*|"+"\n";
str1=str1+" |*.%!#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@# ! %.*|"+"\n";
str1=str1+" |*.%!#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@# ! %.*|"+"\n";
str1=str1+" |*.%!################################### ! %.*|"+"\n";
str1=str1+" |*.%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! %.*|"+"\n";
str1=str1+" |*.%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%.*|"+"\n";
str1=str1+" |*...........................................*|"+"\n";
str1=str1+" |*********************************************|"+"\n";
str1=str1+" +---------------------------------------------+"+"\n";
//矩形图案
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form1->RichEdit1->Lines->Text=str1;
//绘制艺术图案
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Form1->RichEdit1->Lines->Clear();
//清除文本框中的艺图案
}
//---------------------------------------------------------------------------
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -