|
論壇說明 | 標記討論區已讀 |
歡迎您來到『史萊姆論壇』 ^___^ 您目前正以訪客的身份瀏覽本論壇,訪客所擁有的權限將受到限制,您可以瀏覽本論壇大部份的版區與文章,但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限,請註冊成為我們的一份子,註冊的程序十分簡單、快速,而且最重要的是--註冊是完全免費的! 請點擊這裡:『註冊成為我們的一份子!』 |
|
主題工具 | 顯示模式 |
2009-01-15, 12:05 PM | #3 (permalink) |
註冊會員
|
計算機的輸入數字欄就是最少要10 最高是32767
這樣才能跟基本數值參考(預設對應資料),計算出來的結果一樣 當數字欄輸入10 數值欄選擇力量 則按下計算按鈕後會顯示 12物攻 例如: 10力量 = 12物攻 那100力量就是120物攻 在程式碼上預設每一種最少輸入值是10,若低於10的話會跳出小方塊提醒。 不知道這樣做出來會不會很複雜..! 以下是我臨時製作的優惠計算機,只是不曉得該怎麼改成數值計算機!? 語法:
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim buy As Integer, pay As Integer Dim msg As String buy = Val(TextBox1.Text) If buy > 1000 Then pay = buy * 0.8 If buy > 2000 Then pay = pay - 100 Else pay = pay - 50 End If Else If buy > 500 Then pay = buy * 0.95 End If End If TextBox2.Text = pay buy = Val(TextBox1.Text) If buy > 1000 Then pay = pay * 0.8 If buy > 2000 Then msg = "超過 2000 元, 先打 8 折再減 100 元。" pay = pay - 100 Else msg = "超過 1000 元, 先打 8 折再減 50 元。" pay = pay - 50 End If Else If buy > 500 Then msg = "金額未超過 500 元打 95 折。" pay = pay * 0.95 End If End If TextBox2.Text = pay Label3.Text = msg TextBox1.Focus() TextBox1.SelectAll() End Sub End Class 此帖於 2009-01-15 12:46 PM 被 ╰。超凡者〃☆ 編輯. 原因: 補充 |
送花文章: 22,
|
2009-01-16, 05:32 AM | #4 (permalink) | |
超級版主
|
引用:
200*0.8-50=1550 |
|
__________________ 經驗分享是學習的一種 請多珍惜這片學習的園地 史版啞甘部主任 |
||
送花文章: 52690,
|
2009-01-16, 08:29 AM | #6 (permalink) | |
超級版主
|
引用:
小方塊可以用IF來寫 指令是msgbox(你要的訊息) IF XXX THEN MSGBOX ELSE XXX 數字加對應資料是TEXT+COMBOBOX 至於COMBO怎麼加資料 應該是COMBO.ADDITEM COMBO裡的值則應該是 COMBO.ITEMDATA(XXX)=XXX 建議你問問題時最好能詳述你不懂的地方在哪裡 這樣比較容易幫你解釋 |
|
送花文章: 52690,
|
主題工具 | |
顯示模式 | |
|
|
相似的主題 | ||||
主題 | 主題作者 | 討論區 | 回覆 | 最後發表 |
過幾天我想組一台電腦...請大大幫我一下 | square5520 | 硬體疑難使用問題討論區 | 25 | 2003-09-09 02:56 AM |
我想升級電腦可以請大大幫我看看ㄇ謝謝 | piaa91613041 | 硬體疑難使用問題討論區 | 4 | 2003-04-19 05:39 PM |
我想升級電腦請大大幫我看看要怎麼升級? | 翔子 | 硬體疑難使用問題討論區 | 24 | 2003-01-16 12:28 PM |
我想組一台20000的電腦,請大大幫忙 | 心靈傷痕 | 硬體疑難使用問題討論區 | 10 | 2003-01-01 05:45 AM |