บางท่านยังอาจสับสน จึงมักใช้ผิดกันบ่อย
ที่มา
จากหนังสือแบบเรียน มานะ มานี ประถมฯ ๒ ฉบับปรับปรุงใหม่ ๒๕๕๗
หน้า ๒๐๐ แบบฝึก ทบทวนการผันคำ
...
วันอาทิตย์ที่ 18 สิงหาคม พ.ศ. 2562
การผันคำในภาษาไทย คะ และ ค่ะ
การผันคำในภาษาไทย คะ และ ค่ะ
บางท่านยังอาจสับสน จึงมักใช้ผิดกันบ่อย
ที่มา
จากหนังสือแบบเรียน มานะ มานี ประถมฯ ๒ ฉบับปรับปรุงใหม่ ๒๕๕๗
หน้า ๒๐๐ แบบฝึก ทบทวนการผันคำ
บางท่านยังอาจสับสน จึงมักใช้ผิดกันบ่อย
ที่มา
จากหนังสือแบบเรียน มานะ มานี ประถมฯ ๒ ฉบับปรับปรุงใหม่ ๒๕๕๗
หน้า ๒๐๐ แบบฝึก ทบทวนการผันคำ
วันพุธที่ 1 เมษายน พ.ศ. 2558
Excel code function Money
‘Money(ตัวเลขเงิน,"ชื่อหน่วย1","ชื่อหน่วย2")
‘Download Add-In
‘How to use function convert Currency to EnglishText
‘Cell A1=input Number ‘ตัวเลขจะอยู่ที่เซลล์ A1
‘=Monney(A1,”Baht”,”Satang”) ‘หน่วย บาท และ สตางค์ ไม่ต้องใส่ S หลังหน่วย (Unit No “s”)
‘=Monney(A1,”Dollar”,”Cent”) ‘หน่วย ดอลลาห์ และเซนต์ ไม่ต้องใส่ S หลังหน่วย (Unit No “s”)
‘=Monney(A1,””,””) ‘แบบไม่ต้องแสดงหน่วย
‘
Option Explicit
'****************
' Main Function *
' Originated code from www.barasch.com
' กรณีไม่มีเศษ จะแสดงคำว่า Only แทนคำว่า and No Satang
' ตัวอย่าง =Money(123.45,"Baht","Satang")
'****************
Function Money(ByVal MyNumber, UnitName1, UnitName2)
Dim KeyUnit1, KeyUnit2, Temp
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Million "
Place(4) = " Billion "
Place(5) = " Trillion "
' String representation of amount
MyNumber = Trim(Str(MyNumber))
' Position of decimal place 0 if none
DecimalPlace = InStr(MyNumber, ".")
'Convert KeyUnit2 and set MyNumber to KeyUnit1 amount
If DecimalPlace > 0 Then
KeyUnit2 = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber <> ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp <> "" Then KeyUnit1 = Temp & Place(Count) & KeyUnit1
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case KeyUnit1
Case ""
KeyUnit1 = "No " & UnitName1
Case "One"
KeyUnit1 = "One " & UnitName1
Case Else
Select Case UnitName1
Case ""
KeyUnit1 = KeyUnit1 & " " & UnitName1
Case Else
KeyUnit1 = KeyUnit1 & " " & UnitName1 & "s"
End Select
End Select
Select Case KeyUnit2
Case ""
Select Case UnitName2
Case ""
KeyUnit2 = ""
Case Else
KeyUnit2 = " Only"
End Select
Case "One"
KeyUnit2 = " and One " & " " & UnitName2
Case Else
Select Case UnitName2
Case ""
KeyUnit2 = " and " & KeyUnit2 & " " & UnitName2
Case Else
KeyUnit2 = " and " & KeyUnit2 & " " & UnitName2 & "s"
‘Download Add-In
‘How to use function convert Currency to EnglishText
‘Cell A1=input Number ‘ตัวเลขจะอยู่ที่เซลล์ A1
‘=Monney(A1,”Baht”,”Satang”) ‘หน่วย บาท และ สตางค์ ไม่ต้องใส่ S หลังหน่วย (Unit No “s”)
‘=Monney(A1,”Dollar”,”Cent”) ‘หน่วย ดอลลาห์ และเซนต์ ไม่ต้องใส่ S หลังหน่วย (Unit No “s”)
‘=Monney(A1,””,””) ‘แบบไม่ต้องแสดงหน่วย
‘
Option Explicit
'****************
' Main Function *
' Originated code from www.barasch.com
' กรณีไม่มีเศษ จะแสดงคำว่า Only แทนคำว่า and No Satang
' ตัวอย่าง =Money(123.45,"Baht","Satang")
'****************
Function Money(ByVal MyNumber, UnitName1, UnitName2)
Dim KeyUnit1, KeyUnit2, Temp
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Million "
Place(4) = " Billion "
Place(5) = " Trillion "
' String representation of amount
MyNumber = Trim(Str(MyNumber))
' Position of decimal place 0 if none
DecimalPlace = InStr(MyNumber, ".")
'Convert KeyUnit2 and set MyNumber to KeyUnit1 amount
If DecimalPlace > 0 Then
KeyUnit2 = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber <> ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp <> "" Then KeyUnit1 = Temp & Place(Count) & KeyUnit1
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case KeyUnit1
Case ""
KeyUnit1 = "No " & UnitName1
Case "One"
KeyUnit1 = "One " & UnitName1
Case Else
Select Case UnitName1
Case ""
KeyUnit1 = KeyUnit1 & " " & UnitName1
Case Else
KeyUnit1 = KeyUnit1 & " " & UnitName1 & "s"
End Select
End Select
Select Case KeyUnit2
Case ""
Select Case UnitName2
Case ""
KeyUnit2 = ""
Case Else
KeyUnit2 = " Only"
End Select
Case "One"
KeyUnit2 = " and One " & " " & UnitName2
Case Else
Select Case UnitName2
Case ""
KeyUnit2 = " and " & KeyUnit2 & " " & UnitName2
Case Else
KeyUnit2 = " and " & KeyUnit2 & " " & UnitName2 & "s"
End Select
End Select
Money = KeyUnit1 & KeyUnit2
End Function
'*******************************************
' Converts a number from 100-999 into text *
'*******************************************
Private Function GetHundreds(ByVal MyNumber)
Dim Result As String
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)
'Convert the hundreds place
If Mid(MyNumber, 1, 1) <> "0" Then
Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
End If
'Convert the tens and ones place
If Mid(MyNumber, 2, 1) <> "0" Then
Result = Result & GetTens(Mid(MyNumber, 2))
Else
Result = Result & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Result
End Function
'*********************************************
' Converts a number from 10 to 99 into text. *
'*********************************************
Private Function GetTens(TensText)
Dim Result As String
Result = "" 'null out the temporary function value
If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19
Select Case Val(TensText)
Case 10: Result = "Ten"
Case 11: Result = "Eleven"
Case 12: Result = "Twelve"
Case 13: Result = "Thirteen"
Case 14: Result = "Fourteen"
Case 15: Result = "Fifteen"
Case 16: Result = "Sixteen"
Case 17: Result = "Seventeen"
Case 18: Result = "Eighteen"
Case 19: Result = "Nineteen"
Case Else
End Select
Else ' If value between 20-99
Select Case Val(Left(TensText, 1))
Case 2: Result = "Twenty "
Case 3: Result = "Thirty "
Case 4: Result = "Forty "
Case 5: Result = "Fifty "
Case 6: Result = "Sixty "
Case 7: Result = "Seventy "
Case 8: Result = "Eighty "
Case 9: Result = "Ninety "
Case Else
End Select
Result = Result & GetDigit _
(Right(TensText, 1)) 'Retrieve ones place
End If
GetTens = Result
End Function
'*******************************************
' Converts a number from 1 to 9 into text. *
'*******************************************
Private Function GetDigit(Digit)
Select Case Val(Digit)
Case 1: GetDigit = "One"
Case 2: GetDigit = "Two"
Case 3: GetDigit = "Three"
Case 4: GetDigit = "Four"
Case 5: GetDigit = "Five"
Case 6: GetDigit = "Six"
Case 7: GetDigit = "Seven"
Case 8: GetDigit = "Eight"
Case 9: GetDigit = "Nine"
Case Else: GetDigit = ""
End Select
End Function
End Select
Money = KeyUnit1 & KeyUnit2
End Function
'*******************************************
' Converts a number from 100-999 into text *
'*******************************************
Private Function GetHundreds(ByVal MyNumber)
Dim Result As String
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)
'Convert the hundreds place
If Mid(MyNumber, 1, 1) <> "0" Then
Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
End If
'Convert the tens and ones place
If Mid(MyNumber, 2, 1) <> "0" Then
Result = Result & GetTens(Mid(MyNumber, 2))
Else
Result = Result & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Result
End Function
'*********************************************
' Converts a number from 10 to 99 into text. *
'*********************************************
Private Function GetTens(TensText)
Dim Result As String
Result = "" 'null out the temporary function value
If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19
Select Case Val(TensText)
Case 10: Result = "Ten"
Case 11: Result = "Eleven"
Case 12: Result = "Twelve"
Case 13: Result = "Thirteen"
Case 14: Result = "Fourteen"
Case 15: Result = "Fifteen"
Case 16: Result = "Sixteen"
Case 17: Result = "Seventeen"
Case 18: Result = "Eighteen"
Case 19: Result = "Nineteen"
Case Else
End Select
Else ' If value between 20-99
Select Case Val(Left(TensText, 1))
Case 2: Result = "Twenty "
Case 3: Result = "Thirty "
Case 4: Result = "Forty "
Case 5: Result = "Fifty "
Case 6: Result = "Sixty "
Case 7: Result = "Seventy "
Case 8: Result = "Eighty "
Case 9: Result = "Ninety "
Case Else
End Select
Result = Result & GetDigit _
(Right(TensText, 1)) 'Retrieve ones place
End If
GetTens = Result
End Function
'*******************************************
' Converts a number from 1 to 9 into text. *
'*******************************************
Private Function GetDigit(Digit)
Select Case Val(Digit)
Case 1: GetDigit = "One"
Case 2: GetDigit = "Two"
Case 3: GetDigit = "Three"
Case 4: GetDigit = "Four"
Case 5: GetDigit = "Five"
Case 6: GetDigit = "Six"
Case 7: GetDigit = "Seven"
Case 8: GetDigit = "Eight"
Case 9: GetDigit = "Nine"
Case Else: GetDigit = ""
End Select
End Function
วันพฤหัสบดีที่ 12 กุมภาพันธ์ พ.ศ. 2558
วิธีตั้งค่าให้เสียงพูดใส่ไมค์ ออกที่ลำโพงคอมพิวเตอร์
การตั้งค่าให้เสียงพูดใส่ไมค์โครโฟนคอมพิวเตอร์
ออกที่ลำโพงคอมพิวเตอร์(หรือหูฟัง)ด้วย
สำหรับการร้องคาราโอเกะ ฯ
การตั้งค่าใน Windows XP
1.ไปที่ Control Panel > Sounds and Audio Devices
2.จะปรากฎหน้าต่าง Sounds and Audio Devices Properties
ไปที่แท็บ Volume ดูกลุ่ม Device volume กดปุ่ม Advanced
3.จะปรากฎหน้าต่าง Volume Control เลือก Option > Properties
4.จะปรากฎหน้าต่าง Properties ดูในส่วน Show the following volume controls:
และใส่เครื่องหมายถูกหน้ารายการ Microphone จากนั้นกด OK ปิดหน้าต่าง Properties
*ใน Chip Sound หรือ Driver บางรุ่นไม่ support ก็จะไม่ปรากฎรายการให้เลือก
5.กลับมาอยู่ที่หน้าต่าง Volume Control เลือก Options > Advanced Controls
จะมีปุ่ม Advanced แสดงขึ้นมาให้เห็น อยู่ในคอลัมน์ Microphone จากนั้นก็กดปุ่ม Advanced
6.จะปรากฎหน้าต่าง Advanced Controls for Microphone
ดูที่กลุ่ม Other Controls ให้ใส่เครื่องหมายถูกหน้า 1 Microphone Boost
จากนั้นกดปุ่ม Close เพื่อปิดหน้าต่าง
จบขั้นตอนสำหรับ Windows XP
การตั้งค่าใน Windows 7
1.ไปที่ Control Panel > Sound
2.จะปรากฎหน้าต่าง Sound ไปที่แท็บ Recording เอา mouse คลิ๊กที่ Microphone
และกดปุ่ม Properties (ถ้าไม่คลิ๊กที่ Microphone ปุ่ม Properties จะกดไม่ได้)
3.จะปรากฎหน้าต่าง Microphone Properties ไปที่แท็บ Listen
ใส่เครื่องหมายถูกหน้า Listen to this device
จากนั้นกดปุ่ม OK ปิดหน้าต่าง Microphone Properties
และกดปุ่ม OK ปิดหน้าต่าง Sound
จบขั้นตอนสำหรับ Windows 7
เพียงเท่านี้ เสียงที่เราพูดใส่ไมค์ของคอมพิวเตอร์ ก็จะออกที่ลำโพงของคอมพิวเตอร์แล้วครับ
...
ออกที่ลำโพงคอมพิวเตอร์(หรือหูฟัง)ด้วย
สำหรับการร้องคาราโอเกะ ฯ
การตั้งค่าใน Windows XP
1.ไปที่ Control Panel > Sounds and Audio Devices
2.จะปรากฎหน้าต่าง Sounds and Audio Devices Properties
ไปที่แท็บ Volume ดูกลุ่ม Device volume กดปุ่ม Advanced
3.จะปรากฎหน้าต่าง Volume Control เลือก Option > Properties
4.จะปรากฎหน้าต่าง Properties ดูในส่วน Show the following volume controls:
และใส่เครื่องหมายถูกหน้ารายการ Microphone จากนั้นกด OK ปิดหน้าต่าง Properties
*ใน Chip Sound หรือ Driver บางรุ่นไม่ support ก็จะไม่ปรากฎรายการให้เลือก
5.กลับมาอยู่ที่หน้าต่าง Volume Control เลือก Options > Advanced Controls
จะมีปุ่ม Advanced แสดงขึ้นมาให้เห็น อยู่ในคอลัมน์ Microphone จากนั้นก็กดปุ่ม Advanced
6.จะปรากฎหน้าต่าง Advanced Controls for Microphone
ดูที่กลุ่ม Other Controls ให้ใส่เครื่องหมายถูกหน้า 1 Microphone Boost
จากนั้นกดปุ่ม Close เพื่อปิดหน้าต่าง
จบขั้นตอนสำหรับ Windows XP
การตั้งค่าใน Windows 7
1.ไปที่ Control Panel > Sound
2.จะปรากฎหน้าต่าง Sound ไปที่แท็บ Recording เอา mouse คลิ๊กที่ Microphone
และกดปุ่ม Properties (ถ้าไม่คลิ๊กที่ Microphone ปุ่ม Properties จะกดไม่ได้)
3.จะปรากฎหน้าต่าง Microphone Properties ไปที่แท็บ Listen
ใส่เครื่องหมายถูกหน้า Listen to this device
จากนั้นกดปุ่ม OK ปิดหน้าต่าง Microphone Properties
และกดปุ่ม OK ปิดหน้าต่าง Sound
จบขั้นตอนสำหรับ Windows 7
เพียงเท่านี้ เสียงที่เราพูดใส่ไมค์ของคอมพิวเตอร์ ก็จะออกที่ลำโพงของคอมพิวเตอร์แล้วครับ
...
วันเสาร์ที่ 24 มกราคม พ.ศ. 2558
Windows 7 ไม่แสดง Font ภาษาไทย
กรณี windows 7 แสดงฟอนต์ไทย เป็นภาษาต่างดาว
เช่น โปรแกรมสำเร็จรูปของคนไทย ที่มีหัวข้อมุมบนซ้ายของหน้าต่างเป็นภาษาไทย
หรือปุ่มคำสั่งเป็นเป็นภาษาไทย เป็นต้น
ให้ไปตรวจสอบที่
Control Panel > Region and Language > Administrative
ดูตรงหัวข้อ Language for non-Unicode program
และดูตรง Current language for non-Unicode programs :
จะต้องตั้งค่าเป็น Thai (Thailand)
หากไม่ใช่ก็เปลี่ยน โดยกดปุ่ม [Change system locate..]
และเลือกให้เป็น Thai (Thailand)
ภาพประกอบ (1)
เช่น โปรแกรมสำเร็จรูปของคนไทย ที่มีหัวข้อมุมบนซ้ายของหน้าต่างเป็นภาษาไทย
หรือปุ่มคำสั่งเป็นเป็นภาษาไทย เป็นต้น
ให้ไปตรวจสอบที่
Control Panel > Region and Language > Administrative
ดูตรงหัวข้อ Language for non-Unicode program
และดูตรง Current language for non-Unicode programs :
จะต้องตั้งค่าเป็น Thai (Thailand)
หากไม่ใช่ก็เปลี่ยน โดยกดปุ่ม [Change system locate..]
และเลือกให้เป็น Thai (Thailand)
ภาพประกอบ (1)
วันพุธที่ 17 ธันวาคม พ.ศ. 2557
การ download youtube และแปลงเป็น mp4
แนะนำวิธีการ download youtube และแปลงเป็น mp4
โดยการใช้ web convertor แบบง่ายๆ อีกวิธีหนึ่งครับ
คือ การเติม ss ที่ข้างหน้าคำว่า youtube
ตัวอย่างเช่น
เว็บที่ต้องการดาวน์โหลดเป็น mp4
https://www.youtube.com/watch?v=AGKlgv3El9E
ทำการเติม ss ที่ข้างหน้าคำว่า youtube
https://www.ssyoutube.com/watch?v=AGKlgv3El9E
และกด enter
ก็จะวิ่งไปที่ web convertor ตามตัวอย่างดังรูปด้านล่าง
ตรงกรอบสีแดง เราสามารถเลือกดาวน์โหลดตามความละเอียดที่ต้องการครับ :)
หมายเหตุ
เราสามารถเข้า web convertor โดยตรงที่ Link http://en.savefrom.net/
และ copy Link ของ youtube ไปวางในช่องหน้าปุ่ม Download (สีเหลืองส้ม)
จากนั้นก็กดปุ่ม Download จะแสดงรายการขึ้นมาให้เลือก download
ดังภาพตัวอย่างข้างบน
...
โดยการใช้ web convertor แบบง่ายๆ อีกวิธีหนึ่งครับ
คือ การเติม ss ที่ข้างหน้าคำว่า youtube
ตัวอย่างเช่น
เว็บที่ต้องการดาวน์โหลดเป็น mp4
https://www.youtube.com/watch?v=AGKlgv3El9E
ทำการเติม ss ที่ข้างหน้าคำว่า youtube
https://www.ssyoutube.com/watch?v=AGKlgv3El9E
และกด enter
ก็จะวิ่งไปที่ web convertor ตามตัวอย่างดังรูปด้านล่าง
ตรงกรอบสีแดง เราสามารถเลือกดาวน์โหลดตามความละเอียดที่ต้องการครับ :)
หมายเหตุ
เราสามารถเข้า web convertor โดยตรงที่ Link http://en.savefrom.net/
และ copy Link ของ youtube ไปวางในช่องหน้าปุ่ม Download (สีเหลืองส้ม)
จากนั้นก็กดปุ่ม Download จะแสดงรายการขึ้นมาให้เลือก download
ดังภาพตัวอย่างข้างบน
...
วันพุธที่ 23 เมษายน พ.ศ. 2557
ขอไว้อาลัยแด่ อ.รัชนี ศรีไพรวรรณ ผู้ประพันธ์แบบเรียน มานะ,มานี,ปิติ,ชูใจ
ปิดตำนาน ผู้ประพันธ์แบบเรียนสุดคลาสสิก มานะ,มานี,ปิติ,ชูใจ
เมื่อ อ.รัชนี ศรีไพรวรรณ ได้จากไปอย่างสงบ ด้วยวัย 82 ปี เมื่อ 15 เมษายน พ.ศ. 2557
ไม่มีการจัดพิธีศพ เพราะท่านบริจาคร่างกายเพื่อใช้ในการศึกษา ให้แก่มหาลัยมหิดล
ท่านเป็นผู้แต่งแบบเรียนภาษาไทย มานะ,มานี,ปิติ,ชูใจ
ซึ่งกระทรวงศึกษาธิการ นำมาใช้ในการเรียนการสอน ตั้งแต่ปี พ.ศ.2521 ถึง ปี พ.ศ.2537
ขอไว้อาลัยแด่อาจารย์ผู้ทำให้เด็กๆ ได้เรียนภาษาไทยอย่างสนุกสนาน
และมีความทรงจำดีๆกับตัวละคร มิรู้ลืมครับ
หนังสือ แบบเรียนภาษาไทย ชั้นประถมศึกษา ปีที่ ๑ ถึง ปีที่ ๖
http://www.4shared.com/zip/AQliaOh5ce/MaNee-MaNa_Pathom1-6_2521-2537.html
http://www.mediafire.com/download/hp41u9rh1q5pja2/%E0%B8%A1%E0%B8%B2%E0%B8%99%E0%B8%B5+%E0%B8%A1%E0%B8%B2%E0%B8%99%E0%B8%B0+%E0%B8%AB%E0%B8%99%E0%B8%B1%E0%B8%87%E0%B8%AA%E0%B8%B7%E0%B8%AD%E0%B9%80%E0%B8%A3%E0%B8%B5%E0%B8%A2%E0%B8%99%E0%B8%A0%E0%B8%B2%E0%B8%A9%E0%B8%B2%E0%B9%84%E0%B8%97%E0%B8%A2+%E0%B8%9B+1+-+%E0%B8%9B+6.zip
หนังสือ ทางช้างเผือก (การกลับมาของ มานะ,มานี,ปิติ,ชูใจ) พิมพ์ครั้งแรก ปี ๒๕๔๗
จัดพิมพ์โดย a day
http://www.4shared.com/zip/zSyne8i6ba/MaNee-MaNa_ComeBack-2547.html
http://www.mediafire.com/view/?7bpvqckood7wp12
วันพฤหัสบดีที่ 17 เมษายน พ.ศ. 2557
VPN to Endian firewall (client to site)
How to ...
1. Endian firewall
1.1. Menu Service > Dynamic DNS , add (hostddns.no-ip.biz)
*Dynamic DNS --> apply from free DDNS
1.2. Menu Firewall > System access
1.2.1. Current rules , add <Any> UDP/1194 OpenVPN
1.3. Menu VPN > OpenVPN Server
1.3.1. Server configuration , define dhcp IP for vpn
1.3.2. Accounts , add new vpn-user and Download CA Certificate (xxx.pem)
1.3.3. Advanced , setting port 1194/UDP
2. Client
2.1. install OpenVPN , set config copy xxx.ovpn,xxx.pem and paste in folder config
Ex. Create file xxx.ovpn
client
dev tap
proto udp
remote hostddns.no-ip.biz 1194
resolv-retry infinite
nobind
persist-key
persist-tun
ca xxx.pem
auth-user-pass
comp-lzo
verb 3
1. Endian firewall
1.1. Menu Service > Dynamic DNS , add (hostddns.no-ip.biz)
*Dynamic DNS --> apply from free DDNS
1.2. Menu Firewall > System access
1.2.1. Current rules , add <Any> UDP/1194 OpenVPN
1.3. Menu VPN > OpenVPN Server
1.3.1. Server configuration , define dhcp IP for vpn
1.3.2. Accounts , add new vpn-user and Download CA Certificate (xxx.pem)
1.3.3. Advanced , setting port 1194/UDP
2. Client
2.1. install OpenVPN , set config copy xxx.ovpn,xxx.pem and paste in folder config
Ex. Create file xxx.ovpn
client
dev tap
proto udp
remote hostddns.no-ip.biz 1194
resolv-retry infinite
nobind
persist-key
persist-tun
ca xxx.pem
auth-user-pass
comp-lzo
verb 3
วันอังคารที่ 17 ธันวาคม พ.ศ. 2556
ซ่อนแถวคอลัมน์ใน excel ไม่ได้ ขึ้น Cannot Shift Objects Off Sheet
---อาการ
ซ่อนแถวคอลัมน์ใน excel ไม่ได้
แสดง Error => Cannot shift objects off sheet
(แต่เครื่องเจ้าของไฟล์ซ่อนแถวคอลัมน์ได้ เครื่องอื่นๆทุกเครื่องซ่อนไม่ได้ ...???)
---สาเหตุ
เกี่ยวกับ comment ใน cell
(Error ไรซักอย่างนี่แหละ เพราะอ่านจาก microsoft ก็ยัง งงๆ -_-' )
---การแก้ไข
หา comments และลบ comments นั้นออก
การหา Comments ใน WorkSheet
EX.Excel2010( Tab Home เลือก Find&Select เลือก comments )
Ex.Excel2003(Menu Edit > Go To กดปุ่ม Special เลือก comments)
แต่ถ้าใช้ macro ตามข้างล่างนี้ เอาไป run ใน worksheet
ผลคือ Excel ค้างครับ (O_o)
Sub Test()
Dim s As Shape
On Error Resume Next
For Each s In ActiveSheet.Shapes
s.Placement = xlMoveAndSize
Next
End Sub
---12/12/2013---
ซ่อนแถวคอลัมน์ใน excel ไม่ได้
แสดง Error => Cannot shift objects off sheet
(แต่เครื่องเจ้าของไฟล์ซ่อนแถวคอลัมน์ได้ เครื่องอื่นๆทุกเครื่องซ่อนไม่ได้ ...???)
---สาเหตุ
เกี่ยวกับ comment ใน cell
(Error ไรซักอย่างนี่แหละ เพราะอ่านจาก microsoft ก็ยัง งงๆ -_-' )
---การแก้ไข
หา comments และลบ comments นั้นออก
การหา Comments ใน WorkSheet
EX.Excel2010( Tab Home เลือก Find&Select เลือก comments )
Ex.Excel2003(Menu Edit > Go To กดปุ่ม Special เลือก comments)
แต่ถ้าใช้ macro ตามข้างล่างนี้ เอาไป run ใน worksheet
ผลคือ Excel ค้างครับ (O_o)
Sub Test()
Dim s As Shape
On Error Resume Next
For Each s In ActiveSheet.Shapes
s.Placement = xlMoveAndSize
Next
End Sub
---12/12/2013---
วันพุธที่ 13 พฤศจิกายน พ.ศ. 2556
Unlock BlackBerry (เมื่อลืมรหัสผ่าน)
Unlock BlackBerry (เมื่อลืมรหัสผ่าน)
หากตั้ง password key แล้วเกิดลืม password
ทำให้ไม่สามารถใช้งาน BB ได้
สามารถปลด lock ได้ โดยการ
1.ใส่รหัสผ่านผิดติดต่อกัน 10ครั้ง
2.เครื่องจะให้พิมพ์คำว่า "BlackBerry" และถามรหัสผ่านอีกครั้ง
3.ให้ใส่รหัสผ่านติดต่อกันอีก 10ครั้ง(โดยประมาณ หรืออาจจะมากว่า)
4.เครื่องจะทำการ Hard Reset (เป็นระบบรักษาความปลอดภัยมาตราฐานของ BlackBerry)
โดยเครื่องจะถามว่า Wipe all data ? (ประมาณเนี้ย)
นั่นก็คือ การล้างเครื่องทั้งหมดนั่นเอง ซึ่งข้อมูลที่อยู่ใน BB ก็จะหายหมดครับ !
5.ก็ตอบ OK ไป เมื่อเสร็จแล้ว ก็จะได้ BB เหมือนตอนซื้อเครื่องใหม่ !
ดังนั้น ก่อนใช้วิธีการนี้ก็ควร
ถอด ซิมโทรศัพท์ออกก่อน (ถ้ามีเบอร์โทร ที่บันทึกในซิม ก็จะไม่ถูกลบ)
และ
ถอด memory(micro sdcard) (ถ้ามีรูปหรือวีดีโอ ที่บันทึกในนี้ ก็จะไม่ถูกลบ)
^^
หมายเหตุ
หรืออีกวิธี คือ load โปรแกรม CrackUtil สำหรับ BB
มาติดตั้งใน PC และใช้สายลิงค์ต่อ BB เข้ากับ PC ครับ
โปรแกรมและวิธีการใช้งาน ดูตาม link ข้างล่างนี้ครับ
http://forums.crackberry.com/blackberry-os-apps-f35/crackutil-85617/
...
หากตั้ง password key แล้วเกิดลืม password
ทำให้ไม่สามารถใช้งาน BB ได้
สามารถปลด lock ได้ โดยการ
1.ใส่รหัสผ่านผิดติดต่อกัน 10ครั้ง
2.เครื่องจะให้พิมพ์คำว่า "BlackBerry" และถามรหัสผ่านอีกครั้ง
3.ให้ใส่รหัสผ่านติดต่อกันอีก 10ครั้ง(โดยประมาณ หรืออาจจะมากว่า)
4.เครื่องจะทำการ Hard Reset (เป็นระบบรักษาความปลอดภัยมาตราฐานของ BlackBerry)
โดยเครื่องจะถามว่า Wipe all data ? (ประมาณเนี้ย)
นั่นก็คือ การล้างเครื่องทั้งหมดนั่นเอง ซึ่งข้อมูลที่อยู่ใน BB ก็จะหายหมดครับ !
5.ก็ตอบ OK ไป เมื่อเสร็จแล้ว ก็จะได้ BB เหมือนตอนซื้อเครื่องใหม่ !
ดังนั้น ก่อนใช้วิธีการนี้ก็ควร
ถอด ซิมโทรศัพท์ออกก่อน (ถ้ามีเบอร์โทร ที่บันทึกในซิม ก็จะไม่ถูกลบ)
และ
ถอด memory(micro sdcard) (ถ้ามีรูปหรือวีดีโอ ที่บันทึกในนี้ ก็จะไม่ถูกลบ)
^^
หมายเหตุ
หรืออีกวิธี คือ load โปรแกรม CrackUtil สำหรับ BB
มาติดตั้งใน PC และใช้สายลิงค์ต่อ BB เข้ากับ PC ครับ
โปรแกรมและวิธีการใช้งาน ดูตาม link ข้างล่างนี้ครับ
http://forums.crackberry.com/blackberry-os-apps-f35/crackutil-85617/
...
วันศุกร์ที่ 11 ตุลาคม พ.ศ. 2556
How to install WinRAR (with rarreg.key)
#
How to install WinRAR (with rarreg.key)
1. install winrar ,then install finished --> just Wait ...
(not close winrar-installer, not run winrar)
2. run keygen --> (keygen will create file "rarreg.key")
Or Order purchase "rarreg.key" from www.rarlab.com
3. copy "rarreg.key" to a WinRAR folder or to %APPDATA%\WinRAR folder
,By default WinRAR folder is "C:\Program Files\WinRAR"
4. close winrar-installer
5. run winrar
Enjoy it. !
#
วิธีติดตั้ง WinRAR แบบไม่จำกัดการใช้งาน (ด้วยไฟล์ rarreg.key)
1. ทำการติดตั้ง winrar --> เมื่อติดตั้งเสร็จ ให้คอย...
(ยังไม่ต้องปิดหน้าต่างที่ติดตั้งเสร็จ และยังไม่ต้อง run winrar)
2. run keygen (จะได้ไฟล์ rarreg.key) หรือ ซื้อรหัสจากเจ้าของลิขสิทธิ์(www.rarlab.com)
จะได้ไฟล์ rarreg.key
3. นำไฟล์ rarreg.key ไปวางในโฟล์เดอร์ที่ติดตั้งโปรแกรม
(ปกติจะอยู่ที่ "C:\Program Files\WinRAR" )
4. ปิดหน้าต่าง winrar ที่แจ้งการติดตั้งเสร็จสมบูรณ์
5. เข้าใช้งานโปรแกรม winrar
--- จบ.
อืม...ใช้แต่ 7-Zip และฟรีแวร์อื่นๆ ซะจนเคยๆ
เลยไม่ค่อยคุ้นกับโปรแกรมลิขสิทธิ์ -_-'
วันอังคารที่ 18 มิถุนายน พ.ศ. 2556
ตั้ง FORTH GEO-4500WS เป็น Bridge
การตั้งค่า FORTH GEO-4500WS ให้เป็น Bridge
สำหรับผู้ใช้ TOT Fiber to home
เมื่อเราขอติดตั้ง Fiber to home ทาง TOT จะตั้งค่า Router ให้เรา ดังรูปตัวอย่างครับ
ถ้าเราต้องการตั้งค่าให้เป็น Bridge เพื่อนำไปต่อกับ Firewall Server
สามารถเลือก Port ได้ครับ (FORTH ตัวนี้มี port LAN 4 ports) เช่น
เราต้องการตั้ง port 1 ให้ใช้งานสำหรับ Bridge Mode ต้องตั้งค่าดังนี้
1.
ไปที่ Setup > Operation Mode
ไปที่ _ VLAN for each service จดค่า VLAN ID ในช่อง Internet เอาไว้
และ UnCheck(เอาเครื่องหมายถูกออก) ที่ _ VLAN for each service
จากนั้นกดปุ่ม Apply Change และรอสักครู่...จนมันทำงานเสร็จ
2.
ไปที่เมนู Setup > Port Config
ไปที่หัวข้อ Configuration for port #1
เลือกที่ Access PVID และนำค่า VLan Service ที่จดเอาไว้มาใส่
(ค่า VLAN ID ในช่อง Internet จากหน้า Setup>Operation Mode)
จากนั้นก็กดปุ่ม Apply Change และรอสักครู่...จนมันทำงานเสร็จ
แค่นี้ก็ใช้ port 1 ต่อ firewall server ได้เลยครับ
จากนั้นก็ไปตั้งค่า internet ใน Firewall Server ของเรา
โดย Firewall Server ก็จะมอง Router เป็น Bridge แล้วครับ
หมายเหตุ
ถ้าต้องการ config port 1 ให้เป็น bridge
ควรใช้ port 2 หรือ port 3 หรือ port 4
ในการต่อ Notebook เพื่อ config ผ่านหน้า web ครับ
เครดิต:
ขอขอบคุณช่างของ TOT มากครับ ที่ให้คำแนะนำสำหรับการตั้งค่า :)
สำหรับผู้ใช้ TOT Fiber to home
เมื่อเราขอติดตั้ง Fiber to home ทาง TOT จะตั้งค่า Router ให้เรา ดังรูปตัวอย่างครับ
ถ้าเราต้องการตั้งค่าให้เป็น Bridge เพื่อนำไปต่อกับ Firewall Server
สามารถเลือก Port ได้ครับ (FORTH ตัวนี้มี port LAN 4 ports) เช่น
เราต้องการตั้ง port 1 ให้ใช้งานสำหรับ Bridge Mode ต้องตั้งค่าดังนี้
1.
ไปที่ Setup > Operation Mode
ไปที่ _ VLAN for each service จดค่า VLAN ID ในช่อง Internet เอาไว้
และ UnCheck(เอาเครื่องหมายถูกออก) ที่ _ VLAN for each service
จากนั้นกดปุ่ม Apply Change และรอสักครู่...จนมันทำงานเสร็จ
2.
ไปที่เมนู Setup > Port Config
ไปที่หัวข้อ Configuration for port #1
เลือกที่ Access PVID และนำค่า VLan Service ที่จดเอาไว้มาใส่
(ค่า VLAN ID ในช่อง Internet จากหน้า Setup>Operation Mode)
จากนั้นก็กดปุ่ม Apply Change และรอสักครู่...จนมันทำงานเสร็จ
แค่นี้ก็ใช้ port 1 ต่อ firewall server ได้เลยครับ
จากนั้นก็ไปตั้งค่า internet ใน Firewall Server ของเรา
โดย Firewall Server ก็จะมอง Router เป็น Bridge แล้วครับ
หมายเหตุ
ถ้าต้องการ config port 1 ให้เป็น bridge
ควรใช้ port 2 หรือ port 3 หรือ port 4
ในการต่อ Notebook เพื่อ config ผ่านหน้า web ครับ
เครดิต:
ขอขอบคุณช่างของ TOT มากครับ ที่ให้คำแนะนำสำหรับการตั้งค่า :)
วันพุธที่ 13 มีนาคม พ.ศ. 2556
การใช้งาน AirCard 3G กับ Tablet AirPad-DS820A (Mar.2013)
ทดสอบกับ
Huawei E173 , iFox HSPA-685
Aircard รุ่นที่ใช้ได้มี
Huawei E220 ,Huawei E173 ,DTAC E1553 , DTAC 3G Speedy 7.2G ,ZTE MF627,MF110
การติดตั้ง Aircard บน Tablet AirPad-DS820A
1. Download application 3G Watchdog จาก Play Store(Android Market) และติดตั้งApplication
ถ้ามีอยู่แล้ว ข้ามไปข้อถัดไปได้เลย (โดยปกติ App ตัวนี้จะติดตั้งมาจากโรงงานแล้ว)
2. เสียบ Aircard ที่ช่องUSB ด้านข้างของ AirPad DS-820A
ถ้า Aircard ที่สามารถใช้งานกับ Android ได้ จะขึ้นชื่อเครือข่าย ระบบโทรศัพท์ ที่แถบ Notifications
โดยเรากดที่ปุ่มMenu ด้านบนตัวAirPad หรือ สัมผัสที่หน้าจอตรงรูปMenu
จะแสดงแถบเมนูด้านล่างของจอ แล้วสัมผัสที่ช่อง Notifications จะปรากฎแถบ Notifications
3. เข้าเมนู Settings
โดยเรากดที่ปุ่มMenu ด้านบนตัว AirPad หรือ สัมผัสที่หน้าจอตรงรูป Menu
จะแสดงแถบเมนูด้านล่างของจอ แล้วสัมผัสที่ช่อง Settings
4. ไปที่เมนู Wireless & networks
5. ไปที่เมนู Mobile networks
6. ไปที่เมนู Access Point Names
7. สัมผัสที่หน้าจอตรงรูปMenu จะแสดงแถบเมนูด้านล่างของจอ
แล้วสัมผัสที่ช่อง New APN ตั้งค่าดังต่อไปนี้
Name = TOT 3G (SIM iFox,TOT)
ซิม iFOX, iKool ใช้ชื่อว่า : internet
ซิม DTAC, Happy ใช้ชื่อว่า : DTAC
ซิม AIS, One2Call ใช้ชื่อว่า : AIS GPRS Internet
*APN = internet (SIM iFox,TOT)
ซิม iFOX, iKool ใช้ชื่อว่า : internet
ซิม DTAC, Happy ใช้ชื่อว่า : www.dtac.co.th
ซิม AIS, One2Call ใช้ชื่อว่า : internet
MCC = 520 (SIM iFox,TOT)
MNC = 15 (SIM iFox,TOT)
APN Type = default,supl (SIM iFox,TOT)
ส่วนค่าอื่นไม่ต้อง Set (ถ้าใช้ SIM iFox,TOT)
8. บันทึกข้อมูล APN โดยสัมผัสที่หน้าจอตรงรูปMenu จะแสดงแถบเมนูด้านล่างของจอ แล้วสัมผัสที่ช่อง Save
9. สัมผัสที่หน้าจอตรงวงกลม เพื่อเลือกใช้งาน APN นี้ แล้วสัมผัสที่รูป Back(รูปลูกศร)
เพื่อย้อนกลับออกไป จนถึงหน้าHome หรือสัมผัสรูปHome (รูปบ้าน)
10. ที่หน้าจอจะขึ้นสัญลักษณ์ความเร็วของระบบอินเตอร์เน็ท ที่เชื่อมต่อได้
จบการติดตั้ง Aircard 3G บน AirPad DS-820A
การตั้งค่า APN เชื่อมต่อ INTERNET ด้วย AIRCARD กับ Tablet
1. ปกติตัวเครื่องที่มีการติดตั้ง Modula 3G มาเพื่อใช้งานการเชื่อมต่อ Internet นั้น
เมื่อทำการเสียบต่อ Aircard หากในตัว Aircard มีการใช้งาน Internet SIM Card
ของผู้ให้บริการใด เช่น AIS DTAC TRUEMOVE CAT หรือ TOT
ระบบจะทำการสร้าง APN ให้อัตโนมัติ
2. หากระบบไม่มีการสร้าง อาจเข้าใจได้ว่าตัวเครื่องซึ่งติดตั้งระบบ Modula 3G มานั้น
ไม่รองรับคลื่นความถี่ที่ตัวระบบมีอยู่
(ปัจจุบัน Modula 3G จะใช้งานย่านความถี่ระบบ GSM 900 หรือ WDMCA 1900/2100 เท่านั้น)
ทำให้บางครั้งเราไม่สามารถ ใช้งานการเชื่อมต่อดังกล่าวได้
แต่อาจใช้งานในระบบ 2G เดิมได้บ้าง (ระบบ EDGE ที่ความถี่ 900/1800)
ซึ่งบางครั้งเราตั้งค่า APN เพื่อใช้งาน จะทำงานได้
แต่กรณีนี้ ไม่อาจรับรองได้ว่าสามารถทำงานได้จริง
เพราะหากระบบทำการเลือกคลื่นความถี่ใหม่ ค่า APN นั้น จะไม่มีการเปลี่ยนตาม
เพราะเราดำเนินการตั้งค่าเอง ซึ่งก็จะต้องกลับไปตั้งค่าใหม่ทุกครั้ง
จึงไม่นิยมทำ !
การตั้งค่า APN ด้วยตนเอง สามารถดูค่าต่างๆ จากตารางค่า APN ของผู้ให้บริการในประเทศไทย ดังนี้
AIS
Name APN : AIS Internet
APN : Internet
APN Type : default
DTAC
Name APN : DTAC Internet
APN : internet
APN Type : default
TRUE
Name APN : TRUE Internet
APN : hinternet
User : true
Password: true
APN Type : default
TOT (รองรับ i-Mobile, Mojo, i-Kool, i-FOX, IEC, 365 ในระบบ 3G ของ TOT)
Name APN : TOT 3G
APN : internet
APN Type : default
Credit : http://worldtechpad.com/?p=490
วันพฤหัสบดีที่ 22 พฤศจิกายน พ.ศ. 2555
คู่มือ(Manual) YooBao YB-651 13000mAh
คือ แบตเตอรี่สำรอง ใช้กับโทรศัพท์มือถือ Nokia,Sony,LG,Samsung,HTC,iPhone และ Tablet,iPad , ..
กำลังมาแรง(Oct.2012) ด้วยราคาที่ไม่แพงเกินไป (ค่อนข้างถูกกว่าค่ายอื่นๆ)
กำลังมาแรง(Oct.2012) ด้วยราคาที่ไม่แพงเกินไป (ค่อนข้างถูกกว่าค่ายอื่นๆ)
...\(^^)/...
วันอังคารที่ 13 พฤศจิกายน พ.ศ. 2555
คู่มือ(Manual) eneloop MB-L2DTM 5400mAh
คู่มือ(Manual)
SANYO eneloop Mobile Booster MB-L2DTM
Li-iOn battery 5400mAh
คือ แบตเตอรี่สำรอง สำหรับโทรศัพท์จำพวก Smart Phone
เช่น iPhone, iPad, Samsung, HTC, ...ฯลฯ
สำหรับ iPhone ชาร์จได้ประมาณ 2 รอบครับ.
SANYO eneloop Mobile Booster MB-L2DTM
Li-iOn battery 5400mAh
คือ แบตเตอรี่สำรอง สำหรับโทรศัพท์จำพวก Smart Phone
เช่น iPhone, iPad, Samsung, HTC, ...ฯลฯ
สำหรับ iPhone ชาร์จได้ประมาณ 2 รอบครับ.
...\(^^)/...
วันจันทร์ที่ 12 พฤศจิกายน พ.ศ. 2555
ตรวจสอบ Access Point ปลอม
ก่อนทำธุรกรรมทางการเงิน ผ่านโทรศัพท์เคลื่อนที่
ควรสังเกตสิ่งเล็กๆน้อยดังนี้
#
ถ้าใช้งานผ่าน WiFi สังเกตที่ URL เวลาเข้าไปที่หน้า login
ก่อนใส่ username และ password
--> http:// = ไม่ปลอดภัย อาจเป็น access point ปลอม ถูกนำมาตั้งดักไว้
--> https:// = ปลอดภัย มีการเข้ารหัสข้อมูล
หรือ ใช้ App ตรวจสอบ
ระบบ iOS (iPhone) ใช้ App SSLStripGuard
ระบบ Android ใช้ App StripGuard
ควรสังเกตสิ่งเล็กๆน้อยดังนี้
#
ถ้าใช้งานผ่าน WiFi สังเกตที่ URL เวลาเข้าไปที่หน้า login
ก่อนใส่ username และ password
--> http:// = ไม่ปลอดภัย อาจเป็น access point ปลอม ถูกนำมาตั้งดักไว้
--> https:// = ปลอดภัย มีการเข้ารหัสข้อมูล
หรือ ใช้ App ตรวจสอบ
ระบบ iOS (iPhone) ใช้ App SSLStripGuard
ระบบ Android ใช้ App StripGuard
iPhone Tips
Restart iPhone
--> Press Home button + Power button
--> Wait ... Show Logo Apple
--> raise your hand
(กดปุ่ม Home กับปุ่ม Power ค้างไว้ รอจนหน้าจอแสดงโลโก้แอปเปิ้ล จึงปล่อยมือ)
iPhone show Error 106
--> internet not found
--> internet disconnected
...
--> Press Home button + Power button
--> Wait ... Show Logo Apple
--> raise your hand
(กดปุ่ม Home กับปุ่ม Power ค้างไว้ รอจนหน้าจอแสดงโลโก้แอปเปิ้ล จึงปล่อยมือ)
iPhone show Error 106
--> internet not found
--> internet disconnected
...
วันศุกร์ที่ 9 พฤศจิกายน พ.ศ. 2555
Dictionary Online
# English to Thai & Thai to English (แปลอังกฤษเป็นไทย และ แปลไทยเป็นอังกฤษ)
Google translate --- http://translate.google.co.th/?hl=th&tab=wT
LongDo Dictionary --- http://dict.longdo.com/
th.w3dictionary --- http://th.w3dictionary.org/index.php?q=welcome
NECTEC --- http://lexitron.nectec.or.th/2009_1/
# Thai to Thai (แปลไทยเป็นไทย)
พจนานุกรม ไทย-ไทย ราชบัณฑิตยสถาน Sanook.com
พจนานุกรม ฉบับราชบัณฑิตยสถาน พ.ศ. ๒๕๔๒
ราชบัณฑิตยสถาน
# English to English (แปลอังกฤษเป็นอังกฤษ)
Collins --- http://www.collinsdictionary.com/
Oxford --- http://oxforddictionaries.com/
Cambridge --- http://dictionary.cambridge.org/
...
...
วันจันทร์ที่ 29 ตุลาคม พ.ศ. 2555
สมัครสมาชิก:
บทความ (Atom)