1樓:未來融合
這是vb5或者6的**目測。
vb的**需要兩部分,一部分是介面的frm檔案,另外一部分就是你看到的**
目前沒有介面的設計,單看**是很難看明白的
大致理解就是
option explicit '變數不定義不許用
private l(7) as integer '定義一個整型陣列l,下標從1~7
private jd(7) as double '定義一個雙精度型別陣列,下標1~7
private zj as double '定義一個雙精度變數
'以上都是全域性變數
private sub form_load() '程式入口
dim i as integer '定義一個整型區域性變數i
for i = 1 to 7 '迴圈7次,每次i的值對應1~7
me.circle (4000, 4000), i * 500 '在介面上畫一個圓,圓心是4000,4000,半徑是i*500,也就是說,迴圈之後,目測會有7個同心圓
shape1(i - 1).top = 4000 - 90 '這個顯然是shape控制元件,而且做了控制元件陣列,由於沒有frm檔案,所以只能猜測了,這個意思是說把對應的這個控制元件的高度變成4000-90
shape1(i - 1).left = 4000 + i * 500 - 90 '同上,把對應的控制元件的左上角的x座標變成後面這個運算出來的結果,這兩句結合起來,目測就是有7個同一高度但是橫著排列的形狀,具體啥形狀要看frm,這裡無法猜測,總之這些形狀基本就是左上角貼著上面的那些同心圓沿著圓心向右打出的射線和這些圓的交點
l(i) = i * 500 'l這個全域性變數對應的值就是500,1000,1500等等
jd(i) = 0 'jd所有7個下標都是0
hscroll1(i - 1).max = 1000 '這是一個橫向的滾動條控制元件,和之前的shape一樣,是個控制元件陣列,這樣看來目測也是有7個,每個的最大值是1000
hscroll1(i - 1).min = 100 '最小值是100
hscroll1(i - 1).value = 100 '初始值是100
hscroll1(i - 1).**allchange = 5 '如果點了滾動條兩側的箭頭,一次滾5
hscroll1(i - 1).largechange = 100 '如果點了滾動條的塊和箭頭中間的區域,一次性滾100
next i '迴圈結束
zj = 10 / 180 * 3.141592654 '這個應該是10度(角度)對應的弧度,目測是備用
end sub
private sub hscroll1_change(index as integer) '當滾動條的值發生變化的時候(使用者滾動)
timer1(index).interval = 1100 - hscroll1(index).value '當滾動條滾動的時候,對應的計數器的觸發頻率會發生變化,簡單來說,滾動條越拉滿,頻率越高,最快1秒10次,最慢1秒1次。
而且從這裡可以看出,計數器控制元件也是個控制元件陣列,可能form_load的時候這些計數器會被預設觸發,十幾年沒有玩vb了,有點忘記了,汗
end sub
private sub timer1_timer(index as integer) '當計數器時間到(每多少毫秒執行一次)
jd(index + 1) = jd(index + 1) + zj 'jd陣列對應的值增加10度角
shape1(index).left = 4000 + l(index + 1) * cos(jd(index + 1)) - 90 '對應的形狀的x座標變成l陣列對應的值然後運算
shape1(index).top = 4000 - l(index + 1) * sin(jd(index + 1)) - 90 'y座標也相對角度進行運算
end sub
'看完以上**,基本就明白這個程式幹嘛的了,雖然沒有frm,但是也看個七七八八,就是,畫了9個同心圓,然後九個形狀,不知道是啥具體的樣子,反正就是9個,圍繞著這9個圓轉動,然後有9個滾動條,控制這些形狀的轉動速度,說到這裡你明白了嗎?感覺就像是模擬了太陽系九個行星的運動(雖然我也知道現在就算8個,而且也不是標準的同心圓),基本就是這個意思了
'求大量打賞
求大神幫我解釋一下這一段每一句組合語言!!!萬分感謝!!! 5
2樓:無畏無知者
每一句都要解釋,太過分了,每一條彙編指令都不懂,那還學什麼呀
誰能幫我解釋一下這段程式的意思?最好每一句特別是開頭那幾句有什麼作用?萬分感謝
求高手幫我翻譯一下這組合語言每一句是什麼意思!!!萬分感謝!!!
3樓:匿名使用者
航天tmpl 29小時
航天tmph 28小時
航天flag1 38小時
p3.7 datain一點
持續性00 h
ljmp**
持續性03 h
ljmp zint0
持續性13 h
ljmp zint1
持續性30小時
**:setb it0
setb ea
setb ex0
setb it1
setb叫
setb p3.6
setb p3.2
mov 74 h,# 0
mov 75 h,# 0
mov 76小時,# 9
mov 77 h,# 0
主營:lcall get_temper
lcall cvttmp
lcall disp1
ajmp主要
init_1820:setb datainnopclr datain
mov r1,3號
tsr1:mov r0 107 #,
djnz r0美元,
djnz r1、tsr1
setb datain
nopnop
nopmov r0、# 25小時
tsr2:jnb datain,tsr3
djnz r0、tsr2
clr flag1博彩
4樓:匿名_熱心網友
for(k=250;k>0;k--)}}
}main()
{int m,n,s;
while(1)
{ redwe=0;greenwe=1;
for(m=5;m>0;m--)
{ yellowwe=0;
t();
yellowwe=1;
5樓:做而論道
微控制器、組合語言,都是和硬體直接相關的。
樓主如果不提供電路,就很難說程式是幹什麼的。
6樓:匿名使用者
太長了,自己慢慢看吧很簡單的
求大神解釋一下各個步驟是什麼意思幹什麼的,小弟就這些分了,幫幫忙吧,萬分感謝
7樓:匿名使用者
不知道你想問什麼
這段**定義了幾個不同的圖形類,僅此
西門子s7-300程式中語句表每一句都是什麼意思,求大神幫忙!
尋求大神幫忙回答一下!萬分感謝!詞語解釋 5
8樓:一品姜老師
精緻有精美細緻雙重含意。精美只是製作美麗了的意思,兩個詞語表達的意思差不多
9樓:雪無時代
精緻和精美就是代表。精緻就是沒有任何的缺點,完美無缺的那種。精美還是有一點瑕疵
哪位大神解釋一下,哪位大神解釋一下這個是什麼意思
你發的這張 是懷孕的表意意思,我不知道是不是那是兩道槓就是懷孕了,如果一道槓就沒有懷孕,你是不是問這個呀?懷孕的結果,不知道你是不是問的這方面的,如果是,那就是懷孕了。哪位大神解釋一下這個是什麼意思 20 按通常簡寫規則,意思是 實時時鐘初始化正常 的意思。誰能解釋一下這是什麼?看起來似曾相識 一尊...
求大神幫忙解釋一下這個c語言的意思以及輸出結果
這段 bai的意思 是已知三角du形兩條邊,求出來zhi三條邊的邊長。程式dao 執行後的輸出回 結果為 答three sides of the are 3.00,4.00,5.00 其實這段 的意思應該只適用於直角三角形,勾三股四弦五,其輸出的英文描述中應該增加直角的定語對三角形進行限定,修改為應...
查詢大神幫忙解釋一下下面這段c語言程式
你是不是用了什麼網頁翻譯,然後給複製過來了?可以的話請發源 額 這個哪個大神能看懂。求大神幫忙解釋一下下面這段c語言程式!這是一個高精度程式,概括地說就是給加法和乘法分別寫了函式,用我們平時筆算 豎式 一樣的方法算。計算int型存不下的大資料時常用這種方法。你具體 不懂可以把那段抽出來追問我。找個大...