請參考來源:天然綜合水果酵素作法完整版
--
好像很讚! 有空來製作看看
2015年12月28日 星期一
2015年12月25日 星期五
2015年12月24日 星期四
2015年12月22日 星期二
VB.NET驗證郵件地址的合法性實現代碼
參考引用來源:VB.NET驗證郵件地址的合法性實現代碼
--
1. nslookup -type=mx gmail.com
2.
Private Function GetMailServer(ByVal sDomain As String) As String
Dim info As New ProcessStartInfo()
Dim ns As Process
'調用Windows的nslookup命令,查找郵件伺服器
info.UseShellExecute = False
info.RedirectStandardInput = True
info.RedirectStandardOutput = True
info.FileName = "nslookup"
info.CreateNoWindow = True
'查找類型為MX。關于nslookup的詳細說明,請參見
'Windows幫助
info.Arguments = "-type=MX " + sDomain.ToUpper.Trim
'啟動一個進行執行Windows的nslookup命令()
ns = Process.Start(info)
Dim sout As StreamReader
sout = ns.StandardOutput
' 利用正則表達式找出nslookup命令輸出結果中的郵件伺服器信息
Dim reg As Regex = New Regex("mail exchanger = (?[^\s]+)")
Dim mailserver As String
Dim response As String = ""
Do While (sout.Peek() > -1)
response = sout.ReadLine()
Dim amatch As Match = reg.Match(response)
If (amatch.Success) Then
mailserver = amatch.Groups("server").Value
Exit Do
End If
Loop
Return mailserver
End Function
--
1. nslookup -type=mx gmail.com
2.
Private Function GetMailServer(ByVal sDomain As String) As String
Dim info As New ProcessStartInfo()
Dim ns As Process
'調用Windows的nslookup命令,查找郵件伺服器
info.UseShellExecute = False
info.RedirectStandardInput = True
info.RedirectStandardOutput = True
info.FileName = "nslookup"
info.CreateNoWindow = True
'查找類型為MX。關于nslookup的詳細說明,請參見
'Windows幫助
info.Arguments = "-type=MX " + sDomain.ToUpper.Trim
'啟動一個進行執行Windows的nslookup命令()
ns = Process.Start(info)
Dim sout As StreamReader
sout = ns.StandardOutput
' 利用正則表達式找出nslookup命令輸出結果中的郵件伺服器信息
Dim reg As Regex = New Regex("mail exchanger = (?[^\s]+)")
Dim mailserver As String
Dim response As String = ""
Do While (sout.Peek() > -1)
response = sout.ReadLine()
Dim amatch As Match = reg.Match(response)
If (amatch.Success) Then
mailserver = amatch.Groups("server").Value
Exit Do
End If
Loop
Return mailserver
End Function
2015年12月21日 星期一
vbnet gmail 寄信
相信很多人應用程式開發均採用gmail 當主發!
現gmail 預設均採用較高的安全性,若使用的帳號沒有開放應用程式發信功能;怎發也是發不出去的!
今天也是要發,狂碰丁子!! = . =
總算有看到別人也有說明問題點在哪!!
底下為程式範例:
-----------------
(1)
Dim smtpServer As New SmtpClient
Dim mail As New MailMessage()
Dim mailAttachment As Attachment = New Attachment("XMLFile")
smtpServer.UseDefaultCredentials = False
smtpServer.Credentials = New Net.NetworkCredential("a@ymail.com", "12345")
smtpServer.Port = 465
smtpServer.EnableSsl = True
smtpServer.Host = "smtp.mail.yahoo.com"
mail = New MailMessage()
mail.From = New MailAddress("a@ymail.com")
mail.To.Add("a@ymail.com")
mail.Subject = "110BackUp"
mail.IsBodyHtml = False
mail.Body = "XML FILE"
mail.Attachments.Add(mailAttachment)
smtpServer.Send(mail)
-----------------
(2)
Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim SmtpServer As New SmtpClient()
Dim mail As New MailMessage()
SmtpServer.Credentials = New _
Net.NetworkCredential("username@gmail.com", "password")
SmtpServer.Port = 587
SmtpServer.Host = "smtp.gmail.com"
mail = New MailMessage()
mail.From = New MailAddress("YOURusername@gmail.com")
mail.To.Add("TOADDRESS")
mail.Subject = "Test Mail"
mail.Body = "This is for testing SMTP mail from GMAIL"
SmtpServer.Send(mail)
MsgBox("mail send")
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
End Class
-----------------
讓gmail 可以發信的設定(解決方法):
2015年12月17日 星期四
google 更換開發工具 Android Studio IDE
Download Android Studio and SDK Tools | Android Developers
--
檔案還真大 1.13GB // android-studio-bundle-141.2456560-windows.exe
--
--
檔案還真大 1.13GB // android-studio-bundle-141.2456560-windows.exe
--
2015年12月16日 星期三
2015年12月15日 星期二
B4J 8:windows 執行 jar
參考來源:Running JAR file on Windows
---
執行指令 : java -jar MyJavaTool.jar
---
經過 B4J run 過後,實際已轉譯出 .jar 檔 ; 這已是可在windows 有安裝 java 虛擬器下執行了!
利用 windows command 來執行 jar
---
---
執行指令 : java -jar MyJavaTool.jar
---
經過 B4J run 過後,實際已轉譯出 .jar 檔 ; 這已是可在windows 有安裝 java 虛擬器下執行了!
利用 windows command 來執行 jar
---
B4J 7:MySQL 連線
須先下載 mysql-connector-java-5.1.38-bin.jar (for mysql)
---
---
mysql 較麻煩 , 會有亂碼問題!!
再一開始建立資料庫時就必須定義好編碼 (如:big5 或 utf8 )
再UI 建檔部分也須定義確定讀取資料庫時,要採用big5或utf8 ; 必須是一致性
---
---
mysql 較麻煩 , 會有亂碼問題!!
再一開始建立資料庫時就必須定義好編碼 (如:big5 或 utf8 )
再UI 建檔部分也須定義確定讀取資料庫時,要採用big5或utf8 ; 必須是一致性
B4J MSSQL 2008 / JDBC
官網下載 : jTDS JDBC Driver參考範例 : How do I connect to a SQL Server 2008 database using JDBC?
--
java :
Class.forName( "net.sourceforge.jtds.jdbc.Driver" );
Connection con = DriverManager.getConnection( "jdbc:jtds:sqlserver://address>:1433/zacmpf", userName, password );
Statement stmt = con.createStatement();
--
原則在 B4J 一樣套用這樣的參數帶入即可
--
java :
Class.forName( "net.sourceforge.jtds.jdbc.Driver" );
Connection con = DriverManager.getConnection( "jdbc:jtds:sqlserver://
Statement stmt = con.createStatement();
--
原則在 B4J 一樣套用這樣的參數帶入即可
B4 x 對 VSCode
--
依這進度 , 很快就被微軟吃了!!
整體看了 :
(1) B4A+B4I+B4J -->Visual Baisc
(2) Xamarin --->C# (已慢慢再加 支援 Visual Basic)
(3)VSCode 通吞模式
現用Windows XP 裝不了 , 等 用 Win7 再來試試
2015年12月14日 星期一
visual studio code
微軟官網下載 visual studio code
--
可安裝平台:
Mac OS X,Linux,Windows
支援開發語言:
Batch, C++, Clojure, Coffee Script, Dockerfile, F#, Go, Jade, Java, HandleBars, Ini, Lua, Makefile, Objective-C, Perl, PowerShell, Python, R, Razor, Ruby, Rust, SQL, Visual Basic, XML
可知道的是 windows xp 沒法安裝了 ....Orz
--
可安裝平台:
Mac OS X,Linux,Windows
支援開發語言:
Batch, C++, Clojure, Coffee Script, Dockerfile, F#, Go, Jade, Java, HandleBars, Ini, Lua, Makefile, Objective-C, Perl, PowerShell, Python, R, Razor, Ruby, Rust, SQL, Visual Basic, XML
可知道的是 windows xp 沒法安裝了 ....Orz
2015年12月13日 星期日
環保酵素完整篇
請參考來源:環保酵素完整篇
--
功效驚人的環保酵素可以綠化地球,淨化家園,在家裡就可以做,連小孩一看也馬上學會喔~
環保酵素如何能去汙保鮮 (桔抗作用)
你知道家裡不要的廚餘果皮,經過簡單處理,都可以變成有去汙效果的環保酵素嗎?一名從馬來西亞來台灣推廣的環保專家,示範只要把果皮砂糖跟水混合,擺上3 個月,就可以做出環保酵素,不但是天然的去汙劑,加水稀釋灑在蔬果上,據說還可以延長蔬果的保鮮時間,學者說,這道理就做桔抗作用,是利用好的微生物,去壓制壞的微生物。
一大瓶的水加入紅砂糖,均勻搖晃之後,再加進果皮菜渣,放上 3個月,深褐色的液體,就變成了超神奇的環保酵素。馬來西亞醫師溫小姐:「上面比較混濁,我們倒了一桶酵素,積在下面的油污不見了。」
看起來尋常不行的液體,卻有超神奇功用,溫醫師拿著一張張照片,跟民眾講解神奇酵素的功用,本來一條臭水溝,倒進環保酵素之後,幾天過後清澈不少,從馬來西亞到台灣推廣的溫醫師說,這環保酵素不但能去汙,幾滴酵素加上清水,還可以維持蔬果保鮮,真有那麼神奇嗎?原理到底是什麼?
食品安全管理協會理事長黃士禮:「微生物裡頭有一種叫桔抗作用,好的微生物會壓抑壞的微生物,產生保護或保鮮的作用。」
醫師口中的環保酵素,還可以洗碗、洗水果,如果能夠推廣,未來民眾不要的果皮菜渣,經過簡單處理,都可以廢物利用,也達到推動環保的目的。
A. 什麼是環保酵素(ECO Enzyme /Garbage Enzyme)?
環保酵素技術是泰國樂素昆.普潘翁博士 (Dr Rosukon Poompanvong) ,泰國有機農耕協會創始人,經過30 多年努力所研發的一種果皮蔬菜廚餘酵素, 通稱為“垃圾酵素”。
樂素昆博士以慈悲的精神將她研究酵素的秘密完全公開,更推動大眾自己在家製做環保酵素,她明白只有家家戶戶都懂得製做環保酵素,利用環保酵素在我們每天的生活上,我們的環境污染才能減低,大家才能更進一步過著健康有機生活。
樂素昆博士說: 如果你做了100,000 桶的垃圾酵素,其效果相等於1 百萬棵樹,這點值得你去思考。
環保酵素是混合了糖和水的廚餘(鮮果皮蔬菜垃圾), 經過三個月發酵後, 便立即可以使用。
發酵後的環保酵素是成棕色液體,有柑橘般的刺激氣味, 其用途數之不盡。它不但製作過程簡單,製作材料也隨手可得;除了節省金錢,同時用途廣泛,還可幫助減少垃圾量,對環保起很大的作用。
製作環保酵素所得的臭氧(O3),有殺菌功能,能夠幫助空氣中增加氧的含量,減少空氣中的廢氣和毒氣,還能分解人工化學污染物,溝渠內的油膏。利用環保酵素代替家中化學清潔用品,流到下水道還可以淨化河流與海洋,達到環保的效果。
普潘翁博士曾多次協助泰國,歐洲,臺灣,馬來西亞等國的有機農夫,合作培耕出大批優良的有機農產品。
一大片的沙地, 用環保酵素灌溉....四個月後,成為一片肥沃的菜田。
B. 環保酵素基本做法 :
★材料
黑糖(黑糖或黃糖, 不用白糖, 因為黑糖有多礦物質,功能很強):1 公斤
菜渣/果皮(蔬菜葉、菜頭菜尾,菜根,水果皮,馬鈴薯皮等):3 公斤
水 :10 公升
「黑糖 : 菜渣果皮 : 水」比例是 1 : 3 : 10 (不一定是要以公斤來計算)
★簡單容器:有密封開蓋口的塑膠器材料
★做法:
1.準備一個有密封蓋口的塑膠容器。
2.把水和黑糖倒進塑膠瓶裏攪均後,加入廚房鮮垃圾。鮮垃圾包括:鮮樹葉、水果皮,準備丟掉的蔬菜或植物。
3.容器內留一些空間,以防止酵素發酵時溢出容器外。
4.將容器蓋緊。
5.製作過程中會產生氣體,切記每天將瓶口稍微打開,以泄放氣體,避免瓶子被撐
破。
6.不時把浮在液面上的垃圾按下去,使它浸泡在液體中。
7.環保酵素應該放在空氣流通和陰涼處,避免陽光直照,發酵3 個月後即可使用。
★註: 第一個月須每日打開容器上的蓋口,釋放氣體,其氣體非常的強,故不健議用玻璃的容器。有些環保酵素經過一個禮拜後,便沒強氣,那就不用再開蓋了。
C. 製作環保酵素須注意事項:
1.避免選用玻璃或金屬等無法膨脹的容器。
2.用鮮垃圾包括剩飯、鮮菜葉、水果皮等準備丟掉的蔬菜或植物,不包括廢紙、塑膠、金屬罐頭和瓶子。
3.避免使用魚、肉、或油膩的廚餘,因為會造成腐臭味;如果要製作出來的酵素有清香氣味,可以加橘皮、檸檬皮和班蘭葉等氣味較好的蔬菜果皮。如果你放比較多菜類的話,它的味道就會有一點像鹹菜味道,如果你放多果皮,它的味道就會很香。做完後記得寫上製作日期。
4.成功的環保酵素呈棕黃色,而且有橘子般的刺激氣味,將製好的環保酵素過濾到瓶子中待用;如果酵素呈現黑色,即腐敗,失敗了,但只需加入同樣分量的黑糖,重新發酵3 個月即可。
5.環保酵素在第一個月發酵的時候,你會聞到會有酒精的味道;第二個月你就會開始聞到酸酸的味道,那個是醋酸,裏面很多的物質,礦物質維他命等等,再經分解後就產生了酵素。普潘翁博士說三個月過後,環保酵素就可以拿來使用了,它會非常的穩定 ! 當然三個月過後,你可以直接保留放著,不一定要馬上把酵素倒出來,它可以存放一年,兩年,三年,十年,二十年都沒問題,發酵6 個月或以上的酵素最好,發酵期越久,裏面的分子會越小,因為它會繼續的發酵、分解。當分子越小的時候滲透力就越強,效果越佳。環保酵素不會過期,越久越醇。切勿放置冰箱,低溫會降低酵素的活性。
6.如果發現液體表面產生白色、黑色或棕色的漂浮物,不必理會,讓它繼續發酵。不同的環境, 果菜會發酵出不同顏色的益菌,根據製作過程中如果發現蒼蠅卵,不必擔心,發酵過程會將它們分解掉,這也說明環保酵素不會對生物帶來危害。有一些酵素,它上面會生一層白白的,像黴菌類,放心,那些都是細菌的屍體。
有一些人做好酵素之後放著,隔了很長的一段時間後,它忽然間就會開始生一層好像果凍的東西。它是酵母酵素的“媽媽”: 你可以把這一片拿出來,放在一個空罐上,然後加水放著,它本身就是酵素了。
7.活用發酵後留下的垃圾渣:
• 可以拿來曬乾,攪碎後埋在土裡充作肥料。
• 攪碎後加入黑糖或黃糖,倒入馬桶凈化糞池,它可以分解掉那些銨,轉化成為對我們環境很好,對我們植物很有效的硝酸鹽(nitrate)
• 或可繼續留在容器內,加入新的鮮垃圾再次釀製酵素。
8.如果一時無法收集足夠份量的鮮垃圾,可陸續加入鮮垃圾,3 個月的期限,從最後一次加入當天算起。
9.保住大氣層:如果每戶人家都將家中的垃圾,轉化為環保酵素並善於利用,不但能大大減少毒害環境和令地球增溫的廢氣,還能製造出能降低室溫效應及修補大氣層的臭氧,而能綠化地球,暖化人心。
D.有問題的環保酵素…補救方法:
製作酵素從第一天開始到最後一天,酵素永遠不會變壞,會壞的是因為我們的環境,還有我們的製作過程有可能出了一些狀況.
問: 如果做出來的酵素變成很臭,就好像一些臭雞蛋味道時那怎麼樣補救呢?
答: 很簡單,趕快把一份的黑糖,糖的份量要按照原來的比例來加,然後給它攪勻,封口,蓋緊,不要去打開它。一個月過後再開,它完全就會好了。
問: 為什麼在我們做酵素的時候會生蟲呢?
答: 主要的一個原因是蓋子蓋不好,蓋不緊。只要你的蓋子蓋得緊的話,通常都不會生蟲。所以瓶子的蓋很重要,密封很重要,把酵素蓋好,照顧得很好的話,它不會生蟲。好的酵素,它的味道一定是有一點酸酸的,然後很香。
問: 釋放汽體的時候,是否需要攪拌一下呢?
答: 大桶的環保酵素可以用手下去攪拌一下,小的(像1 公升瓶),就不用去搖晃攪拌它。
E.環保酵素的使用方法 - 垃圾酵素可稀釋後使用:
1.園藝或農作:加水稀釋1000 倍,可用作天然除蟲、除草劑和有機肥料,並可刺激植物賀爾蒙,改善蔬果品質和增加產量。連續將環保酵素澆在土地上3 個月,可改善土質,讓土地重現生機。
2.家用清潔劑:可使用環保酵素摻入洗髮精、沐浴露、洗碗劑和洗衣水等,可減少化學成份。(比率:1 份環保酵素:1 份洗條劑:10 份清水。)
3.清洗蔬菜水果:加入30 毫升或兩湯匙環保酵素在1 公升清水裏,浸泡45 分鐘。
4.清潔地板:加入30 毫升或兩湯匙環保酵素在抹地水中,可清洗和消毒地板。
5.汽車保養:加入30 毫升或兩湯匙環保酵素在汽車水箱裏,可降低引擎溫度。
6.當洗碗液:一份酵素、一份清潔劑加十份水,倒入容器中,可多次使用。
7.當抹地液:一至兩瓶蓋酵素,倒入半桶水
8.當洗衣液:四至五瓶蓋的酵素,使用的洗衣粉量減少
9.澆花、澆菜:一瓶蓋的酵素,加入1.5 公升的水。
F. 環保酵素功用(外用) 多年的真實體驗記碌:
1.人體皮膚 : 可治療各種多年不愈的皮膚病, 刀傷,燒傷,發炎等症狀。噴寵物身上消菌用的。(註: 外用)
2.對果菜農夫的幫忙: 垃圾酵素可減少蟲害,提高果菜的鮮美,加快收成。用了一次便立即看到效果。
3.實驗證明環保酵素可降底EMF 指數: 冷氣機,電腦或電視機所釋放的電磁波, 測試器的指數是55 至60 多,但是如果在家裏室內靠近冷氣機,電腦或電視機的地方,放一大桶的環保酵素, 測試器的指數馬上下降到13 左右。無法在家裏種盆栽的人,可以試製環保酵素。
4.環保酵素可活化快枯杆的樹木,花,草等,使土地肥沃起來。
5.環保酵素還能帶動室內空氣的流通。
6.淨化下水道:用過的環保酵素最後流到水道,能淨化河流和海洋。可避免導致氾濫,淹水問題。
7.防水管堵塞:可疏通馬桶或水槽,排水管。
8.除臭、淨化廢氣:有除臭功能( 廁所),可消除香煙氣味、汽車廢氣、家居噴劑的毒氣等,同時增加空氣含氧量。家裏的蚊子、蒼蠅、老鼠、蟑螂的數量會減少。
9.減少垃圾:丟棄的廚餘釋放甲烷廢氣,比二氧化炭導致地球暖化的程度高21 倍。
10.節省金錢:化廚餘為DIY 環保清潔劑,節省家庭開銷。
11.減少害菌:能分解和消滅有害微生物及黴菌。
12.家居生活好幫手:可用作天然清潔劑,空氣消化劑、洗衣劑、汽車保養劑、衣物柔軟劑和有機肥料等。垃圾酵素可以清除果菜內的農藥, 只要把兩瓶蓋的酵素倒入洗菜的盆內, 再讓果菜泡浸越30 分鐘就可.
13.淹水過後:如果能把大桶的環保酵素倒入污水中或者在淹水後清理環境時加入酵素,可以避免有害菌的滋長,鼠患及清除掉異味。
G. 根據溫秀枝醫師(一名馬來西亞自然療法醫師, 垃圾酵素的頭號支持者) :
「1 公升的酵素可以淨化1000 公升的河水, 一般先進的國家,有45%的垃圾是屬於濕垃圾,如: 果皮,菜類, 廚餘,如能將它們做有效的處理,化為有用的酵素,豈不是功德一件? 在馬來西亞,有善心人士每天對水果攤老闆購買水果皮! 為了我們的下一代,努力一點吧,大家一起DIY!!
如果有人開餐館,不防建議店長把果皮蔬菜廚餘做成垃圾酵素,不需要很大的空間。學校效長,老師可以教小孩製作環保酵素,小孩樂極了!!!」
因爲環保酵素須要3 個月來發酵,天氣涼了也會影響環保酵素發酵的時間(會慢一點),所以請大家(有興趣者)儘快趁天氣好時,多做幾瓶。大家儘快爭取時間,讓地球快快恢復生氣。
當然,吃純素仍是為地球減溫最快,最佳的方法,如能雙管齊下會更好 ! 加油 !!
酵素 Q & A
1、 製作酵素的原料為什麼要用黑糖?可以用黃糖取代嗎?
答:黑糖所含的礦物質成份比較高,黃糖是經過漂白處理,在制做酵素時,原料越自然越好,所以黑糖比黃糖更適合。
2、 製作酵素的原料是單一的水果皮比較好?還是有各種不同的鮮垃圾比較好?
答:環保酵素的釀制過程,將所有不同的酵素原料加在同一個環境中,讓它們互相促進,共同構成一個複雜而穩定且具有多元功能的酵素生態系統。所以鮮垃圾的種類越多越好。
3、 每次制做酵素都一定會成功嗎?要如何判斷和處理?
答:發酵的過程會有兩種情況:一是成功,酵素液呈棕黃色或有白色粉末;二是變壞,酵素液變黑或發黴。不成功的原因有很多,Dr.Rosukon 曾說過,如果變壞,只需再加一份同等的黑糖,再讓它發酵一個月,就會改變了。
4、 環保酵素經過發酵會不會有細菌?用在個人衛生護理方面安全嗎?
答:環保酵素在發酵的過程會產生菌,酵素中含有醋酸與益生茵,是天然的防腐劑,已能抗菌。經過發酵3 個月後,只要酵素酸化在pH4 以下,即已成熟穩定。將酵素用在個人衛生護理方面,除了能降低化學物質對人體的過敏反應,也能分解和消滅對人體有害的微生物,進而促進人體細胞的再生能力。
5、 如何製作出有清香氣味的酵素?
答:如果希望製作出來的酵素有清香的氣味,可加入橘子皮、檸檬皮及班蘭葉等有香味的蔬菜果皮。
6、 使用環保酵素會不會有副作用?
答:環保酵素是取自於大自然,不會有副作用,必需留意的是在使用時稀釋的比例。比如:用稀釋酵素擦洗地板,地板會很光潔;如果酵素沒有經過稀釋,地板卻會很黏。濃縮的酵素是除草劑,稀釋過的酵素卻能讓植物快高長大。簡單來說,一般家庭用於潔淨方面,越稀釋效果越強。
7、 為什麼我們要做環保酵素?要多少人做環保酵素才有效拯救地球?
答:生活在這個地球,我們都感受到整個大環境出問題,每個人都有責任和義務保護它。只有重新尊重自然界,恢復原有的生態環境,才能為我們自己和下一代提供一個良好的生存環境。製作環保酵素是其中一項簡單又有效的方法。環保酵素一身都是寶。把原本要丟棄的鮮垃圾經過處理變成環保酵素,從製作到使用,每個過程都是資源再利用的方法。只要每家每戶都能動手做環保酵素,雖然只是舉手之勞,卻能對個人、家庭、社會,甚至地球都有很大的幫助,是件非常有意義的事。我們要推廣環保酵素,每個人都很重要。
環保酵素的多元化用途
農作物── 自然化
自然農法的理念是保護自然生態環境和人類的健康。酵素能廣泛應用在自然農法中。
● 改善土質
酵素是天然的肥料,能改善土壤環境,把貧瘠地轉變為肥沃的土地。
● 不使用化學農藥減少蟲害
若將釀制好的環保酵素以一公斤紅砂糖和十公升水進行稀釋灑在草地上,這個過程會刺
激昆蟲的眼睛,破壞其卵的發育,就能減少昆蟲、蚊子、老鼠和蟑螂的數量。蟲害減少,
有利於農作物生長。
● 植物快高長大
酵素液有助於促進光合作用,樹根會獲得更多的氧氣,過程也促進蛋白質、澱粉、脂肪
在土裏分解,能為植物增加肥料。此外,臭氧從地面蒸發到大氣層,有用酵素液灌溉的
那區,樹葉比較健康,植物會快高長大。
畜牧業── 健康化
將酵素使用在家畜(禽)養殖場,能使飼養過程健康化。
● 改善飼養的環境
酵素是天然的空氣清新劑,在畜舍及糞便上噴灑環保酵素,能消除蒼蠅和惡臭。除蟲、除臭的效果讓家畜(禽)能在比較衛生的環境生活。
● 家畜(禽)更健康
在飼料和飲用水中添加環保酵素,能增加家畜(禽)的抵抗力,肉蛋品質提高。
排水系統── 潔淨化
環保酵素能淨化水源,改善家庭生活排水、食品加工廠排污水及畜舍污水對環境所造成的污染。
● 淨化排水系統
如果將酵素液或酵素渣倒入排水系統,如:下水道、糞池、水溝等,可防止水管堵塞、淨化糞池、分解污水污泥、淨化河流和海洋,達到淨化環境的效果。
● 恢復自然生態
隨著排水系統潔淨化,消失的魚和貝類開始再度出現和增加,能恢復自然界的本來面貌。
普通清潔劑 VS 酵素清潔劑
將稀釋後的環保酵素倒入溝渠或河流能起到淨化的作用,因為酵素能有效的分解人工化學污染物。普通清潔劑是以介面活性劑將油脂乳化,再以水帶走物質。酵素清潔劑是具有活性觸媒將油脂分解成小分子,並直接與深處油脂反應,達到深層清潔目的。
垃圾污染── 減低化
把生垃圾(指剩菜、水果皮等食物垃圾)善用、處理並製成酵素,能減輕社會處理垃圾的負擔及費用。
家居生活── 環保化
發酵的酵素能取代一般家用的化學清潔用品,適用於家庭養花或供給農戶使用,經濟、實惠又能照顧環境和自身的健康。
● 家居清潔
酵素稀釋後能去除怪氣味、黴菌、塵垢、汙穢、油污等,在清洗客廳和房間地板、冷氣機、廁所、廚房抽風機、油膩牆壁等非常有效果。此外,隨著酵素的使用,蒼蠅、蚊子、老鼠、蟑螂的數量也會減少。
● 個人衛生
酵素能分解和消滅對人體有害的微生物,在沭浴、洗髮和洗衣時加入稀釋的酵素液,能照顧個人的衛生並達到保養的效果。
● 寵物保養
能去除寵物身上的味道,減少寄生蟲生長。
● 烹調料理
將所有的蔬菜、水果泡在稀釋後的酵素水(2 湯匙酵素:1 公升水)浸泡45 分鐘,能去除除草劑、殺蟲劑、農藥、重金屬、細菌、寄生蟲卵等。蔬菜切開後,再繼續泡在酵素水中,烹調時再取出,蔬菜炒煮後會十分青綠美味,水果也非常甜。
●電磁波
長期使用具有電磁波的電子器材,會使人感到身體疲勞、眼睛疲倦、肩痛、頭痛、困乏、不安等等。電磁波還會使人的免疫機能下降、人體中的鈣質減少、並引致異常生產、流產、視覺障礙、阻礙細胞分裂,如:癌症、白血病、腦腫瘤等等。電磁波對嬰孩、發育中的小孩、老人、孕婦與胎兒及電磁波敏感群眾最為危害。將發酵後的酵素置放於電子器材旁,可減低其電磁波。進而減少身體的病痛。
酵素稀釋率 用 於 份 量 用 法
酵素原液 洗澡(加入洗澡水中,改善肌膚) 50-100cc 隔夜用
洗衣機(清潔及軟化衣物) 20-50cc 洗衣時浸泡和清洗
馬桶(防止阻塞並淨化糞池) 250cc 加入後沖水
廁所水箱(淨化水) 20-50cc 2-3次/星期
花園池塘水池及集水槽(淨化) 1/10000 水 偶而加入
皮革製品,如沙發(清潔發霉或污漬) 適量 噴灑並擦拭 每隔10天
10-50 倍 地毯和榻榻米(除臭及防蟲) 稍為噴濕 1-2 次/月
鞋櫃鞋內及車內(除臭及防蟲) 適量 偶而噴灑
廚房水槽,爐灶,烹調炊具(清除油漬) 適量 偶而浸泡並擦拭
浴室黑霉菌(能破壞或抑制真菌生長和活動的) 適量 偶而浸泡並擦拭
寵物排泄,寵物屋(除臭和防蟲) 適量 偶而噴灑
200-500 倍 冷氣房(增濕,除臭及防蟲) 適量 偶而噴灑
500 倍 浴室洗手盆、浴缸(去污) 適量 偶而浸泡並擦拭
櫥櫃及冰箱(除臭) 適量 偶而噴灑
污水排水管(防止堵塞) 適量 偶而沖水
寵物(洗澡,除臭,防蟲) 適量 幫寵物梳洗時
廁所(洗淨去污及除臭殺菌) 適量 當擦拭時噴灑
500-1000 倍 室內(淨化空氣、除臭、害蟲控制) 適量 常常噴灑
衣櫥,衣服(除臭、殺菌) 稍微噴濕 偶而噴灑
1000 倍 花草播種及植栽(肥料) 適量 一次
讓您節省更多的家用清潔劑: 可使用環保酵素倍增效用,如洗髮精、洗碗精、洗衣精等等,可減少其中的化學成份, 並同時淨化排出去的汙水。
比例= 1 杯環保酵素: 1 份洗滌劑 : 10 份清水.
清洗蔬菜水果: 加入30cc 或兩湯匙環保酵素於1 公升清水中,浸泡45 分鐘.
清潔地板: 加入30cc 或兩湯匙環保酵素於1 公升清水中,可清潔及消毒地板.
汽車保養: 加入30cc 或兩湯匙環保酵素於汽車水箱,可降低引擎溫度.
--
功效驚人的環保酵素可以綠化地球,淨化家園,在家裡就可以做,連小孩一看也馬上學會喔~
環保酵素如何能去汙保鮮 (桔抗作用)
你知道家裡不要的廚餘果皮,經過簡單處理,都可以變成有去汙效果的環保酵素嗎?一名從馬來西亞來台灣推廣的環保專家,示範只要把果皮砂糖跟水混合,擺上3 個月,就可以做出環保酵素,不但是天然的去汙劑,加水稀釋灑在蔬果上,據說還可以延長蔬果的保鮮時間,學者說,這道理就做桔抗作用,是利用好的微生物,去壓制壞的微生物。
一大瓶的水加入紅砂糖,均勻搖晃之後,再加進果皮菜渣,放上 3個月,深褐色的液體,就變成了超神奇的環保酵素。馬來西亞醫師溫小姐:「上面比較混濁,我們倒了一桶酵素,積在下面的油污不見了。」
看起來尋常不行的液體,卻有超神奇功用,溫醫師拿著一張張照片,跟民眾講解神奇酵素的功用,本來一條臭水溝,倒進環保酵素之後,幾天過後清澈不少,從馬來西亞到台灣推廣的溫醫師說,這環保酵素不但能去汙,幾滴酵素加上清水,還可以維持蔬果保鮮,真有那麼神奇嗎?原理到底是什麼?
食品安全管理協會理事長黃士禮:「微生物裡頭有一種叫桔抗作用,好的微生物會壓抑壞的微生物,產生保護或保鮮的作用。」
醫師口中的環保酵素,還可以洗碗、洗水果,如果能夠推廣,未來民眾不要的果皮菜渣,經過簡單處理,都可以廢物利用,也達到推動環保的目的。
A. 什麼是環保酵素(ECO Enzyme /Garbage Enzyme)?
環保酵素技術是泰國樂素昆.普潘翁博士 (Dr Rosukon Poompanvong) ,泰國有機農耕協會創始人,經過30 多年努力所研發的一種果皮蔬菜廚餘酵素, 通稱為“垃圾酵素”。
樂素昆博士以慈悲的精神將她研究酵素的秘密完全公開,更推動大眾自己在家製做環保酵素,她明白只有家家戶戶都懂得製做環保酵素,利用環保酵素在我們每天的生活上,我們的環境污染才能減低,大家才能更進一步過著健康有機生活。
樂素昆博士說: 如果你做了100,000 桶的垃圾酵素,其效果相等於1 百萬棵樹,這點值得你去思考。
環保酵素是混合了糖和水的廚餘(鮮果皮蔬菜垃圾), 經過三個月發酵後, 便立即可以使用。
發酵後的環保酵素是成棕色液體,有柑橘般的刺激氣味, 其用途數之不盡。它不但製作過程簡單,製作材料也隨手可得;除了節省金錢,同時用途廣泛,還可幫助減少垃圾量,對環保起很大的作用。
製作環保酵素所得的臭氧(O3),有殺菌功能,能夠幫助空氣中增加氧的含量,減少空氣中的廢氣和毒氣,還能分解人工化學污染物,溝渠內的油膏。利用環保酵素代替家中化學清潔用品,流到下水道還可以淨化河流與海洋,達到環保的效果。
普潘翁博士曾多次協助泰國,歐洲,臺灣,馬來西亞等國的有機農夫,合作培耕出大批優良的有機農產品。
一大片的沙地, 用環保酵素灌溉....四個月後,成為一片肥沃的菜田。
B. 環保酵素基本做法 :
★材料
黑糖(黑糖或黃糖, 不用白糖, 因為黑糖有多礦物質,功能很強):1 公斤
菜渣/果皮(蔬菜葉、菜頭菜尾,菜根,水果皮,馬鈴薯皮等):3 公斤
水 :10 公升
「黑糖 : 菜渣果皮 : 水」比例是 1 : 3 : 10 (不一定是要以公斤來計算)
★簡單容器:有密封開蓋口的塑膠器材料
★做法:
1.準備一個有密封蓋口的塑膠容器。
2.把水和黑糖倒進塑膠瓶裏攪均後,加入廚房鮮垃圾。鮮垃圾包括:鮮樹葉、水果皮,準備丟掉的蔬菜或植物。
3.容器內留一些空間,以防止酵素發酵時溢出容器外。
4.將容器蓋緊。
5.製作過程中會產生氣體,切記每天將瓶口稍微打開,以泄放氣體,避免瓶子被撐
破。
6.不時把浮在液面上的垃圾按下去,使它浸泡在液體中。
7.環保酵素應該放在空氣流通和陰涼處,避免陽光直照,發酵3 個月後即可使用。
★註: 第一個月須每日打開容器上的蓋口,釋放氣體,其氣體非常的強,故不健議用玻璃的容器。有些環保酵素經過一個禮拜後,便沒強氣,那就不用再開蓋了。
C. 製作環保酵素須注意事項:
1.避免選用玻璃或金屬等無法膨脹的容器。
2.用鮮垃圾包括剩飯、鮮菜葉、水果皮等準備丟掉的蔬菜或植物,不包括廢紙、塑膠、金屬罐頭和瓶子。
3.避免使用魚、肉、或油膩的廚餘,因為會造成腐臭味;如果要製作出來的酵素有清香氣味,可以加橘皮、檸檬皮和班蘭葉等氣味較好的蔬菜果皮。如果你放比較多菜類的話,它的味道就會有一點像鹹菜味道,如果你放多果皮,它的味道就會很香。做完後記得寫上製作日期。
4.成功的環保酵素呈棕黃色,而且有橘子般的刺激氣味,將製好的環保酵素過濾到瓶子中待用;如果酵素呈現黑色,即腐敗,失敗了,但只需加入同樣分量的黑糖,重新發酵3 個月即可。
5.環保酵素在第一個月發酵的時候,你會聞到會有酒精的味道;第二個月你就會開始聞到酸酸的味道,那個是醋酸,裏面很多的物質,礦物質維他命等等,再經分解後就產生了酵素。普潘翁博士說三個月過後,環保酵素就可以拿來使用了,它會非常的穩定 ! 當然三個月過後,你可以直接保留放著,不一定要馬上把酵素倒出來,它可以存放一年,兩年,三年,十年,二十年都沒問題,發酵6 個月或以上的酵素最好,發酵期越久,裏面的分子會越小,因為它會繼續的發酵、分解。當分子越小的時候滲透力就越強,效果越佳。環保酵素不會過期,越久越醇。切勿放置冰箱,低溫會降低酵素的活性。
6.如果發現液體表面產生白色、黑色或棕色的漂浮物,不必理會,讓它繼續發酵。不同的環境, 果菜會發酵出不同顏色的益菌,根據製作過程中如果發現蒼蠅卵,不必擔心,發酵過程會將它們分解掉,這也說明環保酵素不會對生物帶來危害。有一些酵素,它上面會生一層白白的,像黴菌類,放心,那些都是細菌的屍體。
有一些人做好酵素之後放著,隔了很長的一段時間後,它忽然間就會開始生一層好像果凍的東西。它是酵母酵素的“媽媽”: 你可以把這一片拿出來,放在一個空罐上,然後加水放著,它本身就是酵素了。
7.活用發酵後留下的垃圾渣:
• 可以拿來曬乾,攪碎後埋在土裡充作肥料。
• 攪碎後加入黑糖或黃糖,倒入馬桶凈化糞池,它可以分解掉那些銨,轉化成為對我們環境很好,對我們植物很有效的硝酸鹽(nitrate)
• 或可繼續留在容器內,加入新的鮮垃圾再次釀製酵素。
8.如果一時無法收集足夠份量的鮮垃圾,可陸續加入鮮垃圾,3 個月的期限,從最後一次加入當天算起。
9.保住大氣層:如果每戶人家都將家中的垃圾,轉化為環保酵素並善於利用,不但能大大減少毒害環境和令地球增溫的廢氣,還能製造出能降低室溫效應及修補大氣層的臭氧,而能綠化地球,暖化人心。
D.有問題的環保酵素…補救方法:
製作酵素從第一天開始到最後一天,酵素永遠不會變壞,會壞的是因為我們的環境,還有我們的製作過程有可能出了一些狀況.
問: 如果做出來的酵素變成很臭,就好像一些臭雞蛋味道時那怎麼樣補救呢?
答: 很簡單,趕快把一份的黑糖,糖的份量要按照原來的比例來加,然後給它攪勻,封口,蓋緊,不要去打開它。一個月過後再開,它完全就會好了。
問: 為什麼在我們做酵素的時候會生蟲呢?
答: 主要的一個原因是蓋子蓋不好,蓋不緊。只要你的蓋子蓋得緊的話,通常都不會生蟲。所以瓶子的蓋很重要,密封很重要,把酵素蓋好,照顧得很好的話,它不會生蟲。好的酵素,它的味道一定是有一點酸酸的,然後很香。
問: 釋放汽體的時候,是否需要攪拌一下呢?
答: 大桶的環保酵素可以用手下去攪拌一下,小的(像1 公升瓶),就不用去搖晃攪拌它。
E.環保酵素的使用方法 - 垃圾酵素可稀釋後使用:
1.園藝或農作:加水稀釋1000 倍,可用作天然除蟲、除草劑和有機肥料,並可刺激植物賀爾蒙,改善蔬果品質和增加產量。連續將環保酵素澆在土地上3 個月,可改善土質,讓土地重現生機。
2.家用清潔劑:可使用環保酵素摻入洗髮精、沐浴露、洗碗劑和洗衣水等,可減少化學成份。(比率:1 份環保酵素:1 份洗條劑:10 份清水。)
3.清洗蔬菜水果:加入30 毫升或兩湯匙環保酵素在1 公升清水裏,浸泡45 分鐘。
4.清潔地板:加入30 毫升或兩湯匙環保酵素在抹地水中,可清洗和消毒地板。
5.汽車保養:加入30 毫升或兩湯匙環保酵素在汽車水箱裏,可降低引擎溫度。
6.當洗碗液:一份酵素、一份清潔劑加十份水,倒入容器中,可多次使用。
7.當抹地液:一至兩瓶蓋酵素,倒入半桶水
8.當洗衣液:四至五瓶蓋的酵素,使用的洗衣粉量減少
9.澆花、澆菜:一瓶蓋的酵素,加入1.5 公升的水。
F. 環保酵素功用(外用) 多年的真實體驗記碌:
1.人體皮膚 : 可治療各種多年不愈的皮膚病, 刀傷,燒傷,發炎等症狀。噴寵物身上消菌用的。(註: 外用)
2.對果菜農夫的幫忙: 垃圾酵素可減少蟲害,提高果菜的鮮美,加快收成。用了一次便立即看到效果。
3.實驗證明環保酵素可降底EMF 指數: 冷氣機,電腦或電視機所釋放的電磁波, 測試器的指數是55 至60 多,但是如果在家裏室內靠近冷氣機,電腦或電視機的地方,放一大桶的環保酵素, 測試器的指數馬上下降到13 左右。無法在家裏種盆栽的人,可以試製環保酵素。
4.環保酵素可活化快枯杆的樹木,花,草等,使土地肥沃起來。
5.環保酵素還能帶動室內空氣的流通。
6.淨化下水道:用過的環保酵素最後流到水道,能淨化河流和海洋。可避免導致氾濫,淹水問題。
7.防水管堵塞:可疏通馬桶或水槽,排水管。
8.除臭、淨化廢氣:有除臭功能( 廁所),可消除香煙氣味、汽車廢氣、家居噴劑的毒氣等,同時增加空氣含氧量。家裏的蚊子、蒼蠅、老鼠、蟑螂的數量會減少。
9.減少垃圾:丟棄的廚餘釋放甲烷廢氣,比二氧化炭導致地球暖化的程度高21 倍。
10.節省金錢:化廚餘為DIY 環保清潔劑,節省家庭開銷。
11.減少害菌:能分解和消滅有害微生物及黴菌。
12.家居生活好幫手:可用作天然清潔劑,空氣消化劑、洗衣劑、汽車保養劑、衣物柔軟劑和有機肥料等。垃圾酵素可以清除果菜內的農藥, 只要把兩瓶蓋的酵素倒入洗菜的盆內, 再讓果菜泡浸越30 分鐘就可.
13.淹水過後:如果能把大桶的環保酵素倒入污水中或者在淹水後清理環境時加入酵素,可以避免有害菌的滋長,鼠患及清除掉異味。
G. 根據溫秀枝醫師(一名馬來西亞自然療法醫師, 垃圾酵素的頭號支持者) :
「1 公升的酵素可以淨化1000 公升的河水, 一般先進的國家,有45%的垃圾是屬於濕垃圾,如: 果皮,菜類, 廚餘,如能將它們做有效的處理,化為有用的酵素,豈不是功德一件? 在馬來西亞,有善心人士每天對水果攤老闆購買水果皮! 為了我們的下一代,努力一點吧,大家一起DIY!!
如果有人開餐館,不防建議店長把果皮蔬菜廚餘做成垃圾酵素,不需要很大的空間。學校效長,老師可以教小孩製作環保酵素,小孩樂極了!!!」
因爲環保酵素須要3 個月來發酵,天氣涼了也會影響環保酵素發酵的時間(會慢一點),所以請大家(有興趣者)儘快趁天氣好時,多做幾瓶。大家儘快爭取時間,讓地球快快恢復生氣。
當然,吃純素仍是為地球減溫最快,最佳的方法,如能雙管齊下會更好 ! 加油 !!
酵素 Q & A
1、 製作酵素的原料為什麼要用黑糖?可以用黃糖取代嗎?
答:黑糖所含的礦物質成份比較高,黃糖是經過漂白處理,在制做酵素時,原料越自然越好,所以黑糖比黃糖更適合。
2、 製作酵素的原料是單一的水果皮比較好?還是有各種不同的鮮垃圾比較好?
答:環保酵素的釀制過程,將所有不同的酵素原料加在同一個環境中,讓它們互相促進,共同構成一個複雜而穩定且具有多元功能的酵素生態系統。所以鮮垃圾的種類越多越好。
3、 每次制做酵素都一定會成功嗎?要如何判斷和處理?
答:發酵的過程會有兩種情況:一是成功,酵素液呈棕黃色或有白色粉末;二是變壞,酵素液變黑或發黴。不成功的原因有很多,Dr.Rosukon 曾說過,如果變壞,只需再加一份同等的黑糖,再讓它發酵一個月,就會改變了。
4、 環保酵素經過發酵會不會有細菌?用在個人衛生護理方面安全嗎?
答:環保酵素在發酵的過程會產生菌,酵素中含有醋酸與益生茵,是天然的防腐劑,已能抗菌。經過發酵3 個月後,只要酵素酸化在pH4 以下,即已成熟穩定。將酵素用在個人衛生護理方面,除了能降低化學物質對人體的過敏反應,也能分解和消滅對人體有害的微生物,進而促進人體細胞的再生能力。
5、 如何製作出有清香氣味的酵素?
答:如果希望製作出來的酵素有清香的氣味,可加入橘子皮、檸檬皮及班蘭葉等有香味的蔬菜果皮。
6、 使用環保酵素會不會有副作用?
答:環保酵素是取自於大自然,不會有副作用,必需留意的是在使用時稀釋的比例。比如:用稀釋酵素擦洗地板,地板會很光潔;如果酵素沒有經過稀釋,地板卻會很黏。濃縮的酵素是除草劑,稀釋過的酵素卻能讓植物快高長大。簡單來說,一般家庭用於潔淨方面,越稀釋效果越強。
7、 為什麼我們要做環保酵素?要多少人做環保酵素才有效拯救地球?
答:生活在這個地球,我們都感受到整個大環境出問題,每個人都有責任和義務保護它。只有重新尊重自然界,恢復原有的生態環境,才能為我們自己和下一代提供一個良好的生存環境。製作環保酵素是其中一項簡單又有效的方法。環保酵素一身都是寶。把原本要丟棄的鮮垃圾經過處理變成環保酵素,從製作到使用,每個過程都是資源再利用的方法。只要每家每戶都能動手做環保酵素,雖然只是舉手之勞,卻能對個人、家庭、社會,甚至地球都有很大的幫助,是件非常有意義的事。我們要推廣環保酵素,每個人都很重要。
環保酵素的多元化用途
農作物── 自然化
自然農法的理念是保護自然生態環境和人類的健康。酵素能廣泛應用在自然農法中。
● 改善土質
酵素是天然的肥料,能改善土壤環境,把貧瘠地轉變為肥沃的土地。
● 不使用化學農藥減少蟲害
若將釀制好的環保酵素以一公斤紅砂糖和十公升水進行稀釋灑在草地上,這個過程會刺
激昆蟲的眼睛,破壞其卵的發育,就能減少昆蟲、蚊子、老鼠和蟑螂的數量。蟲害減少,
有利於農作物生長。
● 植物快高長大
酵素液有助於促進光合作用,樹根會獲得更多的氧氣,過程也促進蛋白質、澱粉、脂肪
在土裏分解,能為植物增加肥料。此外,臭氧從地面蒸發到大氣層,有用酵素液灌溉的
那區,樹葉比較健康,植物會快高長大。
畜牧業── 健康化
將酵素使用在家畜(禽)養殖場,能使飼養過程健康化。
● 改善飼養的環境
酵素是天然的空氣清新劑,在畜舍及糞便上噴灑環保酵素,能消除蒼蠅和惡臭。除蟲、除臭的效果讓家畜(禽)能在比較衛生的環境生活。
● 家畜(禽)更健康
在飼料和飲用水中添加環保酵素,能增加家畜(禽)的抵抗力,肉蛋品質提高。
排水系統── 潔淨化
環保酵素能淨化水源,改善家庭生活排水、食品加工廠排污水及畜舍污水對環境所造成的污染。
● 淨化排水系統
如果將酵素液或酵素渣倒入排水系統,如:下水道、糞池、水溝等,可防止水管堵塞、淨化糞池、分解污水污泥、淨化河流和海洋,達到淨化環境的效果。
● 恢復自然生態
隨著排水系統潔淨化,消失的魚和貝類開始再度出現和增加,能恢復自然界的本來面貌。
普通清潔劑 VS 酵素清潔劑
將稀釋後的環保酵素倒入溝渠或河流能起到淨化的作用,因為酵素能有效的分解人工化學污染物。普通清潔劑是以介面活性劑將油脂乳化,再以水帶走物質。酵素清潔劑是具有活性觸媒將油脂分解成小分子,並直接與深處油脂反應,達到深層清潔目的。
垃圾污染── 減低化
把生垃圾(指剩菜、水果皮等食物垃圾)善用、處理並製成酵素,能減輕社會處理垃圾的負擔及費用。
家居生活── 環保化
發酵的酵素能取代一般家用的化學清潔用品,適用於家庭養花或供給農戶使用,經濟、實惠又能照顧環境和自身的健康。
● 家居清潔
酵素稀釋後能去除怪氣味、黴菌、塵垢、汙穢、油污等,在清洗客廳和房間地板、冷氣機、廁所、廚房抽風機、油膩牆壁等非常有效果。此外,隨著酵素的使用,蒼蠅、蚊子、老鼠、蟑螂的數量也會減少。
● 個人衛生
酵素能分解和消滅對人體有害的微生物,在沭浴、洗髮和洗衣時加入稀釋的酵素液,能照顧個人的衛生並達到保養的效果。
● 寵物保養
能去除寵物身上的味道,減少寄生蟲生長。
● 烹調料理
將所有的蔬菜、水果泡在稀釋後的酵素水(2 湯匙酵素:1 公升水)浸泡45 分鐘,能去除除草劑、殺蟲劑、農藥、重金屬、細菌、寄生蟲卵等。蔬菜切開後,再繼續泡在酵素水中,烹調時再取出,蔬菜炒煮後會十分青綠美味,水果也非常甜。
●電磁波
長期使用具有電磁波的電子器材,會使人感到身體疲勞、眼睛疲倦、肩痛、頭痛、困乏、不安等等。電磁波還會使人的免疫機能下降、人體中的鈣質減少、並引致異常生產、流產、視覺障礙、阻礙細胞分裂,如:癌症、白血病、腦腫瘤等等。電磁波對嬰孩、發育中的小孩、老人、孕婦與胎兒及電磁波敏感群眾最為危害。將發酵後的酵素置放於電子器材旁,可減低其電磁波。進而減少身體的病痛。
酵素稀釋率 用 於 份 量 用 法
酵素原液 洗澡(加入洗澡水中,改善肌膚) 50-100cc 隔夜用
洗衣機(清潔及軟化衣物) 20-50cc 洗衣時浸泡和清洗
馬桶(防止阻塞並淨化糞池) 250cc 加入後沖水
廁所水箱(淨化水) 20-50cc 2-3次/星期
花園池塘水池及集水槽(淨化) 1/10000 水 偶而加入
皮革製品,如沙發(清潔發霉或污漬) 適量 噴灑並擦拭 每隔10天
10-50 倍 地毯和榻榻米(除臭及防蟲) 稍為噴濕 1-2 次/月
鞋櫃鞋內及車內(除臭及防蟲) 適量 偶而噴灑
廚房水槽,爐灶,烹調炊具(清除油漬) 適量 偶而浸泡並擦拭
浴室黑霉菌(能破壞或抑制真菌生長和活動的) 適量 偶而浸泡並擦拭
寵物排泄,寵物屋(除臭和防蟲) 適量 偶而噴灑
200-500 倍 冷氣房(增濕,除臭及防蟲) 適量 偶而噴灑
500 倍 浴室洗手盆、浴缸(去污) 適量 偶而浸泡並擦拭
櫥櫃及冰箱(除臭) 適量 偶而噴灑
污水排水管(防止堵塞) 適量 偶而沖水
寵物(洗澡,除臭,防蟲) 適量 幫寵物梳洗時
廁所(洗淨去污及除臭殺菌) 適量 當擦拭時噴灑
500-1000 倍 室內(淨化空氣、除臭、害蟲控制) 適量 常常噴灑
衣櫥,衣服(除臭、殺菌) 稍微噴濕 偶而噴灑
1000 倍 花草播種及植栽(肥料) 適量 一次
讓您節省更多的家用清潔劑: 可使用環保酵素倍增效用,如洗髮精、洗碗精、洗衣精等等,可減少其中的化學成份, 並同時淨化排出去的汙水。
比例= 1 杯環保酵素: 1 份洗滌劑 : 10 份清水.
清洗蔬菜水果: 加入30cc 或兩湯匙環保酵素於1 公升清水中,浸泡45 分鐘.
清潔地板: 加入30cc 或兩湯匙環保酵素於1 公升清水中,可清潔及消毒地板.
汽車保養: 加入30cc 或兩湯匙環保酵素於汽車水箱,可降低引擎溫度.
2015年12月12日 星期六
vbnet vshost32.exe 已經停止運作
VS2010/VS2012等以上 , 會出現這問題 : vshost32.exe 已經停止運作
這是因為 Crystal Report 的原因
若OS 是 64 bit , 那程式設定環境是x86 , 那在安裝Crystal Report 預設安裝是裝 x64 的驅動
必須補安裝 x86 的版本 (例: CRRuntime_32bit_13_0_5.msi )
這樣就不會再出現 vshost32.exe 停止運作 的錯誤訊息
這是因為 Crystal Report 的原因
若OS 是 64 bit , 那程式設定環境是x86 , 那在安裝Crystal Report 預設安裝是裝 x64 的驅動
必須補安裝 x86 的版本 (例: CRRuntime_32bit_13_0_5.msi )
這樣就不會再出現 vshost32.exe 停止運作 的錯誤訊息
2015年12月11日 星期五
hinet 廣播 can not find proxy object
參考來源
---
採用 chrome 卻聽不了
原來是 : 擴充內的小紅傘擋了 (取消後,即可正常)
------------
採用 IE 卻也聽不了
原來也是"附加元件" 影響了...
通通關必其他非MS 的外掛即可
---
採用 chrome 卻聽不了
原來是 : 擴充內的小紅傘擋了 (取消後,即可正常)
------------
採用 IE 卻也聽不了
原來也是"附加元件" 影響了...
通通關必其他非MS 的外掛即可
2015年12月10日 星期四
B4J 使用 UI 工具 JavaFX Scene Builder 下載
官網 :oracle - JavaFX Scene Builder Archive 下載
--
要執行 FXML 一直出現錯誤!! = . = 搞不懂...狂查
實在是 ...
---
原來是缺 : JavaFX Scene Builder UI 編輯器
到官網也不知道是哪一個,太多資源了!!
官網下載頁面
找 : Java Archive 這一個就對了!!
拉到底 : 就看到了
---
底下是 : B4J 開 FXML 畫面
--
要執行 FXML 一直出現錯誤!! = . = 搞不懂...狂查
實在是 ...
---
原來是缺 : JavaFX Scene Builder UI 編輯器
到官網也不知道是哪一個,太多資源了!!
官網下載頁面
找 : Java Archive 這一個就對了!!
拉到底 : 就看到了
---
底下是 : B4J 開 FXML 畫面
B4J 4:將 b4j 編譯成windows 執行檔 exe
還是要參考官網作法 Create Windows native executables (exe files)
---
** 要產 windows exe 主要是透過 Launch4j 這支工具 Download Launch4j
---
底下是設定和編譯 windows exe (重點在 : 必須指定 JRE 的最低版本 )
---
** 要產 windows exe 主要是透過 Launch4j 這支工具 Download Launch4j
---
底下是設定和編譯 windows exe (重點在 : 必須指定 JRE 的最低版本 )
B4J 3:程式架構分析
一.程式分析:
1.說明目前這個 Form 的寬和高
#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 400
#End Region
2.程序的全域定義 (這只限於本Form的定義)
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private Button1 As Button
Private TextField1 As TextField
Private Label1 As Label
End Sub
3.這支程式啟動及相關載入設定值
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.SetFormStyle("UNIFIED")
MainForm.RootPane.LoadLayout("Lay01") 'Load the layout file.
MainForm.Show
TextField1.Text =""
End Sub
4.點擊 Button1 的事件處理
Sub Button1_Action
If IsNumber(TextField1.Text ) Then
If TextField1.Text>=0 And TextField1.Text<=100 Then
Label1.Text ="0-100數值!!"
Else If TextField1.Text>=101 And TextField1.Text<=999 Then
Label1.Text ="101-999數值!!"
Else If TextField1.Text>=1000 Then
Label1.Text ="數值大於等於1000"
End If
Else
Label1.Text ="請輸入數值!!"
End If
End Sub
二.檔案存放分析:
依本程式共有 2 檔 2 目錄 :
*.b4j --- 程式碼
*.meta (依官方的說法) 可建立附加的文件(採用META-INF格式)目錄
Files ---存放UI設計檔區
[Objects] 存放核心檔了
1.轉換 java 後的 *.jar
2.scr 表示 B4J 內容程序將 VB 轉譯為java 語法 所存放的位置
3.bin 目錄 -- 這個就不理它了 !
三.分析B4J轉譯 java 的程式碼 (底下看完,就應該知道 B4J 怎運作VB to java 了)
[不過,Layout 就是精華了! 這部分官方就編譯過了,不需研究了]
package b4j.example;
import anywheresoftware.b4a.BA;
import anywheresoftware.b4a.debug.*;
public class main extends javafx.application.Application{
public static main mostCurrent = new main();
public static BA ba;
static {
ba = new anywheresoftware.b4j.objects.FxBA("b4j.example", "b4j.example.main", null);
ba.loadHtSubs(main.class);
if (ba.getClass().getName().endsWith("ShellBA")) {
ba.raiseEvent2(null, true, "SHELL", false);
ba.raiseEvent2(null, true, "CREATE", true, "b4j.example.main", ba);
}
}
public static Class getObject() {
return main.class;
}
public static void main(String[] args) {
launch(args);
}
public void start (javafx.stage.Stage stage) {
try {
anywheresoftware.b4j.objects.FxBA.application = this;
anywheresoftware.b4a.keywords.Common.setDensity(javafx.stage.Screen.getPrimary().getDpi());
BA.Log("Program started.");
initializeProcessGlobals();
anywheresoftware.b4j.objects.Form frm = new anywheresoftware.b4j.objects.Form();
frm.initWithStage(ba, stage, 600, 400);
ba.raiseEvent(null, "appstart", frm, (String[])getParameters().getRaw().toArray(new String[0]));
} catch (Throwable t) {
BA.printException(t, true);
System.exit(1);
}
}
public static anywheresoftware.b4a.keywords.Common __c = null;
public static anywheresoftware.b4j.objects.JFX _fx = null;
public static anywheresoftware.b4j.objects.Form _mainform = null;
public static anywheresoftware.b4j.objects.ButtonWrapper _button1 = null;
public static anywheresoftware.b4j.objects.TextInputControlWrapper.TextFieldWrapper _textfield1 = null;
public static anywheresoftware.b4j.objects.LabelWrapper _label1 = null;
public static String _appstart(anywheresoftware.b4j.objects.Form _form1,String[] _args) throws Exception{
//BA.debugLineNum = 14;BA.debugLine="Sub AppStart (Form1 As Form, Args() As String)";
//BA.debugLineNum = 15;BA.debugLine="MainForm = Form1";
_mainform = _form1;
//BA.debugLineNum = 16;BA.debugLine="MainForm.SetFormStyle(\"UNIFIED\")";
_mainform.SetFormStyle("UNIFIED");
//BA.debugLineNum = 17;BA.debugLine="MainForm.RootPane.LoadLayout(\"Lay01\") 'Load the l";
_mainform.getRootPane().LoadLayout(ba,"Lay01");
//BA.debugLineNum = 18;BA.debugLine="MainForm.Show";
_mainform.Show();
//BA.debugLineNum = 19;BA.debugLine="TextField1.Text =\"\"";
_textfield1.setText("");
//BA.debugLineNum = 20;BA.debugLine="End Sub";
return "";
}
public static String _button1_action() throws Exception{
//BA.debugLineNum = 22;BA.debugLine="Sub Button1_Action";
//BA.debugLineNum = 23;BA.debugLine="If IsNumber(TextField1.Text ) Then";
if (anywheresoftware.b4a.keywords.Common.IsNumber(_textfield1.getText())) {
//BA.debugLineNum = 24;BA.debugLine="If TextField1.Text>=0 And TextField1.Text<=100 T";
if ((double)(Double.parseDouble(_textfield1.getText()))>=0 && (double)(Double.parseDouble(_textfield1.getText()))<=100) {
//BA.debugLineNum = 25;BA.debugLine="Label1.Text =\"0-100數值!!\"";
_label1.setText("0-100數值!!");
}else if((double)(Double.parseDouble(_textfield1.getText()))>=101 && (double)(Double.parseDouble(_textfield1.getText()))<=999) {
//BA.debugLineNum = 27;BA.debugLine="Label1.Text =\"101-999數值!!\"";
_label1.setText("101-999數值!!");
}else if((double)(Double.parseDouble(_textfield1.getText()))>=1000) {
//BA.debugLineNum = 29;BA.debugLine="Label1.Text =\"數值大於等於1000\"";
_label1.setText("數值大於等於1000");
};
}else {
//BA.debugLineNum = 32;BA.debugLine="Label1.Text =\"請輸入數值!!\"";
_label1.setText("請輸入數值!!");
};
//BA.debugLineNum = 35;BA.debugLine="End Sub";
return "";
}
private static boolean processGlobalsRun;
public static void initializeProcessGlobals() {
if (main.processGlobalsRun == false) {
main.processGlobalsRun = true;
try {
main._process_globals();
} catch (Exception e) {
throw new RuntimeException(e);
}
}
}public static String _process_globals() throws Exception{
//BA.debugLineNum = 6;BA.debugLine="Sub Process_Globals";
//BA.debugLineNum = 7;BA.debugLine="Private fx As JFX";
_fx = new anywheresoftware.b4j.objects.JFX();
//BA.debugLineNum = 8;BA.debugLine="Private MainForm As Form";
_mainform = new anywheresoftware.b4j.objects.Form();
//BA.debugLineNum = 9;BA.debugLine="Private Button1 As Button";
_button1 = new anywheresoftware.b4j.objects.ButtonWrapper();
//BA.debugLineNum = 10;BA.debugLine="Private TextField1 As TextField";
_textfield1 = new anywheresoftware.b4j.objects.TextInputControlWrapper.TextFieldWrapper();
//BA.debugLineNum = 11;BA.debugLine="Private Label1 As Label";
_label1 = new anywheresoftware.b4j.objects.LabelWrapper();
//BA.debugLineNum = 12;BA.debugLine="End Sub";
return "";
}
}
1.說明目前這個 Form 的寬和高
#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 400
#End Region
2.程序的全域定義 (這只限於本Form的定義)
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private Button1 As Button
Private TextField1 As TextField
Private Label1 As Label
End Sub
3.這支程式啟動及相關載入設定值
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.SetFormStyle("UNIFIED")
MainForm.RootPane.LoadLayout("Lay01") 'Load the layout file.
MainForm.Show
TextField1.Text =""
End Sub
4.點擊 Button1 的事件處理
Sub Button1_Action
If IsNumber(TextField1.Text ) Then
If TextField1.Text>=0 And TextField1.Text<=100 Then
Label1.Text ="0-100數值!!"
Else If TextField1.Text>=101 And TextField1.Text<=999 Then
Label1.Text ="101-999數值!!"
Else If TextField1.Text>=1000 Then
Label1.Text ="數值大於等於1000"
End If
Else
Label1.Text ="請輸入數值!!"
End If
End Sub
二.檔案存放分析:
依本程式共有 2 檔 2 目錄 :
*.b4j --- 程式碼
*.meta (依官方的說法) 可建立附加的文件(採用META-INF格式)目錄
Files ---存放UI設計檔區
[Objects] 存放核心檔了
1.轉換 java 後的 *.jar
2.scr 表示 B4J 內容程序將 VB 轉譯為java 語法 所存放的位置
3.bin 目錄 -- 這個就不理它了 !
三.分析B4J轉譯 java 的程式碼 (底下看完,就應該知道 B4J 怎運作VB to java 了)
[不過,Layout 就是精華了! 這部分官方就編譯過了,不需研究了]
package b4j.example;
import anywheresoftware.b4a.BA;
import anywheresoftware.b4a.debug.*;
public class main extends javafx.application.Application{
public static main mostCurrent = new main();
public static BA ba;
static {
ba = new anywheresoftware.b4j.objects.FxBA("b4j.example", "b4j.example.main", null);
ba.loadHtSubs(main.class);
if (ba.getClass().getName().endsWith("ShellBA")) {
ba.raiseEvent2(null, true, "SHELL", false);
ba.raiseEvent2(null, true, "CREATE", true, "b4j.example.main", ba);
}
}
public static Class getObject() {
return main.class;
}
public static void main(String[] args) {
launch(args);
}
public void start (javafx.stage.Stage stage) {
try {
anywheresoftware.b4j.objects.FxBA.application = this;
anywheresoftware.b4a.keywords.Common.setDensity(javafx.stage.Screen.getPrimary().getDpi());
BA.Log("Program started.");
initializeProcessGlobals();
anywheresoftware.b4j.objects.Form frm = new anywheresoftware.b4j.objects.Form();
frm.initWithStage(ba, stage, 600, 400);
ba.raiseEvent(null, "appstart", frm, (String[])getParameters().getRaw().toArray(new String[0]));
} catch (Throwable t) {
BA.printException(t, true);
System.exit(1);
}
}
public static anywheresoftware.b4a.keywords.Common __c = null;
public static anywheresoftware.b4j.objects.JFX _fx = null;
public static anywheresoftware.b4j.objects.Form _mainform = null;
public static anywheresoftware.b4j.objects.ButtonWrapper _button1 = null;
public static anywheresoftware.b4j.objects.TextInputControlWrapper.TextFieldWrapper _textfield1 = null;
public static anywheresoftware.b4j.objects.LabelWrapper _label1 = null;
public static String _appstart(anywheresoftware.b4j.objects.Form _form1,String[] _args) throws Exception{
//BA.debugLineNum = 14;BA.debugLine="Sub AppStart (Form1 As Form, Args() As String)";
//BA.debugLineNum = 15;BA.debugLine="MainForm = Form1";
_mainform = _form1;
//BA.debugLineNum = 16;BA.debugLine="MainForm.SetFormStyle(\"UNIFIED\")";
_mainform.SetFormStyle("UNIFIED");
//BA.debugLineNum = 17;BA.debugLine="MainForm.RootPane.LoadLayout(\"Lay01\") 'Load the l";
_mainform.getRootPane().LoadLayout(ba,"Lay01");
//BA.debugLineNum = 18;BA.debugLine="MainForm.Show";
_mainform.Show();
//BA.debugLineNum = 19;BA.debugLine="TextField1.Text =\"\"";
_textfield1.setText("");
//BA.debugLineNum = 20;BA.debugLine="End Sub";
return "";
}
public static String _button1_action() throws Exception{
//BA.debugLineNum = 22;BA.debugLine="Sub Button1_Action";
//BA.debugLineNum = 23;BA.debugLine="If IsNumber(TextField1.Text ) Then";
if (anywheresoftware.b4a.keywords.Common.IsNumber(_textfield1.getText())) {
//BA.debugLineNum = 24;BA.debugLine="If TextField1.Text>=0 And TextField1.Text<=100 T";
if ((double)(Double.parseDouble(_textfield1.getText()))>=0 && (double)(Double.parseDouble(_textfield1.getText()))<=100) {
//BA.debugLineNum = 25;BA.debugLine="Label1.Text =\"0-100數值!!\"";
_label1.setText("0-100數值!!");
}else if((double)(Double.parseDouble(_textfield1.getText()))>=101 && (double)(Double.parseDouble(_textfield1.getText()))<=999) {
//BA.debugLineNum = 27;BA.debugLine="Label1.Text =\"101-999數值!!\"";
_label1.setText("101-999數值!!");
}else if((double)(Double.parseDouble(_textfield1.getText()))>=1000) {
//BA.debugLineNum = 29;BA.debugLine="Label1.Text =\"數值大於等於1000\"";
_label1.setText("數值大於等於1000");
};
}else {
//BA.debugLineNum = 32;BA.debugLine="Label1.Text =\"請輸入數值!!\"";
_label1.setText("請輸入數值!!");
};
//BA.debugLineNum = 35;BA.debugLine="End Sub";
return "";
}
private static boolean processGlobalsRun;
public static void initializeProcessGlobals() {
if (main.processGlobalsRun == false) {
main.processGlobalsRun = true;
try {
main._process_globals();
} catch (Exception e) {
throw new RuntimeException(e);
}
}
}public static String _process_globals() throws Exception{
//BA.debugLineNum = 6;BA.debugLine="Sub Process_Globals";
//BA.debugLineNum = 7;BA.debugLine="Private fx As JFX";
_fx = new anywheresoftware.b4j.objects.JFX();
//BA.debugLineNum = 8;BA.debugLine="Private MainForm As Form";
_mainform = new anywheresoftware.b4j.objects.Form();
//BA.debugLineNum = 9;BA.debugLine="Private Button1 As Button";
_button1 = new anywheresoftware.b4j.objects.ButtonWrapper();
//BA.debugLineNum = 10;BA.debugLine="Private TextField1 As TextField";
_textfield1 = new anywheresoftware.b4j.objects.TextInputControlWrapper.TextFieldWrapper();
//BA.debugLineNum = 11;BA.debugLine="Private Label1 As Label";
_label1 = new anywheresoftware.b4j.objects.LabelWrapper();
//BA.debugLineNum = 12;BA.debugLine="End Sub";
return "";
}
}
B4J 2:第一支程式
本篇仿照官方的教學影片 官網 Documentation :(video) UI App / Designer 來作的!
當然不一定要完全一樣 (稍看了設計和作法,自己動手作1支來玩看看)
---
程式和UI 的設定:
執行結果:
當然不一定要完全一樣 (稍看了設計和作法,自己動手作1支來玩看看)
---
程式和UI 的設定:
執行結果:
B4J 1:安裝篇
官網:B4X - The simple way to develop native Android, iOS & IoT apps
--
1.先到官網下載 B4J (free) 完全免費,可開發 windows / linux / mac / ARM 等平台
2.下載 B4J 開發工具
3.下載並安裝 Java JDK v8
Java 8 JDK 下載
可參考官網的 b4j 安裝和需求說明
4.安裝順序
01.安裝 java JDK 8.xx (或更高)
02.安裝 framework 4.0 (必須4.0 或更高)
03.安裝 B4J
5.設定 B4J 的路徑設定值
java . lib .modules 等路徑
以上就完成 B4J 的安裝了
--
1.先到官網下載 B4J (free) 完全免費,可開發 windows / linux / mac / ARM 等平台
2.下載 B4J 開發工具
3.下載並安裝 Java JDK v8
Java 8 JDK 下載
可參考官網的 b4j 安裝和需求說明
4.安裝順序
01.安裝 java JDK 8.xx (或更高)
02.安裝 framework 4.0 (必須4.0 或更高)
03.安裝 B4J
5.設定 B4J 的路徑設定值
java . lib .modules 等路徑
以上就完成 B4J 的安裝了
2015年12月9日 星期三
iOS 篇 delphi XE6 for iOS app(一)開發環境準備
請參考來源: iOS 篇 delphi XE6 for iOS app(一)開發環境準備
--
[原創] Mac OS X Mavericks 10.9.2 for VMware Workstation 10 懶人包
--
請參考來源:iOS 篇 delphi XE6 for iOS app(一 到 八)
--
還是 delphi 跑得快 .. 都能自己一支程式跑3個平台 android / ios / windows
微軟 VS 現還要靠外掛 .. 還要額外買外掛工具 才能用 = . =
這次 delphi 又大勝了
微軟該加油了 ! 快快支援 VB --> android / ios 不要靠外掛
像很多內部轉換的 B4J / B4A / B4I 內部運作核心也是 java , 外殼能提供 VB 語法
delphi XE6 也是掛了 android SDK / Java 核心來跑 android / ios , 外層也是用 自己的母語
--
[原創] Mac OS X Mavericks 10.9.2 for VMware Workstation 10 懶人包
--
請參考來源:iOS 篇 delphi XE6 for iOS app(一 到 八)
--
還是 delphi 跑得快 .. 都能自己一支程式跑3個平台 android / ios / windows
微軟 VS 現還要靠外掛 .. 還要額外買外掛工具 才能用 = . =
這次 delphi 又大勝了
微軟該加油了 ! 快快支援 VB --> android / ios 不要靠外掛
像很多內部轉換的 B4J / B4A / B4I 內部運作核心也是 java , 外殼能提供 VB 語法
delphi XE6 也是掛了 android SDK / Java 核心來跑 android / ios , 外層也是用 自己的母語
B4A,B4I,B4J
B4X - The simple way to develop native Android, iOS & IoT apps
---
新的開發工具 ...
B4J 是完全免費的, 可以練練功力 !! 採用 VB 語言 , 內部又包了 java lib 來跑 !!
值得試試看
---
新的開發工具 ...
B4J 是完全免費的, 可以練練功力 !! 採用 VB 語言 , 內部又包了 java lib 來跑 !!
值得試試看
2015年12月8日 星期二
vbnet process cmd result 回傳值
Public Function Cmd(ByVal Command As String) As String
Dim process As New System.Diagnostics.Process()
process.StartInfo.FileName = "C:\Windows\System32\cmd.exe"
process.StartInfo.UseShellExecute = False
process.StartInfo.RedirectStandardInput = True
process.StartInfo.RedirectStandardOutput = True
process.StartInfo.RedirectStandardError = True
process.StartInfo.CreateNoWindow = True
process.Start()
process.StandardInput.WriteLine(Command)
process.StandardInput.WriteLine("exit")
Dim Result As String = process.StandardOutput.ReadToEnd()
process.Close()
Return Result
End Function
Dim result As String
result = Cmd(“ipconfig”)
Debug.Print(result)
Dim process As New System.Diagnostics.Process()
process.StartInfo.FileName = "C:\Windows\System32\cmd.exe"
process.StartInfo.UseShellExecute = False
process.StartInfo.RedirectStandardInput = True
process.StartInfo.RedirectStandardOutput = True
process.StartInfo.RedirectStandardError = True
process.StartInfo.CreateNoWindow = True
process.Start()
process.StandardInput.WriteLine(Command)
process.StandardInput.WriteLine("exit")
Dim Result As String = process.StandardOutput.ReadToEnd()
process.Close()
Return Result
End Function
Dim result As String
result = Cmd(“ipconfig”)
Debug.Print(result)
2015年12月7日 星期一
2015年12月3日 星期四
vb.net kill process by exe
參考引用來源:How to kill any process using VB.NET
--
For Each prog As Process In Process.GetProcesses
If prog.ProcessName = "ProcessName" Then
prog.Kill()
End If
Next
說明:
ProcessName --> 執行檔 exe 檔 ,檔名 (不含 .exe)
--
For Each prog As Process In Process.GetProcesses
If prog.ProcessName = "ProcessName" Then
prog.Kill()
End If
Next
說明:
ProcessName --> 執行檔 exe 檔 ,檔名 (不含 .exe)
2015年12月2日 星期三
mssql 附加 唯讀
參考引用來源:SQL Server 2005附加資料庫變"唯讀"
--
選擇 dbName.mdf 跟 dbName_LOG.ldf 這兩個檔案
點選 滑鼠右鍵 ->選擇 內容
選擇 安全性
點選 新增 加入 SQLServerMSSQLUser$user$SQLEXPRESS 這個使用者
或許可以解決唯讀問題
--
選擇 dbName.mdf 跟 dbName_LOG.ldf 這兩個檔案
點選 滑鼠右鍵 ->選擇 內容
選擇 安全性
點選 新增 加入 SQLServerMSSQLUser$user$SQLEXPRESS 這個使用者
或許可以解決唯讀問題
2015年12月1日 星期二
如何在windows 2008 R2安装sql server 2000
參考引用來源:如何在windows 2008 R2安装sql server 2000
--
因為Windows 2008 R2 是64位元,所以一般人都會以為是版本不合。
不過不要被上述的錯誤訊息給誤導了。
你可以直接到下列路徑直接執行setupsql.exe安裝程式及可進行安裝
\X86\SETUP\SETUPSQL.EXE
--
因為Windows 2008 R2 是64位元,所以一般人都會以為是版本不合。
不過不要被上述的錯誤訊息給誤導了。
你可以直接到下列路徑直接執行setupsql.exe安裝程式及可進行安裝
\X86\SETUP\SETUPSQL.EXE
2015年11月30日 星期一
swift 2.0 Open Source 開發 IOS 新的語言
官網:Swift - Overview - Apple Developer
--
總算有 Open Source 開發工具了
有點被誤導了= . =
應該是說 xcode 原是採用 swift 1.0 改為 2.0 優化語法 ...
---
倒是再翻到 其他的替代開發
葉難: Objective-C on Windows
官網:GNUstep.org
--
GNUstep Tutorial 教學手冊
--
有點被誤導了= . =
應該是說 xcode 原是採用 swift 1.0 改為 2.0 優化語法 ...
---
倒是再翻到 其他的替代開發
葉難: Objective-C on Windows
官網:GNUstep.org
--
GNUstep Tutorial 教學手冊
2015年11月29日 星期日
vbnet NextControl Focus
這是利用 enter 來切到下一個元件 Focus
不過這用法遇到框架內的就卡住了!! 有興趣可參考
---
Dim k As Integer = 0
If e.KeyData = Keys.Enter Then
k = sender.tabindex
NextControl(k)
End If
Public Sub NextControl(ByVal ctrlTabIndex As Integer)
For Each ctrl As Control In Controls
If (ctrl.TabIndex) = (ctrlTabIndex + 1) Then
ctrl.Focus()
End If
Next
End Sub
不過這用法遇到框架內的就卡住了!! 有興趣可參考
---
Dim k As Integer = 0
If e.KeyData = Keys.Enter Then
k = sender.tabindex
NextControl(k)
End If
Public Sub NextControl(ByVal ctrlTabIndex As Integer)
For Each ctrl As Control In Controls
If (ctrl.TabIndex) = (ctrlTabIndex + 1) Then
ctrl.Focus()
End If
Next
End Sub
vbnet 取 exe 版本
參考引用來源:How to Get Version of an Executable file?
--
Private Function GetFileVersionInfo(ByVal filename As String) As Version
Return Version.Parse(FileVersionInfo.GetVersionInfo(filename).FileVersion)
End Function
Usage:
Debug.WriteLine(GetFileVersionInfo("C:\ptl\bin\capcaller.exe").ToString)
Output:
4.2.9.281
--
Private Function GetFileVersionInfo(ByVal filename As String) As Version
Return Version.Parse(FileVersionInfo.GetVersionInfo(filename).FileVersion)
End Function
Usage:
Debug.WriteLine(GetFileVersionInfo("C:\ptl\bin\capcaller.exe").ToString)
Output:
4.2.9.281
2015年11月28日 星期六
mssql select on select (2層條件過濾)
參考來源:Nested select statement in SQL Server
--
SELECT name FROM (SELECT name FROM agentinformation) a
或
SELECT a.name FROM (SELECT name FROM agentinformation) a
--
( ) 內,先定第一層過濾後[where] ;在 ( ) 外 又可加一層 [ where ]
這運用就跟 限挑A箱內的蛋 意思
--
SELECT name FROM (SELECT name FROM agentinformation) a
或
SELECT a.name FROM (SELECT name FROM agentinformation) a
--
( ) 內,先定第一層過濾後[where] ;在 ( ) 外 又可加一層 [ where ]
這運用就跟 限挑A箱內的蛋 意思
2015年11月27日 星期五
2015年11月25日 星期三
臺灣資料開放平臺 DataTaiwan Explorer
臺灣資料開放平臺 DataTaiwan Explorer
--
發現 政府 新的網站 , 真是讚 ! 所有資料都統一集中在這兒了
統編 . 公司名 . 就能查出所有關係公司資料
好猛的整合!! 政府有在花錢辦事
--
底下為官網的簡介:
網站:臺灣資料開放平臺 DataTaiwan Explorer
政府施政透明、提升民眾參與公共政策議題是世界各國政府推動的趨勢,經由政府資料的開放,可促使跨機關資料流通,提升施政效能,滿足民眾需求,以強化民眾監督政府的力量。配合雲端運算及行動服務時代來臨,在政府資源有限下,善用民間無限之創意,整合運用政府開放資料,推動政府資料開放加值應用,發展各項跨機關便民服務,更是行政院推動第四階段電子化政府發展的重要主軸。 依據行政院第3322次院會決議指示,政府開放資料(Open Data)可增進政府施政透明度、提升民眾生活品質,滿足產業界需求,對於各級政府間或各部會間之決策品質均有助益可見其重要性,各部會應自民眾的應用面發想,思考使用端之需求,在規劃時也要考慮到機器讀取介面的必要性。 行政院所屬各機關今後將藉由「資料開放民眾與企業運用」、「以免費為原則、收費為例外」、「資料大量、自動化而有系統的釋放與交換」3步驟,並配合「主動開放,民生優先」、「制定開放資料規範」、「推動共用平臺」、「示範宣導及服務推廣」等4大焦點策略推動政府資料開放工作。資料開放的類型以便利及提升民眾生活品質為優先,例如食、醫、住、行、育樂、就業、文化、經濟發展和生活品質等,期透過政府資料開放,促成跨機關與民間協同合作與服務創新,創造民眾、政府、業界三贏局面。
--
發現 政府 新的網站 , 真是讚 ! 所有資料都統一集中在這兒了
統編 . 公司名 . 就能查出所有關係公司資料
好猛的整合!! 政府有在花錢辦事
--
底下為官網的簡介:
網站:臺灣資料開放平臺 DataTaiwan Explorer
政府施政透明、提升民眾參與公共政策議題是世界各國政府推動的趨勢,經由政府資料的開放,可促使跨機關資料流通,提升施政效能,滿足民眾需求,以強化民眾監督政府的力量。配合雲端運算及行動服務時代來臨,在政府資源有限下,善用民間無限之創意,整合運用政府開放資料,推動政府資料開放加值應用,發展各項跨機關便民服務,更是行政院推動第四階段電子化政府發展的重要主軸。 依據行政院第3322次院會決議指示,政府開放資料(Open Data)可增進政府施政透明度、提升民眾生活品質,滿足產業界需求,對於各級政府間或各部會間之決策品質均有助益可見其重要性,各部會應自民眾的應用面發想,思考使用端之需求,在規劃時也要考慮到機器讀取介面的必要性。 行政院所屬各機關今後將藉由「資料開放民眾與企業運用」、「以免費為原則、收費為例外」、「資料大量、自動化而有系統的釋放與交換」3步驟,並配合「主動開放,民生優先」、「制定開放資料規範」、「推動共用平臺」、「示範宣導及服務推廣」等4大焦點策略推動政府資料開放工作。資料開放的類型以便利及提升民眾生活品質為優先,例如食、醫、住、行、育樂、就業、文化、經濟發展和生活品質等,期透過政府資料開放,促成跨機關與民間協同合作與服務創新,創造民眾、政府、業界三贏局面。
2015年11月16日 星期一
vb.net ListView SubItem Color
參考引用來源:Change listview subitem fore color
--
要設定 SubItem Color (前景色) , 必須先關閉:
For i As Integer = 0 To (Me.ListView1.Items.Count - 1)
Me.ListView1.Items(i).UseItemStyleForSubItems = False
Next
如此即能定義欄位的前景色
--
要設定 SubItem Color (前景色) , 必須先關閉:
For i As Integer = 0 To (Me.ListView1.Items.Count - 1)
Me.ListView1.Items(i).UseItemStyleForSubItems = False
Next
如此即能定義欄位的前景色
2015年11月12日 星期四
2015年11月11日 星期三
2015年11月9日 星期一
2015年11月1日 星期日
MSSQL 交易記錄檔 LDF 太大
今天遇到 log 檔竟大到 9x GB , 用一般指令均無法壓縮
依照此篇操作 : [SQL] 交易記錄檔 LDF 太大 總算解決了這頭痛問題
(1) 先卸除資料庫
(2) 將 log 改名
(3) 附加資料庫回來 , 此時[log]檔會遺失 ; 點擊LDF 這列後 , 移除[LOG] 後 ; 再按[確定]
即可將 正常將資料庫附加回來 並自動產生新配置的 log 檔
原則上這樣即可正常運作了
依照此篇操作 : [SQL] 交易記錄檔 LDF 太大 總算解決了這頭痛問題
(1) 先卸除資料庫
(2) 將 log 改名
(3) 附加資料庫回來 , 此時[log]檔會遺失 ; 點擊LDF 這列後 , 移除[LOG] 後 ; 再按[確定]
即可將 正常將資料庫附加回來 並自動產生新配置的 log 檔
原則上這樣即可正常運作了
2015年10月31日 星期六
datagridview cell length
CType(Me.DataGridView1.Columns(0), DataGridViewTextBoxColumn).MaxInputLength = 10
2015年10月29日 星期四
2015年10月25日 星期日
selectCommand 不支援 updatecommand 動態 SQL 的產生
selectCommand 不支援 updatecommand 動態 SQL 的產生
...
這訊息表示:
資料表沒有 PK 值,所以無法採用 selectcommand 方式來新增/修改/刪除 的操作
...
這訊息表示:
資料表沒有 PK 值,所以無法採用 selectcommand 方式來新增/修改/刪除 的操作
2015年10月21日 星期三
MSSQL 尋找某個欄位名稱所在資料表/Procedure
參考引用來源:Sqlserver 尋找某個欄位名稱所在資料表/Procedure
--
1. 在Sqlserver裡,如果你有個欄位名稱但不知道在哪個table出現,可以用以下指令找,以下是使用AdventureWorks這範例程式,找資料庫裡有CultureID欄位的資料表
USE AdventureWorks
SELECT t.name AS table_name,
SCHEMA_NAME(schema_id) AS schema_name,
c.name AS column_name
FROM sys.tables AS t
INNER JOIN sys.columns c ON t.OBJECT_ID = c.OBJECT_ID
WHERE c.name LIKE '%CultureID%'
ORDER BY schema_name, table_name;
2. 找某欄位在哪個 Procedure出現:
SELECT ROUTINE_NAME, ROUTINE_DEFINITION FROM INFORMATION_SCHEMA.ROUTINES WHERE ROUTINE_DEFINITION LIKE '%Foo%' AND ROUTINE_TYPE='PROCEDURE'
--
1. 在Sqlserver裡,如果你有個欄位名稱但不知道在哪個table出現,可以用以下指令找,以下是使用AdventureWorks這範例程式,找資料庫裡有CultureID欄位的資料表
USE AdventureWorks
SELECT t.name AS table_name,
SCHEMA_NAME(schema_id) AS schema_name,
c.name AS column_name
FROM sys.tables AS t
INNER JOIN sys.columns c ON t.OBJECT_ID = c.OBJECT_ID
WHERE c.name LIKE '%CultureID%'
ORDER BY schema_name, table_name;
2. 找某欄位在哪個 Procedure出現:
SELECT ROUTINE_NAME, ROUTINE_DEFINITION FROM INFORMATION_SCHEMA.ROUTINES WHERE ROUTINE_DEFINITION LIKE '%Foo%' AND ROUTINE_TYPE='PROCEDURE'
2015年10月2日 星期五
10秒內永久移除Windows10提醒免費升級訊息方法
參考引用來源:10秒內永久移除Windows10提醒免費升級訊息方法
---
1.執行 cmd
2.cd \
3.底下順序,一次一條執行:
taskkill /f /im GWX.exe
taskkill /f /im GWXUX.exe
cd/d C:\Windows\System32
takeown /f GWX
cacls GWX /e /g everyone:f
rd/q/s GWX
---
1.執行 cmd
2.cd \
3.底下順序,一次一條執行:
taskkill /f /im GWX.exe
taskkill /f /im GWXUX.exe
cd/d C:\Windows\System32
takeown /f GWX
cacls GWX /e /g everyone:f
rd/q/s GWX
2015年9月29日 星期二
EATM 為什麼會出現錯誤訊息:5021未連結卡片(可能原因為別的視窗程式/網路ATM正以獨佔模式使用讀卡機上的晶片卡) ?
參考引用來源:請問有誰碰過『網路ATM正以獨佔模式使用讀卡機』的情形?
---
為什麼會出現錯誤訊息:5021未連結卡片(可能原因為別的視窗程式/網路ATM正以獨佔模式使用讀卡機上的晶片卡) ?
A20: 您可嘗試下列方式解決此問題:
1.請您測試其他晶片卡,如果其他晶片卡可以使用,可能是卡片與讀卡機接觸的問題,請您用橡皮擦在晶片上擦拭後再試,若不行建議您至鄰近營業單位更換新的晶片金融卡。
2.請您重新啟動「Smart Card」服務。
路徑:「我的電腦」按右鍵 → 「管理」→「服務與應用程式」→「服務」→「Smart Card」按右鍵停用,並重新啟動。
以上是第一銀行的Q &A
---
訊息圖:
---
為什麼會出現錯誤訊息:5021未連結卡片(可能原因為別的視窗程式/網路ATM正以獨佔模式使用讀卡機上的晶片卡) ?
A20: 您可嘗試下列方式解決此問題:
1.請您測試其他晶片卡,如果其他晶片卡可以使用,可能是卡片與讀卡機接觸的問題,請您用橡皮擦在晶片上擦拭後再試,若不行建議您至鄰近營業單位更換新的晶片金融卡。
2.請您重新啟動「Smart Card」服務。
路徑:「我的電腦」按右鍵 → 「管理」→「服務與應用程式」→「服務」→「Smart Card」按右鍵停用,並重新啟動。
以上是第一銀行的Q &A
---
訊息圖:
2015年9月21日 星期一
自行車出租系統
自行車出租系統
歡迎各大風景區有自行車.電動腳踏車出租行為的店家參考本工作室的出租系統.
目前系統實務已建置運作在 康美企業社
康美企業社位在台北市河濱道路,沿河濱自行車道共設有10站,分別為:
關渡站,觀山站,木柵站,大稻埕,景福站,華中站,大佳站,美堤站,雙溪站,彩虹站
另配合新北市站24站,分別為:
親水站,浮洲站,華江站,八里站-新北,碧潭站-新北,淡水站-新北,陽光站-新北,華江站-新北,浮洲,站-新北,永和站-新北,成蘆站-新北,二重站-新北,三鶯站-新北,忠孝站-新北,龍形站-新北,新月站-新北,鹿角溪站-新北,汐止站-新北
本系統運作,共區分幾個大項功能:
(1)一般(原站)租借
(2)甲租乙還
(3)臨時甲乙歸還
(4)加車
(5)換車
(6)零售商品銷售
(7)隔日歸還(原站.臨時甲乙歸還)
底下為前台(各站)系統圖:
(歡迎有興趣者,至本工作室查相關聯絡方式 進銷存,租書,批發,軟體設計::池龍工作室::POS系統 )
----
歡迎各大風景區有自行車.電動腳踏車出租行為的店家參考本工作室的出租系統.
目前系統實務已建置運作在 康美企業社
康美企業社位在台北市河濱道路,沿河濱自行車道共設有10站,分別為:
關渡站,觀山站,木柵站,大稻埕,景福站,華中站,大佳站,美堤站,雙溪站,彩虹站
另配合新北市站24站,分別為:
親水站,浮洲站,華江站,八里站-新北,碧潭站-新北,淡水站-新北,陽光站-新北,華江站-新北,浮洲,站-新北,永和站-新北,成蘆站-新北,二重站-新北,三鶯站-新北,忠孝站-新北,龍形站-新北,新月站-新北,鹿角溪站-新北,汐止站-新北
本系統運作,共區分幾個大項功能:
(1)一般(原站)租借
(2)甲租乙還
(3)臨時甲乙歸還
(4)加車
(5)換車
(6)零售商品銷售
(7)隔日歸還(原站.臨時甲乙歸還)
底下為前台(各站)系統圖:
(歡迎有興趣者,至本工作室查相關聯絡方式 進銷存,租書,批發,軟體設計::池龍工作室::POS系統 )
----
2015年9月9日 星期三
MSSQL 交易記錄檔 LDF 太大,處理方式
USE MESWIPDB;
GO
-- Truncate the log by changing the database recovery model to SIMPLE.
ALTER DATABASE MESWIPDB
SET RECOVERY SIMPLE;
GO
-- Shrink the truncated log file to 1 MB.
DBCC SHRINKFILE (MESWIPDB_Log, 1);
GO
-- Reset the database recovery model.
ALTER DATABASE MESWIPDB
SET RECOVERY FULL;
GO
GO
-- Truncate the log by changing the database recovery model to SIMPLE.
ALTER DATABASE MESWIPDB
SET RECOVERY SIMPLE;
GO
-- Shrink the truncated log file to 1 MB.
DBCC SHRINKFILE (MESWIPDB_Log, 1);
GO
-- Reset the database recovery model.
ALTER DATABASE MESWIPDB
SET RECOVERY FULL;
GO
2015年9月8日 星期二
vbnet 取年度週數
找了好久,都沒人處理取年度全部週數?!
只好自己來..
---
--
code:
Public Class Form1
Private Function getDateFromYrWkDays(ByVal YYYY, ByVal Wks, ByVal WkDays) As Date
Dim d As Date
d = CDate(YYYY & "/1/1")
getDateFromYrWkDays = d.AddDays(WkDays - d.DayOfWeek + (Wks - 1) * 7)
End Function
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim d1 As Date
Dim d2 As Date
Dim y1 As Integer = 2015
'--
CombBWeek.Items.Clear()
For i As Integer = 1 To 52
d1 = getDateFromYrWkDays(y1, i, 1)
d2 = getDateFromYrWkDays(y1, i, 7)
CombBWeek.Items.Add("第" & Format(i, "00") & "週," & d1 & "," & d2)
Next
End Sub
End Class
只好自己來..
---
--
code:
Public Class Form1
Private Function getDateFromYrWkDays(ByVal YYYY, ByVal Wks, ByVal WkDays) As Date
Dim d As Date
d = CDate(YYYY & "/1/1")
getDateFromYrWkDays = d.AddDays(WkDays - d.DayOfWeek + (Wks - 1) * 7)
End Function
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim d1 As Date
Dim d2 As Date
Dim y1 As Integer = 2015
'--
CombBWeek.Items.Clear()
For i As Integer = 1 To 52
d1 = getDateFromYrWkDays(y1, i, 1)
d2 = getDateFromYrWkDays(y1, i, 7)
CombBWeek.Items.Add("第" & Format(i, "00") & "週," & d1 & "," & d2)
Next
End Sub
End Class
2015年9月1日 星期二
L144藍眼鬍子繁殖要件
L144藍眼鬍子繁殖要件:
1.魚缸:20CM-30CM都可(水量15公升以上比較穩)
2.過濾:雙管水妖精(用水妖精小魚比較不容易受傷!)
3.溫度:25度(最容易生!)
4.換水頻率:每天換一半或每兩天換一半(加水要加慢點),每次換水就+黑水(黑水可加可不加,有+比較容易發情!)
5.繁殖甕:深度10CM以上(15CM最好),口徑4~6CM(圓形比方型會生),竹碳筒比陶瓷更容易生!
5.佈置:裸缸,放沉木(也可以不放,有放沉木壓在繁殖甕上面比較有安全感比較會生!)
6.餵食:一天兩餐(早晚),無殼豐年蝦+棲底飼料
7.魚隻:公母體形不要太懸殊,差0.5~1CM比較好,例如公魚9CM母於就8CM,1公1母或1公2母都可!
8.PH值:7.0左右最好(其實PH值不太重要,我個人試過6.5跟8.0都一樣會生!)
重點:繁殖甕一定要擺在出水口水落下的地方(以後蛋比較不容易發霉,擺在水落下的地方也比較容易生!),繁殖缸別太複雜(別混養其他魚種)!還有繁殖缸盡量沒事都別開燈打擾!
L144藍眼鬍子繁殖後續之母魚下蛋後:
1.換水頻率:每天換3分之1或每兩天換3分之1(一定一定要很慢很慢加水,不然蛋會發霉!!!!)直到小魚滿1個月!
2.餵食:減少餵食,一天餵一餐就好(公魚顧蛋時不太吃東西)餵太多反而會污染水質!
3.溫度:28最好(25也可以,只是長比較慢也比較容易死魚或發霉),從25升到28記得要慢慢升溫,每6個小時升1度!
重點:下蛋後只可以用手電筒往裡面照看是否孵化,千萬別去動到繁殖甕!!不然蛋會被吃掉!!
L144藍眼鬍子小魚育成:
1.小魚孵化後第3天或第4天要倒出來隔離盒養(比較方便觀察跟訓餌)!!千萬別太早撈出來,不然死傷率會很高!!太晚撈會全部衝出來很難撈,孵化後3~4天撈最剛好!
2.小魚孵化後大約7天卵囊會消失,就可以開始餵食無殼豐年蝦(要讓鬍子變金黃色就要餵豐年蝦不然體色會變白!!),小魚不太能耐餓所以要早晚各一餐!
3.小魚大概孵化後20天左右就可以開始餵食棲底飼料,滿一個月就差不多穩了!
4.小魚孵化滿一個月前都跟母魚下蛋時的換水頻率一樣!!(3分之1)
1.魚缸:20CM-30CM都可(水量15公升以上比較穩)
2.過濾:雙管水妖精(用水妖精小魚比較不容易受傷!)
3.溫度:25度(最容易生!)
4.換水頻率:每天換一半或每兩天換一半(加水要加慢點),每次換水就+黑水(黑水可加可不加,有+比較容易發情!)
5.繁殖甕:深度10CM以上(15CM最好),口徑4~6CM(圓形比方型會生),竹碳筒比陶瓷更容易生!
5.佈置:裸缸,放沉木(也可以不放,有放沉木壓在繁殖甕上面比較有安全感比較會生!)
6.餵食:一天兩餐(早晚),無殼豐年蝦+棲底飼料
7.魚隻:公母體形不要太懸殊,差0.5~1CM比較好,例如公魚9CM母於就8CM,1公1母或1公2母都可!
8.PH值:7.0左右最好(其實PH值不太重要,我個人試過6.5跟8.0都一樣會生!)
重點:繁殖甕一定要擺在出水口水落下的地方(以後蛋比較不容易發霉,擺在水落下的地方也比較容易生!),繁殖缸別太複雜(別混養其他魚種)!還有繁殖缸盡量沒事都別開燈打擾!
L144藍眼鬍子繁殖後續之母魚下蛋後:
1.換水頻率:每天換3分之1或每兩天換3分之1(一定一定要很慢很慢加水,不然蛋會發霉!!!!)直到小魚滿1個月!
2.餵食:減少餵食,一天餵一餐就好(公魚顧蛋時不太吃東西)餵太多反而會污染水質!
3.溫度:28最好(25也可以,只是長比較慢也比較容易死魚或發霉),從25升到28記得要慢慢升溫,每6個小時升1度!
重點:下蛋後只可以用手電筒往裡面照看是否孵化,千萬別去動到繁殖甕!!不然蛋會被吃掉!!
L144藍眼鬍子小魚育成:
1.小魚孵化後第3天或第4天要倒出來隔離盒養(比較方便觀察跟訓餌)!!千萬別太早撈出來,不然死傷率會很高!!太晚撈會全部衝出來很難撈,孵化後3~4天撈最剛好!
2.小魚孵化後大約7天卵囊會消失,就可以開始餵食無殼豐年蝦(要讓鬍子變金黃色就要餵豐年蝦不然體色會變白!!),小魚不太能耐餓所以要早晚各一餐!
3.小魚大概孵化後20天左右就可以開始餵食棲底飼料,滿一個月就差不多穩了!
4.小魚孵化滿一個月前都跟母魚下蛋時的換水頻率一樣!!(3分之1)
2015年8月28日 星期五
2015年8月21日 星期五
vb.net 數字轉國字
'加到類的定義部分
Private Shared [cstr] As String() = {"零", "壹", "貳", "叁", "肆", "伍", _
"陸", "柒", "捌", "玖"}
Private Shared wstr As String() = {"", "", "拾", "佰", "仟", "萬", _
"拾", "佰", "仟", "億", "拾", "佰", _
"仟"}
'數字必須在12位整數以內的字符串
'調用方式如:Label1.Text=ConvertInt("數字字符串");
Public Function ConvertInt(str As String) As String
Dim len As Integer = str.Length
Dim i As Integer
Dim tmpstr As String, rstr As String
rstr = ""
i = 1
While i <= len
tmpstr = str.Substring(len - i, 1)
rstr = String.Concat([cstr](Int32.Parse(tmpstr)) + wstr(i), rstr)
System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While
rstr = rstr.Replace("拾零", "拾")
rstr = rstr.Replace("零拾", "零")
rstr = rstr.Replace("零佰", "零")
rstr = rstr.Replace("零仟", "零")
rstr = rstr.Replace("零萬", "萬")
i = 1
While i <= 6
rstr = rstr.Replace("零零", "零")
System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While
rstr = rstr.Replace("零萬", "零")
rstr = rstr.Replace("零億", "億")
rstr = rstr.Replace("零零", "零")
rstr += "圓整"
Return rstr
End Function
Private Shared [cstr] As String() = {"零", "壹", "貳", "叁", "肆", "伍", _
"陸", "柒", "捌", "玖"}
Private Shared wstr As String() = {"", "", "拾", "佰", "仟", "萬", _
"拾", "佰", "仟", "億", "拾", "佰", _
"仟"}
'數字必須在12位整數以內的字符串
'調用方式如:Label1.Text=ConvertInt("數字字符串");
Public Function ConvertInt(str As String) As String
Dim len As Integer = str.Length
Dim i As Integer
Dim tmpstr As String, rstr As String
rstr = ""
i = 1
While i <= len
tmpstr = str.Substring(len - i, 1)
rstr = String.Concat([cstr](Int32.Parse(tmpstr)) + wstr(i), rstr)
System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While
rstr = rstr.Replace("拾零", "拾")
rstr = rstr.Replace("零拾", "零")
rstr = rstr.Replace("零佰", "零")
rstr = rstr.Replace("零仟", "零")
rstr = rstr.Replace("零萬", "萬")
i = 1
While i <= 6
rstr = rstr.Replace("零零", "零")
System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While
rstr = rstr.Replace("零萬", "零")
rstr = rstr.Replace("零億", "億")
rstr = rstr.Replace("零零", "零")
rstr += "圓整"
Return rstr
End Function
2015年7月30日 星期四
2015年7月29日 星期三
2015年7月28日 星期二
2015年7月27日 星期一
ASP.NET jQuery and Database Driven Accordion
參考引用來源:ASP.NET jQuery and Database Driven Accordion
請參考來源:Building a Database Driven Hierarchical Menu using ASP.NET and SooperFish Jquery Plugin
--
請參考來源:Building a Database Driven Hierarchical Menu using ASP.NET and SooperFish Jquery Plugin
--
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<script src="http://ajax.aspnetcdn.com/ajax/jQuery/jquery-1.5.js" type="text/javascript"></script>
<style type="text/css">
.Menu
{
width: 200px;
text-align: center;
border: solid 2px gray;
padding: 0px;
background-color: Silver;
cursor: hand;
font-weight: bold;
}
.MenuItem
{
width: 192px;
text-align: center;
border: solid 1px silver;
padding: 2px;
background-color: whitesmoke;
}
</style>
<script type="text/javascript">
$(document).ready(function() {
$.ajax(
{
type: "POST",
url: "ASPNET jQuery and Database Driven Accordion.aspx/GetMenus",
contentType: "application/json; charset=utf-8",
dataType: "json",
success: CreateMenus,
error: function(err) {
alert(err.status + " - " + err.statusText);
}
});
});
function CreateMenus(results) {
results = results.d;
for (var i = 0; i < results.length; i++) {
$("<div class='Menu'>" + results[i].Text + "</div>")
.click({ MenuId: results[i].MenuId }, OnMenuClick)
.appendTo("#accordionContainer");
}
}
function OnMenuClick(event) {
$("div[id ^= 'menuItemGroup']").slideUp(500);
$.ajax(
{
type: "POST",
url: "ASPNET jQuery and Database Driven Accordion.aspx/GetMenuItems",
data: '{"menuId":"' + event.data.MenuId + '"}',
contentType: "application/json; charset=utf-8",
dataType: "json",
success: function(items) {
items = items.d;
$(event.target).children().remove();
var html = "<div id='menuItemGroup" + event.data.MenuId + "' style='display:none'>";
for (var j = 0; j < items.length; j++) {
html += "<div class='MenuItem'><a href='" + items[j].NavigateUrl + "'>" +
items[j].Text + "</a></div>";
}
html += "</div>";
$(event.target).append(html);
$("#menuItemGroup" + event.data.MenuId).slideDown(500);
},
error: function(err, r, c) {
alert(err.status + " - " + err.statusText);
}
}
)
}
</script>
</head>
<body>
<form id="form1" runat="server">
<div id="accordionContainer">
</div>
</form>
</body>
</html>
---
public class Menu
{
public int MenuId { get; set; }
public string Text { get; set; }
}
public class MenuItem
{
public int MenuId { get; set; }
public int MenuItemId { get; set; }
public string Text { get; set; }
public string NavigateUrl { get; set; }
}
public partial class ASPNET_jQuery_and_Database_Driven_Accordion : System.Web.UI.Page
{
protected void Page_Load(object sender, EventArgs e)
{
}
[System.Web.Services.WebMethod]
public static System.Collections.Generic.List<Menu> GetMenus()
{
System.Collections.Generic.List<Menu> list = new System.Collections.Generic.List<Menu>();
for (int i = 0; i < 6; i++)
{
list.Add(new Menu() {
MenuId= i,
Text = "Menu text "+i.ToString()
});
}
return list;
}
[System.Web.Services.WebMethod]
public static System.Collections.Generic.List<MenuItem> GetMenuItems(int menuId)
{
Random r = new Random();
System.Collections.Generic.List<MenuItem> list = new System.Collections.Generic.List<MenuItem>();
for (int i = 0; i < r.Next(10); i++)
{
MenuItem mi = new MenuItem();
mi.MenuId = menuId;
mi.MenuItemId = i;
mi.Text = "Menu "+ menuId.ToString()+" --- Menu item "+ i.ToString();
mi.NavigateUrl ="http://www.testmenu.com?menuID="+menuId.ToString()+"&MenuItemID="+i.ToString() ;
list.Add(mi);
}
return list;
}
}
jQuery Menu Hover 效果
var obj = null;
function checkHover() {
if (obj) {
$(obj).find(‘ul’).fadeOut(‘fast’);// 淡出效果
}
}
$(document).ready(function () {
$(‘#Nav >li’).hover(function () { // 移入的函數
if (obj) {
obj.find(‘ul’).fadeOut(‘fast’) // 淡出效果
obj = null
}
$(this).find(‘ul’).fadeIn(‘fast’);
}, function () { // 移出的函數
obj = $(this);
setTimeout("checkHover()", 400);
});
});
HTML :
<body>
<ul id="NAV">
<li >Test1
<ul class="menu">
<li><a href="#1">控制台首頁1</a></li>
<li><a href="#2">編輯個人資料1</a></li>
<li><a href="#3">個人空間管理1</a></li>
</ul>
</li>
<li>Test2
<ul class="menu">
<li><a href="#1">控制台首頁2</a></li>
<li><a href="#2">編輯個人資料2</a></li>
<li><a href="#3">個人空間管理2</a></li>
</ul>
</li>
</ul>
</body>
</html>
CSS :
<style type="text/css">
#NAV {width :100px; padding :0px ; list-style :none}
#NAV li { background : #ddd; margin :1x; height :20px}
.menu {padding :0px; margin-top :-18px ; margin-left :98px ;width :202px;list-style :none; display :none}
.menu li {width :202px ; height :20px}
</style>
Request.Pash去讀取網址後的參數
語 法 結 果
Request.ApplicationPath /
Request.PhysicalPath D:\Projects\Solution\web\minwt\doc\detail.aspx
System.IO.Path.GetDirectoryName
(Request.PhysicalPath) D:\Projects\Solution\web\minwt\doc
Request.PhysicalApplicationPath D:\Projects\Solution\web\
System.IO.Path.GetFileName
(Request.PhysicalPath) detail.aspx
Request.CurrentExecutionFilePath /minwt/doc/detail.aspx
Request.FilePath /minwt/doc/detail.aspx
Request.Path /minwt/doc/detail.aspx/123
Request.RawUrl /minwt/doc/detail.aspx/123?id=1
Request.Url.AbsolutePath /minwt/doc/detail.aspx/123
Request.Url.AbsoluteUri http://localhost/minwt/doc/detail.aspx/123?id=1
Request.Url.Scheme http
Request.Url.Host localhost
Request.Url.Port 1897
Request.Url.Authority localhost:1897
Request.Url.LocalPath /minwt/doc/detail.aspx/123
Request.PathInfo /123
Request.Url.PathAndQuery /minwt/doc/detail.aspx/123?id=1
Request.Url.Query ?id=1
Request.Url.Segments /
minwt/
doc/
detail.aspx/
123
Request.ApplicationPath /
Request.PhysicalPath D:\Projects\Solution\web\minwt\doc\detail.aspx
System.IO.Path.GetDirectoryName
(Request.PhysicalPath) D:\Projects\Solution\web\minwt\doc
Request.PhysicalApplicationPath D:\Projects\Solution\web\
System.IO.Path.GetFileName
(Request.PhysicalPath) detail.aspx
Request.CurrentExecutionFilePath /minwt/doc/detail.aspx
Request.FilePath /minwt/doc/detail.aspx
Request.Path /minwt/doc/detail.aspx/123
Request.RawUrl /minwt/doc/detail.aspx/123?id=1
Request.Url.AbsolutePath /minwt/doc/detail.aspx/123
Request.Url.AbsoluteUri http://localhost/minwt/doc/detail.aspx/123?id=1
Request.Url.Scheme http
Request.Url.Host localhost
Request.Url.Port 1897
Request.Url.Authority localhost:1897
Request.Url.LocalPath /minwt/doc/detail.aspx/123
Request.PathInfo /123
Request.Url.PathAndQuery /minwt/doc/detail.aspx/123?id=1
Request.Url.Query ?id=1
Request.Url.Segments /
minwt/
doc/
detail.aspx/
123
2015年7月22日 星期三
asp.net WebClientPrint 範例
1.How to print multiple files to client printers from ASP.NET
2.Download WebClientPrint for ASP.NET
3.WebClientPrint for ASP.NET 相關資訊
4.How to Print RAW Text Files without Print Dialog from ASP.NET
5.How to print raw ESC/POS commands from ASP.NET directly to the client printer
6.How to print raw Zebra ZPL commands from ASP.NET directly to the client printer
---
2.Download WebClientPrint for ASP.NET
3.WebClientPrint for ASP.NET 相關資訊
4.How to Print RAW Text Files without Print Dialog from ASP.NET
5.How to print raw ESC/POS commands from ASP.NET directly to the client printer
6.How to print raw Zebra ZPL commands from ASP.NET directly to the client printer
---
訂閱:
文章 (Atom)