久久久国产一区二区_国产精品av电影_日韩精品中文字幕一区二区三区_精品一区二区三区免费毛片爱

機(jī)械社區(qū)

標(biāo)題: SolidWorks二次開發(fā)新手求大神助攻，一個(gè)簡單的問題 [打印本頁]
作者: 廣仔依舊    時(shí)間: 2014-6-3 11:08
標(biāo)題: SolidWorks二次開發(fā)新手求大神助攻，一個(gè)簡單的問題
以下程序在SolidWorks二次開發(fā)運(yùn)行時(shí)，系統(tǒng)提醒 “錯(cuò)誤13 類型不匹配 ”
# n' [+ S5 F5 {哪里除了問題？該怎么修改？請大神給出意見！
* x; B3 }, n! i' d7 o# p* E$ T, l  H8 |. U8 H1 i7 Z' g$ S
Private Sub Command1_Click()
9 R0 G+ \/ W% Z( u/ s" X9 KDim A As Single, B As Single' h4 V( l9 z6 E. ]
Dim C As Single, D As Single7 D. ^8 B3 u9 I- M. n3 V" Q
A = Text1.Text* Y7 V3 N6 k% W
B = Text2.Text
% X7 R3 e; m3 u2 M: s' z  |& @* r7 wC = Text3.Text' F- j6 b7 n$ \$ h
D = Sin(0.5 * Text4.Text * 3.14159 / 180)
+ ?1 i# J7 o4 ?, n' E( QText5.Text = A * (Form9.Text7.Text + Form9.Text4.Text)9 ~1 R. L" @9 Q
Text6.Text = 2 * Text5.Text * D / (C - 1)
! X* K; H# T$ \- Y8 u, s2 b- l2 hText7.Text = C * Text6.Text
- D& `' ]! s' {$ e/ ?) M) I. jText8.Text = Sqr(Text5.Text * Text5.Text + Text7.Text * Text7.Text - 2 * Text5.Text * Text7.Text * D)% z* X* A; l; s+ `" a" d
End Sub
作者: zerowing    時(shí)間: 2014-6-3 11:31
哎。VB又忘得差不多了。你試試在 Text.text用val（）函數(shù)取下值再賦值給單浮點(diǎn)函數(shù)ABCD。
作者: 廣仔依舊    時(shí)間: 2014-6-3 11:45
zerowing 發(fā)表于 2014-6-3 11:31
# D: n9 |, s2 D! G* M哎。VB又忘得差不多了。你試試在 Text.text用val（）函數(shù)取下值再賦值給單浮點(diǎn)函數(shù)ABCD。
2 i3 m# ~4 E2 Z, n
試了一下，還是不行。。不過還是謝謝你啦
作者: vappga    時(shí)間: 2014-6-3 13:40
類型不匹配，你把single改成Double



歡迎光臨 機(jī)械社區(qū) (http://www.ytsybjq.com/) Powered by Discuz! X3.5