数学建模社区-数学中国

标题: 帮帮忙，跪下谢谢斑竹，VB [打印本页]
作者: llm3-1415926    时间: 2005-3-2 00:00
标题: 帮帮忙，跪下谢谢斑竹，VB
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
# m. x; S0 ]) L3 w% A+ \2 U% V
<TR>
: \) @( q5 P7 B. s<TD width=*>
4 c' c0 X, _7 m- V3 n  Z5 u7 E/ g<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
5 _4 ?' u( u3 M. w) z6 y  V<>rivate Function PrintWord(x, Y, Word As String)
& c3 ]5 ?4 J, {  x' J: `; c; x9 gWith Picture1: `# O% N& m5 `, Z7 N
.CurrentX = x3 z$ B7 M4 D, C% B3 a0 m
.CurrentY = Y3 o, |9 F+ D& v2 c3 E
.ForeColor = RGB(0, 0, 255)
; S# z. @- N1 ^End With
/ l0 g: t! ~7 G+ VPicture1.Print Word
- j( e: V0 E* P# d& _% REnd Function
! Y& T- J+ X# ?1 s! l' O8 W- j" Y'定义画点函数
$ M+ w+ ]3 F3 |Private Function DrawDot(Px, Py, Color)
' D( q: x& r4 W; CPicture1.PSet (Px, Py), Color) l1 A8 U" f3 ?
End Function
5 e6 L3 c" u0 YSub XY() '建立直角坐标系& D' a. I1 y# b4 }+ H9 w: m
Picture1.DrawWidth = 1 '设置线条宽度' t+ j" p  D+ t+ a. L
Picture1.Cls1 a& i4 y+ ]. Y+ k: u' D2 T! L
'设定用户坐标系，坐标原点在Picture1中心2 V7 Y+ I. j( O! q
Picture1.Scale (-10, 10)-(10, -10)
2 P3 \  c* B. ]$ pPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)1 _% [) _7 @& p  w7 ?) G
Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
! e7 B4 h$ l2 Y( P9 k% tPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255), w) r4 u* T! e& j8 R7 @' J! v4 y
Picture1.ForeColor = RGB(0, 0, 255); K- C# @  m' {+ G- }3 u8 H
Picture1.Print "X") \0 f9 C+ u0 g  z0 v6 H; e: G  J
'画 X 轴
- f% q2 B9 z, _6 W3 M( k1 jPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)/ N9 T, @2 X" g- P' K
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255): y6 [6 Q, {1 R
Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)% d% F6 \% l# C% W8 @
Picture1.Print "Y"
% ]" F* e# s% K) H) d, J' B! K! E+ k'画 Y 轴
0 g6 E  h/ w& hFor lin = -9 To 9
$ b8 _: i1 x4 o  L# n' UPicture1.Line (lin, 0)-(lin, 0.25)
/ Z1 X/ U' t' p' n$ `6 xwor = PrintWord(lin - 0.5, -0.5, Str(lin))
" T7 s$ `, j  b2 \( FPicture1.Line (0, lin)-(-0.25, lin)
/ x2 q9 Y& v2 UIf lin &lt;&gt; 0 Then
! _2 ]$ h! u# @1 J# g' Lwor = PrintWord(-0.9, lin, Str(lin))! }3 U0 @. B4 T2 e4 J) {9 v  y% J
End If' F# ?1 q, O) M$ z. \- P; f% T  \% I
Next lin8 W* z; ^/ k7 g! g9 v
Picture1.DrawWidth = 1$ @' h4 M" u! u
End Sub
/ l1 t; S1 w3 J% lPrivate Sub cmdPlot_Click()  Z7 L. F$ U# O% D$ l
XY
) h+ R" u- O! Y0 i/ JOn Error Resume Next
& x1 z- b* }- r0 U2 E6 o) cDim x As Double, Y As Double
6 j% k( Y( F/ R" h3 JRandomize
) p8 l) A  }2 Q1 Y/ k+ k  5 e4 {0 O1 v  s1 U/ w: x
        SC.Reset3 k" a5 t* D) l& Y* B( y& n( _
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"8 z0 g4 x) M# L0 M& K
       For x = -15 To 15 Step 0.0015 v) v/ Z/ X# J3 `5 j
         Y = SC.Run("runthis", x)3 W0 n! C* m8 r9 t! V. `- A% N
         DoEvents
5 T2 U( R& }7 G% S5 L( a, R9 f1 g          Picture1.PSet (x, Y), RGB(250, 0, 0)
7 {; K' f$ B  q$ j( M' e          Next x
7 ?* ^7 [+ U  h( c3 f$ E: QEnd Sub</P>6 M2 `% Z- o+ f! a* t# Z8 G
<>rivate Sub Command2_Click()
! e# }/ d  {2 A; w9 PXY
2 n5 S  ^- U7 Y3 r) g2 PEnd Sub</P>+ k8 W; m3 s/ U2 a) U3 }
<>rivate Sub Command3_Click()
) @9 D, }0 L8 `/ @9 rEnd1 L6 B  u! y3 y$ }9 e
End Sub</P>( ]7 G( d9 i  Q, y0 Y
<>
& S7 k" A2 o: Q# }+ z* nPrivate Sub Form_Load()
) r; W1 o0 V3 ?5 U7 `Me.Caption = "美丽曲线——数学爱好者"
/ n) w' z: @# ~3 j9 ?& dMe.Show# J3 u3 Z9 o& D# \3 ?
Me.AutoRedraw = True9 |3 D+ G$ r' n8 u$ C- y3 [7 k
XY
0 {; ~. K3 V$ SEnd Sub
" G4 W9 Q& R! n: V</P></TD>
' U  @$ R' H! X6 Z- G$ L<TD align=right width=60></TD></TR></TABLE>
7 s& p6 L; C. g1 a! x<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>
$ K% G2 [( X" R- y+ }8 {
[此贴子已经被作者于2005-3-4 17:40:39编辑过]
作者: kensington    时间: 2010-2-3 23:09
回复 1# llm3-1415926 # v% N5 G5 \( I
' F7 q& g& J1 s2 D, w- t8 K: k
, {  {4 i/ n" W0 w+ {
你在搞什么呢？………………………………………………
作者: 数学者    时间: 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