พีเอ็ม คอม: 2014

30 ธันวาคม 2557

Boot CD Rom บน Notebook ACER ASPIRE

วันนี้ติดตั้งโปรแกรมบนเครื่อง Notebook Acer ASPIRE เลยนำวิธีการ Boot ผ่าน CDRom มาบอกกันครับ
1. Boot เครื่อง กดปุ่ม F2 หนึ่งครั้งจะเข้า BIOS
2. ไปที่ Main--> เปลี่ยน F12 Boot Menu = Enable
3. ไปที่ Boot--> เปลียน Boot Mode = Legacy
(F6 to Move Up,F5 to Move down,F10-->Save--Yes)
หากใช้แผ่น Windows 7 จะสามารถ Format ได้ง่ายดีครับจะเป็น Hiren รุ่นก่อนๆ จะมองไม่เห็น Harddisk

25 ธันวาคม 2557

เมื่อ variable ที่ส่งเข้ามาไม่ทำงานใน java

เมื่อ variable ที่ส่งเข้ามาไม่ทำงานใน ajx,java

สคริปที่อาจไม่ทำงาน

function myFunction(Value1)

{

if (Value1==1) {

alert('WORK');

}

else

{

alert('NOT WORK');

}

}

ให้ส่งค่ามายังตัวแปลก่อน ดังนี้

function myFunction(Value1)

{

dim $myval=Value1;

if ($myval==1) {

alert('WORK');

}

else

{

alert('NOT WORK');

}

}

24 ธันวาคม 2557

เปลี่ยนปุ่ม HTML เดิมๆเป็นปุ่มที่มีรูปภาพสวยๆ

ตัวอย่าง

Source Code
<button class="btn btn-success" id="submit" name="submit" nbsp="">ส่งจดหมาย <img src="http://img1.blogblog.com/img/icon18_email.gif" height="25" /></button>

23 ธันวาคม 2557

Text Array With Add and Insert (AJX)

ที่มา
Thank: http://www.sanwebe.com/2013/03/addremove-input-fields-dynamically-with-jquery
ผมขอเปลี่ยนแปลงนิดหน่อย
คือเปี่ยนจาก button เป็น a tag แทน ครับ เพราะ button เอาไว้ใช้ส่งค่าครับ

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

<title>Adding Input Fields On The Fly</title>

<script src="http://www.google.com/jsapi" type="text/javascript"></script>

<script type="text/javascript">google.load("jquery", "1");</script>

</head>

<body>

<script type="text/javascript">

$(document).ready(function() {

var max_fields      = 10; //maximum input boxes allowed

var wrapper         = $(".input_fields_wrap"); //Fields wrapper

var add_button      = $(".add_field_button"); //Add button ID

var x = 1; //initlal text box count

$(add_button).click(function(e){ //on add input button click

e.preventDefault();

if(x < max_fields){ //max input box allowed

x++; //text box increment

$(wrapper).append('<div><input type="text" name="mytext[]"/><a href="#" class="remove_field">Remove</a></div>'); //add input box

}

});

$(wrapper).on("click",".remove_field", function(e){ //user click on remove text

e.preventDefault(); $(this).parent('div').remove(); x--;

})

});

</script>

<form action="" method="POST">

<div class="input_fields_wrap">

<a class="add_field_button" href="">Add More Fields</a>

<div><input type="text" name="mytext[]"></div>

</div>

<input type="submit" value="Submit"/>

</form>

<?PHP

for($i=0;$i<=count($_POST['mytext'])-1;$i++)

{

echo $_POST['mytext'][$i].'<br/>';

}

?>

</body>

</html>

07 ธันวาคม 2557

จัดการกับปุ่ม Sleep เจ้าปัญหา (Windows 7)

ปุ่ม Sleep ที่คีย์บอร์ดรุ่นที่ผมใช้อยู่ดันใกล้กับปุ่มเปลี่ยนภาษา กดทีผิดทีเครื่องจอดำเลย
วันนี้จัดกมากับปุ่มนี้กัน

1. ก่อนอื่นกด Start >พิมพ์ข้อความค้นหาว่า Power Options

2. คลิกที่ Choose what thw power buttons do มุมซ้ายมือ

3. คลิกที่ When i Press the sleep button เปลี่ยนจาก sleep เป็น Do nothing

แล้ว Save Changes

01 ธันวาคม 2557

Microsoft เปิดโรงเรียนออนไลน์ Microsoft Virtual Academy (MVA)

Microsoft เปิดโรงเรียนออนไลน์ Microsoft Virtual Academy (MVA)
สำหรับผู้ที่ต้องการเรียนต้องมี Account ของ Microsoft (Hotmail, Outlook)

http://www.microsoftvirtualacademy.com/

29 พฤศจิกายน 2557

ดูทีวีออนไลน์ มีเน็ตไม่ต้องต่อกล่องดูได้เลย

