鹹淡超人

非常簡單的小程式XD.....反正我只是個入門者Q_Q......程度只有這樣= =...(畫圈圈中..)

攝氏轉換華氏的公式是 ： 攝氏溫度 * 9 / 5 + 32 = 華氏溫度

反過來說，華氏轉攝氏的公式則是  ： (華氏溫度 - 32) * 5 / 9 = 攝氏溫度

先在表單裡設置兩個TextBox(文字方塊)、兩個Label(標籤)、一個CommandButton(命令鈕)

點兩下CommandButton並鍵入以下的程式碼

========================我叫分隔線XD==============================
Private Sub Command1_click()    '當你點了CommandButton1時
Text2.text = Text1.text * 9 / 5 + 32     '計算攝氏成華氏。
End Sub

'Form Load事件裡的物件屬性可以去屬性視窗設定，這樣就不用輸入以下那麼多程式碼
Private Sub Form_load()    '當表單載入時
Text1.text = "": Text2.text = "" 'TextBox1、TextBox2內容為空白
Text2.locked = True     '以防TextBox2被輸入任何數字。locked就是決定控制項所用的資料庫是否為唯讀
Label1.caption = "攝氏溫度：": Label2.caption = "華氏溫度："    'Label1、Label2標題
Form1.caption = "攝氏溫度轉換華氏溫度的程式" '表單標題
Command1.caption = "按我轉換XD"     'Command1標題
End Sub
========================我叫分隔線XD==============================

程式碼是我直接打的，沒有測試過= =" (應該是不會出錯的)

看，這樣就完成一個簡單的單位轉換程式，各位有沒有開始對VB有興趣XD?

大家一起來學VB吧

[ 本帖最後由 鹹淡超人 於 2008-7-22 10:56 編輯 ]

pipi0610

Text1.text = "": Text2.text = "" 'TextBox1、TextBox2內容為空白
↑上面會偵錯到此行，解決方式是?

鹹淡超人

你該不會是沒有放Textbox (文字方塊)吧........=.="

[ 本帖最後由 鹹淡超人 於 2008-7-22 08:33 編輯 ]

naruto6404

我大致修改了。
而那些版面不是本來就該設好了?
我把你改成雙向計算，所以不鎖表格。

----------------------------------------------------------------------------------------------------------------------

Private Sub Command1_click()
Dim 攝氏溫度 As String
    攝氏溫度 = Text1.Text
Dim 華氏溫度 As String
    華氏溫度 = Text2.Text
Dim toF As String
    toF = 攝氏溫度 * ( 9 / 5 ) + 32     '計算攝氏成華氏。
Dim toC As String
    toC = ( 華氏溫度 - 32 ) * ( 5 / 9 )    '計算華氏成攝氏。

If Text1.Text = "" And Text2.Text <> "" Then
   Text1.Text = toC
End If

If Text2.Text = "" And Text1.Text <> "" Then
   Text2.Text = toF
End If

If Text1.Text = "" And Text2.Text = "" Then
   Msgbox("表格不能為空!!")
End If

End Sub

[ 本帖最後由 naruto6404 於 2012-10-27 09:27 編輯 ]