数学建模社区-数学中国

标题: 帮帮忙，谢谢大侠，VB [打印本页]
作者: llm3-1415926    时间: 2005-1-17 22:01
标题: 帮帮忙，谢谢大侠，VB
<>rivate Sub cmdPlot_Click()
; |* E( h9 D$ A% c4 t' sXY
8 Y. F, ]* H; S5 m0 ]On Error Resume Next
% Y" z0 M  l. m1 w5 i Dim x As Double, Y As Double
) t6 c/ C* E, l7 N Randomize
/ k! b# `. l" ^9 |9 `  
% d, p# b! b6 Y, i        SC.Reset+ V$ W: N' ~' A, v: W( ?. K% N
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
) F. Z( ]$ w9 l" n+ q5 P0 Q       For x = -15 To 15 Step 0.001
0 h7 [+ o% z' O         Y = SC.Run("runthis", x), _. Y, P1 _# |7 v' l0 R2 E
         DoEvents
% @6 b8 j, l, d2 n+ x          Picture1.PSet (x, Y), RGB(250, 0, 0)5 e9 I, C" a4 L+ z* n7 ]
          Next x! j# g# G9 Q# E
End Sub</P>
% T3 A* R+ k5 x4 b& Z: z<>为仕么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)# o- w6 I7 w2 o) O; b
With Picture1
; \4 C+ Z: V/ O: X0 T5 V4 q.CurrentX = x
0 c9 l! w8 h( I! r1 b4 i1 k.CurrentY = Y
# H' ~/ B' a7 o% u, r) ^.ForeColor = RGB(0, 0, 255)
8 w. K# F- c1 K& iEnd With
# ]# ?( m9 E5 I- k: mPicture1.Print Word! W' L: o1 x" m
End Function
7 s6 `- D  H7 |1 |- y; F'定义画点函数
+ e+ f: ?1 e1 N7 q2 xPrivate Function DrawDot(Px, Py, Color)
2 o+ X, _1 f' Q1 B# qPicture1.PSet (Px, Py), Color, M! s0 d- x( K8 }% {) G' V
End Function. }/ ]3 V8 Y( h3 g( Z+ t
Sub XY() '建立直角坐标系
* {9 ]: F: G" bPicture1.DrawWidth = 1 '设置线条宽度
. ~2 u" @7 n) p1 L/ o, aPicture1.Cls
9 o; s/ B1 j* Q9 h, o' o0 y! y+ K'设定用户坐标系，坐标原点在Picture1中心" p2 t4 v7 }8 Y2 q/ R! \
Picture1.Scale (-10, 10)-(10, -10)# a% _6 @1 h( n% M
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255); P; L' Y8 S7 D1 m% k3 g6 a( a
Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)' z" N) }: J) u+ h+ K- a7 v( r
Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
& M, \7 t; W) h8 X  kPicture1.ForeColor = RGB(0, 0, 255)
6 _$ R8 T+ f+ B5 U+ O1 SPicture1.Print "X"
: |' _# ~7 z9 J'画 X 轴
% H* b4 L9 K4 ePicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)7 I: q, J. e5 v0 j2 M2 w& f: [
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
9 H; Q* h- [! J/ Q% [Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)& S3 T) z8 U' Q
Picture1.Print "Y". c9 }! {- I/ B2 o, T
'画 Y 轴
, e' L2 Y7 d( R4 Q1 z4 kFor lin = -9 To 9# m" ~  N' h& S; g5 T  n' z
Picture1.Line (lin, 0)-(lin, 0.25)
4 s, u. B8 p1 b4 S0 x. w  i5 a0 gwor = PrintWord(lin - 0.5, -0.5, Str(lin))0 `& u2 d9 G4 C* o  C' s4 w0 t( T
Picture1.Line (0, lin)-(-0.25, lin): p1 _  ]5 x3 N+ Y6 v/ t
If lin &lt;&gt; 0 Then) W5 f; p+ j: ]3 Y) f
wor = PrintWord(-0.9, lin, Str(lin))
0 @( o9 k( C! q" ?+ c1 i) x+ [4 }End If
# X5 v; [! W6 S2 u3 u- [& HNext lin
. t$ p  f8 D3 lPicture1.DrawWidth = 1
1 Q" \. F' y. y& NEnd Sub
  e, x$ k# S/ P0 W0 B4 ?Private Sub cmdPlot_Click()
7 e! t$ K- W- \! I/ `% y8 E' @XY! w' r( [& B; s% }& e  b
On Error Resume Next6 n* @+ p! m/ M* W8 T, z
Dim x As Double, Y As Double
0 E4 m2 `7 Z1 C' b* Q Randomize) g+ D' p/ o/ u& H
  , `# {7 D) w7 i* [
        SC.Reset6 C$ `" h+ X$ [0 G) y  X2 q# A/ K
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"! {' j9 I# V3 b2 A& ~
       For x = -15 To 15 Step 0.001( S. @) c/ C" M
         Y = SC.Run("runthis", x)8 A5 j( L: B# m7 {+ |2 ?- Z
         DoEvents! `+ V1 Y2 @4 I, M/ }, T: R  I
          Picture1.PSet (x, Y), RGB(250, 0, 0). ?9 B5 p1 T8 l8 o1 ^& M
          Next x6 E1 x+ \0 V: F# [
End Sub</P><>rivate Sub Command2_Click()% x2 p* h8 X" p+ {6 a
XY4 d& @/ w. P, P2 j) q
End Sub</P><>rivate Sub Command3_Click()
4 i6 f- c. L1 a1 N( R  C9 D) ~End8 z! Y* `; [- h
End Sub</P><>
3 U$ z! W% E" g' ^# U. xPrivate Sub Form_Load()
8 r1 s. e& n7 U; A% hMe.Caption = "美丽曲线——山东省商河一中路来民"
' ~0 a  h0 E, N8 ]& e5 p) TMe.Show$ ^4 x" O4 m6 W6 Q$ A, r
Me.AutoRedraw = True
! [9 ?0 C2 y& T8 M6 dXY; I9 d# S$ S5 S8 g
End Sub+ S* l- ]( D5 i& Z- Q$ Y% n
控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>
作者: 秋天的风儿    时间: 2011-9-23 15:19
呵呵，看大家评论如何% x* _( u( a* Z( }
4 i  ^' T5 S# B* t! b8 u, P

$ i$ h) u- [6 x3 w8 S! M& q4 g" J. \( X
2 j: t! T1 V4 `+ T  E: ?

- Z6 ?3 o7 {- A/ n& u# r) Y/ {, a; o: v! b
0 s% k* V8 l/ A8 x  Y$ Z
& A6 }' D1 D) @3 n1 h: r
6 g# w, z" S6 V( z2 E) B/ r3 p

; S/ R: k  Q4 w/ D2 q+ G- M
! D. a0 R# ~- }1 S+ C7 t1 `8 Y$ i3 ]& l) X  |
大家好,能交朋友嘛？ok0633.com
作者: ealx0yJu    时间: 2012-10-13 03:38
我看不错噢 谢谢楼主！



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