http://www.onlinethailand.net/tv_online/MONO29.php

27 พฤศจิกายน 2557

ข้อมูลโรงงาน และสถานบริการทั้งหมดในประเทศไทย

ข้อมูลโรงงาน และสถานบริการทั้งหมดในประเทศไทย
วันนี้บังเอิญเข้าไปพบก็เลยเก็บไว้ก่อนเผื่อได้ใช้ประโยชน์

ผู้ประกอบการโรงงานต่างๆ: http://www2.diw.go.th/factory/tumbol.asp

โรงแรมต่างๆ: http://www.rd.go.th/publish/44132.0.html

21 พฤศจิกายน 2557

โปรแกรมเขียนแผ่นใช้แทน NeroBurningRom

Infra Recorder
มีภาษาไทยด้วยนะครับ ใช้ง่ายดี
http://sourceforge.net/projects/infrarecorder/

11 พฤศจิกายน 2557

Create Facebook Like and Share Button

Create Facebook Comment On Your Website

1. Go to https://developers.facebook.com/docs/plugins/comments/
2. Enter Website URL.
3. Generate Code.

07 พฤศจิกายน 2557

Windows AZURE ระบบปฏิบัติการที่รับบนคอมพิวเตอร์หลายๆเครื่อง

http://azure.microsoft.com/en-us/documentation/articles/fundamentals-introduction-to-azure/

งานนี้คนจนอย่างเราหมดสิทธิ์

06 พฤศจิกายน 2557

โปรแกรมทำเว็บไซต์ฟรี

เชื่อว่าหลายๆคนคงใช้ CMS กันแล้ว แต่บางคนก็ยังอยากทำเองอยู่
ลองใช้ตัวนี้บ้างนะครับ
http://sourceforge.net/projects/alfresco/files/Alfresco%205.0.b%20Community/

31 ตุลาคม 2557

แหล่งดาวน์โหลด ICON บนเว็บไซต์

http://commons.wikimedia.org/wiki/Crystal_Clear

01 ตุลาคม 2557

GPS Mapper, GPS Tracker ยังไม่ลองใช้ โพสเก็บไว้ก่อน

http://sourceforge.net/projects/gpsmapper/?source=typ_redirect

วิธีติดตั้ง ครับ
https://www.websmithing.com/2014/01/20/quick-start-guide-for-gpstracker-3/#phpserver

เครื่องมือเสริม
http://developer.android.com/sdk/installing/studio.html

25 กันยายน 2557

Run XAMPP at Windows Startup วิธีรันโปรแกรม XAMPP ทุกครั้งที่บู๊ตเครื่องใหม่

How to Run Xampp on Windows Startup?

คลิกขวาที่ Xampp-Control.exe เลือก Run as Administrator

คลิกให้มีเครื่องหมายถูกตรง Modules Service ที่ต้องการ แล้วคลิก Start

เครื่องถามว่า Click Yes To Install ................................Service ตอบ Yes

หากเครื่องถามเกี่ยวกับความปลอดภัยให้ Allow และ Yes ไว้ก่อน

18 กันยายน 2557

ไปยังบรรทัดที่ต้องการหลังจากลบรายการ Datagridview แล้ว

'How To Goto Last Row After Deleted a Datagridview Row

                    Dim SelectedBillDetailRow As Integer = 0
                    SelectedBillDetailRow = Datagridview1.SelectedCells.Item(0).RowIndex

    'Delete Some Row...
    'And..
    'Fill...

                    If SelectedBillDetailRow = Datagridview1.Rows.Count Then
                        SelectedBillDetailRow = SelectedBillDetailRow - 1
                    End If
                    'Goto Selected Row
                    If SelectedBillDetailRow > 0 And SelectedBillDetailRow <= Datagridview1.Rows.Count And Datagridview1.Rows.Count > 0 Then
                        Datagridview1.CurrentCell = Datagridview1(0, SelectedBillDetailRow)
                    End If

15 กันยายน 2557

วิธีใส่เลขหน้าใน Indesign

1. เปิดไฟล์
2. ดับเบิลคลิกที่ A-Master มุมขวาบน
3. เมนู Type -> Insert Special Character -> Markes -> Current Page Number

เสร็จแล้วลาก A-Master ไปทับหน้าที่ต้องการ

11 กันยายน 2557

Quite Universal Circuit Simulator โปรแกรมสำหรับคนเขียนวงจรโดยเฉพาะ

Quite Universal Circuit Simulator
http://sourceforge.net/projects/qucs/

25 สิงหาคม 2557

Post divided into sections. การแบ่ง Post ออกเป็นส่วนๆ โดยตัดจาก HR (HTML) (ผมใช้ Ckeditor นะครับเลยเป็น HR)

