史萊姆論壇

返回   史萊姆論壇 > 專業主討論區 > 程式語言討論區
忘記密碼?
論壇說明 標記討論區已讀

歡迎您來到『史萊姆論壇』 ^___^

您目前正以訪客的身份瀏覽本論壇,訪客所擁有的權限將受到限制,您可以瀏覽本論壇大部份的版區與文章,但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限,請註冊成為我們的一份子,註冊的程序十分簡單、快速,而且最重要的是--註冊是完全免費的!

請點擊這裡:『註冊成為我們的一份子!』

Google 提供的廣告


發文 回覆
 
主題工具 顯示模式
舊 2009-01-15, 09:20 AM   #1
╰。超凡者〃☆
註冊會員
 
╰。超凡者〃☆ 的頭像
榮譽勳章

勳章總數
UID - 316524
在線等級: 級別:2 | 在線時長:13小時 | 升級還需:8小時級別:2 | 在線時長:13小時 | 升級還需:8小時
註冊日期: 2009-01-11
文章: 17
精華: 0
現金: 29 金幣
資產: 29 金幣
Question 疑問 - 我想做個計算機請大大幫看怎麼做?

以下是我的構圖:
http://img159.imageshack.us/img159/4766/sql011aa9.jpg


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

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

請會的大大教一下怎麼製作,謝謝
╰。超凡者〃☆ 目前離線  
送花文章: 22, 收花文章: 17 篇, 收花: 26 次
回覆時引用此帖
有 2 位會員向 ╰。超凡者〃☆ 送花:
kppne0931 (2009-05-22),magicwoo (2009-01-16)
感謝您發表一篇好文章
舊 2009-01-15, 10:28 AM   #2 (permalink)
協調管理員
 
飛鳥 的頭像
榮譽勳章
UID - 23073
在線等級: 級別:72 | 在線時長:5513小時 | 升級還需:108小時級別:72 | 在線時長:5513小時 | 升級還需:108小時
註冊日期: 2003-01-07
VIP期限: 無限期
住址: 史萊姆團隊
文章: 7199
精華: 11
現金: 837 金幣
資產: 260029 金幣
預設

基本教學網路上都是

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

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

比如
1 + 2 會得到 6
1 - 4 會得到 0
__________________
http://flybird017.googlepages.com/quok.gif http://flybird020.googlepages.com/new321.gif
寶貝你我的地球
, 請 少開電器,減少溫室氣體排放外,多種植植物,減少列印, 多用背面,丟棄時做垃圾分類。

http://netgames123.googlepages.com/tobikeways.jpg

飛鳥 目前離線  
送花文章: 11706, 收花文章: 3363 篇, 收花: 16453 次
回覆時引用此帖
有 2 位會員向 飛鳥 送花:
kppne0931 (2009-05-22),magicwoo (2009-01-16)
感謝您發表一篇好文章
舊 2009-01-15, 12:05 PM   #3 (permalink)
註冊會員
 
╰。超凡者〃☆ 的頭像
榮譽勳章

勳章總數
UID - 316524
在線等級: 級別:2 | 在線時長:13小時 | 升級還需:8小時級別:2 | 在線時長:13小時 | 升級還需:8小時
註冊日期: 2009-01-11
文章: 17
精華: 0
現金: 29 金幣
資產: 29 金幣
預設

計算機的輸入數字欄就是最少要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

此帖於 2009-01-15 12:46 PM 被 ╰。超凡者〃☆ 編輯. 原因: 補充
╰。超凡者〃☆ 目前離線  
送花文章: 22, 收花文章: 17 篇, 收花: 26 次
回覆時引用此帖
有 2 位會員向 ╰。超凡者〃☆ 送花:
kppne0931 (2009-05-22),magicwoo (2009-01-16)
感謝您發表一篇好文章
舊 2009-01-16, 05:32 AM   #4 (permalink)
超級版主
 
Living 的頭像
榮譽勳章
UID - 1966
在線等級: 級別:60 | 在線時長:3888小時 | 升級還需:77小時級別:60 | 在線時長:3888小時 | 升級還需:77小時級別:60 | 在線時長:3888小時 | 升級還需:77小時級別:60 | 在線時長:3888小時 | 升級還需:77小時級別:60 | 在線時長:3888小時 | 升級還需:77小時
註冊日期: 2002-12-06
住址: 糖城
文章: 9601
現金: 18 金幣
資產: 11727852 金幣
預設

引用:
作者: ╰。超凡者〃☆ 查看文章
計算機的輸入數字欄就是最少要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
先打八折再減50 這是數學問題吧

200*0.8-50=1550
__________________
經驗分享是學習的一種
請多珍惜這片學習的園地

