数学建模社区-数学中国

标题: 帮帮忙，谢谢大侠，VB [打印本页]
作者: llm3-1415926    时间: 2005-1-17 22:01
标题: 帮帮忙，谢谢大侠，VB
<>rivate Sub cmdPlot_Click()
- e& b# @7 ?, J8 t8 k$ D+ CXY
& |- T4 G( c6 J; g+ \& m1 bOn Error Resume Next2 u6 W9 q' s6 r, C5 o( U
Dim x As Double, Y As Double
; g6 `  l6 r' c8 [6 p3 k6 N Randomize8 \) `7 H% b  N+ I! q. X, x
  ; T/ l9 H) F5 l& k3 ~6 u) R2 P# o
        SC.Reset# f# w: c9 Q& ], I- B1 o; @2 u
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
5 Q+ ]+ J2 C* O       For x = -15 To 15 Step 0.001
* d% W% R: d" t6 @; `2 f         Y = SC.Run("runthis", x)' ~* `- a* p$ Y, `; ^- {
         DoEvents' K% D' o4 B0 |! h, g, ~. i$ f
          Picture1.PSet (x, Y), RGB(250, 0, 0)6 D$ i% O+ t" P) \
          Next x# q  L' D: h" Y2 v
End Sub</P># J* r" z5 `! C4 E# \0 G
<>为仕么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)
* k# I) @# X0 G" v+ J# j# |# UWith Picture17 v  g6 w4 T: v* n
.CurrentX = x
' b2 f( L% F6 F- G+ j- Q% R.CurrentY = Y
( y/ [  W; ^5 z.ForeColor = RGB(0, 0, 255)9 @+ r3 o: T+ d# y) b+ }
End With' u& c% l7 ~, G9 K9 q8 g
Picture1.Print Word4 s3 {6 j$ \6 l. W" N
End Function
' s2 U1 K7 O5 s3 C# L4 A" t'定义画点函数1 f; C  g& X4 @" P1 x
Private Function DrawDot(Px, Py, Color)4 R- f% h8 O3 ?
Picture1.PSet (Px, Py), Color
  n. _1 j: V1 G* i/ hEnd Function
* A; s: K% |9 J, ]Sub XY() '建立直角坐标系
! _$ i# {/ Z8 K( W8 G& SPicture1.DrawWidth = 1 '设置线条宽度
( n+ Q  o7 D1 R9 F3 q$ [( W9 XPicture1.Cls7 y0 H. C9 M+ r
'设定用户坐标系，坐标原点在Picture1中心5 [& a$ i! \  U( w0 ~5 O0 d
Picture1.Scale (-10, 10)-(10, -10)& R2 f! M8 l& i: d
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
) h5 M' P: @9 T5 q) Z. [Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
! L  h: ?1 Z, D' |1 oPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
: U' ^/ I9 {0 X% s$ u( r: APicture1.ForeColor = RGB(0, 0, 255)
) \7 z3 L5 F1 SPicture1.Print "X"
, E+ u: K" e' n) Z'画 X 轴. A' l+ j* t4 e8 ^2 w0 i
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
+ e' d0 \' w* [4 s2 yPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
0 e" Y: L9 z" g& w) }9 ^4 X+ WPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
& C. T0 M1 N; O( y" d/ _, FPicture1.Print "Y"3 T! o4 b- F. q# z9 t! T
'画 Y 轴
! v7 \; [( [) U% C3 xFor lin = -9 To 9
! z$ E/ G1 l' l$ IPicture1.Line (lin, 0)-(lin, 0.25)/ e6 [5 X" ?8 l/ ~1 \; I
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
6 S, u: h2 @5 j5 Q4 n7 XPicture1.Line (0, lin)-(-0.25, lin)6 |; t" G% H+ n$ e$ S0 }
If lin &lt;&gt; 0 Then( ?* c# L2 }5 O5 _5 b# s( q
wor = PrintWord(-0.9, lin, Str(lin))$ D' g! W5 K8 u- `. \: Y
End If
) m2 t8 }4 c/ Y  ^. g( G' f3 m( DNext lin6 k) ]" M* n8 Y3 T/ M+ F
Picture1.DrawWidth = 1
+ Y, E7 M& K' }& @End Sub6 G4 f2 K% h( k& R
Private Sub cmdPlot_Click()4 y- w1 E4 }' p' w1 }, N
XY
. D3 t) {/ x0 y. ]' qOn Error Resume Next
, Q$ {2 V/ m1 q& E5 C7 D Dim x As Double, Y As Double
. Z! @; U/ J: p Randomize& t0 W" {  S! m2 |! `2 d# ]' \6 t
  0 Y  V5 D( L/ ]% f; j/ N
        SC.Reset
' a; }% c  a* v( t1 b+ ~        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function". j: N+ W$ O, C2 c
       For x = -15 To 15 Step 0.001
) `+ B. }9 m: V6 x5 r" K4 O         Y = SC.Run("runthis", x)
- E8 _6 e3 J+ B/ H         DoEvents
1 U1 ^9 F: [, W; i/ b          Picture1.PSet (x, Y), RGB(250, 0, 0)2 v3 N# d7 z' x+ Y+ }# \, m
          Next x
, c8 G) o& x5 ?. v/ \3 qEnd Sub</P><>rivate Sub Command2_Click()
' D& F6 T3 m' B( e$ VXY: V% p# ?/ g1 o: m! X, n" f' B. z+ T
End Sub</P><>rivate Sub Command3_Click()3 p- J0 p9 N- e+ U5 @$ [
End
) [" W; ?- |/ fEnd Sub</P><>! {- c, t3 C4 c# S$ c
Private Sub Form_Load()
, ]$ o% P6 e' W! s' }* ^Me.Caption = "美丽曲线——山东省商河一中路来民"
. s0 r  N: N$ H6 U9 P1 ~& GMe.Show
3 P+ F4 p( x* q, O# YMe.AutoRedraw = True( Z; ^& q& }: T; Q# K+ J( d% N
XY
" H8 \( S  F% {. P! E' u( eEnd Sub
- ~! v/ n! v$ a, T) f* ~* ]0 v& c控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>
作者: 秋天的风儿    时间: 2011-9-23 15:19
呵呵，看大家评论如何. y  U  B6 w2 l' J/ v! E

- _; @/ }6 Y0 E0 u; a5 u( a( h6 ]* A! T
: |7 L/ B0 V+ P4 \2 s
9 s, p+ U+ W' {* K$ A

! w6 v; R6 @# p: W  m: w5 p: {( `" U: A" \: g. e- z

5 V, {; k; o' `0 }& |* b0 h7 X( b6 h& P& I
: i& l- E0 H! c0 k6 s: y$ |3 B
2 A2 z/ L& A% g/ R! j3 E( `

* w" m( E9 E8 ]# T$ A5 f  `% @" E' O) h+ g: t" t/ m! Z, h
大家好,能交朋友嘛？ok0633.com
作者: ealx0yJu    时间: 2012-10-13 03:38
我看不错噢 谢谢楼主！



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