2014年7月31日 星期四

燃燒計算中空氣的氮與氧的百分比

燃燒計算中空氣的氮與氧的百分比
更嚴密計算
重量式  N2:76.8%    O2:23.2%
體積式  N2:79%       O2:21%
資料來源:廃棄物焼却炉計画と設計 P106


重量式  O2:23.135%      其他:76.865%
體積式  O2:20.942%      其他:79.058%
資料來源:WiKi

在[廃棄物焼却炉計画と設計]一書中計算
重量式  N2:77%    O2:23%
體積式  N2:79%    O2:21%

2014年7月28日 星期一

2014年7月18日 星期五

使用耐火物保溫材後的爐壁溫度降低例



使用耐火物保溫材後的爐壁溫度降低例



資料來源:實用鍋爐學 復漢出版社-賴耿
     a) 210+230      b) 20+210+230     c) 3.2+50+114+230      d ) 50+114+114    e ) 50+50+50
a ) 105+126+146   b ) 74+87+131     c ) 59+73+89     d ) 55+65     e ) 46+51

2014年7月16日 星期三

cal j or kcal kj ??

卡路里(Calorie,縮寫為cal),簡稱卡,定義為將1克水在1大氣壓(101.325 kPa)下提升1攝氏度所需要的熱量。
但是沒定義溫度!!那好玩了(因不同溫度水的比熱容不一樣)
所以----------------------------------------------------
1. 熱化學卡calth=4.184 J (美 環工)
2. 
在工程界一般用15
  cal15=4.1855 J
另外還有
3. 4  cal44.204 J
4. 20  cal204.182 J (4.1816 J ) 中國大陸
5. 平均卡  calmean4.190 J (1克無氣體水在標準大氣壓下從0加熱到100所需要的1100的能量。)
6. 國際蒸汽表卡  calIT4.1868 J ( 蘇聯 )

7. 日本為 1cal = 4.18605J ( 大概台灣也是 ) ???

注意 ! ! 在中國大陸:
在煤的熱值、比熱容等計算公式中,均以 cal(20)=4.1816 J 為換算係數
凡涉及熱量單位換算均採用國際蒸汽表卡 cal(1T)=4.1868 J為換算係數

燃料完全燃燒的化學反應平衡

燃料完全燃燒的化學反應平衡
資料來源:Handbook of Environmental Engineering Calculations, 2nd edition(by C. C. Lee, Shun Dar Lin)-2.152 CH2.2

2014年7月5日 星期六

在Win7 使用gwbasic

gwbasic 使用多年;最近換了電腦 作業系統也改用win7;可是新系統無法使用gwbasic;網上找了一下大都是玩遊戲用..想要用gwbasic就很少人談

1.先去網上搜尋並下載箭頭所示程式(DOSBox0.74-win32-installer.exe);並放置在d:/DosBox卷宗內,雙擊程式 如下所示!!

2. 點擊 [執行]

3. 點擊 [Next>]

4. 點擊 [ Next > ]

5.點擊 [ Install ]

6. Setup完後 點擊[ Close ]


7.點擊 Program Files(x86) 卷內看看裝好沒有

8.找到 DOSB-0.74並點擊它

9.點擊批次檔  觀看內容

10.把滾動條拉至最下

11.在最下端加入
PATH=Z:\;C:\BIN
MOUNT C D:\dos
C:

12.輸入完後 儲存資料

13.在D機內建一個dos卷;將GWBASIC 或 baisc 放在d:/dos 內


14.點擊桌面DOSBox-0.74捷徑

15.點擊後桌面顯示如下

16.在C:\>C:後輸入gwbasic

17.跳出另一個視窗如下(ps:以後程式就在這視窗下執行)

17.跳出另一個視窗如下(ps:以後程式就在這視窗下執行)     註:第一次開始要輸入時  先按NumLock 1 數字鍵兩次!!


2014年7月4日 星期五

VB.Net 顏色 【色版顏色】】


【色版顏色】
-----------------------------------------------------------------------------------------------
下繪一橫紅線
 Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim g As Graphics = e.Graphics
        Dim redpen As Pen = New Pen(Color.white, 3)
        g.DrawLine(redpen, 0, 90, 285, 90)
    End Sub
