㈠ 求 機械原理課程設計凸輪設計vb程序
'參數初始化
Dim r0%, r1%, h%, e%
Dim a1%, a01%, a2%, a02%
r0 = Val(InputBox("請輸入基圓半徑"))
r1 = Val(InputBox("請輸入滾子半徑"))
h = Val(InputBox("請輸入升程"))
e = Val(InputBox("請輸入偏距"))
a1 = Val(InputBox("請輸入推程運動角"))
a01 = Val(InputBox("請輸入遠休止角"))
a2 = Val(InputBox("請輸入回程運動角"))
a02 = Val(InputBox("請輸入近休止角"))
Text1.Text = r0
Text2.Text = r1
Text3.Text = h
Text4.Text = e
Text5.Text = a1
Text6.Text = a01
Text7.Text = a2
Text8.Text = a02
Picture1.Scale (-75, 55)-(75, -55) '建立坐標系
Picture1.Line (0, 50)-(0, -50)
Picture1.Line (-55, 0)-(55, 0)
'初始化參數
Dim i!, j!, k!, m!, n!
Dim a!, b!, c!, d!
Const pi = 3.141592653
Dim s#(360), s1#(360)
Dim ds#(360), ds1#(360)
Dim dx#(360), dy#(360)
a = a1
b = a1 + a01
c = a1 + a01 + a2
d = 360
j = 0
For i = 0 To a '推程段
s(j) = h * ((i / a1) - Sin(2 * pi * i * pi / a1 / 180) / (2 * pi))
ds(j) = h * (1 - Cos(2 * pi * i * pi / a1 / 180)) / a1
ds1(j) = ds(j) / 2
s1(j) = s(j) / 2 '按比例定義參數值
j = j + 1
Next i
For i = (a + 1) To b '遠休段
s(j) = h
ds(j) = 0
ds1(j) = 0
s1(j) = s(j) / 2
j = j + 1
Next i
For i = (b + 1) To c '回程段
s(j) = h * (1 + Cos(3 * (i - 150) * pi / 180)) / 2
ds(j) = -h * pi * Sin(3 * pi * (i - 150) / 180) / (2 * a2)
ds1(j) = ds(j) / 2
s1(j) = s(j) / 2
j = j + 1
Next i
For i = (c + 1) To d '近休段
s(j) = 0
ds(j) = 0
ds1(j) = 0
s1(j) = s(j) / 2
j = j + 1
Next i
'初始化參數'
Dim X0#, Y0#, X1#, Y1#, X2#, Y2#
Dim X11#, Y12#, X21#, Y22#
Dim e1#, r#, p#, q#, r11#
Dim s0#
'按比例定義參數值'
e1 = e / 2
r = r0 / 2
r11 = r1 / 2
s0 = Sqr(r ^ 2 - e1 ^ 2)
For i = 1 To 360
dx(i) = (ds1(i) - e) * Sin(i * pi / 180) + (s0 + s1(i)) * Cos(i * pi / 180)
dy(i) = (ds1(i) - e) * Cos(i * pi / 180) - (s0 + s1(i)) * Sin(i * pi / 180)
Next i
'輸出理論、實際輪廓線圖像及坐標值'
X0 = e1: Y0 = s0
For g = 2 To 360
m = g - 1
'求理論輪廓線
X2 = (s1(g) + s0) * Sin(g * pi / 180) + e1 * Cos(g * pi / 180)
Y2 = (s1(g) + s0) * Cos(g * pi / 180) - e1 * Sin(g * pi / 180)
X1 = (s1(m) + s0) * Sin(m * pi / 180) + e1 * Cos(m * pi / 180)
Y1 = (s1(m) + s0) * Cos(m * pi / 180) - e1 * Sin(m * pi / 180)
Picture1.Line (X0, Y0)-(X1, Y1) '輸出理論輪廓線圖
Picture1.Line (X1, Y1)-(X2, Y2)
'求實際輪廓線
p = dx(m) / Sqr(dx(m) ^ 2 + dy(m) ^ 2)
q = -dy(m) / Sqr(dx(m) ^ 2 + dy(m) ^ 2)
p1 = dx(g) / Sqr(dx(g) ^ 2 + dy(g) ^ 2)
q1 = -dy(g) / Sqr(dx(g) ^ 2 + dy(g) ^ 2)
X11 = X1 - r11 * q
Y12 = Y1 - r11 * p
X21 = X2 - r11 * q1
Y22 = Y2 - r11 * p1
Picture1.PSet (X11, Y12) '輸出實際輪廓線圖
Text9.Text = Text9.Text & " " & m & " " & 2 * X1 & " " & 2 * Y1 & " " & 2 * X11 & " " & 2 * Y12 & " " & vbCrLf '輸出理論、實際輪廓線坐標值
X0 = X2: Y0 = Y2
Next g
End Sub
㈡ 微機原理課程設計代碼
CODE SEGMENT
ASSUME CS:CODE
START: PUSH CS
POP DS
MOV CX,8
PUSH CX
@:
MOV AL,0
MOV CX,10
@1:
PUSH AX
MOV AX,18
CALL DELAY_PROC
POP AX
MOV DL,AL
MOV AH,2
OR DL,30H
INT 21H
INC AL
LOOP @1
POP CX
LOOP @0
MOV AH,4CH
INT 21H
DELAY_PROC PROC NEAR ;延遲子程式, 延遲 ax/18秒
PUSH ES
PUSH DX
MOV DX,40H
MOV ES,DX
MOV DX,ES:[006CH] ;取系統1/18秒計數
ADD DX,AX ; 延時 x/18
DELAY10:
CMP ES:[006CH],DX ;時限到了?
JBE DELAY10 ;沒
POP DX
POP ES
RET
DELAY_PROC ENDP
CODE ENDS
END START
㈢ 813機械原理什麼意思
你是說考研大綱上專業課813機械原理吧，813隻是學校專業課的一個代碼。不同課程代碼不同，同一課程對於不同專業（相近專業）可能也稍有不同，代碼也會有所區別。
㈣ 求大神解惑，關於微機原理課程設計的一段代碼，有關於地址的，看不懂
程序用宏定義8255的A口、B口、C口、控制埠的地址，以及DA0832的埠地址
1）版#define IOY1 0xC440 定義IOY1為 0xC440
2）#define MY8255_A IOY1 + 0x00*4，定義8255的A口的地址為0xC440
3）#define MY8255_B IOY1 + 0x01*4 ，這權句定義8255的B口地址為 0xC444
4）#define MY8255_C IOY1 + 0x02*4，這句定義8255的C口地址為 0xC448
5）#define MY8255_MODE IOY1 + 0x03*4，這句定義8255的控制寄存器埠地址為 0xC44C
6）#define DA0832 IOY0 + 0x00*4，定義DA0832的埠地址為 0xC400
㈤ 學習機械原理之前需要哪些課程的基礎知識
呵呵，高等數學是理工科專業的基礎，力學是機械的基礎，機械原理用的最多就是理論力學，還有工程圖學！不過現在機械設計原理很多用到程序設計！
㈥ 求機械原理課程設計 牛頭刨床的設計方案，我需要的是方案三,學生編號23，即位置編號為11/ 3。完整版
完整版設計30分？
你知道這個設計的計算過程要多久不，還不說設計方案的整體設專計之類的了，你把懸賞屬的單位換成RMB，然後再將30往大調整，我估計會有好心人的，不過以一個過來人的經驗告訴你，就這么一點點專業類的東西，都不能叫設計了，就是讓你們了解一下機械設計過程及理念之類的你不願意動一下，那你以後怎麼辦呢，dota什麼的少打兩次就做出來了。。。
㈦ 機械原理程序設計
機械原理課程設計程序（凸輪設計部分）
＃i nclude<stdio.h>
＃i nclude<stdio.h>
＃i nclude<math.h>
#define PI 3.1415926
void ydgl();
float d,am,ro,e,h,p,dt0,d0,s,ds,r,al;
int f;
main()
{ printf("Determaination the prime circle of cam\n");
printf("----------------------------\n");
printf( "input ro=");scanf("%f",&ro);
printf("input h=");scanf("%f",&h);
printf("input e=");scanf("%f",&e);
printf("input dt0=");scanf("%f",&dt0);
am=0;p=PI/180;
printf("The initial data:ro=%f\n",ro);
printf("h=%f e=%f dt0=%f\n",h,e,dt0);
do
{ro=ro+5;
for(f=0;f<=dt0;f=f+2)
{d=PI*f/dt0;
ydgl();
}
}
while(am>30*p);
printf("The intermediate results: am=%f\n",am/p);
printf("ro=%f\n",ro);
do
{ro=ro-1;
if(ro<e)
break;
for(f=0;f<=dt0;f=f+2)
{d=PI*f/dt0;
ydgl();
}
}
while((am>30*p)||(am<=29.5*p));
printf("The final results:max alfa=%f\n",am/p);
printf(" min ro=%f\n",ro);
getch();
}
void ydgl()
{ d0=dt0*p;
s=0.5*h*(1-cos(d));
ds=0.5*h*PI*sin(d)/d0;
r=sqrt(ro*ro-e*e);
if((s+r)==0)
return;
al=atan((ds-e)/(s+r));
if(al>am)
am=al;
}
㈧ 求微機原理課程設計.打字計時練習程序我找的了代碼但不知道什麼意思順便把流程圖也給弄下能有全套的更好
1234657890
㈨ 機械原理課程設計
好像是機械原理。有點以前看過只是有模糊的記憶了。你試試看吧
㈩ 機械原理 課程設計
你這個問題太復雜了，肯定沒什有你說的這么詳細的回答的。至於原理你可以嘗試一下連桿機構或者帶導槽的凸輪機構，這兩個機構應該都能實現你說的這個東西。祝你好運了