我的記事簿: 6月 2014

2014年6月28日星期六

vb.net math.round(x,y)-四捨五入

數字小數點位數在標準中大多為小數點後兩位

在BASIC 與VB6 中可用

下為小數點後兩位
X=INT(X0*1000+0.5)/1000
註:0數輛為小數點+1

在VB.NET 則可用
說明
Math.Round功能

VB.NET Math.Round是一個數學函數，用於返回指定小數位數整數最接近的價值。

語法：

    Math.Round（數，小數位數）

在上面的語法號碼是被捨入到小數點後的位數的號碼。
例如：

   模塊 Module1的
    的Sub Main（）
         （“四捨五入值6.42：”
                   Math.Round（6.42，1））
         （“四捨五入值6.56：”
                   Math.Round（6.56，1））
         （“四捨五入值6.49：”
                   ＆Math.Round（6.49，1））
         Console.ReadLine（）
     END SUB
   前端模塊

結果：

    四捨五入值6.42：6.4
    四捨五入值6.56：6.6
    四捨五入值6.49：6.5

在上面的例子，Math.Round數學函數是使用輪為一個單一的小數位的十進制數。

vb.net math的一些函數

Math.Abs(x)    '算x之絕對值
Math.Atan(x)   '算x弧度的反正切函數值
Math.Cos(x)    '算x弧度的餘弦函數值
Math.Exp(x)    '自然對數的e的x次方
Math.Fix(x)    'x的整數
Math.Hex(x)    '將10進位的x轉換成16進位
Math.Int(x)    '小於等於x的整數
Math.Log(x)    '以e為底的自然對數
Math.Log10(x) '以10為底的對數
Math.Oct(x)    '將10進位的x轉換成8進位
Math.Rnd(x)    '產生1個介於0到1的亂數
                 '在rnd之前通常會有Randomize statement
               '使每次執行時產生不同亂數
Math.Round(x,n)'x第n位小數的4捨6入
                 '第n位小數為5時，當第n-1位為奇數才進位
                 'Math.round(x)，表示n=1
Math.Sin(x)    'x弧度的正弦函數值
Math.Sqrt(x)   'x的平方根
Math.Tan(x)    'x弧度的正切函數值
Math.pi        '3.1415927......

vb.net 小數後有效位數(四捨五入)

vb.net 小數後有效位數(四捨五入)與vb通用
三個零:表小數點後三位並四捨五入
wa = Int(w * 1000 + 0.5) / 1000

wa=math.round(w,3)

2014年6月25日星期三

最近大樓電梯門一直有問題
管委會聽從電梯保養公司建議裝一個紅外綫檢知器
感覺怪怪的從網上查了一下!!這方面資料還真不是多

這個參考一下 ....原來那個叫安全碰邊
http://abc3721.pixnet.net/blog/post/33977132-%E9%9B%BB%E6%A2%AF

2014年6月20日星期五

各類運動消耗熱量表
國民健康署

我的網誌開張了!!測試一下!!

2014年6月28日 星期六