- 在线时间
- 0 小时
- 最后登录
- 2005-10-29
- 注册时间
- 2005-1-17
- 听众数
- 2
- 收听数
- 0
- 能力
- 0 分
- 体力
- 220 点
- 威望
- 0 点
- 阅读权限
- 20
- 积分
- 71
- 相册
- 0
- 日志
- 0
- 记录
- 0
- 帖子
- 10
- 主题
- 4
- 精华
- 0
- 分享
- 0
- 好友
- 0
升级   69.47% 该用户从未签到
|
< ><b>帮帮忙,跪下谢谢斑竹,VB</b></P>< > rivate Function PrintWord(x, Y, Word As String)( O( ?8 z. t3 U1 B6 m0 N
With Picture1. I; \. p2 i9 d2 o/ k/ n+ P
.CurrentX = x2 c) d0 `9 S$ ^/ G& u
.CurrentY = Y: F2 b6 I8 r; b" c( B
.ForeColor = RGB(0, 0, 255)
( s5 s/ I' J. g* f6 E: s2 f/ }6 {1 OEnd With
9 ~* }5 Z! F" o8 a7 KPicture1.Print Word
K- C1 _0 T @# T2 B6 Y$ ~' u% gEnd Function7 x/ I" k% u {- v
'定义画点函数3 v" k7 Y. p4 w& _
Private Function DrawDot(Px, Py, Color); @, P! }. \4 i+ \" V+ K B1 j2 f
Picture1.PSet (Px, Py), Color
6 }: w4 l& L/ [! K: ]+ q- R5 `End Function
% i8 o0 y) _- o2 }Sub XY() '建立直角坐标系
) T0 e6 Q: [; J6 s6 Y) b; e5 }Picture1.DrawWidth = 1 '设置线条宽度
" Y( b& I0 r8 l8 Q. b1 IPicture1.Cls
: G4 m' ^3 G7 v! x) I' A$ y'设定用户坐标系,坐标原点在Picture1中心 ~2 m; X* z3 n/ ?0 m
Picture1.Scale (-10, 10)-(10, -10)# Q0 j% M2 j: l" N0 l. p, Y) P
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)5 ]* u6 _2 r$ N6 h( V7 |4 a
Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)# {; s' e) ?+ |+ h( u& o6 a) M
Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
: j; [. U) ]; @7 S! n. V8 O4 qPicture1.ForeColor = RGB(0, 0, 255)6 ]2 d, A* U5 E) Y; u3 H) C$ c8 a
Picture1.Print "X"
7 t' r$ o8 f6 N+ F4 m) g'画 X 轴8 V8 X' {4 ]. r4 `* [
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
! }7 I& I9 F r% yPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
" O* z# O( {2 a8 h. f8 g7 cPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)3 h; k5 ?% p* v9 z
Picture1.Print "Y"# v; r' Y5 }$ g, `
'画 Y 轴
$ v7 u8 {3 x& c% I- R8 gFor lin = -9 To 9( B% B% O2 W$ ^0 ?
Picture1.Line (lin, 0)-(lin, 0.25)4 H8 }9 l- A0 i
wor = PrintWord(lin - 0.5, -0.5, Str(lin)): t5 @' }4 t; T+ c7 R
Picture1.Line (0, lin)-(-0.25, lin)/ _1 Q* L) ~% i) o& O5 M
If lin <> 0 Then& t; ?2 B d3 H) u' H" R
wor = PrintWord(-0.9, lin, Str(lin)); z3 c* p& F2 P
End If2 P+ ? N+ A3 _1 ^* x
Next lin
/ I5 U- Y7 T; v6 u$ T& @ MPicture1.DrawWidth = 1' e# Y+ K& x2 ^3 q! Z6 w
End Sub
: y$ e7 _3 {; q7 y* k5 jPrivate Sub cmdPlot_Click()
( f. b. W0 R3 @1 I0 ]XY% K$ U/ _' n% m. C8 J% A' u
On Error Resume Next
5 i1 z. J. i. v- ?$ Z" ^ Dim x As Double, Y As Double
9 ^2 o0 N/ n4 ~6 B Randomize
; a' o4 c3 N* g, Y) [$ a + ~8 P% {) V2 K* `6 @
SC.Reset2 Z5 |. z" t R( Z0 f. e( [
SC.AddCode "Function RunThis(X)" & vbCrLf & "RunThis=" & txtEquation & vbCrLf & "End Function"
! y1 P" M* v/ j For x = -15 To 15 Step 0.001
9 c3 M5 C- ]! Q( A Y = SC.Run("runthis", x)
% s; }. y6 @! I1 x/ Y/ t3 d3 \ DoEvents0 ^0 N+ L" G# l, x, j) U# _
Picture1.PSet (x, Y), RGB(250, 0, 0)
. `( e! D) X, ]: e Next x
# X5 _5 m: P4 F& [! z" r9 XEnd Sub</P>< > rivate Sub Command2_Click()
' A9 z+ |+ ]7 H7 aXY
# U+ q2 j$ v1 P1 U, x8 p) a0 _End Sub</P>< > rivate Sub Command3_Click()
) v5 O4 |$ e. l6 R1 }End
2 J6 ~+ h" ^+ {8 W4 u4 YEnd Sub</P>< >$ c* x% R) i0 L
Private Sub Form_Load()1 n/ k+ v, f+ o7 J: ^9 |
Me.Caption = "美丽曲线——山东省商河一中路来民"
+ P3 P. @0 |+ a9 m1 E' zMe.Show m# P# @" M9 p3 P- I
Me.AutoRedraw = True* _/ U% H% E' m
XY
) s5 E4 T2 m$ E' z' _0 `# ]) f5 FEnd Sub3 {# |/ D# F! h* Z
控件</P>< >为仕么Y=LOG(X),SQR(X)也有图象(X轴负半轴), SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢!!!</P> |
|