尚未登入 請由此登入
 
 
 










知識分享平台Eshare檢視資訊View
返回前一頁Back
      [檢舉]

標題Title: 期末報告(記憶大考驗)
作者Authors: 陳泰佑
上傳單位Department: 機械工程系
上傳時間Date: 2015-6-19
上傳者Author: 陳泰佑
審核單位Department: 機械工程系
審核老師Teacher: 謝慶存
檔案類型Categories: 課堂報告In-class Report
關鍵詞Keyword: 記憶大考驗
摘要Abstract: Public Class Form1

'宣告n(0)~n(20)整數陣列,用來表示20個圖片方塊所表示的值
Dim n(20) As Integer
'宣告p(0)~p(20)圖片方塊控制項陣列,p(0)省略不用,p(1)~p(20)用來代表pic1~pic20
Dim p(20) As PictureBox
'宣告hitPic表示第一次翻牌的圖片方塊,hitPic2表示第二次翻牌的圖片方塊
Dim hitPic1, hitPic2 As PictureBox
't1字串存放第一次翻牌圖片所取得的值
't2字串存放第二次翻牌圖片所取得的值
Dim t1, t2 As String
Dim isFirst As Boolean = True 'isFirst表示第一次按下圖片的旗標
Dim timer1Tot As Integer '表示timer1計時器執行次數
Dim timer2Tot As Integer '表示timer2計時器執行次數
Dim level As Integer '表示等級,1為高級,3為中級,5為初級
Dim tot As Integer '答對的組數,若tot為10表示過關

'亂數程序
Sub SetRnd()
Dim ary() As Integer = {0, 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 6, 7, 7, 8, 8, 9, 9, 10, 10}
Dim max As Integer = n.GetUpperBound(0)

檔案名稱
FileName
檔案大小
Size
檔案格式
Format
瀏覽次數
Browses
下載次數
Downloads
2015_6_6018a4ac.pptx 2418Kb pptx 38 --
文件中檔案:
 

開啟檔案Download
 
 
返回前一頁