数学建模社区-数学中国

标题: 帮帮忙，谢谢大侠，VB [打印本页]
作者: llm3-1415926    时间: 2005-1-17 22:01
标题: 帮帮忙，谢谢大侠，VB
<>rivate Sub cmdPlot_Click()1 d2 M8 M, R" d7 c! G  C/ z
XY# m8 ]8 s# i$ p0 |% M3 D- B
On Error Resume Next
/ G: B8 e" k6 A, d Dim x As Double, Y As Double
6 j3 c7 Q5 `+ X8 V+ j; s2 G' S Randomize% R  U  {6 R$ ]
  # y% j) W5 b3 P2 r, p
        SC.Reset% P- D$ A' ?. b5 J* A# a! n
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
# i! K: k% u) [( f  V# @5 ]( ]       For x = -15 To 15 Step 0.001
1 o6 ?% \( b- {* M         Y = SC.Run("runthis", x)
; l7 m  ~7 ^# E, Q. k6 g+ [* R: _         DoEvents
& f( M# R# N: @$ L( i          Picture1.PSet (x, Y), RGB(250, 0, 0)
  v) w5 |0 o* p& K- S3 m5 l          Next x, J& v! Z% }2 P0 n
End Sub</P>
* m5 M4 m! d2 q+ m7 z: A<>为仕么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)3 g2 O* I3 u9 x8 Y$ A) h8 A
With Picture1/ n: T0 N4 z0 f* t* w5 W3 w
.CurrentX = x1 ?) z+ X$ s4 T( C& n) _6 |% s
.CurrentY = Y4 V1 T* `0 f! M3 H  [- I% K" {
.ForeColor = RGB(0, 0, 255)% K0 E9 n, a* e4 a- D
End With
9 @! [( W9 _2 B) u& WPicture1.Print Word' u0 S  T! V* I4 ~
End Function
5 W4 M5 W0 F. ?& M  ]3 u# o'定义画点函数, f* J& [3 P; m% V' B9 j
Private Function DrawDot(Px, Py, Color)& R% Q- e- j. u
Picture1.PSet (Px, Py), Color
. F0 A$ K8 w9 b* |' m# }! h8 FEnd Function6 I  \( }( q# U; N% b
Sub XY() '建立直角坐标系7 Z2 ]4 w$ d: b6 `& L  D
Picture1.DrawWidth = 1 '设置线条宽度6 P/ \3 ]" B; h# z' p4 f
Picture1.Cls
3 B+ b& a; o; o6 U3 N/ F/ p'设定用户坐标系，坐标原点在Picture1中心
0 C, Y* ^+ j) A3 H' lPicture1.Scale (-10, 10)-(10, -10)4 B3 c; k& W& i
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
( y: t: G' f: `0 ZPicture1.Line -(9.5, 0.5), RGB(0, 0, 255)0 w. r3 V, c7 M+ x: y
Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
3 g6 @$ f/ a0 i; ~Picture1.ForeColor = RGB(0, 0, 255)5 M% Q4 P; _: E! e$ _' G; X4 C
Picture1.Print "X"* F1 q) g! M0 ~" [% X5 n
'画 X 轴
" b! w4 U3 I8 a6 _; p3 X% UPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)# X/ I/ B8 t2 w/ H$ J
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)8 e* c# Q7 a  d7 P- e0 w: C
Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)2 f* a$ ]) u1 k" z' J
Picture1.Print "Y"
9 U) p7 f8 E$ g; ~  L" w6 q# ?'画 Y 轴
% q# c+ ~( f: \For lin = -9 To 9
# o& q" B. i2 {! z/ mPicture1.Line (lin, 0)-(lin, 0.25)
+ O. G2 `& ]6 `0 b5 Cwor = PrintWord(lin - 0.5, -0.5, Str(lin))
; h0 S5 |3 \2 @/ ~* uPicture1.Line (0, lin)-(-0.25, lin)
) k9 z# Q3 Y. n* wIf lin &lt;&gt; 0 Then
; b. i/ ^. C1 [( P  |wor = PrintWord(-0.9, lin, Str(lin))
4 f9 Y( q  h- A' @0 PEnd If
3 u  H: A, Q/ ]; e5 DNext lin
  s) ~. Q# i2 oPicture1.DrawWidth = 1* M+ B! ~5 ~- a- L7 R, F4 J
End Sub0 p# C, A0 Y. W" M/ {0 T
Private Sub cmdPlot_Click()
4 V# x7 H( |+ Y" ^XY
, _- c; [% J9 M$ s: ~# p- Q5 f. P# {On Error Resume Next3 X2 V( y0 \: g4 C! L4 ^6 [
Dim x As Double, Y As Double
" Y7 {1 O/ \0 G" ]0 Q8 A Randomize7 Y' |4 {: O8 c9 v) k9 p" a
  
8 f% U" a+ \5 Q+ G        SC.Reset
8 S4 v3 x, w$ }        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
  g# ]4 s$ Z+ u7 z& j       For x = -15 To 15 Step 0.001* c' y! C" q, b. N, `. ?" c
         Y = SC.Run("runthis", x)% p5 W) I) [3 u0 C" D! y
         DoEvents" G3 {/ p* L# [8 l& U
          Picture1.PSet (x, Y), RGB(250, 0, 0)
9 D" Z. S$ i. q+ M5 }& h          Next x
5 W/ ^/ s$ n: X! o, bEnd Sub</P><>rivate Sub Command2_Click()
7 r# ^/ ]* V+ m$ a" T$ j5 uXY
* h2 S$ [3 c* i5 m3 `2 m9 q4 v' TEnd Sub</P><>rivate Sub Command3_Click()2 z! W- M% L* p1 f2 h2 }, w
End
* q* ?2 {5 i% ^6 M1 gEnd Sub</P><>. L4 _" E$ B5 p0 Y
Private Sub Form_Load()
4 v3 ?, x  ]/ M6 eMe.Caption = "美丽曲线——山东省商河一中路来民"
! R. ?3 X0 f- dMe.Show# Q. T* b/ u9 k/ ~& l2 I
Me.AutoRedraw = True
; M0 U# n) Y2 Y# k: H" Y% K, J% e4 xXY! Q2 P+ d: r1 z9 h
End Sub- U* g" w0 H/ o# \  ^; Y, C  x
控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>
作者: 秋天的风儿    时间: 2011-9-23 15:19
呵呵，看大家评论如何
/ e  _& X/ v3 ~, q
: D: s2 M' Z! @9 q
+ z% S. x) j. [6 b: _7 a$ b) k) n# d; w/ j& q, U. w  k
8 N5 C+ U" ~# l9 C" m

1 I# m: v# R( B: q7 R: v5 ^* k: T6 g% ]' i
8 l1 r# q& X8 x8 d6 {! v9 m' C

- F; C; u0 g! f* [) C* X; z* [! J# _: b/ x

2 {) H( p2 h! s# F! R
& p2 z; {% J4 [4 N/ ]( J/ V! v
4 H( T) i# W' J  V9 f大家好,能交朋友嘛？ok0633.com
作者: ealx0yJu    时间: 2012-10-13 03:38
我看不错噢 谢谢楼主！



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