Çë½ÌСÎÊÌ⣺VB¶ÁÈ¡TXT

Ïë¶ÁÈ¡setting.txtÀïµÄS_speedµÄÊý¾Ý9£º
[setting]
lp=69
mp=67
La=28
Im=58
S_speed=9
W=120
X=180
Y=140
Z=200

Ϊʲô¶Á²»³öÀ´£¬Open App.Path & "\setting.txt" For Input As #S_speedÕâÐб¨´í£¡
VB code:
Open App.Path & "\setting.txt" For Input As #S_speed
Line Input #S_speed, speed
Close #S_speed
result& = MMC_sendCommand("M" & "N" & "," & "S" & "V" & Round(speed * 145636))

---

#S_speed?

---

ÊÇµÄ Ôõô³ö´íÄØ

---

ÊǶÁÈ¡ini»¹ÊǶÁtxtÎļþ,´úÂ벻ȫ,²»ÖªµÀ#S_speedÊÇʲô,ÕâÀï#ºóÓ¦¸úÊý×Ö

---

¶ÁÈ¡iniÎļþ£¬¾ÍÊÇ°ÑS_speedΪ9µÄÊý×Ö¶ÁÈ¡³öÀ´

---

VB code:
Private Sub Command1_Click()
Dim S_speed As Integer
Dim speed As String, S_speed_value As Integer

S_speed = FreeFile
Open App.Path & "\setting.txt" For Input As #S_speed
Do While Not EOF(S_speed)
speed = ""
Line Input #S_speed, speed
If InStr(speed, "S_speed=") Then '×¢Òâ¿´ÄãµÄ S_speed= ÖмäÓÐûÓпոñ
S_speed_value = Trim(Mid(speed, InStr(speed, "S_speed=")))