<?php
$post = "<html><head><title></title></head><body><p>Test Page1</p>
<hr />
<p>Test Page2</p></body></html>";
$p = explode("<hr />", $post);
echo $p[0]; // page1
echo $p[1]; // page2
//To Show Full Post
//if (isset($_GET[$i])&&$_GET[$i]>0) echo $post;
?>

13 สิงหาคม 2557

สำหรับใครที่อยากขายของบน E-Bay ครับ

http://education.ebay.co.th/newtoselling/registration/downloadpdf.html
ตามลิ้งค์ไปเลยครับผม :)

08 สิงหาคม 2557

ความลับของ Youtube กับการส่งลิ้งค์

รู้หรือไม่ครับว่าเราสามารถส่งลิ้งค์ Youtube ไปให้ปลายทางดูพร้อมระบุได้ด้วยว่าจะให้เริ่มต้นที่เวลาเท่าไหร่ใน time play ของ vdo youtube
เพียงแค่ใส่ &t= ตามด้วยเวลาเป็นวินาที (เอา60*เวลาที่เล่นบนจอภาพ+10 ) ใส่ไว้หลัง URL ของ Youtube ที่กำลังเล่นอยู่ครับ ตัวอย่างเช่น
http://www.youtube.com/watch?v=W6TQ565lMP8&t=1058

17 กรกฎาคม 2557

Get File Path and Directory Only In PHP

echo "FOLDER: ".substr($_SERVER['DOCUMENT_ROOT'], 0);
echo "
";

echo "FULL Path IN PHP :". $_SERVER['PHP_SELF'];
echo '
';
echo 'filename only :'.basename($_SERVER['PHP_SELF']); // $file is set to "index"
echo '
';
echo substr($_SERVER['PHP_SELF'], 0,(strlen($_SERVER['PHP_SELF'])-strlen(basename($_SERVER['PHP_SELF'])))); // Path Name Only in PHP
?>

15 กรกฎาคม 2557

Filemanager (File Uploader) สำหรับ ckeditor

Download Site: http://sourceforge.net/projects/pdwfilebrowser/
Config เพิ่มเติม ดังนี้ครับ

ไฟล์ pdw_file_browser\config.php
ประมาณบรรทัดที่ 63
$uploadpath = "/upload/files/"; // absolute path from root to upload folder (DON'T FORGET SLASHES)
if (!file_exists($_SERVER['DOCUMENT_ROOT'].$uploadpath)) {
mkdir($_SERVER['DOCUMENT_ROOT'].$uploadpath, 0777, true);
}

กรณีเปลี่ยนภาษาไม่ได้ config ดังนี้ครับ
$defaultLanguage = 'th';
$_SESSION['language']=$defaultLanguage;

ประมาณบรรทัดที่ 157-159
$editor="ckeditor";
ตัวนี้อาจไม่ Config ก็ได้ครับไป config ที่ ckeditor ทีเดียวผมทำเผื่อลืมเพราะผมกะใช้ ckeditor ตัวเดียวครับ

อย่าลืม.......(ประมาณบรรทัดที่ 45-48)
* if (!(isset($_SESSION['IsAuthorized']) && $_SESSION['IsAuthorized'])){
* die("You are not authorized!");
* }
เขาคอมเม้นไว้ว่าต้องแก้บรรทัดนี้เพื่อตรวจสอบการ Login ของเราด้วยครับเผื่อมีใครอยากอับไฟล์ขึ้นเว็บเรา
ส่วนใครที่อยากอับโหลดไฟล์ขนาดใหญ่ๆได้ไปที่ ประมาณบรรทัดที่ 169 ครับ
$max_file_size_in_bytes = 5048576; // 5MB in bytes

ต่อมาไฟล์ ckeditor/config.js ครับ
config.filebrowserBrowseUrl = 'pdw_file_browser/index.php?editor=ckeditor';
config.filebrowserImageBrowseUrl = 'pdw_file_browser/index.php?editor=ckeditor&filter=image';
config.filebrowserFlashBrowseUrl = 'pdw_file_browser/index.php?editor=ckeditor&filter=flash';

Filemanager อีกตัวหนึ่งที่น่าใช้เหมือนกันครับ
https://github.com/simogeo/Filemanager

09 กรกฎาคม 2557

รวมฟังก์ชั่นต่างๆที่ใช้ใน Theme Wordpress

http://codex.wordpress.org/Function_Reference/wp_title#Covering_Homepage

20 มิถุนายน 2557

