找回密码
 注册会员

QQ登录

只需一步,快速开始

搜索
查看: 3314|回复: 3

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

[复制链接]
发表于 2014-6-3 11:08:31 | 显示全部楼层 |阅读模式
以下程序在SolidWorks二次开发运行时,系统提醒 “错误13 类型不匹配 ”
% F+ I) K  @, ?* f3 \6 e哪里除了问题?该怎么修改?请大神给出意见!
2 ~( ^5 k& {7 R9 `3 j9 d2 V; R* K5 G3 {) R( _" h* l1 p/ U
Private Sub Command1_Click()
- p- b/ K# y2 K" z- P; p# `1 pDim A As Single, B As Single) e- o2 V- b  T: @, `
Dim C As Single, D As Single
: Q' Q6 E1 f% gA = Text1.Text
/ ~- m% U5 a' x: m. k% {# sB = Text2.Text
4 g% [) }6 ^* c$ ]- w$ r) tC = Text3.Text* C9 i1 I$ {; F+ I; D) Z( ]
D = Sin(0.5 * Text4.Text * 3.14159 / 180)
& P9 s( Q" l. GText5.Text = A * (Form9.Text7.Text + Form9.Text4.Text)- W4 V/ ^7 L$ `6 S  i) q
Text6.Text = 2 * Text5.Text * D / (C - 1)
/ \" Q1 I) Q/ U5 Y% O: N+ U7 m, kText7.Text = C * Text6.Text8 y) P+ ^* g8 `8 i
Text8.Text = Sqr(Text5.Text * Text5.Text + Text7.Text * Text7.Text - 2 * Text5.Text * Text7.Text * D)
: r! q2 Z0 z- _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
2 [1 e3 K+ W- \3 y哎。VB又忘得差不多了。你试试在 Text.text用val()函数取下值再赋值给单浮点函数ABCD。
& \/ W# m8 p- G  P$ e, E
试了一下,还是不行。。不过还是谢谢你啦
发表于 2014-6-3 13:40:40 | 显示全部楼层
类型不匹配,你把single改成Double
您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

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

GMT+8, 2025-8-19 23:45 , Processed in 0.069004 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.5 Licensed

© 2001-2025 Discuz! Team.

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