併聯型太陽能設計
改版內容預訂(加入輸入負載後,自動計算每日可回授的電力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)
程式完成如附件