计时与卷轴控制项简介.pptVIP

計時與捲軸控制項簡介 範例功能：模擬吃角子遊戲 範例中的重要控制項 Timer HScrollBar PictureBox Label Button Timer控制項簡介功能：提供一套機制，可於指定間隔執行必要的作業 重要屬性 Enabledl：計時器的啟動或停止 Interval：計時的時間，單位為千分之一秒 重要事件： Tick：計時終了時發生的事件 ScrollBar控制項簡介功能：以捲軸方式來輸入數值 重要屬性 Minimum：捲軸方塊移動到最左(上)時的值 Maxmum：捲軸方塊移動到最右(下)時的值 SmallChange：按下左右(上下)微調鍵時要減少(增加)的值 LargeChange：按下左右(上下)空白處要減少(增加)的值 Valuel：目前捲軸方塊所代表的值 重要事件： Scroll：當捲軸的Value屬性有變化時產生的事件 亂數產生方式 1.先使用Randomize(Number)來初始化 Rnd()函式的亂數產生器，給予新的種子值。 如果省略了 Number參數，則會使用系統計時器傳回的值做為新的種子值。如果沒有使用 Randomize，則 Rnd 函式 (沒有指定引數) 會使用第一次呼叫時所使用的值做為種子，之後將會使用前一次所產生的值做為種子值。 2.使用內建函數 Rnd()產生介於0~1之間的亂數 3.使用公式 Int((上限 – 下限 + 1) * Rnd() + 下限) 調整到所需範圍 4.例如欲產生的亂數範圍是介於5~7間的整數，也就是5、6、7三者之一，則公 式的產生過程如下 Randomize() 　0 Rnd() 1 亂數值介於0與1之間，結果有無限多種 0 Rnd() * 3 3 亂數值介於0與3之間，結果有無限多種 5 Rnd() * 3 + 5 8 亂數值介於5與8之間，結果有無限多種 5 = Int( Rnd() * 3 + 5 ) = 7 取整數後只有5 6 7三種可能 範例解說-FormLoad Private Sub Form1_Load(…) Handles Me.Load Timer1.Interval = 100 HScrollBar1.Minimum = 1 HScrollBar1.Maximum = 1000 HScrollBar1.SmallChange = 10 HScrollBar1.LargeChange = 100 End Sub 範例解說-Timer事件 Private Sub Rotate_Click(…) Handles Rotate.Click 按下旋轉按鈕，啟動計時器 Timer1.Enabled = True End Sub Private Sub Timer1_Tick(…) Handles Timer1.Tick 計時完畢，取3個大於等於5且小於等於7的整數亂數 Label1.Text = Int(Rnd() * 3 + 5) …. End Sub 範例解說-HScrollBar事件 Private Sub HScrollBar1_Scroll(…) Handles HScrollBar1.Scroll 修正計時的時間長度 Timer1.Interval = HScrollBar1.Value * 2 End Sub 問：增加(減少)的計時時間為何？ 範例解說-停止按鈕 Private Sub StopNow_Click(..) Handles StopNow.Click 停止計時：Timer1.Enabled = False 檢視目前亂數值以決定要顯示圖片： PB1.Visible = True PB2.Visible = False If Label1.Text = 7… Then PB1.Visible = False PB2.Visible = True End If End Sub 習題：根據7的個數顯示不同圖片 * *