2011年5月24日 星期二

上機作業 - OX 遊戲迴圈設計

上機作業 - OX 遊戲迴圈設計


繳交時間:2011/5/24日 前


繳交方式:將程式專案壓縮後上傳至 學校 BlackBoard 討論區 


討論區名稱:OX 遊戲迴圈設計


For 次數 As Integer = 1 To 9


      If (次數 =1) Then
       
             Button5.Text ="O"


      End If


Next 次數

2011年5月23日 星期一

電梯控制程式 設計



電梯控制程式執行

電梯上樓


電梯控制程式 - For Next 迴圈

電梯控制程式目標


程式專案上傳於學校 BlackBoard 課程教材


輸入:電梯向上、電梯向下、暫停等功能
輸出:目前樓層與電梯狀態


程式設計:使用For  Next 迴圈設計管理學院大樓 1 至 10樓


上樓程式


For 樓層 As Integer = 1 To 10


   Label1. Text = 樓層 & " F" 
   MsgBox("電梯向上 ")


Next 樓層


下樓程式



For 樓層 As Integer = 10 To 1 Step -1

   Label1. Text = 樓層 & " F" 
   MsgBox("電梯向下 ")

Next 樓層