Array และ InArray ใน VB.NET

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Return Index Of Array
        Dim numbers As String() = {"aaa", "bbb", "ccc"}
        MsgBox(numbers.ToList().FindIndex(Function(x) x = "bbb")) 'Case Found
        'MsgBox(numbers.ToList().FindIndex(Function(x) x = "zzz")) 'Case Not Found
        Dim index As Integer = Array.IndexOf(numbers, "ccc")

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim source As String = "111,222,333,444"
        Dim myarray() As String = Split(source, ",")
        MsgBox(myarray(1))
    End Sub

    Public Function InArray(ByVal myArray As String(), ByVal ValueTocheck As String)
        If (myArray.ToList().FindIndex(Function(x) x = ValueTocheck)) = -1 Then
            Return False
        Else
            Return True
        End If
    End Function

    Private Sub btnCheckInArray_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheckInArray.Click
        Dim arr1 As String() = {"rrr", "ssss", "ttttt"}
        MsgBox(InArray(arr1, "tt"))
    End Sub

End Class

เปลี่ยนสี Datagridview เมื่อ ไม่ได้รับ focus และ focus ใหม่ (VB.NET)

    Private Sub Datagridview1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Datagridview1.GotFocus
        'Datagridview1.DefaultCellStyle.SelectionBackColor = Color.DarkCyan
        Datagridview1.DefaultCellStyle.SelectionBackColor = Color.DeepSkyBlue
    End Sub

    Private Sub Datagridview1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Datagridview1.LostFocus
        Datagridview1.DefaultCellStyle.SelectionBackColor = Color.Gray
    End Sub

17 มิถุนายน 2557

แก้ปัญหา Cell / Row (แถว) ยืด เมื่อพิมพ์เอกาสร Excel 2007 Up

ปัญหาเกิดจากการแปลงเอกสาร .xls เป็น .xlsx ดังนั้นให้ใช้วิธีนี้ครับ
เปิดเอกสารที่ต้องการปรับ คัดลอกข้อความทั้งหมดใน sheet นั้น
สร้างเอกสารใหม่ คลิกขวาที่เซลล์แรก-> วางแบบพิเศษ -> ค่า
จากนั้นจัดรูปแบบก่อน แล้วค่อยพิมพ์ครับ

วิธีนี้ถือว่ายากแต่เราจะเอาไปใช้งานในอนาคตครับ
มีวิธีง่ายกว่านี้ที่นี่ครับ http://answers.microsoft.com/th-th/office/forum/office_2010-excel/excel-2010-preview/f9d261b0-8b7a-47eb-be3d-dd360efee5f8

14 มิถุนายน 2557

การเน้นสีใน Excel 2007 Up ตามเงื่อนไขที่ต้องการ

13 มิถุนายน 2557

การสร้าง Like Post ในเว็บบอร์ดของเราให้เหมือนกับ Facebook (PHP)

<?php

// Example 1

$field_like_this_post = 'user1 user2 user3 user4 user5 user6';

$users_like_this_post = explode(' ',$field_like_this_post );

$now_user='user31';

if (in_array($now_user, $users_like_this_post)) {

echo 'Your And '.(count($users_like_this_post)-1).' People Liked This Post';

}

else

{

echo (count($users_like_this_post)-1).' People Liked This Post ';

echo '<a href="?like=Like">Like This Post';

}

?>

เป็นเพียงแค่แนวคิดเพื่อเอาไปปรับเปลี่ยนเองนะครับ

การส่งค่า Tab เมื่อกด Enter ใน Textbox (VB.NET)

Public Class Form1
Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles _
TextBox1.KeyUp, TextBox2.KeyUp, TextBox3.KeyUp, TextBox4.KeyUp '<---Handless Textbox1 to 4 Keyup Event
If e.KeyCode = Keys.Enter Then
SendKeys.Send("{TAB}")
End If
End Sub
End Class

12 มิถุนายน 2557

วิธีทำให้ Object ขยายตามฟอร์มโดยไม่ต้องเขียนโค้ด (VB.NET)

คลิกขวาที่ Object >Properties>Anchor เลือกตำแหน่งที่ต้องการให้วัตถุจับ (ดูภาพ)

10 มิถุนายน 2557

ฟังก์ชั่น Get DateTime จาก Server (VB.NET+MS SQL)

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.Odbc
Public Class Form1

Public Function ServerTime()
        On Error Resume Next
        Dim myTime As Date
        Dim conn As New OdbcConnection
        conn.ConnectionString = strConnectionString
        conn.Open()
        Dim cmd As New OdbcCommand("SELECT GETDATE() AS CurrentDateTime", conn)
        Dim rs As OdbcDataReader
        rs = cmd.ExecuteReader()
        Dim i As Integer = 0
        While rs.Read
            myTime = rs("CurrentDateTime")
        End While
        Return myTime
        Exit Function
    End Function

end Class

09 มิถุนายน 2557

วิธีไปยังบรรทัดสุดท้าย DataGridView (VB.NET)

   Private Sub GoToLastRow(ByVal dg As DataGridView)
        Dim last As Integer
        last = dg.Rows.Count - 1
        dg.CurrentCell = dg(0, last)
    End Sub
วิธีใช้
GoToLastRow(Datagridview1)

วิธีแก้ Error: Saving Changes Not Permitted

