一区二区在线播放视频|金发欧美一区在线观看|亚洲五月天激情在线视频|亚洲 欧美 另类 在线|国产私拍福利精品视频网站|精品日韩欧美一区国产三区|亚洲国产成人综合在线电影二|国产91精品高清一区二区三区
問答
產(chǎn)品
|
公司
|
配件目錄
|
EPC底盤號查詢
下載手機汽配人
汽配人首頁 >
問答首頁
50分!VB程序高手進!用VB程序?qū)崿F(xiàn)曲柄連桿機構(gòu)運動
這個程序怎么做?(參考圖片我空間相冊里面有)誰能幫我組出來,源代碼以及控件,控件應該怎么建立?盡量要源代碼,控件的建立用語言描述吧!多謝了!好的答案給50分哈!!
問
提問者:網(wǎng)友
|
2018-08-21
最佳回答
'新建窗體,添加command1,label1,hscroll1,timer1,picture1 Const pi = 3.1415926 Dim angle As Integer Private Sub Form_Load() '調(diào)整空間尺寸,位置及初始參數(shù) Me.ScaleMode = 3 Me.Caption = "曲柄滑塊機構(gòu)的演示" Me.Width = 5000 Me.Height = 3500 Picture1.ScaleMode = 3 Picture1.AutoRedraw = True Picture1.Move 0, 0, Me.ScaleWidth, 150 Command1.Caption = "開始(&B)" Command1.Move 20, 160, 70, 30 Label1.Caption = "速度:" Label1.Move 120, 170, 100, 30 HScroll1.Min = 1 HScroll1.Max = 20 HScroll1.Move 160, 160, 140, 30 Timer1.Interval = 20 Timer1.Enabled = False End Sub Private Sub Command1_Click() Timer1.Enabled = Not Timer1.Enabled If Timer1.Enabled Then Command1.Caption = "暫停(&S)" Else Command1.Caption = "開始(&B)" End If End Sub Sub draw(ByVal ox As Integer, ByVal oy As Integer, ByVal orad As Integer) 'ox,oy圓心坐標,orad半徑 angle = (angle + HScroll1.Value) Mod 360 xo = ox + orad * Cos(angle * pi / 180) '圓周上的
鉸鏈
點坐標(xo,yo) yo = oy + orad * Sin(angle * pi / 180) xs = Sqr((4 * orad) ^ 2 - 10 ^ 2) + xo '滑塊的左邊界x坐標,連桿長度取4*orad,滑塊高度取20(像素) Picture1.BackColor = Picture1.Ba
回答者:網(wǎng)友
產(chǎn)品精選
我來回答
看不清?換一個
提交答案
相關(guān)已解答問題
一臺電腦需要幾個散熱器?
奔馳S級發(fā)動機:V6?排量:3.0?馬力:231?變速箱:7AT?多少元?
包頭市奇瑞儀表電器有限責任公司
別克新君威提車時怎樣檢查
長安鈴木天語SX4??手動?精英型??可以到云浮上牌嗎?
重汽豪沃自卸工程車怎么操作自卸
汽車的真皮排擋手柄,以及真皮方向盤使用三年,開始掉皮,黑黑的,有什么辦法處理啊?請各位高手支招!多
超頻三銀子散熱器的問題?
賣一汽大眾4S店會有大眾進口的車賣嗎?
奧迪q5哪有現(xiàn)車
在移動端查看:
50分!VB程序高手進!用VB程序?qū)崿F(xiàn)曲柄連桿機構(gòu)運動
搜索問答
還沒有汽配人賬號?
立即注冊
我要提問
精彩推薦
1
汽車空調(diào)?按AC鍵燈亮就是壓縮機不啟動
2
歐曼GTL430濰柴發(fā)動機油耗大嗎
3
請問萬用表測通斷檔的數(shù)值有什么意義嗎?
4
48v電動車用60V電瓶?可以嗎
5
東風本田思域原車導航支持什么視頻格式
6
奇瑞e3的車門喇叭是幾寸的?
7
綠駒電動車(4電瓶)入手2300元,騎了一年半,現(xiàn)在能賣多少錢啊
8
明年想在南陽買輛出租車開,需要多少錢?出租車牌好上嗎?請給些建議
9
大眾汽車?有個距離報警的系統(tǒng)叫什么,就是車子?前?后?左?右?跟其他東西太接近都會滴滴的響
10
五菱榮光碳罐壞了有什么現(xiàn)象
周邊商家推薦
周邊產(chǎn)品推薦
相關(guān)問答
新車側(cè)翻,發(fā)動機連桿和軸瓦受損,更換后是否影響使用?需注意什么?急盼各位高人指點。謝謝。
瓦特連桿是獨立懸架嗎
曲軸上的連桿如何安裝
曲軸連桿怎樣現(xiàn)場探傷?
扭力梁式半獨立懸架與多連桿獨立懸架 哪種好一點?
ZS1100單缸柴油機?曲軸?大小瓦?連桿?冒白煙?放炮
銳志的前后輪支架的材質(zhì)!!還有后懸架是四連桿獨立懸掛么?
英朗的創(chuàng)新性瓦特連桿我們能加裝嗎?
哈佛H2后懸掛是幾連桿?
濰柴發(fā)動機連桿緊多少公斤
產(chǎn)品精選
多連桿
連桿軸承
連桿
連桿瓦
汽車連桿
連桿機構(gòu)
連桿
連桿瓦
連桿瓦
曲軸連桿
優(yōu)勢廠家
多連桿廠家
連桿廠家
連桿瓦廠家
汽車連桿廠家
連桿螺栓廠家
連桿廠家
連桿廠家
連桿瓦廠家
連桿瓦廠家
連桿總成廠家
圖片大全
多連桿圖片
連桿圖片
連桿瓦圖片
連桿螺栓圖片
連桿機構(gòu)圖片
連桿圖片
連桿瓦圖片
連桿瓦圖片
連桿總成圖片
曲軸連桿圖片
推薦主題
連桿
連桿瓦
汽車連桿
連桿螺栓
連桿
連桿
連桿瓦
連桿瓦
連桿總成
曲軸連桿
本頁是網(wǎng)友提供的關(guān)于“50分!VB程序高手進!用VB程序?qū)崿F(xiàn)曲柄連桿機構(gòu)運動”的解答,僅供您參考,汽配人網(wǎng)不保證該解答的準確性。
協(xié)議規(guī)則
服務協(xié)議
交易規(guī)則
注冊新用戶
幫助中心
網(wǎng)站服務
汽配旺鋪
網(wǎng)價查詢
商用車EPC查詢
營銷寶
特色市場
商用車市場
乘用車市場
東風市場
重汽市場
陜汽市場
一汽市場
北汽市場
江淮市場
專用汽車
地方分站
江蘇分站
廣東分站
山東分站
吉林分站
專用車分站
河南分站
十堰產(chǎn)業(yè)帶
云南分站
陜西市場
移動端
手機登錄:m.qipeiren.com
iPhone
Android
關(guān)于我們
|
友情鏈接
|
汽車配件批發(fā)
|
汽車配件圖片
|
汽車配件大全
|
汽配問答
|
汽配廠家
|
汽配品牌
|
汽配主題
|
汽配城
|
鄂ICP備14009261號
經(jīng)營許可證編號:鄂B2-20140114
服務熱線:0719-8311727
Copyright © 2005-2024 十堰億脈科技有限公司 版權(quán)所有
鄂公網(wǎng)安備 42030202000345號