数学建模社区-数学中国

标题: 帮帮忙，谢谢大侠，VB [打印本页]
作者: llm3-1415926    时间: 2005-1-17 22:01
标题: 帮帮忙，谢谢大侠，VB
<>rivate Sub cmdPlot_Click()4 X  {& c, @4 L/ f% h6 R
XY
7 V( ?  a- c! f+ x( M5 g2 u7 _On Error Resume Next3 H, S; e7 N: m. Z. b( G) f6 P
Dim x As Double, Y As Double: d8 z# K7 L4 l- J: W& |) P
Randomize
; O% s8 d/ T, }0 W  - d& ^4 n3 z3 a2 s" ^6 a! i6 P4 c
        SC.Reset
; R8 L' G& `4 d, T- p8 t' A- e1 \        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"6 s) B0 j6 _1 O0 W% q8 ^
       For x = -15 To 15 Step 0.001
" S' l- W2 A% H; f& q4 B( ?0 ~4 z. H         Y = SC.Run("runthis", x)
6 L9 p! M3 V8 E% R8 {         DoEvents1 y1 @" P. l) U4 M) h: z" R
          Picture1.PSet (x, Y), RGB(250, 0, 0)
& Z5 q+ M+ U" K$ `7 v; ?          Next x
2 e. D1 I% B/ h( h) m. m' H. @End Sub</P>
1 Q0 r5 e# n8 i# [! v; \! v+ 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)
, H% b6 \4 J: d2 A8 L' ?) Q: cWith Picture1
2 [6 a2 x3 d8 N" P" {.CurrentX = x
( b( e$ }" J1 l# g6 s+ u: K- v.CurrentY = Y
. }7 q2 s+ i/ |+ b! y.ForeColor = RGB(0, 0, 255)
" Z. E: u1 L9 f. v# CEnd With
6 x" n5 P1 l: R; FPicture1.Print Word
, @$ Z/ c. H# x) z4 \# CEnd Function/ G) t" E, F+ T0 s: T9 t  U
'定义画点函数
3 R- i  N8 z6 o  |7 Q, P  N8 n9 ]Private Function DrawDot(Px, Py, Color)" N8 H# [# T$ e0 K
Picture1.PSet (Px, Py), Color+ U" A& D7 y/ P8 U/ H
End Function* g) Q+ N& z3 X( g
Sub XY() '建立直角坐标系
2 X5 M" g( F5 s$ j4 |- F6 `Picture1.DrawWidth = 1 '设置线条宽度
* u$ x6 Q& W( ~- O9 J7 SPicture1.Cls1 O1 R$ Q5 Q8 A2 F, c5 @
'设定用户坐标系，坐标原点在Picture1中心
- ?, p" F# N0 W5 wPicture1.Scale (-10, 10)-(10, -10)
8 P2 D" H3 ?7 j8 o% [8 w& ~# CPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)1 B& @$ g( A0 U5 X: N4 ^
Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
' i4 F+ B/ T3 o. H% o* U+ L* V8 |Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
" |' L! N$ ?6 l2 q, QPicture1.ForeColor = RGB(0, 0, 255)
1 O0 b' w& ^6 L. N0 W: ~2 QPicture1.Print "X") M$ ^: A) n' y  x6 C, t* x
'画 X 轴" N$ Q' d- F# I+ l( t! p
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)- b% j6 o1 o1 `
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
' X1 N8 u6 y' ?0 R4 }  PPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
+ X4 u5 M- [8 Y. T5 w( r4 uPicture1.Print "Y"/ E/ G! x1 [7 F: N. w9 U8 S$ x
'画 Y 轴
+ _, F8 c! P; q4 L. X6 ]For lin = -9 To 93 H8 s6 P1 H! ?8 C
Picture1.Line (lin, 0)-(lin, 0.25)
: r1 a' |0 J) W" g, h) g+ d" Y. rwor = PrintWord(lin - 0.5, -0.5, Str(lin))5 }: |$ i7 t! I  }' _. I4 q
Picture1.Line (0, lin)-(-0.25, lin)
! \0 K8 k% y' R. RIf lin &lt;&gt; 0 Then6 G+ c$ @3 _7 e# b
wor = PrintWord(-0.9, lin, Str(lin))' r3 Q, K7 e7 H' s
End If8 G, ~) q6 r% P* X+ `0 {0 [
Next lin8 W% N6 s+ r8 ?* u/ e
Picture1.DrawWidth = 1' |) W3 O0 P8 D
End Sub
6 f8 J( c; p' K* a9 N0 C* Q* \Private Sub cmdPlot_Click()( w& v* X# Z# n% Z9 p
XY/ \2 w9 t, g& S  b. M# O# T/ r. ]
On Error Resume Next
! }8 J( z1 w7 {0 f Dim x As Double, Y As Double# v2 T8 ^. t$ ~+ Z
Randomize
9 {! u! F5 A/ D: c  ~' P  5 ?4 X& Y" S) ?( w
        SC.Reset1 R9 R! e, n% H0 Q
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
3 C* E0 h) C# r+ y7 f7 a+ a       For x = -15 To 15 Step 0.0015 X2 t3 _* F: }, H
         Y = SC.Run("runthis", x)5 L! [, M/ ^, z
         DoEvents/ f5 `8 A6 B9 u# }3 B& @$ o6 x' R% ~
          Picture1.PSet (x, Y), RGB(250, 0, 0)4 R4 c& ?5 \& J
          Next x
- ~) H9 n9 \) U4 X& EEnd Sub</P><>rivate Sub Command2_Click(). r6 }- X7 i7 M/ Q4 q
XY
- K: t8 J$ _5 W/ M/ ~3 Q$ MEnd Sub</P><>rivate Sub Command3_Click()4 T0 `5 w6 P: R
End
1 n% m2 W" ^# s6 d* F1 o7 o5 pEnd Sub</P><>' T, Y0 ?% W3 `: e2 f
Private Sub Form_Load()
" a9 Q/ t3 q* E' iMe.Caption = "美丽曲线——山东省商河一中路来民"
$ Q8 e0 c4 e3 O% c2 Z* oMe.Show$ `% Y9 j! o' Z; \4 I
Me.AutoRedraw = True
2 v1 g: J: z  }% k# OXY
- K0 H/ i* ^7 q( @5 W& `) pEnd Sub+ c, _/ X$ A9 C$ p- A
控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>
作者: 秋天的风儿    时间: 2011-9-23 15:19
呵呵，看大家评论如何
. D1 L3 j/ {9 l! P' s' B  [% H' {  S# G! N
2 N1 ]+ x, c/ l' x2 Y$ T- G6 X

; B5 |! P" H% n+ a+ w$ X) C# Z9 b6 _

4 R) _6 w/ `3 ?6 y4 Z3 _& e7 F$ z- {' j
$ _4 w7 c8 E6 a8 k
# S7 E2 g, L5 s
+ J; ]+ k) W2 S  f

2 S& N+ q+ K  e$ @9 D& y
0 d- p! ~* x: o. H% W1 Z4 G8 L/ f6 y7 m$ A" F
大家好,能交朋友嘛？ok0633.com
作者: ealx0yJu    时间: 2012-10-13 03:38
我看不错噢 谢谢楼主！



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