我的記事簿: 8月 2015

2015年8月30日星期日

鈣的補充

要瞭解自己的骨質狀況，每年可以做一次骨質密度檢查；飲食的部分，成人一天需攝取的鈣質約1000毫克，鈣質的攝取以天然食物為主，像是平時多吃木耳、黑芝麻、高麗菜及豆腐等高鈣食物，但是現代人大多外食無法完整攝取足夠鈣質。節省時間方便的情況下以鈣片的方式補充，建議一天攝取量以600毫克為基準，彌補飲食中鈣質的不足，才能避免骨質疏鬆找上門。
資料來源：http://pansci.asia/archives/71082http://pansci.asia/archives/71082

2015年8月26日星期三

鍋爐相關資料

鍋爐相關資料：
2-03 低發熱值QH是用高發熱值QB減去汽化熱的方法求出，汽化熱一般取為 600 Kcal/kg，
公式如下：
[1. Kcal]
QH=QB-6*(W+9H) Kcal/kg (註一)
[2. KJ]
高位発熱量（高発熱量）と低位発熱量（低発熱量）の関係は実用上、
次式で換算できるようですが、どうしてそうなるのでしょうか？
低発熱量=高発熱量-2500（9h＋w）[kJ/kg]
ここで
h：燃料1kg中の水素分[kg]
w：燃料1kg中の水分[kg]
水の蒸発潜熱は、およそ2500kJ/kgなのでwは理解できるのですが、
9hはどこから導出されたのでしょうか？
資料來源
kacl ，KJ 單位換算 [ 點我 ]

註一：爐機組熱力計算標準方法(蘇-73版)

α1 & α2

α1 & α2 加熱介質對管壁及管壁對受熱介質的放熱係數

化工設備設計全書廢熱鍋爐(OCR)

2015年8月12日星期三

我就是要戒菸 (過五關斬六將) ??

替代完全戒菸法 (8/11開始)已戒菸125整天(12/14)繼續戒菸中。。。。。

50.0hr 沒有很難過!!今早上肚痛；是肚子餓到痛!!
60.5hr 很想抽菸吃尼古清薄荷錠
66.0hr 很想抽菸再補吃尼古清薄荷錠
已過第一關72小時；去買包好茶慰勞自己一下!!(已有吃零嘴慾望)
尼古清薄荷錠與冰釀葡萄airwave味道與苦味相似!!準備替換尼古清薄荷錠(暫時不用)

目前為止感覺已沒有 尼古丁的"癮"；只剩偶爾一過抽菸的念頭 !!

8/22 量體重家秤68kg
9/3 -- 家秤69kg
9/7 -- 家醫科公秤 73.5kg (診內秤 70kg)
9/11 - 家秤 68kg
9/15 - 家秤 68kg
9/17 - 家秤 69kg(昨晚吃消夜)
9/19 - 家秤 69kg(完了!!體重降不下來)
9/21 - 家秤 69.5kg(完了!!體重降不下來)
9/23 - 家秤 68.5kg (空腹)
10/2 - 家秤 67kg (前幾天拉肚子)
10/9 - 家秤 68 kg
孔雀餅乾 $14；麥穗蘇打(全素) *2 @$22
超涼無糖口香糖(加量包)13份(乙式兩粒)全聯$42

9/7 能抽根菸不知有多好 !! 我的小確幸!!
9/7 戒菸門診已完 (郭醫生曰：口香糖要慢慢減少)
9/9 忘了在戒菸!!想抽菸!!桌上口袋內已無香菸打火機!!只好吃口香糖吧!!
9/11 中午休息夢到抽菸
9/13 晚肚餓；秤了一下體重 68 Kg；算了 ! ! 吃一些零嘴算了 ! !
9/15 補充超涼無糖口香糖(加量包)13份(乙式兩粒)全聯$42(不買了!!要減少口香糖用量)
10/4 補茶葉特級綠茶69凍頂烏龍茶86盛香珍咖啡奶酥41超涼無糖口香糖(加量包)13份(乙式兩粒)全聯$42

