微軟Visual Basic 是一個以視覺化為主的程式語言,而Gambas 也是一個以視覺化為主的程式語言,除了視覺化外,Gambas本身也會利用物件來處理事物,我們可以隨意的控制物件的擺置,完全都是很隨意,因此Gambas也可以說是很直覺化程式語言。
把 Label物件拉二個到Form中,在來Button三個也拉進去,排列如圖
點Form二下到進入程式編輯區
程式碼
Public Sub Form_Open()
Label1.text = "剪刀 石頭 布"
Button1.text = "剪刀"
Button2.text = "石頭"
Button3.text = "布"
End
Public Sub Button1_Click() ‘剪刀
Dim cCol As Byte ‘宣告陣列
cCol = Int(Rnd * 3) ‘隨機抽三個變數0~2
Select Case cCol
Case 0
Label2.text = "你出剪刀,電腦出剪刀,平手"
Case 1
Label2.text = "你出剪刀,電腦出石頭,你輸"
Case 2
Label2.text = "你出剪刀,電腦出布,你贏"
End Select
End
Public Sub Button2_Click()’石頭
Dim cCol As Byte
cCol = Int(Rnd * 3)
Select Case cCol
Case 0
Label2.text = "你出石頭,電腦出剪刀,你贏"
Case 1
Label2.text = "你出石頭,電腦出石頭,平手"
Case 2
Label2.text = "你出石頭,電腦出布,你輸"
End Select
End
Public Sub Button3_Click() ‘布
Dim cCol As Byte
cCol = Int(Rnd * 3)
Select Case cCol
Case 0
Label2.text = "你出布,電腦出剪刀,你輸"
Case 1
Label2.text = "你出布,電腦出石頭,你贏"
Case 2
Label2.text = "你出布,電腦出布,平手"
End Select
End
按F5 運行看看