併聯型太陽能設計

改版內容預訂(加入輸入負載後,自動計算每日可回授的電力WH)

在這個程式中用到了幾個指令

第一個是format(運算式,"0.00")此行意思是假如運算式的結果有小數點就顯示到小數點第二位,如下例:

Format(((Val(Text12.Text) - 25) * (vmp * temp_p)) * Val(Text3.Text) + (vmp * Val(Text3.Text)), "0.00")

黑底的是運算式,由以上格式只要改變0.00就可自由指定要顯示到小數點幾位數了

由於給變數的初始值有帶小數點,於是我們必需宣告為單精度浮點數,如下例

Dim temp_i As Single

Dim temp_v As Single

Dim temp_p As Single

第二個是控制按鈕陣列,意即在表單中設置一個按鈕陣列如:command1(0),command1(1).......只要按其中一顆,都做相同動作

如下圖加上index as integer即可

Private Sub Command1_Click(index As Integer)

程式完成如附件