吃零嘴!!吃零嘴!!吃零嘴!!
吃口香糖!!口香糖!!口香糖!!

郭先生說：戒菸要穩需要半年 ! !

第五關 10/10 戒菸兩個月 ! !

<< 往第6關前進 >>

第六關 2/10 戒菸六個月 ! ! ( 先生說至少要不抽菸半年，才算戒菸成功 )
2/11戒菸已半年；但三不五時還是想抽菸 ! !
3/11戒菸已半年；但三不五時還是想抽菸 ! !
最近有氣短現象!!
04/05 戒菸中.......

2017年7月20日繼續戒菸中(快兩年)
體重:66Kg
20170807 66.9kg

我戒菸但我反對菸捐

不是世界上每個國家都有菸捐

全球少見的「菸捐」制度，近 67 億流入衛福部的心愛小金庫

2015年8月11日星期二

錄音無效我的處理方法!!

1.由電腦發出聲音用內建錄音機無效

2.點選喇叭

3.右鍵下拉是選單；選錄音裝置

4.原有設定為 HD Webcam C310 (我有裝設C310的網路攝影機)

5.右鍵下拉是選單選停用

6.立體聲混音 VIA High Ddfinition Audio 右鍵選啟用

7.按確定鍵

8.重新撥放

9.OK ! !

2015年8月8日星期六

Visual Basic 寫程式的八個優良習慣

1、"&"置換"+"
2、變量命名大小寫，語句錯落有秩，源代碼維護方面
3、請養成以下的「物件命名約定」良好習慣
4、在簡單的選取條件情況下,使用IIf()函數
5、盡量使用Debug.Print進行除錯
6、在重複對某一對象的屬性進行修改時，盡量使用With....End With
7、MsgBox中盡量使用消息圖示，這樣程式比較有規範
8、在可能的情況下使用枚舉

詳細資料來源(請點我-天山論劍)

5.盡量使用Debug.Print進行除錯

Excel VBA 的 Sheets("sheet1").cells()

Excel VBA 的 Sheets("sheet1").cells()
在中文版要改為Sheets("工作表1").cells()或直接改為官方建議的Sheets(1).Cells()
不然會出現下視窗執行階段錯誤 '9':陣列索引超出範圍

Foxit Reader 做書籤的基本設定

1.點選符合寬度；這樣無論視窗如何變動寬度都會自動調整
2.點選連續顯示；這樣閱讀時不會一頁一頁的跳頁

2015年8月6日星期四

VB.NET & VBA 連接至網路

VB.NET & VBA 連接至網路
Shell("rundll32.exe url.dll,FileProtocolHandler http://hsiao-tw.blogspot.tw/")

vb.net ASCII

ASCII碼	鍵盤	ASCII 碼	鍵盤	ASCII 碼	鍵盤	ASCII 碼	鍵盤
27	ESC	32	SPACE	33	!	34	"
35	#	36	$	37	%	38	&
39	'	40	(	41	)	42	*
43	+	44	'	45	-	46	.
47	/	48	0	49	1	50	2
51	3	52	4	53	5	54	6
55	7	56	8	57	9	58	:
59	;	60	<	61	=	62	>
63	?	64	@	65	A	66	B
67	C	68	D	69	E	70	F
71	G	72	H	73	I	74	J
75	K	76	L	77	M	78	N
79	O	80	P	81	Q	82	R
83	S	84	T	85	U	86	V
87	W	88	X	89	Y	90	Z
91	[	92	\	93	]	94	^
95	_	96	`	97	a	98	b
99	c	100	d	101	e	102	f
103	g	104	h	105	i	106	j
107	k	108	l	109	m	110	n
111	o	112	p	113	q	114	r
115	s	116	t	117	u	118	v
119	w	120	x	121	y	122	z
123	{	124	\|	125	}	126	~