發表文章

目前顯示的是 3月, 2009的文章

CentOS 修改電腦的localhost name

root@ pc1 > pc1代表的就是localhost name 通常是在安裝os時便要求指定 但若想要更改的話 先變成管理員 >su 修改 >gedit /etc/sysconfig/network 裡面會有行 HOSTNAME=PC1 把他改成想要的名稱  儲存後離開 重開後便可看到名稱變了

COBALT 307

圖片
這台入手有一段時間了 一直是我的桌面主力之一 cobalt 307是dac大廠theta為了平價dac市場所出的dac 在合理的價格裡 維持了theta一貫的特色 或許規格跟現在的da晶片比起來 遜色不少 但是音樂的內涵跟音場的營造卻是他廠學不來的 小小一台  但是很沉 打開一看 居然用了獨立的兩個變壓器 分別供給類比與數位電路 這是蠻燒的做法 這台聲音很有力  低頻很有氣勢 音場寬廣 聽動態大的音樂  像交響樂之類的很過癮 推力也不錯 我接上低阻耳機(ultrasone HFI-780)也能推的不錯 前提是你的訊源必須要能控制音量..... 

[影片] 超棒的electone演奏

一看就無法自拔了 轉貼給一堆朋友看 還是索性貼在網路上吧 先推薦我最喜歡的一首 1.FINAL FANTASY V ビッグブリッヂの死闘 2.神鬼奇航三 Pirates of the Caribbean 3.侏儸紀公園   Jurassic Park 4.星際大戰 5.Indiana Jones(Raiders) 6.ひぐらしのなく頃に「you」 7.魔法公主 超棒的bassline阿 剩下的請自己回youTube或是niconico搜尋吧

VB.NET aRGB轉換

在VB.NET中让一个画面成为动态, 无非包括这样一个过程: 绘制 - 擦除- 绘制 所谓擦除有两个方法, 一是用别的图覆盖, 二是在intptr画的图(以gg.fromhwnd(****)初始化的绘制工具) 只要用refresh()的命令就能清除. 为了速度与流畅, 最好用覆盖的方法 如果只是为了程序简单,则用refresh() Double Buffer  与  BitBlt 这两个不需要用到,当时我在网上学的很模糊,也可能有错.根据模糊的记忆.. BitBlt是在屏幕上看不见的地方画上一些常用图, 然后在需要用这些图的时候直接从屏幕的一个地方抄到另一个地方,这样比直接绘制的速度要快很多. Double Buffer是把即将显示的帧画好, 然后显示的时候开始画后面的帧... 帧:Frame, 动画的一页 在VB.NET中, 似乎BitBlt已经是自动化的了, 而一个Form上通常会有Double Buffer [True/False]的属性供选择...我试了下, 看不出效果... 像素处理 像素的处理主要有三个部分:得到特定点的像素信息,分析像素信息, 写入特定点的像素信息 首先把一个图像用Bitmap加载到内存。比如:  image.fromfile("c:\aaa.bmp"), 或者已经在程序里的图像, 如me.BackgroundImage, 这里我们用前者作为例子。 Dim pic As Bitmap pic = image.fromfile("c:\aaa.bmp") 然后我们得到pic的一个像素的RGB。 因为RGB是长整数, 所以我们首先建立一个long, 然后得到pic在坐标为(x,y)的点, 然后把这个点上的RGB存到这个long里面去。 Dim clr As Long clr = pic.getPixel(x,y).ToArgb 现在我们需要分析这个RGB, 把它转换成R, G, 和B , 算法如下: Dim r As integer Dim g As integer Dim b As integer b = 255 + clr \ 256 \ 256 g = 255 + (clr \ 256) Mod 256 r = 255 + clr Mod 256 如果要设定一个像素的到这个颜色信息, 我们可以这...

,NET STRING BUFFER使用 與時間計算

private void testString() {     String tempstr = "abcdefghijklmnopqrstuvwxyz";     int times = 50000;     long aa, bb,cc,dd;     DateTime startDate,endDate;     DateTime startDate1, endDate1;     richTextBox1.AppendText("string測試開始\r\n");     startDate = DateTime.Now;     aa = startDate.Ticks;     String str = "";     for (int i = 0; i     {       str += tempstr;     }     endDate = DateTime.Now;     bb = endDate.Ticks;     richTextBox1.AppendText("執行時間︰" + ((Double)(bb - aa) / 10000) + "毫秒  = "+ (Double)(bb - aa) / 10000000+"秒\r\n");               richTextBox1.AppendText("StringBuilder測試開始\r\n");     startDate1 = DateTime.Now;     cc = startDate1.Ticks;     StringBuilder strb = new StringBuilder();     for (int i = 0; i     {     strb.Append(tempstr);     }     endDate1 = DateTime.Now;     dd = endDate1.Ticks;     richTextBox1.AppendText("執行時間︰" + (Double)(dd - cc) / 10000 + "毫秒 = " + (Double)(dd...

VB .net 影像RESIZE函式

    Public Function ResizeBitmap(ByRef b As Bitmap, ByRef dstWidth As Integer, ByRef dstHeight As Integer) As Bitmap         Dim dstImage As Bitmap = New Bitmap(dstWidth, dstHeight)         Dim gx As System.Drawing.Graphics = Graphics.FromImage(dstImage)         '  SET插值模式          gx.InterpolationMode = Drawing2D.InterpolationMode.Bilinear         '  SET平滑模式            gx.SmoothingMode = Drawing2D.SmoothingMode.HighQuality         gx.DrawImage(b, New Rectangle(0, 0, dstImage.Width, dstImage.Height), New Rectangle(0, 0, b.Width, b.Height), GraphicsUnit.Pixel)         gx.Save()         gx.Dispose()         Return dstImage     End Function '  end   of   Resize

VB .NET 副函式回傳矩陣(矩陣乘法為例)

A 矩陣 維度 ixj B 矩陣 維度 jxk C 矩陣 維度 ixk C=AxB 這邊沒寫偵測輸入矩陣維度錯誤的狀況 所以輸入矩陣一定要正確 Public Function Mip(ByRef A(,) As Double, ByRef B(,) As Double) As Double(,)         Dim ans(,) As Double         ReDim ans(A.GetLength(0) - 1, B.GetLength(1) - 1)         For i = 0 To A.GetLength(0) - 1             For j = 0 To B.GetLength(0) - 1                 For k = 0 To B.GetLength(1) - 1                     ans(i, k) = ans(i, k) + A(i, j) * B(j, k)                 Next             Next         Next         Mip = ans         Return Mip     End Function

VB NET 取得程式當前位址

process.getcurrentprocess().mainmodule.filename取得當前執行的exe的文件名稱 取得當前的絕對路徑 system.io.path  environment.currentdirectory 如果是在windows forms程序中,當前應用也表示為system.windows.forms.application對象, 通過其靜態屬性application.executablepath和application.startuppath,也可取得當前執行檔與啟動路徑 引用位址