请高手诊断一下,问题出在哪里?(页 1) - VB6论坛

wukaini 发表于 2008-5-24 20:21

请高手诊断一下,问题出在哪里?

各位好,这段程序运行时,指针只转一下后,就不动了,而且指针线条变得弯弯扭扭的.麻烦大侠帮我看看我这段代码到底哪里出问题了?谢谢了!
开始按扭代码:
Timer1.Enabled=True

Form_Load代码:
  Timer1.Enabled=False
  Timer1.Interval=1000
  Picture1.Scale (-1,1)-(1,-1)
  Line1.x1=0 : Line1.y1=0
  Line1.x2=0 : Line1.y2=0.7
  arph=0

Privale Sub Timer1_Timer()
  arph=arph+3.1415926/30
  Line1.y2=0.7*cos(arph)
  Line1.x2=0.7*sin(arph)
End Sub

flyue 发表于 2008-5-24 20:52

你自己调试一下，看看这些变量的变化

三断笛 发表于 2008-5-24 22:35

Timer1.Enabled=False?
要为ture吧?

taihongbo 发表于 2008-5-24 22:48

测试了

运行起来了，很好。看样子要做个时钟。

Option Explicit
Dim arph As Double  '------------------------这一句我加的
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
  Timer1.Enabled = False
  Timer1.Interval = 1000
  Picture1.Scale (-1, 1)-(1, -1)
  Line1.X1 = 0: Line1.Y1 = 0
  Line1.X2 = 0: Line1.Y2 = 0.7
  arph = 0

End Sub

Private Sub Timer1_Timer()
  arph = arph + 3.1415926 / 30
  Line1.Y2 = 0.7 * Cos(arph)
  Line1.X2 = 0.7 * Sin(arph)

End Sub

[[it] 本帖最后由 taihongbo 于 2008-5-24 22:54 编辑 [/it]]

flyue 发表于 2008-5-25 14:45

你在一楼发的代码不完全，所以我们也看不出哪里有问题。

wukaini 发表于 2008-5-27 20:11

谢谢各位了,特别是4楼的taihongbo.
声明那么重要吗?为什么有的变量不声明也可以啊?什么样的变量是必须声明的?
家里的VB不知为什么不能运行,明天上班后再试看.
还想请问各位:我的VB是企业版的,没有帮助系统,哪里有下载的啊?
再次感谢各位!

wukaini 发表于 2008-5-28 21:52

今天上班时补上声明试了，转起来了，只是指针除了在垂直或水平外均呈波浪形，怎样才能让它总是直线型呢？

multiple1902 发表于 2008-5-28 22:02

[quote][bo][un]wukaini[/un] 在 2008-5-27 20:11 的发言：[/bo]

谢谢各位了,特别是4楼的taihongbo.
声明那么重要吗?为什么有的变量不声明也可以啊?什么样的变量是必须声明的?
家里的VB不知为什么不能运行,明天上班后再试看.
还想请问各位:我的VB是企业版的,没有帮助系统,哪里有 ... [/quote]
声明是好习惯，而且是非常好的习惯，而且有助于控制程序Bug。

wukaini 发表于 2008-5-29 20:06

谢谢!以后我一定注意养成声明的好习惯.

lzn3303768 发表于 2008-5-29 21:17

在工程选项那里设置一下必须声明

页: [1]