VB2008溫度程式轉換求救

一九九

找到很多類似教學,但不知道怎修改成這張上面的操作方式

abel1  (輸入溫度)

textbox是自行輸入的任何一個數字

...

瀏覽完整內容，請先 註冊 或 登入會員

darkjack

我很好奇你有沒有用心找？

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

ssas1115577

1.     Private Sub Fahrenheit_to_Celsius()
   
2.         '將輸入資料轉型(String --> Single)
   
3.         Dim Input As Single = Single.Parse(TextBox1.Text)
   
4. 
   
5.         '攝氏 = (華氏-32)*5/9
   
6.         Dim answer As Single = (Input - 32) * 5 / 9
   
7.         Console.WriteLine(answer)
   
8. 
   
9.         '四捨五入, 這裡有兩個方法, 一個是用Math.Round, 另一個是直接用Math.Floor 去弄就好
   
10.         Dim a1, a2 As Single
    
11.         a1 = Math.Round(answer, 2, MidpointRounding.AwayFromZero)
    
12.         a2 = Math.Floor((answer * 1000 + 5) / 10) / 100
    
13. 
    
14.         Console.WriteLine(answer)
    
15.     End Sub
    
16. 
    
17.     Private Sub Celsius_to_Fahrenheit()
    
18.         '將輸入資料轉型(String --> Single)
    
19.         Dim Input As Single = Single.Parse(TextBox1.Text)
    
20. 
    
21.         '華氏 = 攝氏*(9/5)+32
    
22.         Dim answer As Single = Input * (9 / 5) + 32
    
23.         Console.WriteLine(answer)
    
24.     End Sub

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員

一九九

ssas1115577 發表於 2012-11-22 10:01 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

vaiue   未宣告該怎解決
請幫幫我
...

瀏覽完整內容，請先 註冊 或 登入會員

ssas1115577

一九九 發表於 2012-11-23 11:05 AM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

vaiue   未宣告該怎解決
請幫幫我

"vaiue" --> 根本就沒這東西吧
...

瀏覽完整內容，請先 註冊 或 登入會員

gpgpi

先將表單設計如下


程式內容如下

1. Public Class Form1
   
2.     Dim c, f As Single
   
3.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   
4.         '表單載入時所做的動作
   
5. 
   
6.         Me.Text = "溫度轉換"
   
7. 
   
8.         '按鈕命名
   
9.         CtoF.Text = "攝氏轉華氏"
   
10.         FtoC.Text = "華氏轉攝氏"
    
11. 
    
12.         'Label1命名
    
13.         Label1.Text = "輸入溫度："
    
14. 
    
15.         '執行時隱藏Label2
    
16.         Label2.Text = ""
    
17.         '改變Labe2顯示文字改變字型與大小
    
18.         Label2.Font = New System.Drawing.Font("標楷體", 18)
    
19.     End Sub
    
20. 
    
21.     Private Sub CtoF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CtoF.Click
    
22.         '華氏 = 攝氏*(9/5)+32
    
23.         Try
    
24.             c = CSng(TextBox1.Text)
    
25.             f = c * (9 / 5) + 32
    
26.             Label2.Text = "攝氏 " & c & " 度 = 華氏 " & f & " 度"
    
27.         Catch ex As Exception
    
28.             MsgBox("請輸入溫度")
    
29.         End Try
    
30.     End Sub
    
31. 
    
32.     Private Sub FtoC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FtoC.Click
    
33.         '攝氏 = (華氏-32)*5/9
    
34.         Try
    
35.             f = CSng(TextBox1.Text)
    
36.             c = (f - 32) * 5 / 9
    
37.             Label2.Text = "華氏 " & f & " 度 = 攝氏 " & Math.Round(c, 2) & " 度"   'Math.Round(攝氏溫度,要取的小數點位數)
    
38.         Catch ex As Exception
    
39.             MsgBox("請輸入溫度")
    
40.         End Try
    
41.     End Sub
    
42. End Class

複製代碼

執行結果如下



PS.程式()很簡單，不過這本書我有看過，這本書應該是

• 新觀念 Microsoft Visual Basic 2008 程式設計(附光碟)
  
  
  • 作者：
    下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員
  • 出版社：
    下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員
  • 出版日期：2008年07月31日
  • 語言：繁體中文 ISBN：9789574425969
  • 裝訂：平裝
    

博客書局查詢：

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

...

瀏覽完整內容，請先 註冊 或 登入會員

gpgpi

gpgpi 發表於 2012-12-9 10:26 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

先將表單設計如下

QQ
學程式盡量自己練習囉，光碟只是參考與測試用，如果直接複製光碟內的程式出來改，那進步會很慢的唷...

瀏覽完整內容，請先 註冊 或 登入會員

新手正在學習先收下，感謝分享

Jeepluo

gpgpi 你還真是好人，都幫他寫了。讚！