QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 10209|回复: 4
打印 上一主题 下一主题

帮帮忙,谢谢大侠,VB

[复制链接]
字体大小: 正常 放大

4

主题

2

听众

71

积分

升级  69.47%

该用户从未签到

新人进步奖

跳转到指定楼层
1#
发表于 2005-1-17 22:01 |只看该作者 |倒序浏览
|招呼Ta 关注Ta
<>rivate Sub cmdPlot_Click()
% v+ C  Z0 b" u* iXY! O4 V" ?4 X7 w- s# w
On Error Resume Next
; }' S+ C8 u. X+ v2 o$ S0 ?! ] Dim x As Double, Y As Double8 L; l/ Z4 t% o0 }& r
Randomize- [0 x; U5 B* {5 g$ C4 {
  
/ `) x4 s( u; q3 V4 L/ w6 y7 d        SC.Reset
$ ^+ [+ W7 l6 |$ {# I( K: @        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"7 e" k" x9 r! ?# N
       For x = -15 To 15 Step 0.001
, H" M) t) n& V" u         Y = SC.Run("runthis", x)
- O6 q' X" _/ o2 d1 q         DoEvents
0 f( _0 ^$ y: o# p5 N          Picture1.PSet (x, Y), RGB(250, 0, 0)) x9 l$ s' N" x9 Z1 k9 Z
          Next x
* k1 _" x' a5 @; ~" JEnd Sub</P>
2 N8 ]8 M: b4 z0 I6 X! \<>为仕么Y=LOG(X),SQR(X)也有图象(X轴负半轴),请帮忙</P>
zan
转播转播0 分享淘帖0 分享分享0 收藏收藏0 支持支持0 反对反对0 微信微信
USER001        

2

主题

2

听众

61

积分

该用户从未签到

元老勋章

回复

使用道具 举报

4

主题

2

听众

71

积分

升级  69.47%

该用户从未签到

新人进步奖

<><b>帮帮忙,跪下谢谢斑竹,VB</b></P><>rivate Function PrintWord(x, Y, Word As String)2 a* n0 ]8 F6 Q9 a2 K: j% t
With Picture1" O1 R$ K$ @$ W6 w
.CurrentX = x
8 b% G$ F4 {; n: Y, m.CurrentY = Y3 a- t/ C5 O5 _: {
.ForeColor = RGB(0, 0, 255)
5 F  |/ r  B1 S) BEnd With, s$ m! o1 ~  w2 z: _! R, {5 J& l% g
Picture1.Print Word
  E" H6 G+ K: K6 h" Y) j: W8 EEnd Function6 _- ^# }, X4 Y+ V0 ^
'定义画点函数- @$ ?" L/ r  |) g  K( d" G, P
Private Function DrawDot(Px, Py, Color)2 N$ I4 H) n; ^  e
Picture1.PSet (Px, Py), Color
8 J9 Y/ B' x1 e5 DEnd Function4 v% d6 J* F+ w9 o( z+ }/ I
Sub XY() '建立直角坐标系6 O- j. `( ]& G6 G, G4 y
Picture1.DrawWidth = 1 '设置线条宽度( |& s) `% p8 s5 I9 J+ z. R) L: @
Picture1.Cls
8 d& }  x; {" a& m8 \3 k'设定用户坐标系,坐标原点在Picture1中心
! g, ?1 ?" }% r" Q7 I# w, bPicture1.Scale (-10, 10)-(10, -10)
( ?" M! B# l/ I4 @, }/ tPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
$ Q  J( n. b$ T+ A/ rPicture1.Line -(9.5, 0.5), RGB(0, 0, 255)
5 F- L& t7 l  UPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)' H3 R- L6 E; M( K
Picture1.ForeColor = RGB(0, 0, 255)* @5 l1 Y0 ]8 Y- t
Picture1.Print "X"
! H( B/ @# U/ _1 S6 v* W6 Q'画 X 轴
1 ^3 }, K  e( K2 |Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
& t$ O0 i# j# t( O! Y' U: U) T' S1 vPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
0 Z% [/ K' R$ ]& Y8 aPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
; D0 S+ c0 f# T5 O% s" y3 fPicture1.Print "Y"
- x, o, ?; x1 ?4 H'画 Y 轴  E% l1 Z( O$ j* b5 x5 d
For lin = -9 To 9
4 K- B. U7 V: ~$ E0 ?Picture1.Line (lin, 0)-(lin, 0.25)
4 B* N  }7 p6 Ywor = PrintWord(lin - 0.5, -0.5, Str(lin))
' u2 w3 v- c- t* G0 APicture1.Line (0, lin)-(-0.25, lin)* x! |5 h# `3 c: s9 x3 j
If lin &lt;&gt; 0 Then8 u( i  t: U0 w9 n& a, n4 Y2 m, N% b
wor = PrintWord(-0.9, lin, Str(lin))
7 R1 e( h( K0 l" AEnd If
. h0 _, C. {: ]2 R9 H9 |8 s8 G+ {Next lin
% k0 ^: J6 Z3 a5 {1 ~Picture1.DrawWidth = 19 d+ P9 `! W  M
End Sub
  [* H& U8 D# HPrivate Sub cmdPlot_Click()
* Q/ I7 g2 Y* e6 i  ~, E( |XY, \6 i* V6 w/ ^; U: R
On Error Resume Next
4 [2 Q0 V- g, H2 L* s1 ] Dim x As Double, Y As Double3 g/ Q1 U3 C  I4 t  h. P
Randomize
3 x/ T2 p& m/ m  7 N! @' u" m4 w! ^9 g3 w3 O6 U
        SC.Reset6 _: c& w% f- J. V! k, H! D7 \( Z* S$ I0 Y
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
( y" s& O, z9 p' d       For x = -15 To 15 Step 0.001
& `7 J* @9 \/ z9 e+ w. S         Y = SC.Run("runthis", x)- M1 H6 g' X% C
         DoEvents5 _- \2 n7 }1 G) A9 i4 i# u
          Picture1.PSet (x, Y), RGB(250, 0, 0)! j. l5 `% z& X) l( u) C
          Next x
0 d1 G* ^9 A% p$ E% ?+ [End Sub</P><>rivate Sub Command2_Click()
0 ~% x3 y) {  J# y: f$ c' h! L; M, @XY
; m$ L. X; i3 A& gEnd Sub</P><>rivate Sub Command3_Click()
% l3 y3 |6 S  {/ W+ a% rEnd
: @5 J7 S( E, z; w! j6 }- }0 YEnd Sub</P><>
9 {: p" l, B) t$ ]Private Sub Form_Load()
4 Z, z! X) Y2 r# b3 t* ]! OMe.Caption = "美丽曲线——山东省商河一中路来民"
! M" ?* N0 O3 r6 k0 fMe.Show* F9 K! [3 C' {/ ]5 Y3 h5 J# I" w* Q, p
Me.AutoRedraw = True
: P2 d% _9 |) t/ P' e& H9 aXY
1 g2 c: E8 Z# d2 n6 |9 {9 {End Sub, `- w+ [% _; B! H4 z: C
控件</P><>为仕么Y=LOG(X),SQR(X)也有图象(X轴负半轴), SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢!!!</P>
回复

使用道具 举报

0

主题

0

听众

3

积分

升级  60%

该用户从未签到

呵呵,看大家评论如何) [8 S# ]- Z4 R& J
! p$ u" `4 Q: ^8 G. A: o3 o
/ Z/ U5 N& m$ G* `, P) o
0 k5 |; `+ ^# N6 q1 Z9 z5 h

6 c! t+ `/ A0 z5 b6 J( t* X+ i# f0 T. Y/ v! t+ `5 n; r& D* |

! l9 p- B8 l5 g5 P/ R' b
+ D% U& V. t6 \% R2 y) L7 z; k, ^( n' ]# o1 j: o6 o8 ^

8 O$ ]; k. e4 j& {7 O
% j5 }' I2 P/ i  z
9 c+ m" t+ _/ [1 I% {# H/ a/ A0 y% w* \* t+ I/ Y
大家好,能交朋友嘛?ok0633.com
回复

使用道具 举报

ealx0yJu        

0

主题

5

听众

110

积分

升级  5%

  • TA的每日心情
    开心
    2012-10-23 19:08
  • 签到天数: 8 天

    [LV.3]偶尔看看II

    自我介绍
    浩礼光羽丽叔瀚
    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 注册地址

    qq
    收缩
    • 电话咨询

    • 04714969085
    fastpost

    关于我们| 联系我们| 诚征英才| 对外合作| 产品服务| QQ

    手机版|Archiver| |繁體中文 手机客户端  

    蒙公网安备 15010502000194号

    Powered by Discuz! X2.5   © 2001-2013 数学建模网-数学中国 ( 蒙ICP备14002410号-3 蒙BBS备-0002号 )     论坛法律顾问:王兆丰

    GMT+8, 2026-9-20 01:44 , Processed in 2.947057 second(s), 80 queries .

    回顶部