数学建模社区-数学中国

标题: 帮帮忙，跪下谢谢斑竹，VB [打印本页]
作者: llm3-1415926    时间: 2005-3-2 00:00
标题: 帮帮忙，跪下谢谢斑竹，VB
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
. W; j2 P  c0 g, a! p7 v- R# z, ?( _$ Y. H) k
<TR>
- E6 k5 t+ F+ T7 W<TD width=*>  w+ k" ^8 o; A) E7 F, U5 A  P
<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
# ?* C1 q; A2 U<>rivate Function PrintWord(x, Y, Word As String)) {! l5 V1 U% z  H
With Picture1
4 @8 e* s9 h+ y7 k! C2 L9 \5 H.CurrentX = x
2 \6 J& i1 V1 ^.CurrentY = Y
' k) [0 A& b( g% v; g4 H" Y.ForeColor = RGB(0, 0, 255)  y3 n6 b  X# l- {) g5 o7 o
End With
) v7 r  D6 A4 t# Z' o$ kPicture1.Print Word+ @# x8 l9 b$ N5 ]- g
End Function, w8 C; y# z0 r
'定义画点函数
& d7 D* _( I+ I8 A' B' G- T4 lPrivate Function DrawDot(Px, Py, Color)
$ E- n0 @! t9 G  j  ^Picture1.PSet (Px, Py), Color' ~6 P, R+ D. I  `
End Function
" V. P! l; I4 _. T. A+ HSub XY() '建立直角坐标系
& d7 |8 ]; h7 N2 E5 z' W- Q- X( bPicture1.DrawWidth = 1 '设置线条宽度7 K. C0 n% p$ h8 R1 G+ W7 J5 J* ~
Picture1.Cls3 v+ i6 Y+ t/ R0 X5 w, r7 e; A
'设定用户坐标系，坐标原点在Picture1中心
1 O# C& ]& Z1 s3 w' tPicture1.Scale (-10, 10)-(10, -10)
! w; p4 Q1 k" Q4 F+ N  t# ^' APicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
) j# v. x: k8 Q% k% K8 g9 K/ \Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)+ Q  }9 Y& x2 ~" \8 {+ n
Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
2 e6 c3 F" d# F$ [" l! jPicture1.ForeColor = RGB(0, 0, 255)( n6 L) x: g0 F& [
Picture1.Print "X"
7 \/ Y! K9 p" a1 F'画 X 轴
0 I& h' f1 G: S' |0 }  b" nPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
& ^) J! ]- Q. I* n: LPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)1 K( f7 U/ Y! ]/ R3 [
Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
3 |, L* ]/ u3 _5 u! W1 ^- ^Picture1.Print "Y"
. V% @0 d* k/ r4 U; u0 K'画 Y 轴; p4 V/ Q6 O# {3 n
For lin = -9 To 9: ]/ s( ?; I5 x. o. u
Picture1.Line (lin, 0)-(lin, 0.25)% H( F+ s1 i9 u
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
- t# W6 X1 D% ]" v. n0 T1 LPicture1.Line (0, lin)-(-0.25, lin)6 U9 c# J0 Z# e3 L/ _: }
If lin &lt;&gt; 0 Then1 |4 b2 @( G6 {: {- Y  W3 y
wor = PrintWord(-0.9, lin, Str(lin))0 t  U+ h1 J3 b4 z- B
End If# C9 u( d! d* ~
Next lin
# T" ?( \, B8 fPicture1.DrawWidth = 16 b' h+ s9 c. p' q# A
End Sub+ y" J/ H; B# Y$ H! z1 C
Private Sub cmdPlot_Click(); F& d7 ~+ h. }- t6 l% B. @
XY
4 d$ z& h: S& c) kOn Error Resume Next& v3 S1 I% t, e: p- s$ I- c
Dim x As Double, Y As Double
' ^1 @6 j* Q/ c' }9 {Randomize* K0 F. C9 Y) w4 ^# x
  
4 L- S! R1 X% O* V        SC.Reset: S; Q9 \; f6 d. Z% T' W
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
9 A, ?4 `0 h) r7 D       For x = -15 To 15 Step 0.0013 e8 |& N' Z: i9 \
         Y = SC.Run("runthis", x): Z/ {0 x" c5 V) y
         DoEvents
) \, ^. b6 L' b4 ?$ X7 e          Picture1.PSet (x, Y), RGB(250, 0, 0)1 G3 d+ P1 e0 y! l, L# s- y
          Next x
( r: t5 n. T2 b7 QEnd Sub</P>; l: Y# n4 I+ f3 {8 q& ^
<>rivate Sub Command2_Click()9 ^9 `5 E! k" d2 U/ C9 A( R
XY
, r$ ]8 O; \( S' h' TEnd Sub</P>
& O3 E% N0 n, y* H3 d<>rivate Sub Command3_Click(): ~! H7 {! [+ b1 K8 ~/ @
End
9 h  r! D, @$ y% @End Sub</P>- T/ i% A5 B( ~# m. C" g5 U
<>; e: x. p! {; a6 ?, J; ]; ~" w
Private Sub Form_Load()4 K3 d/ u2 u# S4 \2 X: c
Me.Caption = "美丽曲线——数学爱好者"& d- _3 T, |' f( D
Me.Show
! x, g! `# M3 e' QMe.AutoRedraw = True2 M; k# X1 q8 p' H2 E
XY/ G8 h& q; w  ?
End Sub+ p% D" ]# g1 V
</P></TD>& W- \- W% u& A5 @: O$ X
<TD align=right width=60></TD></TR></TABLE>
- C% q8 @& ~6 h<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>
; K# ~- Q$ ]1 K% Z0 W4 r
[此贴子已经被作者于2005-3-4 17:40:39编辑过]
作者: kensington    时间: 2010-2-3 23:09
回复 1# llm3-1415926 6 \& E( C0 Y5 w; R# t& u7 k
" |; Q8 J) T9 s) S
9 v+ v1 m6 g, U/ i' l: q
你在搞什么呢？………………………………………………
作者: 数学者    时间: 2010-3-10 23:00
楼主这是啥意思啊？不明白你在说什么呢~
作者: 水木年华zzu    时间: 2011-1-26 16:29
代码写的好不好另当别论，格式一定要好
作者: sxjm567    时间: 2012-10-15 01:08
好帖，确实好帖！
作者: 诺＆然    时间: 2013-1-25 15:11
亲，你在写什么啊？
作者: 诺＆然    时间: 2013-1-25 15:12
我不得不承认我是有一点VB基础的孩子啊，可是真的完全看不懂



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