討論區快速選單
知識庫快速選單
網路投保旅行平安險 網路投保旅行平安險
[ 回上頁 ] [ 討論區發言規則 ]
如何寫攝氏轉為華氏的程式 ?
更改我的閱讀文章字型大小
作者 : changrabbit(孤單空虛寂寞)
[ 貼文 6 | 人氣 2372 | 評價 0 | 評價/貼文 0 | 送出評價 1 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/3/17 下午 10:10:59
我卡在宣告部分
我目前知道F=C*9/5+32
C=(F-32)*5/9
這兩ㄍ公式~F為華氏溫度C為攝氏溫度
我設兩ㄍ按鍵~我按botton1為攝氏轉為華氏~按玩回呈現在textbox2
這樣要怎麼宣告他變數~苦惱~哪ㄍ忙家可以告訴我
作者 : tatami(tatami)
[ 貼文 77 | 人氣 5 | 評價 340 | 評價/貼文 4.42 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/3/18 上午 12:43:18

>我卡在宣告部分
>我目前知道F=C*9/5+32
>C=(F-32)*5/9
>這兩ㄍ公式~F為華氏溫度C為攝氏溫度
>我設兩ㄍ按鍵~我按botton1為攝氏轉為華氏~按玩回呈現在textbox2
>這樣要怎麼宣告他變數~苦惱~哪ㄍ忙家可以告訴我

Dim C As Double
Dim F As Double
作者 : 750651(sys10)
[ 貼文 9 | 人氣 472 | 評價 80 | 評價/貼文 8.89 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人changrabbit註記此篇回應為最佳解答 2005/3/18 上午 11:02:32
Dim F As Single, C As Single
    
Private Sub Command1_Click() '華氏轉攝氏
    F = Text1.Text '華氏值
    C = (F - 32) / 9 * 5
    Text2.Text = C
End Sub

Private Sub Command2_Click() '攝氏轉華氏
    C = Text2.Text '攝氏值
    F = C * 9 / 5 + 32
    Text1.Text = F
End Sub
作者 : 750651(sys10)
[ 貼文 9 | 人氣 472 | 評價 80 | 評價/貼文 8.89 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/3/18 上午 11:02:47
Dim F As Single, C As Single
    
Private Sub Command1_Click() '華氏轉攝氏
    F = Text1.Text '華氏值
    C = (F - 32) / 9 * 5
    Text2.Text = C
End Sub

Private Sub Command2_Click() '攝氏轉華氏
    C = Text2.Text '攝氏值
    F = C * 9 / 5 + 32
    Text1.Text = F
End Sub
作者 : changrabbit(孤單空虛寂寞)
[ 貼文 6 | 人氣 2372 | 評價 0 | 評價/貼文 0 | 送出評價 1 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/3/18 下午 06:33:54
謝謝你ㄉ幫忙~不過我還是有問題
因為我設過~好像還是不行
作者 : mjx4mois(月光)
[ 貼文 2 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2006/9/17 下午 08:42:53
Dim F, c As Single
Private Sub Command2_Click()' 華氏轉攝氏
    F = Text1.Text
    c = 5 / 9 * (F - 32)
    Text1.Text = Int(c)
End Sub
Private Sub Command1_Click()' 攝氏轉華氏
    c = Text1.Text
    F = (c * 9) / 5 + 32
    Text1.Text = Int(F)
End Sub
Private Sub Command3_Click()'清除用
Text1.Text = ""
End Sub

應該錯不了了...
 板主 : 小樓
 > Visual Basic 6.0/VBA - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - Visual Basic 6.0/VBA - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
Visual Basic 6.0/VBA
1 阿戊 10670 
2 小樓 8650 
3 Jones 5270 
4 水瓶天賞 2340 
5 joe 2230 
6 史努比 1950 
7 阿呆紅 1440 
8 tt's 1250 
9 青衫 1150 
10 羅啟章 1020 
Visual Basic 6.0/VBA
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2019 程式設計俱樂部 http://www.programmer-club.com.tw/
0.171875