-------------------------------------------------------------------------------------------------
Me.MaximizeBox = False
-------------------------------------------------------------------------------------------------
button1.BackColor = System.Drawing.SystemColors.Control (原色)

Button1.BackColor = System.Drawing.Color.*****
Button1.BackColor = Color.FromArgb(***,***,***)

01-Button1.BackColor = System.Drawing.Color.White
02-Button1.BackColor = Color.FromArgb(224, 224, 224)
03-Button1.BackColor = System.Drawing.Color.Silver
04-Button1.BackColor = System.Drawing.Color.Gray
05-Button1.BackColor = Color.FromArgb(64, 64, 64)
06-Button1.BackColor = System.Drawing.Color.Black

07-Button1.BackColor = Color.FromArgb(255, 192, 192)
08-Button1.BackColor = Color.FromArgb(255, 128, 128)
09-Button1.BackColor = System.Drawing.Color.Red
10-Button1.BackColor = Color.FromArgb(192, 0, 0)
11-Button1.BackColor = System.Drawing.Color.Maroon
12-Button1.BackColor = Color.FromArgb(64, 0, 0)

13-Button1.BackColor = Color.FromArgb(255, 224, 192)
14-Button1.BackColor = Color.FromArgb(255, 192, 128)
15-Button1.BackColor = Color.FromArgb(255, 128, 0)
16-Button1.BackColor = Color.FromArgb(192, 64, 0)
17-Button1.BackColor = Color.FromArgb(128, 64, 0)
18-Button1.BackColor = Color.FromArgb(128, 64, 64)

19-Button1.BackColor = Color.FromArgb(255, 255, 192)
20-Button1.BackColor = Color.FromArgb(255, 255, 128)
21-Button1.BackColor = System.Drawing.Color.Yellow
22-Button1.BackColor = Color.FromArgb(192, 192, 0)
23-Button1.BackColor = System.Drawing.Color.Olive
24-Button1.BackColor = Color.FromArgb(64, 64, 0)

25-Button1.BackColor = Color.FromArgb(192, 255, 192)
26-Button1.BackColor = Color.FromArgb(128, 255, 128)
27-Button1.BackColor = System.Drawing.Color.Lime
28-Button1.BackColor = Color.FromArgb(0, 192, 0)
29-Button1.BackColor = System.Drawing.Color.Green
30-Button1.BackColor = Color.FromArgb(0, 64, 0)

31-Button1.BackColor = Color.FromArgb(192, 255, 255)
32-Button1.BackColor = Color.FromArgb(128, 255, 255)
33-Button1.BackColor = System.Drawing.Color.Cyan
34-Button1.BackColor = Color.FromArgb(0, 192, 192)
35-Button1.BackColor = System.Drawing.Color.Teal
36-Button1.BackColor = Color.FromArgb(0, 64, 64)

37-Button1.BackColor = Color.FromArgb(192, 192, 255)
38-Button1.BackColor = Color.FromArgb(128, 128, 255)
39-Button1.BackColor = System.Drawing.Color.Blue
40-Button1.BackColor = Color.FromArgb(0, 0, 192)
41-Button1.BackColor = System.Drawing.Color.Navy
42-Button1.BackColor = Color.FromArgb(0, 0, 64)

43-Button1.BackColor = Color.FromArgb(255, 192, 255)
44-Button1.BackColor = Color.FromArgb(255, 128, 255)
45-Button1.BackColor = System.Drawing.Color.Fuchsia
46-Button1.BackColor = Color.FromArgb(192, 0, 192)
47-Button1.BackColor = System.Drawing.Color.Purple
48-Button1.BackColor = Color.FromArgb(64, 0, 64)

VB.Net 輸入完 Enter 結束

例:
Dim z1 As Double

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = Chr(13) Then
            e.Handled = True
            z1 = Val(TextBox1.Text)     'z1為輸入值
            TextBox2.Focus()     '游標跳至TextBox2.Text
        End If
    End Sub

注意:1.要用KeyPress否則程式不能執行  2.按 [Enter] 鍵 表示輸入結束