阅读以下应用说明以及用Visual Basic编写的程序代码,将应填入(n)处。 [应用说明] 本应用程序的运行窗口中将显示一个简单的模拟时钟如下图所示: 该圆形钟面上有时针、分针和秒针在运动,不断显示系统的当前时间。 在开发该应

admin2008-04-03  336

问题 阅读以下应用说明以及用Visual Basic编写的程序代码,将应填入(n)处。
[应用说明]
   本应用程序的运行窗口中将显示一个简单的模拟时钟如下图所示:
   
   该圆形钟面上有时针、分针和秒针在运动,不断显示系统的当前时间。
   在开发该应用时,首先建立一个圆形Shape控件作为钟面(背景为白色)。设圆心为像素坐标(X0,Y0),半径为940。再在圆心处建立一个小的实心圆Shape控件作为轴心。钟面上的刻度3,6,9,12为四个标签。时针、分针、秒针(红色)为线型控件,名称分别为LineH、LineM、LineS,线宽属性值分别为:3,2,1,线长属性值分别为500, 700,900。这三个线型控件的起点坐标都固定在(X0,Y0),其终点坐标随转角。而动态变化:
   
   设置定时器Timerl使该时钟能反映系统的当前时间,其定时间隔为0.5秒,该定时器的Interval属性值应设置为(1)。每隔0.5秒,秒针需要调整位置,但分针和时针只是在初始显示时以及在每次秒计数为0时才需要调整位置(可节省计算量)。
[程序代码]
   Const Pi=3.1416
   Const X0=1750
   Const Y0=1150
   Const LH=500, LM=700, LS=900
   Public first As Boolean
   Private Sub Form_Load()
      LineS.X1=X0                          ’ 秒针的起点位置
      LineS.Y1=Y0
      LineM.X1=X0                          ’ 分针的起点位置
      LineM.Y1=Y0
      LineH.X1=X0                          ’ 时针的起点位置
      LineH.Y1=Y0
      first=Tree
   End Sub
   Private Sub Timer1_Timer()
     S=Second(Time)
     S_seta=Pi*(2)                      ’ 秒针的转角
   LineS.X2=X0+LS*Sin(S_seta)              ’ 秒针的终点位置
     LineS.Y2=Y0-LS*Cos(S_seta)
     If((3)) Then
       M=Minute(Time)
       LineM.X2=X0+LM*Sin(Pi*M/30)         ’ 分针的终点位置
       LineM.Y2=Y0-LM*Cos(Pi*M/30)
       H=Hour(Time)
       If(H>=12)Then H=H-12
       H_seta=Pi*((4))                 ’ 时针的转角
       LineH.X2=X0+LH*Sin(H_seta)          ’ 时针的终点位置
       LineH.Y2=Y0-LH*Cos(H_sera)
       first=(5)  
     End If
   End Sub

选项

答案(注意,VB程序代码中不区分大小写) (1) 500 (2) S/30 (3) S=0 or first (4) H/6+M/360 (5) False

解析 本题中,时针、分针、秒针三条线形需要定时调整位置。按题意要求,秒针应每隔半秒调整一次,分针和时针应每隔1分钟调整一次(本题要求在秒数为0时进行调整)。还需要注意,在应用程序运行初始时(时针分针首次调整前)应确定分针和时针的正确位置(否则,会在开始的一段时间内显示不正确时间,最长可能持续约1分钟)。
   因此,该应用程序开发时需要设置一个定时器,时间间隔为半秒(500毫秒)。每次定时事件都会触发秒针的调整,而当秒数为0或初始状态时,还需要重新定位分针和时针。
   定时器的时间间隔由Interval属性值确定,因此,该值应设置成500(以毫秒为单位),即(1)处应填写500。
   该应用的程序代码中,首先定义了若干个常数,包括Pi(π)、时钟圆心的位置 (X0,Y0)、时针的长度LH、分针的长度LM、秒针的长度LS,还定义了逻辑(布尔)变量first(描述是否为初始状态)。
   Form_Load过程是应用程序装载该窗口时自动执行的。该过程的任务是进行初始化:将时分秒针的起点位置设置成时钟的圆心位置,并且将逻辑变量first设置成初始值true。
   在定时器定时事件触发的过程中,先从系统中取得当前秒值S。以S=0时的秒针为标准,秒针的转角S_sera (S=0时S seta=0, S→60时S seta→2π)可以计算如下:
                              S_seta=πS/30
   因此,(2)处应填写S/30。
   根据秒针的起点以及转角就可以设置秒针的终点坐标(LineS.X2, LineS.Y2)。
   按照题意,当S=0或first=true时,需要定位分针与时针。因此,(3)处可以填写成 S=0 or first。注意,first本身是逻辑变量,可以不用再写出first=tree。
   根据系统当前的分值调整分针的位置见程序代码,没有要求填空。
   调整时针的位置比较复杂些。首先,应取得系统中的当前时值H(0~23),当H≥12时,应按H-12处理。计算时针的转角时,应包括时值对转角的作用以及分值对转角的作用。
   时值H为0时,转角为0;时值H→12时,转角→2π。
   分值M为0时,增加转角为0;分值M→60时,增加转角→2π/12。
   根据时值的作用可以算出其转角为πH/6,根据分值的作用可以算出其增加的转角为πM/360,因此,时针的转角计算公式如下:
                           H_seta=π(H/6+M/360)
   也就是说,(4)处应填写H/6+M/360。
   在调整了时针和分针后,逻辑变量first就应设置成False(表示已经处于非初始状态)。因此,(5)处应填写False。
转载请注明原文地址:https://jikaoti.com/ti/vZW7FFFM
0

最新回复(0)