数学建模社区-数学中国

标题: 帮帮忙，跪下谢谢斑竹，VB [打印本页]
作者: llm3-1415926    时间: 2005-3-2 00:00
标题: 帮帮忙，跪下谢谢斑竹，VB
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>% L" e7 i' d; [& h3 d6 w9 G4 u
$ p$ k4 |) y* K
<TR>- w* L# V+ h5 [' q- G5 _6 h2 O
<TD width=*>8 l. ^9 d0 Q& ?4 T5 g, @' U+ G8 {
<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>9 K! P" N% n& U- T; q' `, ]6 b
<>rivate Function PrintWord(x, Y, Word As String)
4 t6 b  T4 K" L4 W6 Q( DWith Picture1
  g* ]: x7 ^6 w.CurrentX = x9 _! s+ Q8 r+ ~* p( G: p" M) w( V
.CurrentY = Y
. g. x4 w7 M% M: G. A) D9 x! D.ForeColor = RGB(0, 0, 255)7 ~2 F3 [; \  q* l( w6 f; }+ L# T
End With) s9 x# u$ h" v; y3 @' t
Picture1.Print Word! p* M9 R0 u$ s, S
End Function
3 A# b$ W' a% k9 E' s'定义画点函数
$ B: `+ m- t6 a) CPrivate Function DrawDot(Px, Py, Color)2 A$ Q5 x" @4 p; L
Picture1.PSet (Px, Py), Color
" V1 j. i  T6 b& C9 [$ tEnd Function6 L' [- r+ V+ F5 U! W
Sub XY() '建立直角坐标系
& a. D$ T( r! Y& x  @4 {3 kPicture1.DrawWidth = 1 '设置线条宽度" Y, r& _2 g" N% n
Picture1.Cls" t" R+ {9 B+ s' m  P
'设定用户坐标系，坐标原点在Picture1中心# h5 c  k" \& f/ |
Picture1.Scale (-10, 10)-(10, -10), `: i7 f" A: y) }* t) Y6 D( _. r
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)  q: }% @% h  {* t
Picture1.Line -(9.5, 0.5), RGB(0, 0, 255). g) j2 C, G- {6 e6 f1 q
Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
0 N0 q4 V- Y/ {: }2 w3 iPicture1.ForeColor = RGB(0, 0, 255)6 c" {* N! H9 L4 {3 N+ d
Picture1.Print "X") H& ?& x' Q' \' u, I7 R
'画 X 轴
) o6 P9 Y$ b1 FPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
; `9 G* r; c8 n5 y% TPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)$ F9 B) }/ {5 t" V% L9 f
Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
+ E) s8 }2 s; C9 NPicture1.Print "Y"
8 i: L% ~4 Y0 b# @* p; N'画 Y 轴0 z/ ^" G& z6 t7 l; G0 x* V
For lin = -9 To 9
* A3 q( {. _" i+ B3 j1 wPicture1.Line (lin, 0)-(lin, 0.25)/ V* M4 g7 X. `, r& ^
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
" T$ J& n. g7 _3 g) zPicture1.Line (0, lin)-(-0.25, lin)
0 i; \$ Y& @! x! x! K  J* k2 A' n. DIf lin &lt;&gt; 0 Then( _( Y! N/ f7 G: y9 q& j& v
wor = PrintWord(-0.9, lin, Str(lin))1 s. X1 d" ~& \
End If
( }8 l+ j% w4 Y0 b/ C  ?3 a7 nNext lin! l# M( @* f3 l% I6 I- P2 q$ W9 ?. [6 _
Picture1.DrawWidth = 1+ M# R7 ]1 k* f9 @7 j( y1 ?+ r, R
End Sub
3 Q, ?) j# {. V# M" TPrivate Sub cmdPlot_Click()
, p/ x* s2 h6 }XY
# `8 ^3 V4 f# ?9 X4 k7 X4 SOn Error Resume Next
! [7 ^/ A2 I0 X! w* L1 u0 _" C& g7 N, \Dim x As Double, Y As Double
4 ]. h$ s) I: Y/ N1 @+ H* _/ ORandomize% N$ b' |2 V( o! I1 q
  
# W: r6 A0 b4 ^5 ]        SC.Reset
: n. i% C  ?4 i+ c( y4 q1 v4 B6 N+ N        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
8 F# u" g* \, _  t) h( p       For x = -15 To 15 Step 0.001
# c1 Y! j! s# G         Y = SC.Run("runthis", x)8 \/ r! g+ X* [* e/ E( R
         DoEvents
  x. K8 T4 V5 t3 l          Picture1.PSet (x, Y), RGB(250, 0, 0)! H) B2 G. e( ~+ P: X3 C
          Next x
2 z2 y, b" o' W7 Q; m* eEnd Sub</P>8 Z" s; m3 |- z) q* K6 ^
<>rivate Sub Command2_Click(): s9 j6 T" Y" N. z
XY
2 K! P) [; }4 U6 a5 r( N9 |- zEnd Sub</P>: A9 D% I% N2 ?" ~, e, `4 }/ c
<>rivate Sub Command3_Click()4 N( T% G& U% h( X  s: g1 b1 v9 E/ X* P
End
8 t. f- N! q* W3 kEnd Sub</P>
0 a: m: I$ G* G6 K& W" W' {<>
6 K( `1 y% _6 F/ V) H- |! ?Private Sub Form_Load()
+ u7 U4 l" S9 Z! v# `# x. NMe.Caption = "美丽曲线——数学爱好者"
; O/ L( ^1 T" N  b& |* X6 }Me.Show
+ G# B1 }# _2 w+ ]Me.AutoRedraw = True
+ Q! [0 _* E* t, V: rXY$ q4 R* A5 M# C4 q& d4 N4 j
End Sub( ?$ O7 `( y  ^9 n5 \6 Z# H
</P></TD>, A0 G0 ^, S" b  W- Z
<TD align=right width=60></TD></TR></TABLE>/ p0 c  a1 B7 ?
<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>
* ?1 O+ q; T* y  s& K5 }1 t
[此贴子已经被作者于2005-3-4 17:40:39编辑过]
作者: kensington    时间: 2010-2-3 23:09
回复 1# llm3-1415926
2 G* p8 c: H, E1 @' a: N2 R
+ L# n0 e7 }+ ?8 y+ H5 V2 J+ p+ G# i; b& ]+ o
你在搞什么呢？………………………………………………
作者: 数学者    时间: 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