爱游戏是合作意甲

爱游戏是合作意甲:精品课程

VB教学中的趣味小程序

爱游戏是合作意甲:发布时间:2014-06-16 11:32:12    点击数:


VB程序设计难免枯燥、沉闷,因此,在程序设计教学中我首先从学生的兴趣入手,利用学生对事物的好奇心,选择一些有趣的、有实际意义的程序,激发学生的学习兴趣,使他们喜欢学习程序设计,并知道通过程序设计能帮助我们解决很多实际的问题。现列举一些趣味小程序供同学们复习巩固:
一、显示系统当前时间
 
这个程序非常简单,只需把Timer的interval属性设置为1000,再编写相应的事件过程,就会显示系统的当前时间,并且每秒钟变化一次。
Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub
二、用Pset画点方法实现满天星效果
 
事件过程如下:
Private Sub Form_load()
 Show
 DrawWidth = 3
 Randomize
 For i = 1 To 1000
    x = Form1.ScaleWidth * Rnd
    y = Form1.ScaleHeight * Rnd
    r = Int(255 * Rnd)
    g = Int(255 * Rnd)
    b = Int(255 * Rnd)
    Form1.PSet (x, y), RGB(r, g, b)
    For n = 1 To 50000: Next n
Next i
End Sub
 
事件过程如下:
Private Sub Form_Click()
Form1.BackColor = QBColor(0)
Dim i As Integer
Cls
Randomize
For i = 1 To 100
DrawWidth = Int(100 * Rnd) + 1
PSet (Rnd * ScaleWidth, Rnd * ScaleHeight), RGB(Int(Rnd * 255), _
Int(Rnd * 255), Int(Rnd * 255))
Next i
End Sub
三、用line方法编程实现同心的矩形和菱形
 
事件过程如下:
Private Sub Form_Click()
Dim CX, CY, F, F1, F2, I
   ScaleMode = 3      ' 设置 ScaleMode 为像素。
CX = ScaleWidth / 2   ' 水平中点。
CY = ScaleHeight / 2   ' 垂直中点。
   DrawWidth = 8      ' 设置 DrawWidth。
For I = 50 To 0 Step -2
       F = I / 50
      F1 = 1 - F: F2 = 1 + F
   ForeColor = QBColor(I Mod 15)   ' 设置前景颜色。
   Line (CX * F1, CY * F1)-(CX * F2, CY * F2), , BF '画框
Next I
If CY > CX Then   ' 设置 DrawWidth。
   DrawWidth = ScaleWidth / 25
Else
   DrawWidth = ScaleHeight / 25
End If
For I = 0 To 50 Step 2   ' Set up loop.
      F = I / 50
      F1 = 1 - F: F2 = 1 + F
      Line (CX * F1, CY)-(CX, CY * F1)   ' 画左上角。
Line -(CX * F2, CY)   ' 画右上角。
      Line -(CX, CY * F2)   ' 画右下角。
      Line -(CX * F1, CY)   ' 画左下角。
      ForeColor = QBColor(I Mod 15)   ' 每次改变颜色。
Next I
End Sub
四、流动字幕板的制作
1. 左右循环流动字幕板
 
事件过程如下:
Private Sub Timer1_Timer()
Label1.Left = Label1.Left - 50
If Label1.Left + Label1.Width <= 0 Then
 Label1.Left = Form1.Width
End If
End Sub
2. 左右交替流动字幕板
 
事件过程如下:
Dim a
Private Sub Timer1_Timer()
If a = 0 Then
Label1.Left = Label1.Left + 50
 If Label1.Left >= Form1.Width - Label1.Width Then a = 1
End If
If a = 1 Then
 Label1.Left = Label1.Left - 50
 If Label1.Left <= 0 Then a = 0
End If
End Sub
在本学期的程序教学中,我根据学生的心里特征和实际情况,选择和调整教学策略,除了使用到兴趣教学法之外,还有分层教学法、注重学生“动手”与“动脑”的结合、鼓励学生之间的交流与合作学习、定期做好归纳小结等。不断对自己的教学行为进行反思,使学生能学好程序设计课程。
供稿:乔娟 审核:徐杰

机构首页 |爱游戏是合作意甲 |商学院 |国际学院 |艺术与教育学院 |马克思主义学院 |机电与汽车智能工程学院 |建筑工程学院 |交通管理系 |基础部
校办电话:0371-64966607 传真:0371-64966607
招生热线:0371-64962567 就业热线:0371-64960021
通讯地址:郑州市中原西路桃贾路331号爱游戏是合作意甲 邮编:450100
版权所有:爱游戏是合作意甲
豫ICP备13001367号-1

  • 周  口点击这里给我发消息
  • 信  阳点击这里给我发消息
  • 驻马店点击这里给我发消息
  • 南  阳点击这里给我发消息
  • 郑  州点击这里给我发消息
  • 商  丘点击这里给我发消息
  • 洛  阳点击这里给我发消息
  • 新  乡点击这里给我发消息
  • 安  阳点击这里给我发消息
  • 焦  作点击这里给我发消息
  • 许  昌点击这里给我发消息
  • 鹤  壁点击这里给我发消息
  • 濮  阳点击这里给我发消息
  • 济  源点击这里给我发消息
  • 平顶山点击这里给我发消息
  • 漯  河点击这里给我发消息
  • 开  封点击这里给我发消息
  • 三门峡点击这里给我发消息
  • 外  省点击这里给我发消息
爱游戏是合作意甲(娱乐)有限公司