ไปที่ Tools -> Options -> Designers -> Table and Database Designers->
uncheck ที่ Privent saving changes that requiretable re-creation

04 มิถุนายน 2557

โค้ดสำหรับส่งค่า Tab เมื่อกดปุ่ม Enter (HTML+AJAX)

<!DOCTYPE html>
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=UTF-8">
<title> Next Tab DEMO</title>
<script type='text/javascript' src='https://ajax.googleapis.com/ajax/libs/jquery/1.7.2/jquery.min.js'></script>
<script type='text/javascript'>//<![CDATA[
$(window).load(function(){
$(document).on("keypress", ".TabOnEnter" , function(e)
{
//Only do something when the user presses enter
if( e.keyCode == 13 )
{
var nextElement = $('input[tabindex="' + (this.tabIndex+1) + '"]');

if(nextElement.length )
nextElement.focus();
else
$('input[tabindex="1"]').focus();

}
});
});//]]>
</script>
</head>
<body>
AAA:<input id="AAA" class='TabOnEnter' tabindex="1" autofocus/><br>
BBB:<input id="BBB" class='TabOnEnter' tabindex="2" /><br>
CCC:<input id="CCC" class='TabOnEnter' tabindex="3" /><br>
DDD:<input id="DDD" class='TabOnEnter' tabindex="4" /><br>
</body>
</html>

เครดิต: http://jsfiddle.net/konijn_gmail_com/WvHKA/

วิธี Setfocus ให้ textbox เหมือนกับ google เมื่อเปิด url (HTML)

สังเกตุใหมครับว่าเมื่อเราเปิด google ขึ้นมา cursor จะมาพร้อมอยู่ที่ textbox เพื่อให้เราพิมพ์ได้เลย วิธีทำดังนี้ครับ
<input type="text" name="search" autofocus>
ส่วนวิธีกำหนด Tabindex ดังนี้ครับ
FirstName: <input name="firstname" tabindex="1" autofocus>
Lastname: <input name="lastname" tabindex="2" >
tel: <input name="tel" tabindex="3"

30 พฤษภาคม 2557

Form Login สวยๆ (HTML)

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

<title>User Login</title>

<style type="text/css">

</style>
</head>
<body bgcolor="#F0F0F0" >
<form id="form1" name="form1" method="post" action="">
<div id="apDiv1">
<h1 align="center" class="style4">USER LOGIN</h1>
<table width="284" border="0" align="center">
<tr>
<td width="124"><span class="style1">User Name</span></td>
<td width="144" colspan="2">
<label>
<input type="text" name="txtusername" id="txtusername" autofocus />
</label> </td>
</tr>
<tr>
<td><span class="style1">Password</span></td>
<td colspan="2"><input type="password" name="txtpassword" id="txtpassword" /></td>
</tr>
<tr>
<td><div align="right"></div></td>
<td>

<div align="left">
<input type="reset" name="reset" id="reset" value="Reset" />
</div></td>
<td><div align="right">
<input type="submit" name="button" id="button" value="LOGIN" />
</div></td>
</tr>
</table>

<label></label>
<p> </p>
</div>
</form>
</body>
</html>

22 พฤษภาคม 2557

วิธีการกำหนด Firewall เปิด Port ให้กับ MS SQL Server

วิธีการกำหนด Firewall ให้กับ MS SQL Server

Start >run > firewall.cpl

Windows Firewall With Advances Security
>Advanced Setting >Inbound Rules>

Actions >New Rules...
(มุมขวาอันแรก)
เพิ่ม Port ดังนี้

UDP port
1434 - SQL Server Admin Connection
135 - Transact Debugger/RPC
2382 - SQL Server Browser
2383 - SQL Analysis Services
4022 - SQL Service Broker

TCP port
80 - SQL Server instance running over an HTTP endpoint.
135 - Transact-SQL debugger
443 - SQL Server default instance running over an HTTPS endpoint.
1433 - SQL Server Default Instrace
1434-SQL Server Browser service
4022 - Service Broker

21 พฤษภาคม 2557

เอาวิธีการดึงข้อมูล ID จาก Combobox มาฝากครับ (VB.NET)

http://vb.net-informations.com/dataset/bind-combobox.htm

19 พฤษภาคม 2557

Face Detect โดย ใช้ EMGU

' ตอนนี้ผมกำลังศึกษาเพิ่มเติมอยู่หากใครมีส่วน Recognition ก็ขอด้วยครับผมมาได้แค่นี้
Imports Emgu.CV
Imports Emgu.CV.Structure
Imports Emgu.Util
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Runtime.InteropServices

