2015年12月22日 星期二

報表轉PDF 自動轉發E-Mail to Customer 流程

客戶的需求,須要將訂單轉發mail 給顧客
底下即是客製的流程 :


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

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月15日 星期二

B4J 8:windows 執行 jar

參考來源:Running JAR file on Windows
---
執行指令 : 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 ; 必須是一致性

B4J 6:MSSQL 連線

須先下載 jtds-1.3.1.jar (for MSSQL)
---



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 一樣套用這樣的參數帶入即可

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


AppInventor 中文學習網

AppInventor中文學習網
--
手機開發  真的是越來越多工具了...學不完   =. . =''

撿股讚 - 台股分析

撿股讚 - 台股分析
--
好像又多了不好資訊

SSMS dbForge SQL Complete Express (ssms intellisense 失效)

微軟 下載:dbForge SQL Complete Express
--
官網:sqlcomplete
--
ssms intellisense 失效 問題,已困擾很久
總算還是有解救的工具出來

B4J connect SQLite & MySQL

官網:For example to connect to a MySQL database
官網:SQL tutorial
--
下載:
mysql downloads Connector/J 5.1.38

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 或兩湯匙環保酵素於汽車水箱,可降低引擎溫度.

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 停止運作 的錯誤訊息


2015年12月10日 星期四

B4J 使用 UI 工具 JavaFX Scene Builder 下載

官網 :oracle - JavaFX Scene Builder Archive 下載
--
要執行 FXML 一直出現錯誤!! = . = 搞不懂...狂查

實在是  ...
---
原來是缺 : JavaFX Scene Builder    UI 編輯器

到官網也不知道是哪一個,太多資源了!!
官網下載頁面
找 : Java Archive 這一個就對了!!
拉到底 : 就看到了

---
底下是 : B4J 開 FXML 畫面







B4J 一些範例參考

B4J 一些範例參考
--

B4J 5:練習:加法



B4J HowTos 英文版線上教學

B4J HowTos 英文版線上教學
--
不錯喔! 可以練功力!!

cmoney 所有課程 - 投資小學堂

cmoney 所有課程 - 投資小學堂
--
還不錯,可增加一些觀念和知識

B4J 4:將 b4j 編譯成windows 執行檔 exe

還是要參考官網作法 Create Windows native executables (exe files)
---
** 要產 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 "";
}
}

B4J 2:第一支程式

本篇仿照官方的教學影片 官網 Documentation :(video) UI App / Designer  來作的!
當然不一定要完全一樣 (稍看了設計和作法,自己動手作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 的安裝了

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 , 外層也是用 自己的母語

CodeData 很多開發教學文章

CodeData
--
 很多開發教學文章  , 不錯!! 很多 android / ios / java 開發

與時聚財

與時聚財 :: 痞客邦 PIXNET ::
---

B4A,B4I,B4J

B4X - The simple way to develop native Android, iOS & IoT apps
---
新的開發工具 ...
B4J 是完全免費的, 可以練練功力 !! 採用 VB 語言 , 內部又包了 java lib 來跑 !!
值得試試看

2015年12月8日 星期二

HTML Agility Pack

HTML Agility Pack:簡單好用的快速 HTML Parser
--
官網: Html Agility Pack
--

證交所-買賣日報表查詢系統

買賣日報表查詢系統
--

股市數據抓取

部落格
---
一些方法,可參考!!

使用Yahoo/Google API取得歷史股價資料

AnyDesk 2.1.0 - 速度最快最流暢的遠端桌面連線軟體下載

官網:AnyDesk - The World's Fastest Remote Desktop Application

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)

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)  

2015年12月2日 星期三

mssql 附加 唯讀

參考引用來源:SQL Server 2005附加資料庫變"唯讀"
--
選擇 dbName.mdf 跟 dbName_LOG.ldf 這兩個檔案
點選 滑鼠右鍵 ->選擇 內容
選擇 安全性
點選 新增  加入 SQLServerMSSQLUser$user$SQLEXPRESS 這個使用者
或許可以解決唯讀問題