483源碼
Ⅰ 有會編寫485通訊C程序的嗎
//-----------------------函數聲明，變數定義---------------------
#include <reg51.h>
sbit RE_DE=P1^0;
#define COUNT 10 // 定義接收緩沖區大小
#define Slaver_NUM 10
unsigned char bdata flag; //在可位定址去定義一個標志變數
sbit time_over_flag =flag^0; //接收超時標志
unsigned char buffer[COUNT]; //定義緩沖區
unsigned char point; //定義緩沖區位置指示
unsigned char Slave_AD[Slaver_NUM]; //定義有效地址存放區
unsigned char ADD_num; //有效地址個數
unsigned char idata count_10ms; //用於表示有多少次10ms中斷
unsigned char idata send_data[7]={
0x31,0x32,0x33,0x34,0x35,0x36,0x37}; //與定義發送數據，共7位
void UART_init(); //串口初始化函數
void COM_send(void); //串口接收函數
unsigned char CLU_checkdata(void); //計算校驗位函數
//---------------------------------------------------------------
// 函數名稱： UART_init()串口初始化函數
// 函數功能： 在系統時鍾為11.059MHZ時，設定串口波特率為9600bit/s
// 串口接收中斷允許，發送中斷禁止，設定定時器中斷允許
//---------------------------------------------------------------
void UART_init()
{
//初始化串列設置
SCON =0x58; //選擇串口工作方式為1，打開接收允許,TB8=1
TMOD =0x21; //定時器1工作在方式2，定時器0工作在方式1
TR1 =1; //啟動定時器T1
ES=1; //允許串列口中斷
PS=1; //設計串列口中斷優先順序
//初始化定時器1
TH1 =0xfd; //實現波特率9600（系統時鍾11.0592MHZ）
ET1 =0; //定時器1中斷禁止
}
//---------------------------------------------------------------
// 函數名稱： timer0_init()初始化定時器0
// 函數功能： 設置timer0工作模式
//---------------------------------------------------------------
void timer0_init()
{
time_over_flag=0;
count_10ms=0;
ADD_num=0;
TL0=0x0F0; //T0用於產生10ms的中斷
TH0=0x0D8; //50次T0中斷產生1次超時溢出
ET0=1; //允許定時器0中斷
}
//---------------------------------------------------------------
// 函數名稱： system_init()系統初始化
// 函數功能： 調用串口、定時器初始化函數，完成系統初始化
//---------------------------------------------------------------
void system_init(void)
{
//系統總設置
UART_init();
timer0_init();
EA =1; //單片機中斷允許
}
//---------------------------------------------------------------
// 函數名稱： com_interrup()串口接收中斷處理函數
// 函數功能： 接收包括起始位"S"在內的十位數據到數據緩沖區
//---------------------------------------------------------------
com_interrupt(void) interrupt 4 using 3
{
unsigned char RECEIVR_buffer;
if(RI) //處理接收中斷
{RI=0; //清除中斷標志位
RECEIVR_buffer=SBUF; //接收串口數據
if(point==0) //如果還沒有接收到起始位
{
if(RECEIVR_buffer==0xFE) //判斷是否起始標志位
{
buffer[point++]=RECEIVR_buffer;//把接收到的數據放入接收緩存區
}
else
point=0; //不是，繼續等待起始位
}
else if(point>0&&point<10) //判斷是否接收夠十位數據
buffer[point++]=RECEIVR_buffer; //不夠，把接收到的數據放入接收緩存區
else if(point==10)
{
if(RECEIVR_buffer==0xEF) //判斷結束標志位是否正確
{
buffer[point]=RECEIVR_buffer; //把接收到的數據放入接收緩存區
Slave_AD[ADD_num++]=buffer[2]; //把接收到的地址放到地址存儲器
//表示該地址有有效設備
}
else
point=0; //不是，繼續等待起始位
}
else point=0; //緩沖區已滿，清除緩存區內數據重新接收
}
if(TI) //串口發送中斷
{
TI=0; //清除發送中斷
}
}
//---------------------------------------------------------------
// 函數名稱： timer0_interrup()
// 函數功能：定時器T0中斷服務程序
// 函數說明：T0枚10ms中斷一次，連續中斷50次置time_over_flag=1；
//---------------------------------------------------------------
timer0_interrupt(void) interrupt 1 using 2
{
count_10ms++;
if(count_10ms==50)
{
ET0=0; //關閉定時器T0中斷
TR0=0; //停止定時器T0
time_over_flag=1;//設置接收超時標志
count_10ms=0x00; //10ms計數器復位
}
else
{
TL0=0x0F0; //重裝定時器初始值
TH0=0x0D8;
}
}
//---------------------------------------------------------------
// 函數名稱： COM_send()串口發送函數
// 函數功能： 把數據緩沖區的十位數據發送出去
//---------------------------------------------------------------
void COM_send(void)
{
RE_DE=1; //設置MAX483進入發送狀態
for(point=0;point<=10,TI=1;point++) //連續發送十位數據
//把緩存區的數據都發送到串口
{
SBUF=buffer[point];
TI=0;
}
RE_DE=0; //設置MAX483進入接收狀態
}
//---------------------------------------------------------------
// 函數名稱： write_buffer()
// 函數功能： 寫發送緩沖區十位數據
//---------------------------------------------------------------
void write_buffer(unsigned char slaver_add)
{
unsigned char i;
TB8=1; //打開多機通信方式
buffer[0]=0xFE;
buffer[1]=slaver_add;
for(i=2;i<9;i++) //連續發送十位數據
//把緩存區的數據都發送到串口
{
buffer[i]=send_data[i-2];
}
buffer[9]=0xEF;
}
//---------------------------------------------------------------
// 函數名稱： 主函數
// 函數功能： 調度個子函數，完成通信過程
//---------------------------------------------------------------
void main(void)
{
unsigned char i=0;
system_init(); //系統初始化
do{ //查旬0到10好地址有沒有對應設備
write_buffer(i++); //寫查詢第i號設備的發送信息
COM_send(); //調用發送函數，完成發送
timer0_init(); //完成一次查詢，重新初始定時器0，准備下一次查詢
}
while(time_over_flag&&i<10);
}
這個比較詳細注釋，希望對你有所幫助吧！
Ⅱ 源代碼中 int 類型的是否可以對應資料庫中tinyint類型的
不可以。資料庫中：INT型數據的表數范圍是從-2,147,483,647到2,147,483,647的整數 SMALLINT 型數據可以存儲從-32768到32768的整數 TINYINT 型的欄位只能存儲從0到255的整數,不能用來儲存負數 你可以查一下你用的腳本語言的數據類型的范圍，再取適合范圍的數據類型；但應該資料庫的數值范圍應大於等於源碼中使用的數據范圍。
Ⅲ 網站代碼
暈倒 你完全可以使用一個軟體處理一下 好像叫做 影音探測器 直接可以探測到在線播放的文件的真正地址
Ⅳ 編一段程序(只有代碼段)讓顯示器上輸出26個字母「AB.....Z」. PS:可追加懸賞
第一個程序：畫一百個同心圓
第一步：復制下面的紅色代碼
第二步：在模型空間按快捷鍵Alt+F8，出現宏窗口
第三步：在宏名稱中填寫C100，點「創建」、「確定」
第四步：在Sub c100()和End Sub之間粘貼代碼
第五步：回到模型空間，再次按Alt+F8，點擊「運行」
Sub c100()
Dim cc(0 To 2) As Double '聲明坐標變數
cc(0) = 1000 '定義圓心座標
cc(1) = 1000
cc(2) = 0
For i = 1 To 1000 Step 10 '開始循環
Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) '畫圓
Next i
End Sub
也許您還看不懂上面的代碼，這沒有關系，只要能把同心畫出來就可以了，祝您成功。
第二課 編程基礎
本課主要任務是對上一課的常式進行詳細分析
下面是源碼：
Sub c100()
Dim cc(0 To 2) As Double '聲明坐標變數
cc(0) = 1000 '定義圓心座標
cc(1) = 1000
cc(2) = 0
For i = 1 To 1000 Step 10 '開始循環
Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) '畫圓
Next i
End Sub
先看第一行和最後一行：
Sub C100()
……
End Sub
C100是宏的名稱，也叫過程名稱，當用戶執行C100時程序將運行sub 和end sub之間的所有指令。
第二行：
Dim cc(0 To 2) As Double '聲明坐標變數
後半段「'聲明坐標變數」自動變為綠色字體，它是代碼語句的注釋，它不會影響程序運行，它的作用是告訴閱讀者程序員的想法。對於簡單的程序，一般不需要寫注釋，如果要編寫非常復雜的程序，最好要多加註釋，越詳細越好，對於程序員來說，這是一個好習慣。
電腦真正編譯執行的是這條語句：Dim cc(0 To 2) As Double
它的作用就是聲明變數。
Dim是一條語句，可以理解為計算機指令。
它的語法：Dim變數名 As 數據類型
本例中變數名為CC，而括弧中的0 to 2聲明這個CC是一個數組，這個數組有三個元素：CC(0)、CC(1)、CC(2)，如果改為CC(1 to 3)，則三個元素是CC(1)、CC(2)、CC(3)，有了這個數組，就可以把坐標數值放到這個變數之中。
Double是數據類型中的一種。ACAD中一般需要定義坐標時就用這個數據類型。在ACAD中數據類型的有很多，下面兩個是比較常用的數據類型，初學者要有所理解。
Long（長整型），其范圍從 -2,147,483,648 到 2,147,483,647。
Variant 它是那些沒被顯式聲明為其他類型變數的數據類型，可以理解為一種通用的數據類型，這是最常用的。
下面三條語句
cc(0) = 1000 '定義圓心座標
cc(1) = 1000
cc(2) = 0
它們的作用是給CC變數的每一個元素賦,值其順序是X、Y、Z坐標。
For i = 1 To 1000 Step 10 '開始循環
……
Next i '結束循環
這兩條語句的作用是循環運行指令，每循環一次，i值要增加10，當i加到 1000時，結束循環。
i也是一個變數，雖然沒有聲明i變數，程序還是認可的，VB不是C語言，每用一個變數都要聲明，不聲明就會報錯。簡單是簡單了，這樣做也有壞處，如果不小心打錯了一個字母，程序不會報錯，如果程序很長，那就會出現一些意想不到的錯誤。
step後面的數值就是每次循環時增加的數值，step後也可以用負值。
例如：For i =1000 To 1 Step -10
很多情況下，後面可以不加step 10
如：For i=1 to 100，它的作用是每循環一次i值就增加1
Next i語句必須出現在需要結束循環的位置，不然程序沒法運行。
下面看畫圓命令：
Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10)
Call語句的作用是調用其他過程或者方法。
ThisDrawing.ModelSpace是指當前CAD文檔的模型空間
AddCircle是畫圓方法
Addcicle方法需要兩個參數：圓心和半徑
CC就是圓心坐標，i*10就是圓的半徑，本例中，這些圓的半徑分別是10、110、210、310……
本課到此結束，下面請完成一道思考題：
1.以(4,2)為圓心，畫5個同心圓，其半徑為1-5
第三課 編程基礎二
繪制三維多段線時X、Y值在屏幕上用滑鼠選取，Z值用鍵盤輸入
本課將講解這個問題。
為了簡化程序，這里用多條直線來代替多段線。以下是源碼：
Sub myl()
Dim p1 As Variant '申明端點坐標
Dim p2 As Variant
p1 = ThisDrawing.Utility.GetPoint(, "輸入點:") '獲取點坐標
z = ThisDrawing.Utility.GetReal("Z坐標:") '用戶輸入Z坐標值
p1(2) = z '將Z坐標值賦予點坐標中
On Error GoTo Err_Control '出錯陷井
Do '開始循環
p2 = ThisDrawing.Utility.GetPoint(p1, vbCr & "輸入下一點:") '獲取下一個點的坐標
z = ThisDrawing.Utility.GetReal("Z坐標:") '用戶輸入Z坐標值
p2(2) = z '將Z坐標值賦予點坐標中
Call ThisDrawing.ModelSpace.AddLine(p1, p2) '畫直線
p1 = p2 '將第二點的端點保存為下一條直線的第一個端點坐標
Loop
Err_Control:
End Sub
先談一下本程序的設計思路：
1、獲取第一點坐標
2、輸入第一點Z坐標
3、獲取第二點坐標
4、輸入第二點Z坐標
5、以第一、二點為端點，畫直線
6、下一條線的第一點=這條線的第二點
7、回到第3步進行循環
如果用戶沒有輸入坐標或Z值，則程序結束。
首先看以下兩條語句：
p1 = ThisDrawing.Utility.GetPoint(, "輸入點:") 『獲取點坐標
……
p2 = ThisDrawing.Utility.GetPoint(p1, vbCr & "輸入下一點:") '獲取下一個點的坐標
這兩條語句的作用是由用戶輸入點用滑鼠選取點坐標，並把坐標值賦給p1、p2兩個變數。ThisDrawing.Utility.GetPoint（）在ACAD中這是最常用的方法之一，它需要兩個參數，在逗號前面的參數應該是一個點坐標，它的作用是在屏幕上畫一條線，前一個端點位於點坐標位置，後一個端點跟隨滑鼠移動，逗號之前可以什麼都不填，這時沒有線條會跟隨滑鼠移動，但逗號必須保留。
逗號後面使用一串字元，程序在命令行顯示這串字元，這不難理解。
VbCr通常代表一個回車符，而在這個語句中，它的作用是在命令行不顯示「命令：」
&的作用是連接字元。舉例：
「愛我中華 」&」抵制日貨 」&」從我做起」
z = ThisDrawing.Utility.GetReal("Z坐標:") '用戶輸入Z坐標值
由用戶輸入一個實數
On Error GoTo Err_Control '出錯陷井
……
Err_Control:
On Error是出錯陷井語句，在程序出錯時將執行On Error 後面的語句
GoTo Err_contorl 是程序跳轉語句，它的作用是在程序中尋找Err_control:，並執行這一行後面的語句，本例中Err_Control:後就是結束宏，所以只要出現錯誤，程序中止。
Do '開始循環
……
Loop 『結束循環
這個循環就歷害了，它會無休止地進行循環，好在本例中已經有了一個出錯陷井，當用戶輸入回車時，由於程序沒有得到點或坐標，程序出錯，跳出循環，中止程序。如果要人為控制跳出循環，可以在代碼中用Exit Do語句跳出循環。在For 變數 和Next 變數之間如果要跳出循環，那麼只要在循環體內加一個Exit for 就可以跳出循環，關於這方面的常式以後會講到。
Call ThisDrawing.ModelSpace.AddLine(p1, p2) '畫直線
畫直線方法也是很常用的，它的兩個參數是點坐標變數
本課到此結束，請做思考題：
連續畫圓，每次要求用戶輸入圓心、半徑，當用戶不再輸入圓心或半徑時程序才退出
第四課 程序的調試和保存
人非聖賢，孰能無過，初學者在編寫復雜程序時往往會出現一些意想不到的錯誤，所以程序的調試顯得尤為重要，隨著學習的深入，以後我們需要經常進行程序調試。事實上，對於那些資深程序員來說，調試程序也是一項不可或缺的重要工作。
首先，在程序輸入階段，應該充分利用VBA編輯器的智能功能。當你在寫代碼時，輸入一些字母後，編輯器可以自動列出合適的語句、對象、函數供你選擇，可以用上下鍵選擇，然後按TAB鍵（它位於「Q」鍵左邊）確認。當輸入一個回車符後程序會自動對這條語句進行分析，如果出現錯誤就會提示。
我們經常碰到的麻煩是程序的運行結果和預計的不一樣，一般我會這樣做：首先要想一想可能是哪一個變數有問題，然後去監視這個變數(或表達式)，在程序合適的位置設置斷點，這樣可以使程序停下來看一看這個變數有沒有按照我的設想在變化。下面我舉一個簡單的例子，先看源代碼：
sub test()
for i=2 to 4 step 0.6
next i
end sub
這是一個非常簡單的循環，每一次循環i便會增加0.6，當循環3次後i值就變為4.4，但問題是每一次循環時i值變為多少？
第一步：在菜單中選「調試」—「添加監視」，在表達試中填「i」，點擊確定，這時你會看到臨視窗口中會多一行。
第二步：把游標移到代碼窗口中的「next i」行，按一下「F9」，於是每當程序運行到這里時就會暫停了。
好，一切就緒，請按F5執行程序，在監視窗口中C值立刻變為2，再按F5繼續，C值為2.6，再按幾次F5，直到程序結束，這樣我們就成功監視了C值的變化。
第三步：在next i行再按一次F9，清除斷點。監視的表達式的右鍵菜單選擇「刪除監視」。
另外，還可以用「逐語句」、「逐過程」、「運行到游標處」等方法進行調試，這些都在調試菜單中，操作比較簡單，請讀者自行領悟。
到目前為止，我們所做的工程都是「嵌入式工程」，它只是嵌入在當前的Autocad圖形文件中， 以後打開這個文件時代碼才會載入，如果別的dwg文件也要使用，那就需要把代碼導出為.bas文件，供其他dwg文件導入。在VBA編輯器的「文件」菜單中有這兩個功能，一試便知。
ACAD VBA還有一種工程叫「通用式工程」，只要進入ACAD就可以運行，程序可以在不同用戶、不同的圖形文件中共享，但是由於VBA功能太強，有時候會出現一些意想不到的事情，所以在學習階段請暫時不要這樣做。
本課結束，請做思考題；監視下列代碼中的i和j的值，注意，此題雖然要監視2個變數，但是在代窗口中只要設置1個斷點就足夠了。
sub test()
for i=2 to 4 step 0.6
for j=-5 to 2 step 5.5
next j
next i
end sub
第五課 畫函數曲線
先畫一組下圖拋物線。
下面是源碼：
Sub myl()
Dim p(0 To 49) As Double '定義點坐標
Dim myl As Object '定義引用曲線對象變數
co = 15 '定義顏色
For a = 0.01 To 1 Step 0.02 '開始循環畫拋物線
For i = -24 To 24 Step 2 '開始畫多段線
j = i + 24 '確定數組元素
p(j) = i '橫坐標
p(j + 1) = a * p(j) * p(j) / 10 '縱坐標
Next i '至此p(0)-p(40)所有元素已定義，結束循環
Set myl = ThisDrawing.ModelSpace.AddLightWeightPolyline(p) '畫多段線
myl.Color = co '設置顏色屬性
co = co + 1 '改變顏色，供下次定義曲線顏色
Next a
End sub
為了鼓勵大家積極思考，從本課開始，我不再解釋每一條語句的作用，只對以前沒有提過的語句進行一些解釋，也許你一時很難明白，建議用上一課提到的跟蹤變數、添加斷點的辦法領悟每一條語句的作用。
在跟蹤變數p時請在跟蹤窗口中單擊變數p前的+號，這樣可以看清數組p中每一個元素的變化。
ACAD沒有現成的畫拋物線命令，我們只能用程序編寫多段線畫近似拋物線。理論上，拋物線的X值可以是無限小、無限大，這里取值范圍在正負24之間。
程序第二行：Dim myl As Object '定義引用曲線對象變數
Object也是一種變數類型，它可以把變數定義為對象，本例中myl變數將引用多段線，所以要定義為Objet類型。
看畫多段線命令：
Set myl = ThisDrawing.ModelSpace.AddLightWeightPolyline(p) '畫多段線
其中括弧中的p是一個數組，這個數組的元素數必須是偶數，每兩個元數作為一個點坐標。
等號前面部分「Set myl」的作用就將myl變數去引用畫好的多段線。
myl.Color = co '設置顏色屬性。在ACAD中，顏色可以用數字表示，本例中co會增值，這樣就會有五彩繽紛的效果。
本課第二張圖：正弦曲線，下面是源碼：
Sub sinl()
Dim p(0 To 719) As Double '定義點坐標
For i = 0 To 718 Step 2 '開始畫多段線
p(i) = i * 2 * 3.1415926535897 / 360 '橫坐標
p(i + 1) = 2 * Sin(p(i)) '縱坐標
Next i
ThisDrawing.ModelSpace.AddLightWeightPolyline (p) '畫多段線
ZoomExtents '顯示整個圖形
End Sub
p(i) = i * 2 * 3.1415926535897 / 360 '橫坐標
橫坐標表示角度，後面表達式的作用是把角度轉化弧度
ZoomExtents語句是縮放命令，它的作用是顯示整個圖形，消除圖形以外的區域
本課思考題：畫一條拋物線：y=0.5*x*x+3，其中X取值范圍在正負50之間
第六課 數據類型的轉換
上一節課我們用一個簡單的公式把角度轉化為弧度，這樣做便於大家理解。不過VBA中有現成的方法可以轉換數據類型。
我們舉例說明：
jd = ThisDrawing.Utility.AngleToReal(30, 0)
這個表達式把角度30度轉化為弧度，結果是.523598775598299。
AngleToReal需要兩個參數，前面是表示要轉換角度的數字，而後面一個參數可以取值為0-4之間的整數，有如下意義：
0：十進制角度；1：度分秒格式；2：梯度；3：弧度；4：測地單位
例：id= ThisDrawing.Utility.AngleToReal("62d30' 10""", 1)
這個表達式計算62度30分10秒的弧度
再看將字元串轉換為實數的方法：DistanceToReal
需要兩個參數，前一個參數是表示數值的字元串，後面可以取值1-5，表示數據格式，有如下意義：
1：科學計數；2：十進制；3：工程計數——英尺加英寸；4：建築計數——英尺加分數英寸；5：分數格式。
例：以下表達式得到一個12.5的實數
temp1 = ThisDrawing.Utility.DistanceToReal("1.25E+01", 1)
temp2 = ThisDrawing.Utility.DistanceToReal("12.5", 2)
temp3 = ThisDrawing.Utility.DistanceToReal("12 1/2", 5)
而realtostring方法正好相反，它把一個實數轉換為字元串。它需要3個參數
第一個參數是一個實數，第二個參數表示數據格式，含義同上，最後一個參數表示精確到幾位小數。
temp1= ThisDrawing.Utility.RealToString(12.5, 1, 3)
得到這個字元串：「1.250E+01」，
下面介紹一些數型轉換函數：
Cint，獲得一個整數，例：Cint(3.14159) ，得到3
Cvar，獲得一個Variant類型的數值，例：Cvar("123" & "00")，得到」12300」
Cdate，轉換為date數據類型，例：MyShortTime = CDate("11:13:14 AM")
下面的代碼可以寫出一串數字，從000-099。
Sub test()
Dim add0 As String
Dim text As String
Dim p(0 To 2) As Double
p(1) = 0 'Y坐標為0
p(2) = 0 'Z坐標為0
For i = 0 To 99 '開始循環
If i < 10 Then '如果小於10
add0 = "00" '需要加00
Else '否則
add0 = "0" '需要加0
End If
text = add0 & CStr(i) '加零，並轉換數據
p(0) = i * 100 'X坐標
Call ThisDrawing.ModelSpace.AddText(text, p, 4) '寫字
Next i
End Sub
重點解釋條件判斷語句：
If 條件表達式 Then
……
Else
……
End if
如果滿足條件那麼程序往下執行，到else時不再往下執行，直接跳到End if後面
如果不滿足條件，程序跳到else後往下運行。
Call ThisDrawing.ModelSpace.AddText(text, p, 4) '寫字
這是寫單行文本，需要三個參數，分別是:寫的內容、位置、字高
第七課 寫文字
客觀地說，ACAD寫字功能不夠歷害，而用VBA可以使寫字效率更高。比較正規的做法是把定義文字樣式，用樣式來控制文字的特性。我們還是用實例來學習，先看下面一段代碼，它的作用是先創建一個文字樣式，然後用這個文字樣式寫一段多行文本。
Sub txt()
Dim mytxt As AcadTextStyle '定義mytxt變數為文本樣式
Dim p(0 To 2) As Double '定義坐標變數
p(0) = 100: p(1) = 100: p(2) = 0 '坐標賦值
Set mytxt = ThisDrawing.TextStyles.Add("mytxt") '添加mytxt樣式
mytxt.fontFile = "c:\windows\fonts\simfang.ttf" '設置字體文件為仿宋體
mytxt.Height = 100 '字高
mytxt.Width = 0.8 '寬高比
mytxt.ObliqueAngle = ThisDrawing.Utility.AngleToReal(3, 0) '傾斜角度（需轉為弧度）
ThisDrawing.ActiveTextStyle = mytxt '將當前文字樣式設置為mytxt
Set txtobj = ThisDrawing.ModelSpace.AddMText(p, 1400, "\P" & "此心自光明正大，過人遠矣")
txtobj.LineSpacingFactor = 2 '指定行間距
txtobj.AttachmentPoint = 3 '右對齊（1為左對齊，2為居中）
End Sub
我們看這條語句
Set mytxt = ThisDrawing.TextStyles.Add("mytxt")
添加文本樣式並賦值給mytxt變數，只需要一個參數：文本樣式名
fontfile、height、width、ObliqueAngle是文本樣式最常用的屬性
Call ThisDrawing.ModelSpace.AddMText(p, 1400, "\P" & "此心自光明正大，過人遠矣")
這條語句是寫文本，需要三個參數。第一個參數p是坐標，1400是寬度，最後一個參數是文本內容，其中\p是一個回車符
擴大字元間距用\T數字，例：\T3abc，使文字abc的間距擴大3 部，n取值范圍是0.75-3
在論壇中有一個經常被同好提及的問題：如何使用文字疊加。舉例說明：123\S+0.12^-0.34
\S是格式字元，^是分隔符，前面的數字在上，後面的數字在下。
\C是顏色格式字元，C後面跟一個數字表示顏色
\A是對齊方式，\A0，\A1,\A2分別表示底部對齊、中間對齊和頂部對齊
夠不夠，不夠的話給個郵箱，我再發給你一個pdf文件！
Ⅳ wwe 免費QQ秀
你見過，短短2個月之內，這么多人對一個網游的投訴嗎？
你們見過，除《地下城與勇士》外，進圖會掉，PK會掉，換頻道掉，選擇角色掉，無處不掉的游戲嗎？
你們見過，帳號被盜或被刪，運營商一點解決辦法都沒有的游戲嗎？
你們見過，復活一次需要2元錢，吃一個葯需要幾角錢的游戲嗎？
你們見過，擺攤還需要花3.5元，一套時裝200多，這么貴的游戲嗎？
你們見過，材料N多，如果不花人民幣只給8個物品箱位置的游戲嗎？
你們見過，打著永久免費的幌子，卻和吸血鬼一樣吸食玩家兜里每一分錢的游戲嗎？
你們見過，上線，掉線，上線，掉線，如果你連續幾次這樣，就被封的游戲嗎？
你們見過，1級小號刷50級圖不被封，而辛苦玩家，被亂封號的游戲嗎？
你們見過，給客F打電話，詢問了半天，客F連你是那個伺服器，什麼問題都不問的游戲嗎？
你們見過，這么多騙子的游戲嗎？
你們見過，在官方論壇發帖，就被刪的游戲嗎？難道玩家一點意見都不能題？
玩其他游戲需要熱情，玩DNF需要忍耐！我們是來開心的，不是來開會的！
玩過日服、韓服DNF的玩家都知道，怪的掉率那麼低嗎？合成率那麼低嗎？怪那麼難打嗎？而騰訊卻說沒有修改游戲的源代碼！
為什麼國服這樣掉率低、合成率、怪的AI這樣？就一個原因，騰訊在剝奪玩家的每一分錢。
怪難打，需要買 米勒的協助 復活幣 吧！掉率改低，還是讓玩家買紅、藍、復活吧！
你們騰訊挖空心思就是在欺騙玩家！騙玩家的錢！
然而那？我們花錢了，時裝也買了，紅藍、復活都買了，你們讓玩家得到什麼了？
掉線、無故封號！！
這就是你們對待玩家的方法嗎？每天 188點疲勞有100點浪費在掉線、虛弱上！你們對得起玩家嗎？
下面是自從<地下城與勇士>開放以來的停機維護記錄
3月17日臨時停機維護公告
3月18日停機維護公告
3月24日臨時停機公告
3月25日封測伺服器臨時維護停機公告
3月26日封測伺服器停機公告
3月28日封測伺服器停機公告
4月26日內測伺服器臨時停機維護公告
4月30日網通伺服器臨時停機公告
5月5日內測伺服器臨時停機公告
5月12日內測伺服器停機維護公告
5月14日內測伺服器停機維護公告
全國哀悼日 騰訊所有游戲停止運營三天
5月28日二次內測伺服器臨時停機公告
5月29日二次內測伺服器臨時停機公告
5月30日二次內測伺服器臨時停機公告
5月31日二次內測伺服器臨時停機公告
5月31日臨時停機延長公告
6月3日二次內測伺服器臨時停機公告
6月10日二次內測伺服器臨時停機公告
二次內測伺服器臨時停機公告
二次內測伺服器臨時停機延長公告
6月12日二次內測伺服器臨時停機公告
內測停機及新體驗服開放公告
二次內測伺服器臨時停機公告
6月14日二次內測臨時停機公告
6月21日00:30-01:30部分伺服器臨時停機公告
6月24日伺服器臨時停機更新維護公告
6月25日伺服器停機延時公告
6月30日10點-12點伺服器臨時停機更新公告
7月1日凌晨0：00伺服器臨時停機公告
7月3日2:30-3:30伺服器臨時停機更新公告
7月4日凌晨伺服器停機更新預告
7月4日0點-6點伺服器停機更新公告
7月4日停機更新結束時間延長公告
7月8日上午8點-12點伺服器例行更新維護公告
7月10日凌晨3點-5點伺服器臨時更新維護公告
7月13日凌晨4點起伺服器分階段臨時維護公告
7月15日8點-12點伺服器例行維護更新公告
7月15日部分大區停機更新結束時間延後公告
7月16日凌晨2點-5點伺服器分階段停機維護公告
7月22日上午8點-10點伺服器例行維護更新公告
7月23日22：30上海一區臨時停機公告
7月29日上午6點-10點伺服器例行維護更新公告
8月5日上午6點-10點伺服器例行維護更新公告
8月8日11：00東北3區臨時停機公告
8月9日0點-2點全區全服臨時停機公告
8月12日上午9點-11點伺服器例行維護公告
8月14日凌晨0點-4點伺服器例行維護更新公告
8月15日凌晨1點-3點伺服器臨時維護更新公告
8月19日上午8點-12點伺服器例行維護更新公告
8月19日廣東1區例行更新維護延時公告
8月21日00:30-01:30華北1區臨時停機公告
8月22日凌晨0：00-2：00全區全服臨時停機公告
8月26日上午8點-12點伺服器例行維護更新公告
8月29日凌晨0點-4點伺服器臨時維護更新公告
9月2日上午6點-10點伺服器例行維護更新公告
9月4日上午8點-10點伺服器臨時維護公告
9月9日上午6點-12點伺服器例行維護更新公告
9月11日上午7點-9點伺服器臨時維護公告
9月12日上午8點-10點全區全服臨時停機公告
9月16日上午6點-10點伺服器例行維護更新公告
9月17日上午6點-10點全區全服臨時停機公告
9月19日上午8點-12點全區全服臨時停機公告
封號永久年！
請問游戲的財產是不是我們的財產！
TX這樣封我們的號那不是封我的財產！
那是我們的財產他不給我們那在法律上不強制搶劫嗎？
那不是欺騙嗎？我在QQ上沖了3個月黑鑽300W多點卷！就這樣被封他娘的這樣合理嗎？
難到就是那些用掛的玩家有錯嗎？
他們封不了外掛是他們自己的技術問題
竟然封我們的帳號！
大家都沒見過暗個游戲會封玩家的帳號啊！（除了MU，不過他不是封了玩家的帳號使得這個游戲沒人玩嗎）
大家盡量的投訴！！
把DNF投訴到沒人玩為止！！
這個好公司不知道模仿抄襲了多少公司的作品！
為什麼就沒權威性的管理機構來查封這個好公司捏！
日***馬化騰你這個孫子！
你說盛大抄襲你DNF
你又知道你抄襲了多少
鬼吹燈的作品人被關了3年
那我問你該關幾年
你說你 SB不SB
模仿世紀的跑跑卡丁你車開個QQ飛車！
模仿久游的勁物團你開個QQ玄舞！
模仿盛大的冒險島你開個QQ三國！
模仿珊瑚QQ你來個騰迅QQ還說珊瑚抄襲你（你***真不要臉，孫子我上網都14年了）
模仿光通的特種部隊你開個穿越火線！
模仿盛大的對戰平台你開個QQ平台！
模仿51空間你開個QQ空間！
模仿123輸入法你來個QQ輸入法！
模仿盛大的泡泡堂年一開個QQ堂！
模仿掏寶你來個拍拍網！
模仿完美的誅仙你開個尋仙！
你說你該關幾年！
就***的紅鑽黃鑽是你那腦殘想出來1
有什麼學什麼你***還真是孫子！
說什麼哪家公司哪家公司抄襲你，你還真***說話像放P一樣
好現在你封我號（而且是無緣無故被封）！
之前被封3天我都不忍住！
在你這個好游戲投入了多少時間多少金錢！
現在你就那麼一封！
你娘的有沒有想過玩家是什麼感受啊！
你娘的又沒什麼提示就直接封我號！（客服的電話更離譜，打過去沒有話物人接，說的都是一些廢話，請按什麼什麼鍵進入什麼什麼，你去看下別家公司游戲的客服電話看看）
要是你們不解封我們的號！！！
我會告到你有答復為止！！！
你一個馬化騰能斗得過廣大網民嗎？
封號後你有在官方網上解釋de嗎
大家都別玩騰訊的游戲了 一個比一個垃圾 凌晨還JB卡的要死 騰訊的人都死光了 沒人管伺服器質量了 我們還玩P啊 都好好想想你們的將來吧
告鬼吹燈.DNF其實模仿的鬼吹燈
最好的還是盛大網路.穩定得多
給DNF改的名字叫：掉線城與倒霉勇士或者是掉線成於虛弱勇士~哎
上次玩DNF55級了.打深淵。後來爆個粉.突然來個 網 絡 中 斷
Ⅵ pudn源碼下載
http://yunpan.cn/cm4HdD5gJCjfx （提取碼：87e7）