Private Sub Command1_Click()
'生成銑削凹圓臺程式
Dim G_program As String
粗加工軟體編程代碼:
D_program = G_program & "變數說明：" & vbCrLf
D_program = G_program & "#1=A//圓臺深度" & vbCrLf
D_program = G_program & "#2=B//大端半徑" & vbCrLf
D_program = G_program & "#3=C//小端半徑" & vbCrLf
D_program = G_program & "#4=D//總銑削層數" & vbCrLf
D_program = G_program & "#5=E//Z層步距" & vbCrLf
D_program = G_program & "#6=F//相鄰半徑增量" & vbCrLf
D_program = G_program & "#7=G/Z軸深度" & vbCrLf
D_program = G_program & "#8=H/刀具半徑" & vbCrLf
D_program = G_program & vbCrLf
D_program = G_program & "粗加工程式：" & vbCrLf
D_program = G_program & "O0001" & vbCrLf
D_program = G_program & " G15 G17 G21 G40 G49 G54 G80 G90 M03 S" & Text5.Text & vbCrLf
D_program = G_program & " G90 G54 G00 X0 Y0 Z0" & vbCrLf
D_program = G_program & " A" & Text1.Text & vbCrLf
D_program = G_program & " B" & Text2.Text & vbCrLf
D_program = G_program & " C" & Text3.Text & vbCrLf
D_program = G_program & " D" & Text6.Text & vbCrLf
D_program = G_program & " E" & Text7.Text & vbCrLf
D_program = G_program & " F" & Text8.Text & vbCrLf
D_program = G_program & " G" & Text9.Text & vbCrLf
D_program = G_program & " H" & Text4.Text & vbCrLf
D_program = G_program & " N10 G01 Z[#9]F1000 " & vbCrLf
D_program = G_program & "#110=FIX[[#100-10]/1]" & vbCrLf
D_program = G_program & "G00 X[#100-#110*1-#8] Y0" & vbCrLf
D_program = G_program & "WHILE[#110GE0] DO 1" & vbCrLf
D_program = G_program & "G01 X[#2-#110*1]-#8 Y0 F800" & vbCrLf
D_program = G_program & "G02 I-[#2-#110*1-#8] F1200" & vbCrLf
D_program = G_program & "#110=#110-2" & vbCrLf
D_program = G_program & "END 1" & vbCrLf
D_program = G_program & "#2=#2-#7" & vbCrLf
D_program = G_program & "M05" & vbCrLf
D_program = G_program & "M09" & vbCrLf
D_program = G_program & "M30" & vbCrLf
Text16.Text = G_program
End Sub
uj5u.com熱心網友回復：
提示“缺少運算式”？？？不可能吧！！！！
如果模塊開頭有： Option Explicit
那倒是有可能提示“變數未定義”。
因為程序中定義了 G_program , 而 D_program 則沒定義。
（不過也不排除 D_program 是模塊級變數，或全域變數）
按“一般規律”，你的 D_program 是寫錯變數名的可能性比較大（應該是 G_program ）；
如果 D_program 真是另一個變數的話，那你這一大堆的賦值陳述句，
就只有最后一句： D_program = G_program & "M30" & vbCrLf 有作用了。
并且最后那句對D_program 的賦值，還不如不寫……
直接寫 Text16.Text = "M30" & vbcrlf 就行了。
uj5u.com熱心網友回復：
先看下哪行報錯了，建議把整個程式編譯一次，這樣可以找到出錯的行uj5u.com熱心網友回復：
你確定等號前面是“D_program”嗎？一直在給D_program這個變數賦值，然后最后用的G_program來顯示？你本意是不是把那些字串都連接起來一并顯示？
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/35134.html
標籤：控件
上一篇：VB資料記錄與存盤