㈠ 求 机械原理课程设计凸轮设计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
㈨ 机械原理课程设计
好像是机械原理。有点以前看过只是有模糊的记忆了。你试试看吧
㈩ 机械原理 课程设计
你这个问题太复杂了，肯定没什有你说的这么详细的回答的。至于原理你可以尝试一下连杆机构或者带导槽的凸轮机构，这两个机构应该都能实现你说的这个东西。祝你好运了