数学建模社区-数学中国

标题: 帮帮忙，跪下谢谢斑竹，VB [打印本页]
作者: llm3-1415926    时间: 2005-3-2 00:00
标题: 帮帮忙，跪下谢谢斑竹，VB
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  T; x8 J" W" H# O! F$ c
1 b7 P& s% v$ f2 U& V9 I( @! N<TR>: m- ]) d& c/ v4 ]
<TD width=*>
6 W3 l- e$ Z7 z5 Q( P! \<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
( c2 q: _/ M  A<>rivate Function PrintWord(x, Y, Word As String)
2 y5 `5 r6 _9 y8 R1 i6 {9 kWith Picture1
3 Q2 j' W8 X. U  ^) N! D* d.CurrentX = x9 \& V! k5 t: }3 s& h. P
.CurrentY = Y$ s" T/ d0 H) W6 v
.ForeColor = RGB(0, 0, 255)
% ^' w( ^* q) h! i- b2 {End With
1 j8 f7 s  T4 _+ ]* N3 s; jPicture1.Print Word4 x. a7 d3 D& R  j/ S1 ?
End Function
" s' n8 i* T, ^8 z'定义画点函数
) }( ]5 D/ Q. kPrivate Function DrawDot(Px, Py, Color)
* c, D: ?5 _7 ~6 t, IPicture1.PSet (Px, Py), Color
2 n( v; E$ Z: q) n" Y4 t, ]8 |' PEnd Function! V: x/ [& l5 \0 u
Sub XY() '建立直角坐标系
. T/ g/ w5 _7 L' t- R& ~' w# L) x) fPicture1.DrawWidth = 1 '设置线条宽度
3 F" Q7 {( ~/ A+ z0 U$ k& ^Picture1.Cls
2 s5 p- F: g$ @* N'设定用户坐标系，坐标原点在Picture1中心3 v/ J) I! l8 Y! B, A
Picture1.Scale (-10, 10)-(10, -10): J. e6 f/ `0 Y( S/ x' _* F% t$ A
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)$ D4 L! X8 a0 D; j) J9 b3 M' U7 l
Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)/ Y* B+ i5 i- d5 P# C0 G" y
Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
; j. a$ Q  b& K/ w5 q5 J" S. k; ^. HPicture1.ForeColor = RGB(0, 0, 255)
" q$ F! i! p5 @* l; p9 L, iPicture1.Print "X"
3 g- _9 e9 C7 ?/ `'画 X 轴6 T7 t0 S" p* o( Z: P$ @, [" {
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
) u$ u% q* m  s# X, FPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
2 g6 p% \! ^/ q# E$ x. @Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)1 S% p' |7 V# f8 L
Picture1.Print "Y"$ y: G- j. F; Z" r+ H! D1 E) R4 z
'画 Y 轴
- p% P, z* Y4 Y3 \2 `7 D) r, B0 CFor lin = -9 To 9+ ]8 ?6 v, n! v, E3 W
Picture1.Line (lin, 0)-(lin, 0.25)% g" ^3 U3 c1 c) w- y  D) J
wor = PrintWord(lin - 0.5, -0.5, Str(lin))* k; ?  X6 U7 k8 i* Y1 [
Picture1.Line (0, lin)-(-0.25, lin). z2 c1 b- s0 m8 |0 Q7 e
If lin &lt;&gt; 0 Then$ |5 _0 t4 W3 m% p: G) D) P
wor = PrintWord(-0.9, lin, Str(lin))' n: k8 B7 g9 J" P
End If
8 J* h9 B. i' _7 e" QNext lin6 Z8 b& g) f" M/ c' d
Picture1.DrawWidth = 1
# Y6 [+ S8 ~4 B: V  ?End Sub; D2 F; U* R9 R: h) e5 ]0 c9 i: K
Private Sub cmdPlot_Click()6 I; M# x# l- r  {% b' \6 ~9 `" B
XY
$ a1 e$ J6 h1 {: {- jOn Error Resume Next5 p# c! ^& Y8 F2 `/ g
Dim x As Double, Y As Double! H( Y' e( N4 b8 ?! N
Randomize4 u$ S# {; J; F0 R+ n3 @" J: m
  - x8 f0 E& o& q/ _: |
        SC.Reset
1 N4 J% B3 I0 E1 k        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"3 u. t. x# N0 Y+ i
       For x = -15 To 15 Step 0.001
8 B" [- R, w: z3 n" e0 h# \         Y = SC.Run("runthis", x), G, ?( J" w0 i& v) A
         DoEvents
2 n. A7 P& J$ D' W# _          Picture1.PSet (x, Y), RGB(250, 0, 0)3 h: S1 G/ ~; i: ~) G* C
          Next x- b4 {! l" x- h3 s7 g' Y3 _* g: H$ W
End Sub</P>
; F, Q& m2 |1 [3 [* E6 D8 u<>rivate Sub Command2_Click()# ^/ n: G. W2 O6 V$ q5 V3 X7 J
XY
/ z  U$ _6 l2 i! {5 z- EEnd Sub</P>/ J! g. _. Z/ E. [3 m
<>rivate Sub Command3_Click(); u$ q5 {  F4 z2 w$ x# I
End7 e7 M+ h$ R4 o' t! P/ X; k2 S
End Sub</P>
  z) {1 C+ q. b3 |8 O: L3 Z4 G' X<>
2 R$ i3 j! Q) ?4 n! HPrivate Sub Form_Load()' Y7 c0 G( ?2 ~. K
Me.Caption = "美丽曲线——数学爱好者"
/ P+ }# n7 t/ s& S$ nMe.Show
, F- l6 {" {" v2 `Me.AutoRedraw = True* x9 u: s) r% T: z4 A* H2 R
XY
* i% g, S- C' b5 H9 }. S" [* W6 bEnd Sub
, t% U" C0 p: @, c7 P5 D</P></TD>/ g, U( Z$ R9 E
<TD align=right width=60></TD></TR></TABLE>  z( F, l5 f0 Q% i
<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>* ~3 v# d8 m" s. J
[此贴子已经被作者于2005-3-4 17:40:39编辑过]
作者: kensington    时间: 2010-2-3 23:09
回复 1# llm3-1415926 & O* R, w: d0 P8 k1 A" H
! l9 l, x8 A: v( z5 E

- e) O7 P. n9 P, i* B" S你在搞什么呢？………………………………………………
作者: 数学者    时间: 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