史版啞甘部主任
Living 目前離線  
送花文章: 52690, 收花文章: 8441 篇, 收花: 61930 次
回覆時引用此帖
有 3 位會員向 Living 送花:
kppne0931 (2009-05-22),magicwoo (2009-01-16),╰。超凡者〃☆ (2009-01-16)
感謝您發表一篇好文章
舊 2009-01-16, 08:15 AM   #5 (permalink)
註冊會員
 
╰。超凡者〃☆ 的頭像
榮譽勳章

勳章總數
UID - 316524
在線等級: 級別:2 | 在線時長:13小時 | 升級還需:8小時級別:2 | 在線時長:13小時 | 升級還需:8小時
註冊日期: 2009-01-11
文章: 17
精華: 0
現金: 29 金幣
資產: 29 金幣
預設

臨時製作的..一時沒去核對是否正確,謝謝你的修正提醒。
我只想知道該怎麼把簡易版的計算機改成我要的那個數值計算機。
╰。超凡者〃☆ 目前離線  
送花文章: 22, 收花文章: 17 篇, 收花: 26 次
回覆時引用此帖
有 2 位會員向 ╰。超凡者〃☆ 送花:
kppne0931 (2009-05-22),magicwoo (2009-01-16)
感謝您發表一篇好文章
舊 2009-01-16, 08:29 AM   #6 (permalink)
超級版主
 
Living 的頭像
榮譽勳章
UID - 1966
在線等級: 級別:60 | 在線時長:3888小時 | 升級還需:77小時級別:60 | 在線時長:3888小時 | 升級還需:77小時級別:60 | 在線時長:3888小時 | 升級還需:77小時級別:60 | 在線時長:3888小時 | 升級還需:77小時級別:60 | 在線時長:3888小時 | 升級還需:77小時
註冊日期: 2002-12-06
住址: 糖城
文章: 9601
現金: 18 金幣
資產: 11727852 金幣
預設

引用:
作者: ╰。超凡者〃☆ 查看文章
計算機的輸入數字欄就是最少要10  最高是32767
這樣才能跟基本數值參考(預設對應資料),計算出來的結果一樣
當數字欄輸入10 數值欄選擇力量 則按下計算按鈕後會顯示 12物攻

例如: 10力量 = 12物攻  那100力量就是120物攻
在程式碼上預設每一種最少輸入值是10,若低於10的話會跳出小方塊提醒。
我還是不清楚你的問題在哪裡 只能猜你的問題是語法與指令的不熟悉

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

數字加對應資料是TEXT+COMBOBOX

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

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

建議你問問題時最好能詳述你不懂的地方在哪裡
這樣比較容易幫你解釋
Living 目前離線  
送花文章: 52690, 收花文章: 8441 篇, 收花: 61930 次
回覆時引用此帖
有 3 位會員向 Living 送花:
kppne0931 (2009-05-22),magicwoo (2009-01-17),╰。超凡者〃☆ (2009-01-16)
感謝您發表一篇好文章
舊 2009-01-16, 10:23 AM   #7 (permalink)
註冊會員
 
╰。超凡者〃☆ 的頭像
榮譽勳章

勳章總數
UID - 316524
在線等級: 級別:2 | 在線時長:13小時 | 升級還需:8小時級別:2 | 在線時長:13小時 | 升級還需:8小時
註冊日期: 2009-01-11
文章: 17
精華: 0
現金: 29 金幣
資產: 29 金幣
Smile

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


那我再多爬爬文,試著製作…若語法上有問題的話,我再po出來請各位大大檢查看看。
╰。超凡者〃☆ 目前離線  
送花文章: 22, 收花文章: 17 篇, 收花: 26 次
回覆時引用此帖
有 2 位會員向 ╰。超凡者〃☆ 送花:
kppne0931 (2009-05-22),magicwoo (2009-01-17)
感謝您發表一篇好文章
發文 回覆


主題工具
顯示模式

發表規則
不可以發文
不可以回覆主題
不可以上傳附加檔案
不可以編輯您的文章

論壇啟用 BB 語法
論壇啟用 表情符號
論壇啟用 [IMG] 語法
論壇禁用 HTML 語法
Trackbacks are 禁用
Pingbacks are 禁用
Refbacks are 禁用

相似的主題
主題 主題作者 討論區 回覆 最後發表
過幾天我想組一台電腦...請大大幫我一下 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


所有時間均為台北時間。現在的時間是 07:54 AM


Powered by vBulletin® 版本 3.6.8
版權所有 ©2000 - 2024, Jelsoft Enterprises Ltd.


SEO by vBSEO 3.6.1