史萊姆論壇 - 我想做個計算機請大大幫看怎麼做?

史萊姆論壇 (http://forum.slime.com.tw/)

- 程式語言討論區 (http://forum.slime.com.tw/f76.html)

- - 我想做個計算機請大大幫看怎麼做? (http://forum.slime.com.tw/thread242051.html)

我想做個計算機請大大幫看怎麼做?

以下是我的構圖:

http://img159.imageshack.us/img159/4766/sql011aa9.jpg

但我不曉得該怎麼做出這個數值計算機??

我用的vb軟體是免費的
Microsoft Visual Basic 2008 Express版

請會的大大教一下怎麼製作，謝謝

基本教學網路上都是

你應該是要問如何解決那一些的問題

你應該寫點什麼，想怎麼個加法，大家才知道你要怎麼加

比如
1 + 2 會得到 6
1 - 4 會得到 0

計算機的輸入數字欄就是最少要10　　最高是32767
這樣才能跟基本數值參考(預設對應資料),計算出來的結果一樣
當數字欄輸入10　數值欄選擇力量　則按下計算按鈕後會顯示 12物攻

例如: 10力量 = 12物攻　　那100力量就是120物攻
在程式碼上預設每一種最少輸入值是10,若低於10的話會跳出小方塊提醒。

http://img301.imageshack.us/img301/2553/sql012pe4.jpg

不知道這樣做出來會不會很複雜..！

以下是我臨時製作的優惠計算機，只是不曉得該怎麼改成數值計算機！？

http://img60.imageshack.us/img60/7085/buy010qn1.jpg

語法:

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

引用:

作者: ╰。超凡者〃☆ (文章 2088491)

不知道這樣做出來會不會很複雜..！

以下是我臨時製作的優惠計算機，只是不曉得該怎麼改成數值計算機！？

語法:

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

先打八折再減50 這是數學問題吧

200*0.8-50=1550

臨時製作的..一時沒去核對是否正確，謝謝你的修正提醒。
我只想知道該怎麼把簡易版的計算機改成我要的那個數值計算機。

引用:

作者: ╰。超凡者〃☆ (文章 2088491)

我還是不清楚你的問題在哪裡只能猜你的問題是語法與指令的不熟悉

小方塊可以用IF來寫指令是msgbox(你要的訊息)
IF XXX THEN MSGBOX
ELSE
XXX

數字加對應資料是TEXT+COMBOBOX

至於COMBO怎麼加資料
應該是COMBO.ADDITEM

COMBO裡的值則應該是
COMBO.ITEMDATA(XXX)=XXX

建議你問問題時最好能詳述你不懂的地方在哪裡
這樣比較容易幫你解釋

您說的一點也沒錯，以我目前的技術來看是超級初學者，
我只能作些簡單的小程式..大部份實用性不大都是練習用的。

那我再多爬爬文，試著製作…若語法上有問題的話，我再po出來請各位大大檢查看看。