Public Class frmWebcam

    Dim capturez As Capture = New Capture

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        'Dim img As New Image(Of Bgr, Byte)(imgFilename)
        Dim img As Image(Of Bgr, Byte) = capturez.QueryFrame()

        'Load the object detector
        Dim faceDetector As New CascadeClassifier("C:\Emgu\emgucv-windows-universal-cuda 2.9.0.1922\bin\haarcascade_frontalface_default.xml")

        'Convert the image to Grayscale
        Dim imgGray As Image(Of Gray, Byte) = img.Convert(Of Gray, Byte)()

        For Each face As Rectangle In faceDetector.DetectMultiScale( _
                           imgGray, _
                           1.1, _
                           10, _
                           New Size(20, 20), _
                           Size.Empty)
            img.Draw(face, New Bgr(Color.White), 1)
        Next
        PictureBox1.Image = img.ToBitmap()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
    End Sub

    Private Sub btnCapture_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCapture.Click
        'PictureBox2.Image = PictureBox1.Image
        Dim imagez As Image(Of Bgr, Byte) = capturez.QueryFrame()
        PictureBox2.Image = imagez.ToBitmap()

    End Sub
End Class

เจอแล้วละแต่ดูเหมือนผมจะติดอะไรนิดหน่อย
http://www.youtube.com/watch?v=PV5arUlBIkk

17 พฤษภาคม 2557

Convert VB.NET กับ C#

http://www.carlosag.net/Tools/CodeTranslator/

TOP 10 Face SDK

http://blog.mashape.com/post/53379410412/list-of-50-face-detection-recognition-apis

ตัวนี้น่าสน สำหรับใครที่กำลังมองหาระบบ Authention อยู่

MikroTik RB750G
http://www.sys2u.com/xpert/viewtopic.php?f=53&t=13247
ผล. ผมยังไม่ซื้อมาใช้ครับ

วิธีกำหนด DDWRT ให้บล็อกเว็บไซต์ที่ไม่ต้องการ

วิธีบล็อกเว็บไซต์ด้วย DDWRT
ไปที่ Access Restrictions>
เลือก Statue=Enable
เลือก PolicyName พิมพ์ชื่ออะไรก็ได้เช่น BlockWebsite
คลิก Edit List of Clients/Edit List of PCs
ตอนนี้ให้ใส่ IP ส่วนผมกำหนดค่าระหว่าง ip ที่ต้องการเอา เช่น 192.168.1.2 - 192.168.1.254
Save และ Close
จากนั้นเป็นขั้นตอนสำคัญคือกำหนดเว็บไซต์ที่ต้องการบล็อกเลื่อนลงมาข้างล่างตรง Website Blocking by URL Address
ใส่ชื่อเว็บไซต์ที่ต้องการบล็อก เช่น th.hao123.com
เสร็จแล้วครับ
Website Block URL Address

http://www.youtube.com/watch?v=eHQaCK3iYxA
ตาม Youtube ไปครับ

12 พฤษภาคม 2557

วิธีการกำหนดค่า Port สำหรับ MS-SQL Server บน Firewall (PORT 1433)

ตามลิ้งค์นี้ครับ
Firewall >มุมซ้ายมือ Inbound Rules >มุมขวามือ NewRule... ใส่ พอร์ต 1433 ดูลิ้งค์ด้านล้างครับ
http://sqltouch.blogspot.com/2013/06/sql-server-port-how-to-open-in-windows.html

CODE สำหรับ Backup และ Restore MS-SQL Server DATABASE (VB.NET)

ติดตามต่อที่ลิ้งค์นี้เลยครับ พี่เขาทำไว้ดีมากๆเลย

http://www.authorcode.com/how-to-backup-and-restore-of-sql-server-database-through-vb-net/

30 เมษายน 2557

Laravel PHP Framework

Laravel PHP Framework (อ่านว่า ลาราเวล พีเอชพี เฟรมเวิร์ค) สุดยอด Framework ปี 2014

เว็บไซต์เจ้าของ: http://laravel.com/

บทความสอนการใช้งาน ภาษาไทย: http://www.thaicreate.com/community/laravel.html

แหล่งดาวน์โหลด: Laravel installer PHAR archive

โปรแกรมสำหรับดาวน์โหลดและติดตั้งบน Windows: Composer
โปรแกรมจะถามหาไฟล์ php.exe ว่าอยู่พาธใด เช่น C:\xampp\php\php.exe

วิธีติดตั้งโดยใช้ Composer
1. ก็อปปี้โค้ดด้านล่างไปวางไว้ใน notepad
composer create-project laravel/laravel --prefer-dist
cls
echo laravel installed on...
php artisan serve

2. บันทึกเป็นbatไฟล์เช่น setup_laravel.bat
3. เปิดไฟล์นี้แล้วรอจนติดตั้งเสร็จ

02 เมษายน 2557

ใช้ Database ตัวใหนดี (VB.NET)

