信息显示(时钟)界面,显示当前时间(每秒动态跳动一次) ; 2.并将表单的背景设置为蓝、绿两色自动变换(与时间同步切换) 。
设置表单标题为“信息窗” 。 设置文本框 Text1 的 Fontsize 属性(将其放大) 。 设置文本框的的 ReadOnly 属性为真。 设置计时器 Timer1 的 Interval 属性为 1000。 (1)表单 Form1 的 Init 事件代码: if val(right(time(),2))%2=0 thisform.backcolor=rgb(0,255,0) else thisform.backcolor=rgb(0,0,255) endif this.text1.value=time() (2)计时器控件 Timer1 的 Timer 事件代码: thisform.text1.value=time() if val(right(time(),2))%2=0 thisform.backcolor=rgb(0,255,0) else thisform.backcolor=rgb(0,0,255) endif 7.要求: 1.编制一个表单完成数字时钟显示功能; 2.表单将自动以 1 秒为间隔动态显示
系统时间;
3.时、分、秒要求用汉字说明。 设置表单标题为“数字时钟” 。 设置文本框 Text1 的 Fontsize 属性(将其放大) 。 设置文本框的字体为“隶书” 。 设置计时器 Timer1 的 Interval 属性为 1000。 (1)表单 Form1 的 Init 事件代码:避免运行时文本框空白 thisform.text1.value=subs(time(),1,2)+"时"+subs(time(),4,2)+"分"+subs(time(),7,2)+"秒" (2)计时器 Timer1 的 Timer 事件代码: thisform.text1.value=subs(time(),1,2)+"时"+subs(time(),4,2)+"分"+subs(time(),7,2)+"秒" 8.要求: 编制一个人工翻动日历牌界面, 界面窗口中显示当前日期, 但是用户可以通过界面提供 的微调按钮任意地向前或向后翻动日期。
设置表单标题为“人工翻动日历牌” 。 设置文本框 Text1 的 Fontsize 属性(将其放大) 。 设置文本框的的 ReadOnly 属性为真。 设置文本框背景和前景色(如设置文字颜色为“白”,大小适当。 ) (1)表单 Form1 的 Init 事件代码: public d set century on d=date() y=substr(dtoc(d),7,4) m=substr(dtoc(d),1,2) r=substr(dtoc(d),4,2) thisform.text1.value=y+"年"+m+"月"+r+"日" (2)微调对象 Spinner1 的 UpClick 事件代
码: D=d-1 Y=substr(dtoc(d),7,4) M= substr(dtoc(d),1,2) R=substr(dtoc(d),4,2) thisform.text1.value=y+”年”+m+”月”+r+”日” (3)微调对象 Spinner1 的 DownClick 事件代码: D=d+1
Y=substr(dtoc(d),7,4) M= substr(dtoc(d),1,2) R=substr(dtoc(d),4 ,2) thisform.text1.value=y+”年”+m+”月”+r+”日” 9.要求: 1.编制一个日历时钟表单; 2.表单中的日历是当前日期,时钟会动态跳动(每 1 秒跳一次) 。 设置表单标题为“日历时钟表单” 。 设置计时器 Timer1 的 Interval 属性为 1000。 设置文本框的 Fontsize 属性(将其放大) ,字体为隶书。 设置文本框的的 ReadOnly 属性为真。 (1)表单 Form1 的 Init 事件代码: Thisform.text1.value=substr(dtoc(date()),7,4)+" "+substr(dtoc(date()),4,2)+"日" Thisform.text2.value=time() (2)计时器控件 Timer1 的 Timer 事件代码: thisform.text1.value=substr(dtoc(date()),7,4)+" "+substr(dtoc(date()),4,2)+"日" thisform.text2.value=time() 10.要求: 编制一个日历时钟表单,表单中的日历是当前日期、当前星期,时钟会动态跳动(每 1 秒跳一次) 。 设置表单标题为“日历时钟表单” 。 设置计时器 Timer1 的 Interval 属性为 1000。 设置文本框的 Fontsize 属性(将其放大) ,字体为隶书。 (1)表单 Form1 的 Init 事件代码: thisform.text1.value=substr(dtoc(date()),7,4)+; "年"+substr(dtoc(date()),1,2)+"月"+substr(dtoc(date()),4,2)+"日" xq="七一二三四五六" thisform.text2.value="星期"+substr(xq,2*dow(date())-1,2)+"("+cdow(date())+")" thisform.text3.value=time() (2)计时器控件 Timer1 的 Timer 事件代码: thisform.t