<address id="xpjh9"><listing id="xpjh9"><meter id="xpjh9"></meter></listing></address>

<address id="xpjh9"><address id="xpjh9"><listing id="xpjh9"></listing></address></address>
<noframes id="xpjh9">
<noframes id="xpjh9">

<address id="xpjh9"><address id="xpjh9"><listing id="xpjh9"></listing></address></address>
    <form id="xpjh9"></form><address id="xpjh9"><listing id="xpjh9"><menuitem id="xpjh9"></menuitem></listing></address>

      <noframes id="xpjh9">
      VB.net 2010 視頻教程 VB.net 2010 視頻教程 VB.net 2010 視頻教程
      SQL Server 2008 視頻教程 c#入門經典教程 Visual Basic從門到精通視頻教程
      當前位置:
      首頁 > 編程開發 > .net教程 >
      • vb.net教程之計時器

      • 2015-01-17 22:52 來源:未知
      計時器(相關vb.net教程)
      作用:完成一些自動的處理。
      如動畫、定時時鐘、考試系統自動計時、自動模擬系統等。
      常用屬性:
      Enabled:能用與否。
      Interval:自動周期。
      應用實例:制作一個紅綠燈信號模擬系統。[實驗報告26 ]
      見紅綠燈信號模擬系統。程序為:
              Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       Static i, m As Integer
              i = i + 1 : TextBox1.Text = i
              Beep()
              If i >= 16 Then
                  i = 0 : m = m + 1
              End If
              If (i >= 10 And i <= 16) Then
                  L2.BackColor = Color.Yellow
                  L2.Visible = Not L2.Visible
              Else
                  L2.BackColor = Color.Blue
              End If
              If m Mod 2 = 0 Then
                  L1.BackColor = Color.Green
                  L3.BackColor = Color.Blue
              Else
                  L1.BackColor = Color.Blue
                  L3.BackColor = Color.Red
              End If
          End Sub
          Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
              L1.BackColor = Color.Green
              L2.BackColor = Color.Blue
              L3.BackColor = Color.Blue
              Timer1.Interval = 1000
              Button1.Text = "退出"
              Me.BackColor = Color.Blue
              L1.Text = ""
              L2.Text = ""
              L3.Text = ""
          End Sub
          Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
              End
          End Sub
      相關教程
      江苏快3 抚州 | 如皋 | 昌吉 | 黔南 | 沭阳 | 咸阳 | 晋江 | 滕州 | 龙口 | 驻马店 | 神木 | 海门 | 燕郊 | 阳江 | 济宁 | 安顺 | 公主岭 | 随州 | 武安 | 岳阳 | 信阳 | 三门峡 | 武夷山 | 吴忠 | 惠东 | 江苏苏州 | 宁国 | 南充 | 朝阳 | 泰兴 | 咸宁 | 武安 | 德宏 | 赣州 | 新疆乌鲁木齐 | 广饶 | 武威 | 焦作 | 玉溪 | 如东 | 周口 | 贵州贵阳 | 正定 | 广州 | 乌兰察布 | 鹤壁 | 徐州 | 伊春 | 聊城 | 宿州 | 辽阳 | 辽源 | 衢州 | 南平 | 江西南昌 | 莱芜 | 荣成 | 内江 | 包头 | 辽宁沈阳 | 苍南 | 佛山 | 鹰潭 | 镇江 | 河池 | 邹平 | 黔南 | 莒县 | 渭南 | 台南 | 眉山 | 台湾台湾 | 汕尾 | 陕西西安 | 醴陵 | 南阳 | 石河子 | 镇江 | 温州 | 高雄 | 九江 | 青海西宁 | 松原 | 昭通 | 项城 | 滁州 | 芜湖 | 中山 | 阿里 | 惠州 | 乐清 | 海南海口 | 天长 | 余姚 | 陵水 | 九江 | 台南 | 连云港 | 商丘 | 广安 | 保亭 | 临沂 | 琼海 | 宿迁 | 晋中 | 烟台 | 阜新 | 杞县 | 甘肃兰州 | 武威 | 阜阳 | 宜宾 | 鹰潭 |