数学建模社区-数学中国

标题: 帮帮忙，谢谢大侠，VB [打印本页]
作者: llm3-1415926    时间: 2005-1-17 22:01
标题: 帮帮忙，谢谢大侠，VB
<>rivate Sub cmdPlot_Click()
* r2 k) c8 L  A- G% xXY# M: ?+ T7 N/ \% b9 e9 L
On Error Resume Next5 B; J( Y! S+ [+ @
Dim x As Double, Y As Double
6 M2 b) ]) c4 t Randomize
. f, G8 U# o" b9 D& M  7 s7 |2 m4 V# X# Q- t% r/ L
        SC.Reset) Z9 U+ ^7 f  B) H- |
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
! I2 H4 I/ r" D  n       For x = -15 To 15 Step 0.001% I- W. [! W& c4 x8 O7 S4 `% p! U! G
         Y = SC.Run("runthis", x); {/ t9 c1 Q1 V( B
         DoEvents; f  |# H$ z* [# K
          Picture1.PSet (x, Y), RGB(250, 0, 0)
! j1 w# A% W4 [          Next x
8 \$ b8 a/ m4 [+ i& ZEnd Sub</P>
2 F! w; h& n% ^. |<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），请帮忙</P>
作者: USER001    时间: 2005-1-18 10:44
把完整代码发上来
作者: llm3-1415926    时间: 2005-3-1 23:50
<><b>帮帮忙，跪下谢谢斑竹，VB</b></P><>rivate Function PrintWord(x, Y, Word As String)4 K9 g7 ~1 s( U3 l7 a* g. D/ A  o. p
With Picture15 l; A: ~% R8 D' H: q& y
.CurrentX = x
' S7 l. m: b2 w5 l# y9 S.CurrentY = Y2 |2 q. Z/ L/ a6 y6 M3 I' R
.ForeColor = RGB(0, 0, 255)
- N. O/ R- A0 [, Q+ k9 GEnd With
& S( C  t* X% ]: Y! iPicture1.Print Word
6 w; N3 L" F$ w% ?% T0 f1 sEnd Function
- ^& G* q2 n# t, [: ~& r. o'定义画点函数9 {5 b  B/ E+ f% P# J7 C7 t  ]
Private Function DrawDot(Px, Py, Color)/ E+ a& ^1 M. y1 @
Picture1.PSet (Px, Py), Color- M9 D* q( _; {6 j. ~- D/ k  \" h" G" L
End Function
5 q2 x: s% i% r' q5 T( N2 dSub XY() '建立直角坐标系
' @8 R) \1 s, M1 iPicture1.DrawWidth = 1 '设置线条宽度
- t" d; B* i6 j, zPicture1.Cls
* [& x& f& ]% z& \2 Q8 T'设定用户坐标系，坐标原点在Picture1中心
( V8 b& }1 x  @) aPicture1.Scale (-10, 10)-(10, -10)* L& k( I. O9 ^+ j0 d* O
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
7 Y1 X6 i+ P; L$ h. SPicture1.Line -(9.5, 0.5), RGB(0, 0, 255)
7 K2 G  p2 n& J9 x# _' \: m. tPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)/ V: [" e0 W! |# Y* j6 _
Picture1.ForeColor = RGB(0, 0, 255)
( A: P7 t  z) `% \/ A2 YPicture1.Print "X"
5 z* U% P/ m) }9 c  e7 u'画 X 轴  w' C) v+ S' H9 ]& p
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)# [$ L7 D2 s1 Z6 A/ P/ d: \
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)% j7 d+ h1 n# b$ R' i" `2 c+ R
Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)$ y) l: k; b! F8 Q$ w
Picture1.Print "Y"9 q8 n6 ]' o$ e( _; |- h& }0 h
'画 Y 轴
/ }9 V/ Y# H2 aFor lin = -9 To 9/ D* }8 e# ?+ Z! p% T) P3 O
Picture1.Line (lin, 0)-(lin, 0.25)
! p* t: O5 k! xwor = PrintWord(lin - 0.5, -0.5, Str(lin))
/ c. ]* N! `/ L4 j* p* UPicture1.Line (0, lin)-(-0.25, lin)9 S  v7 p) V0 c9 k
If lin &lt;&gt; 0 Then; x" u' [+ C& `
wor = PrintWord(-0.9, lin, Str(lin))0 j3 x( N- Z( Q: p. {
End If. J: Y- q, S& K
Next lin6 c* e3 F; E4 X
Picture1.DrawWidth = 1% [* i  N. u& i1 U
End Sub  e$ Z) f  g2 c5 Z& V: C2 N9 ]: ?2 H
Private Sub cmdPlot_Click()
5 \. ^) ^: Y: M2 t) B, o. RXY
, u" H4 x! q! R" c3 POn Error Resume Next
. d5 P) Y7 P0 h8 z4 v: p; ~ Dim x As Double, Y As Double; a1 b3 k! j7 D
Randomize
0 N. v/ d" s" v( \2 Y# o' A  
/ l2 k; G, h5 z        SC.Reset
* d* R' V1 x- B) k5 B9 d! j- l        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"+ h7 f: ~  q& f* D% h; J7 H
       For x = -15 To 15 Step 0.001
' Q" Q/ f8 O) @% h         Y = SC.Run("runthis", x)% r" O4 X6 D6 Z- v2 I" S; c$ y7 D
         DoEvents* Z4 d# \6 g5 T- Z* u4 h5 i
          Picture1.PSet (x, Y), RGB(250, 0, 0)
' O9 j* i$ `" e/ ^) N9 F          Next x3 i% A. K* Q" t, V( r. O: ^$ R
End Sub</P><>rivate Sub Command2_Click()
( y1 f. L' s9 n1 ^7 ]. |XY
% y6 Y6 g0 i* G$ r- Q7 lEnd Sub</P><>rivate Sub Command3_Click()
, u( ?0 G  w4 H2 h6 tEnd7 A0 L7 J6 J; j  B; Y
End Sub</P><>
1 a( P6 P* v; T1 G1 u. lPrivate Sub Form_Load()
1 K; n4 u4 V' ?2 c- vMe.Caption = "美丽曲线——山东省商河一中路来民"
  V8 t, {: ~  p  ]5 p# GMe.Show
7 D& `1 w% y+ r- \4 D9 qMe.AutoRedraw = True# U3 O& L- z4 z6 i" t! x! h$ x
XY
. {% u7 i3 q4 l/ lEnd Sub5 H1 f/ j. S" T! F% a
控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>
作者: 秋天的风儿    时间: 2011-9-23 15:19
呵呵，看大家评论如何
9 m6 C" B  o4 b+ a) ]8 t) \
; N  G7 x, B6 K# [' s
$ i2 u5 Y  e4 E0 t$ I+ f' l; v2 F. K' L. i
" p8 ^0 o+ l& u' E% C# J* s6 y
" }$ V  ]% t. V7 N& j( P! u  M

5 R& K8 B" F8 H5 ^$ h" w( `5 _% y+ Z# z
2 U& w% M+ n; a3 Z$ F
6 j6 G  |9 S3 b
- ?' |- x9 s* E: P
- V( c$ Y( p0 u" g% p5 `
6 O7 h$ ^  M3 _2 A
大家好,能交朋友嘛？ok0633.com
作者: ealx0yJu    时间: 2012-10-13 03:38
我看不错噢 谢谢楼主！



欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5