Çë½ÌСÎÊÌ⣺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=")))
Ïà¹ØÎÊ´ð£º
ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......
Çë¸÷λָµãÏ£º³ÌÐò´úÂëÈçÏÂmingchen = "C:\Îļþ·¾¶\"
cat = New ADOX.Catalog
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & min ......
ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ
googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ
Ö±½Óµ÷²éÓþͿÉÒÔÁË
Ãæ¶ÔÃÀÅ® ......
vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£
±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......
Õâ¾ä»°ÎÒ²»Ì«Ã÷°×£¬vbÔ´Âë¸ÃÔõô×ö£¿Ð»Ð»
ÖÆ×÷Ò»¸öupdate.exeרÃÅÓÃÀ´Éý¼¶£¬Ö´ÐÐÕâ¸öupdateµÄʱºò£¬³ÌÐòʹÓÃapiº¯ÊýURLDownloadToFile½«http://update.8888.cn/MiniDor/version.iniÏÂÔØÏÂÀ´£¬È»ºóÓ뵱ǰ°æ±¾±È½Ï°æ± ......