'Imports System.Data.Odbc
'Provider มําตรฐานใน ADO.NET ส ําหรับ.NET Framework 2.0 ใน .NET Framework 2.0
'Imports System.Data.SqlClient     'Microsoft SQL Server 7.0 ขึ้นไป
'Imports System.Data.OracleClient 'Oracle 8.1.6 ขึ้นไป
'Imports System.Data.SqlXml        'SqlXml ใน SQL Server
'Imports System.Data.Odbc          'ODBC DataSource
'Imports System.Data.OleDb         'OleDb

'------------------------------------------------------------------------------
'MySQL Connction String

'Standard
'Server=myServerAddress;Database=myDataBase;Uid=myUsername;Pwd=myPassword;

'Specifying port
'Server=myServerAddress;Port=1234;Database=myDataBase;Uid=myUsername;Pwd=myPassword;

'Named pipes
'Server=myServerAddress;Port=-1;Database=myDataBase;Uid=myUsername;Pwd=myPassword;

'Multiple servers
'Server=serverAddress1 & serverAddress2 & etc..;Database=myDataBase;Uid=myUsername;Pwd=myPassword;

'Using encryption
'Server=myServerAddress;Database=myDataBase;Uid=myUsername;Pwd=myPassword;Encryption=true;

'Using encryption, alternative
'Server=myServerAddress;Database=myDataBase;Uid=myUsername;Pwd=myPassword;Encrypt=true;

'Specifying default command timeout
'Server=myServerAddress;Database=myDataBase;Uid=myUsername;Pwd=myPassword;default command timeout=20;

'Specifying connection attempt timeout
'Server=myServerAddress;Database=myDataBase;Uid=myUsername;Pwd=myPassword;Connection Timeout=5;

'Inactivating prepared statements
'Server=myServerAddress;Database=myDataBase;Uid=myUsername;Pwd=myPassword;Ignore Prepare=true;

'Specifying port
'Server=myServerAddress;Database=myDataBase;Uid=myUsername;Pwd=myPassword;Port=3306;

'Specifying network protocol
'Server=myServerAddress;Database=myDataBase;Uid=myUsername;Pwd=myPassword; Protocol=socket;

'Specifying character set
'Server=myServerAddress;Database=myDataBase;Uid=myUsername;Pwd=myPassword; CharSet=" & MySqlCharSet & ";

'Specifying shared memory name
'Server=myServerAddress;Database=myDataBase;Uid=myUsername;Pwd=myPassword;Shared Memory Name=MYSQL;

'Imports System.Data
'Imports System.Data.SqlClient

Imports System.Data.Odbc

การแก้ปัญหา InavlidOperationExeception was unhandled by user code (VB.NET)

เกิดปัญหาเมื่อเราส่ง ReportProgress ไป ดังนี้ ครับ
"InavlidOperationExeception was unhandled by user code"
This BackgroundWorker states that it doesn't report progress. Modify WorkerReportProgress to stat that it dows report progress.
...
วิธีแก้ปัญหา ดังนี้ครับ

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BackgroundWorker1.WorkerReportsProgress = True
        BackgroundWorker1.WorkerSupportsCancellation = True
    End Sub

หรือจะใส่ใน sub new ก็ได้ครับ แบบนี้
    Public Sub New()
        InitializeComponent()
        BackgroundWorker1.WorkerReportsProgress = True
        BackgroundWorker1.WorkerSupportsCancellation = True
    End Sub

25 มีนาคม 2557

วิธีเปลี่ยนรหัสผ่าน MySQL บน UBUNTU

sudo dpkg-reconfigure mysql-server-5.5

13 มีนาคม 2557

How to run Xampp Auto Start With Windows วิธีรัน Xampp พร้อมวินโดวส์

1.คลิกขวาที่ Xampp-Control เลือกเมนู Run as administrator

2. คลิกให้มีเครื่องหมายถูกที่ Service หน้า Apache ,MySql และอื่นๆ ที่ต้องการ
จากนั้นคลิกที่ Start

11 มีนาคม 2557

Function แสดงขนาดของไฟล์โดยนำเข้าขนาด Bytes เข้ามาคำนวณ (VB.Net)

    Private Function fSize(ByVal oSize As Double)
        Dim mySize As String = ""
        If oSize < 1024 Then
            mySize = Format(oSize, "#,##0.00") & " Bt"
        Else
            If (oSize / 1024) < 1024 Then
                mySize = Format((oSize / 1024), "#,##0.00") & " Kb"
            Else
                If (oSize / 1024 / 1024) < 1024 Then
                    mySize = Format((oSize / 1024 / 1024), "#,##0.00") & " Mb"
                Else
                    mySize = Format((oSize / 1024 / 1024 / 1024), "#,##0.00") & " Gb"
                End If
            End If
        End If
        Return mySize
    End Function

27 กุมภาพันธ์ 2557

VB.NET ล้างข้อมูลในฟอร์มทุกครั้งเมื่อเข้าสู่ฟอร์ม

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

myForm.ShowDialog()
myForm= Nothing

End Sub

