Knowledge

วันอาทิตย์ที่ 18 สิงหาคม พ.ศ. 2562

การผันคำในภาษาไทย คะ และ ค่ะ

การผันคำในภาษาไทย คะ และ ค่ะ
บางท่านยังอาจสับสน จึงมักใช้ผิดกันบ่อย

ที่มา
จากหนังสือแบบเรียน มานะ มานี ประถมฯ ๒ ฉบับปรับปรุงใหม่ ๒๕๕๗
หน้า ๒๐๐ แบบฝึก ทบทวนการผันคำ

...

วันพุธที่ 1 เมษายน พ.ศ. 2558

‘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"

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

วันพฤหัสบดีที่ 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

เพียงเท่านี้ เสียงที่เราพูดใส่ไมค์ของคอมพิวเตอร์ ก็จะออกที่ลำโพงของคอมพิวเตอร์แล้วครับ

...

วันเสาร์ที่ 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)

วันพุธที่ 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
ดังภาพตัวอย่างข้างบน

...

วันพุธที่ 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