Pages - Menu

2013年10月15日 星期二

VB.net 播放音效(懶人包)

一.加入資源
  1. 在 [方案總管] 中選取專案之後,請在 [專案] 功能表上,按一下 [屬性]。
  2. 請選取 [資源] 索引標籤。
  3. 在 [資源設計工具] 工具列上,指向 [加入資源],按一下箭頭,然後按一下 [加入現有檔案]。
  4. 在 [將現有的檔案加入資源] 對話方塊中,瀏覽至內含要加入之資源的檔案 (.bmp、.ico、.wav 等),再按一下 [開啟]。
    檔案將會加入至 Resources 目錄,資源設計工具則會開啟您所加入資源類型的 [分類] 窗格。
  5. 對於檔案資源,您可以選擇性地在 [屬性] 視窗中設定檔案的 Encoding 和 FileType 屬性。
    二.播放音效
    1.沒加入資源
        My.Computer.Audio.Play("C:\Waterfall.wav", _
            AudioPlayMode.BackgroundLoop)
    
    2.有加入資源
        My.Computer.Audio.Play(My.Resources.Waterfall, _
              AudioPlayMode.BackgroundLoop)
    都會在背景一直播放
    參考:http://msdn.microsoft.com/zh-tw/library/w032hx3c(v=vs.90).aspx
    
    
    需要停止時
    My.Computer.Audio.Stop()
    收工,只吃wav檔 

2013年10月13日 星期日

華碩分享器,出現『此連接埠用於 Download Master』的解決方法...

最近搬家,朋友拿他以前的RT-N53 來當AP,
韌體是最新的 FW_RT_N53_3004374311.trx
早上更新完後發現要改密碼不能改,
一直跳  『此連接埠用於 Download Master』,
日期時間、密碼一直改不過來,後來才發現在同樣的頁面
有一個 從網際網路設定RT-N53 的選項,要改成『是』 ,然後隨便改port
就能存了。
啥鬼,我又不需要這個  用成『否』又一直跳  『此連接埠用於 Download Master』不給存。

2013年10月3日 星期四

Notepad++ 在php中使用 php 跟 html 註解方式

php的單行註解是Ctrl+Q 而區塊註解 ALT+SHIFT+Q 是 /*.....*/
但寫html的時候註解是<!--    -->  
以下教學是把/*......*/改成  <!-- ...........-->

xp的檔案目錄在%appdata%\Notepad++文件夾」內。
Win7 中是放在「C:\Users\user\AppData\Roaming\Notepad++」需改兩個地方
langs.xml、langs.model.xml 裡面
搜尋 php 大概在第一個搜尋就找的到了,
原先是
 <Language name="php" ext="php php3 phtml" commentLine="//" commentStart="/*" commentEnd="*/">
修改成   html的註解方式  請參考language name="html" 的註解方式

 <Language name="php" ext="php php3 phtml" commentLine="//" commentStart="&lt;!--" commentEnd="--&gt;">
重啟軟體後 即可用

byte 轉 string 的問題

今天寫vb.net的app時,遇到一個問題

TextBox1.Text = Environment.NewLine+ " >> " + mesg + TextBox1.Text
把資料印出來的時候,
Dim inStream(10024) As Byte
serverStream.Read(inStream, 0, CInt(clientSocket.ReceiveBufferSize))
Dim returndata As String = _
System.Text.Encoding.ASCII.GetString(inStream)

如果加上msg(returndata)螢幕會只剩下那個returndata的資料,先前的資料都會被洗掉
後來確定是因為byte轉string的時候會產生眾多的ch(0),導致資料被蓋掉
所以就先.......
用空白取代後,再去空白
returndata = Replace(returndata, Chr(0), "")
msg(Trim(returndata))

VB.net FOR 回圈

vb 的回圈有點不一樣,不小心卡在這卡了一段小時間
他的for 是 For i As Integer = 0 To sos_port.Length() - 1
注意是 TO...
For 計數變量 = 啟始值 To 終止值 [Step 步進值]
[敘述區塊]
[Continue For]
[Exit For]
Next

以往寫php 或 C 或asp.net 都試用 for i=0;i〈 來寫的,所以i會比目標值大,
但VB會跑到跟目標值一樣才停止,他的TO的意思應該是從0到N