20 กุมภาพันธ์ 2557

แหล่งดาวน์โหลด Visual Studio 2008 จาก Microsoft โดยตรง

http://www.microsoft.com/en-us/download/details.aspx?id=13276
เป็นไฟล์ ISO ครับ
สำหรับคนชอบเขียนโปรแกรม
Visual Basic
Visual C++

27 มกราคม 2557

ถอดรหัสไฟล์ XLSX

วิธีเอารหัสผ่านออกจากไฟล์ xlsx ของ Excel 2007 ขึ้นไป
กรณีบันทึกด้วยเวอร์ชั่นที่ต่ำกว่าให้เปิดด้วย Excel 2007 Up ก่อนแล้ว เลือกเมนู บันทึกเป็น เลือกประเภทไฟล์เป็น Excel Workbook (*.xlsx) นะครับ

1. เปลี่ยนนามสกุลเป็น.rar หรือ .zip ก่อน

2. แตกไฟล์ไปไว้ที่ DIR ที่ต้องการ
3. เปิดไฟล์ในโฟลเดอร์ที่แตกไว้ \xl\worksheets\ชื่อชี้ต.xml ด้วย editor เช่น notepad,notepad++,edit plus

4. มองหา sheetProtection แล้วลบส่วนนี้เสีย (ลบตั้งแต่ นะครับ)

HTML tag ไม่ให้ Browser จำ Username และ password

ใช้ autocomplete="off" เพิ่มเข้าใน tag textbox และ password

17 มกราคม 2557

ฟังก์ชั่นสำเร็จรูปใช้ในการส่งเมลล์แบบภาษาไทย UTF8 (PHP)

$MailTo = 'myemail@hotmail.com' ;
$MailFrom = 'emailfrom@mywebsite.com' ;
$MailSubject = 'ทดสอบส่งอีเมลล์';
$MailMessage = 'แบบไทยๆ';
send_email($MailTo, $MailSubject , $MailMessage, $MailFrom);
//---------------------------ใช้ฟังก็ชั่นด้านล่างนี้
function send_email($MailTo, $MailSubject , $MailMessage, $MailFrom)
    {
            $Headers = "MIME-Version: 1.0' . \r\n";
            $Headers .= "Content-type: text/html; charset=utf-8\r\n";
            $Headers .= "From: ".$MailFrom." <".$MailFrom.">\r\n" ;
            $Headers .= "Reply-to: ".$MailFrom." <".$MailFrom.">\r\n" ;
            $Headers .= "X-Priority: 3\r\n" ;
            $Headers .= "X-Mailer: PHP mailer\r\n" ;
            $MailSubject = "=?UTF-8?B?".base64_encode($MailSubject)."?=";
            if(mail($MailTo, $MailSubject , $MailMessage, $Headers, $MailFrom))
            {
            return(TRUE);
            }else{
            return(FALSE);
            }
    }



?>

15 มกราคม 2557

Sub Open File In VB.NET

    Private Sub OpenFile(ByVal FileName As String)
        Try
            Dim p As New System.Diagnostics.Process
            Dim s As New System.Diagnostics.ProcessStartInfo(FileName)
            s.UseShellExecute = True
            s.WindowStyle = ProcessWindowStyle.Normal
            p.StartInfo = s
            p.Start()
        Catch ex As Exception
            MessageBox.Show("ไม่พบไฟล์'" & FileName & "' ในระบบ!", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

วิธีเปิด Exploerer และ เลือกไฟล์ไว้รอ ใน VB.NET

Call Shell("explorer /select," & sPath, AppWinStyle.NormalFocus)

การ Hilight Selected Item ใน Listview

บางทีเมื่อเราเลือก Listview แล้วต้องการไปคลิกเลือก Object อื่น แต่อยากแสดงให้เห็นว่าเราเลือก Listview บรรทัดนั้นๆแล้ว ดังนี้ครับ

ListView1.HideSelection = False 'ไฮไล้การเลือก Listview

10 มกราคม 2557

Access Connection String In VB.NET

Imports System.Data.Odbc
Module ModDB
Public dbConfig As String = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=MyAccessFile.mdb;UID=Admin;PWD=1234"
   Public conn As New OdbcConnection
    Public Sub Connect()
        On Error GoTo ConnectERR
        conn.ConnectionString = dbConfig
        If conn.State = ConnectionState.Closed Then
            conn.Open()
        End If
        Exit Sub
ConnectERR:
        MsgBox("ผิดพลาดในการเชื่อมต่อกับฐานข้อมูล" & Err.Description, MsgBoxStyle.OkOnly, "ผิดพลาด")
    End Sub
End Module

02 มกราคม 2557

โปรแกรมดีๆ สำหรับแก้ปัญหาฮาร์ดดีสก์

http://www.cgsecurity.org/wiki/Advanced_NTFS_Boot_and_MFT_Repair