9.計算機程式---清單方塊

    清單方塊表單下載   

Rem 總體變數的宣告,需放在  <物件欄為ㄧ般> ,<程序欄為 宣告 > 內才有作用
Dim n As Integer  
'-----------------------------------------------------

Private Sub Form_Load ( )
    Rem 班級:              學號:               姓名:
    Rem ***** 點餐系統之計算程式 *****
    REm
    Rem 設定 Combo1 內容
    Combo1.AddItem "紅茶"
    Combo1.AddItem "咖啡"
    Combo1.AddItem "啤酒"
    Rem 設定 Combo2 內容
    Combo2.AddItem "豬排"
    Combo2.AddItem "魚排"
    Combo2.AddItem "牛排"
    Rem 設定 Combo3 內容
    Combo3.AddItem "牛肉麵"
    Combo3.AddItem "排骨麵"
    Combo3.AddItem "水餃"
End Sub
'-----------------------------------------------------

Private Sub Combo1_Click( )
    Rem 設定 Combo1 內 Index之值
    If Combo1.ListIndex = "0" Then
         Label8.Caption = "25元"
    ElseIf Combo1.ListIndex = "1" Then
         Label8.Caption = "35元"
    ElseIf Combo1.ListIndex = "2" Then
         Label8.Caption = "40元"
    End If
End Sub
'-----------------------------------------------------

Private Sub Combo2_click( )
     Rem 設定 Combo2 內 Index之值
     If Combo2.ListIndex = 0 Then
           Label9.Caption = "70元"
     ElseIf Combo2.ListIndex = 1 Then
           Label9.Caption = "90元"
     ElseIf Combo2.ListIndex = 2 Then
           Label9.Caption = "120元"
     End If
End Sub
'-----------------------------------------------------

Private Sub Combo3_Click( )
     Rem 設定 Combo3內 Index之值
     If Combo3.ListIndex = 0 Then
          Label10.Caption = "70元"
     ElseIf Combo3.ListIndex = 1 Then
          Label10.Caption = "50元"
     ElseIf Combo3.ListIndex = 2 Then
          Label10.Caption = "4元/粒"
     End If
End Sub
'-----------------------------------------------------

Private Sub Command1_Click( )
    Rem 帳單計算
    Sum = 0
    Sum = Sum + (Val(Label8) * Val(Text1)) + (Val(Label9) * Val(Text2)) + (Val(Label10) * Val(Text3))
    Label12.Caption = Sum
    If Option1.Value = True Then
          Label15.Caption = Sum
    ElseIf Option2.Value = True Then
          Label15.Caption = Sum * (1 + 0.05)
    ElseIf Option3.Value = True Then
          Label15.Caption = Sum * 0.8
    End If
End Sub
'-----------------------------------------------------

Private Sub Command2_Click( )
    Rem 清除資料
    Text1.Text = " "
    Text2.Text = " "
    Text3.Text = " "
    Label8.Caption = " "
    Label9.Caption = " "
    Label10.Caption = " "
    Label12.Caption = " "
    Label15.Caption = " "
    Combo1.Text = "請選擇"
    Combo2.Text = "請選擇"
    Combo3.Text = "請選擇"
    VScroll1.Value = VScroll1.Min   ' 垂直卷軸初值回到 0
    VScroll2.Value = VScroll2.Min
    VScroll3.Value = VScroll3.Min
End Sub
'-----------------------------------------------------

Private Sub Command3_Click()
    End
End Sub
'-----------------------------------------------------

Private Sub VScroll1_Change( )
    Rem 抓取垂直卷軸內之值
    Text1.Text = VScroll1.Value
End Sub
'------------------------------------------------------------

Private Sub VScroll2_Change( )
     Rem 抓取垂直卷軸內之值
     Text2.Text = VScroll2.Value
End Sub
'------------------------------------------------------------

Private Sub VScroll3_Change( )
    Rem 抓取垂直卷軸內之值
    Text3.Text = VScroll3.Value
End Sub
'-----------------------------------------------------

Private Sub Timer1_Timer( )
    Rem 跑馬燈  (由下往上移動)
    Label1.Top = Label1.Top - Label1.Height / 5
    If Label1.Top + Label1.Height < 0 Then
          Label1.Top = Form1.ScaleHeight
    Else

    End If
  
    Rem 動畫閃爍 (只有字在閃爍)
    n = n + 1
    If (n Mod 2) = 0 Then
        Label1.Enabled = True
    Else
        Label1.Enabled = False
    End If
End Sub


 

全部共 43則留言 12-13 13:49: +1推一個 12-14 14:52: 給你100個讚! 12-21 14:30: 雖然看起來有點長 不過很讚 呵呵!! 06-11 21:19: 謝謝! 06-11 21:21: 夜四機三甲 981A1049 賴軍聿 已閱讀過 06-11 21:22: 看過 06-11 21:22: 語法好多 06-11 21:23: 已閱讀!謝謝~ 06-11 21:23: 夜四機三甲 981A1054 許晉赫 已閱讀過 06-11 21:23: 夜四技機三甲 981A1017 黃博彥已看過囉 06-11 21:23: 看到了 06-11 21:24: 喔 06-11 21:24: +1 06-11 21:25: 謝謝老師! 06-11 21:25: ˙˙"　看～～過了! 06-11 21:25: 夜四技機三甲 981A1032 厲燕杰 看過 感恩 06-11 21:25: 看過了 06-11 21:26: 已經閱讀 06-11 21:26: 知道了 06-11 21:26: 看過了 06-11 21:27: 看過了 06-11 21:28: 看到了 06-13 18:35: 留言... 06-13 18:35: 謝謝老師 06-13 18:36: 夜四機三甲 981A1066 已閱讀過 06-13 18:44: 夜四機三甲 961A1009吳誌倫 已閱讀過 06-13 18:52: 夜四機三甲 981A1025 馮博彥 已閱讀過 06-13 18:53: 到.. 06-13 18:54: 謝老師 06-13 18:55: 夜四技機三甲 981A1044 陳孟帛 已閱讀過 06-13 18:55: 看到了 06-13 18:56: 夜四機三甲 981A1046王柏原 已閱讀過 06-13 19:00: 夜四機三甲 981A1030 潘弘翔 已閱讀過 06-13 19:00: 夜四機三甲 981A1060 郭易 LOOK!!! 06-13 19:03: 夜四機三甲 981A1061 林哲愷 已閱讀過 06-13 19:04: 夜四機三甲 981A1039劉仲豪 已閱讀過 06-13 19:06: 以閱讀過 06-13 19:06: 夜四機三甲 971A1100 黃少玨 已閱讀過 06-13 19:08: 夜四機三甲 981A1053 楊裕豪 已看過 06-13 19:25: 夜四技機械三甲 981A1004 蘇元聖 已閱讀過 06-13 19:29: 閱讀完畢 06-18 19:02: 夜四技機械三甲 981A1037 宋威諭 已閱讀過 06-20 21:51: 謝謝
留言...
登入帳號密碼代表遵守學術網路規範