机械社区

 找回密码
 注册会员

QQ登录

只需一步,快速开始

搜索
查看: 2677|回复: 3

SolidWorks二次开发新手求大神助攻,一个简单的问题

[复制链接]
发表于 2014-6-3 11:08:31 | 显示全部楼层 |阅读模式
以下程序在SolidWorks二次开发运行时,系统提醒 “错误13 类型不匹配 ”7 p  A) O* q' m. d6 |
哪里除了问题?该怎么修改?请大神给出意见!, ^6 p. M! K! Z% F% d. _$ [3 f! G. N

% n; I4 O% D; m8 kPrivate Sub Command1_Click()6 b0 ~5 W" D8 x3 g# ]
Dim A As Single, B As Single  \2 ^3 W8 ^/ B0 U3 j8 _: t4 T, }
Dim C As Single, D As Single  H- ]' G: k" \% ~. [( K! @: O7 u+ W+ e
A = Text1.Text
, a0 V0 p0 T+ `: P% N( W* qB = Text2.Text- y& I* O% v) r3 |2 J4 C2 [& F
C = Text3.Text
3 _0 W/ l% ]7 \& g3 S* D; H/ q# ND = Sin(0.5 * Text4.Text * 3.14159 / 180)0 C2 R" A# o- y- r
Text5.Text = A * (Form9.Text7.Text + Form9.Text4.Text)" ~  W, `! k% s' {
Text6.Text = 2 * Text5.Text * D / (C - 1)5 R8 m+ j& R" R5 N6 M$ Z4 @
Text7.Text = C * Text6.Text8 r3 S/ U( F0 @4 G
Text8.Text = Sqr(Text5.Text * Text5.Text + Text7.Text * Text7.Text - 2 * Text5.Text * Text7.Text * D)3 y8 s& c! y6 {
End Sub
回复

使用道具 举报

发表于 2014-6-3 11:31:01 | 显示全部楼层
哎。VB又忘得差不多了。你试试在 Text.text用val()函数取下值再赋值给单浮点函数ABCD。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2014-6-3 11:45:20 | 显示全部楼层
zerowing 发表于 2014-6-3 11:31
1 I) H; w" r0 @6 C2 m* r" s1 _2 A哎。VB又忘得差不多了。你试试在 Text.text用val()函数取下值再赋值给单浮点函数ABCD。
" x6 M( ]1 e( C- f, F& F
试了一下,还是不行。。不过还是谢谢你啦
回复 支持 反对

使用道具 举报

发表于 2014-6-3 13:40:40 | 显示全部楼层
类型不匹配,你把single改成Double
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

小黑屋|手机版|Archiver|机械社区 ( 京ICP备10217105号-1,京ICP证050210号,浙公网安备33038202004372号 )

GMT+8, 2024-11-27 23:38 , Processed in 0.060897 second(s), 20 queries , Gzip On.

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表