แจกฟรีโค้ดโปรแกรม VB6 โปรแกรมช่วยอ่านข้อความภาษาอังกฤษให้เป็นเสียง

Option Explicit

' #####################################################
' กดปุ่ม CommandButton แต่ละตัว
' #####################################################
Private Sub cmdShowPicture_Click(Index As Integer)
    txtMessage.Visible = False
    
    ' เลือก Index ตามปุ่ม CommandButton ที่กด
    Select Case Index
        ' Dog
        Case 0:
            Call SpeakEnglish(cmdShowPicture(0).Caption)
            
        ' Cat
        Case 1:
            Call SpeakEnglish(cmdShowPicture(1).Caption)
            
        ' Pig
        Case 2:
            Call SpeakEnglish(cmdShowPicture(2).Caption)
            
        ' Ambulance
        Case 3:
            Call SpeakEnglish(cmdShowPicture(3).Caption)
        
    End Select

End Sub

' #####################################################
' การทำงานคล้ายกัน ซ้ำกัน แยกออกมาเป็นโปรแกรมย่อยซ่ะดีๆ
' โดยส่งค่า Caption ของปุ่มคำสั่งแต่ละตัวมา
' #####################################################
Sub SpeakEnglish(cmdName As String)
  
    Dim ctl As Control
    ' ตรวจสอบก่อนว่ามีการสร้าง Image และ Label Control หรือยัง หากมีให้ลบออกไป
    For Each ctl In Controls
        If ctl.Name = "imageTemp" Then
            Controls.Remove "imageTemp"
            Controls.Remove "LabelTemp"
            Exit For
        End If
    Next
    
    ' ประกาศใช้งานตัวแปร Image Control และ Label Control
    Dim img As Image
    Dim lbl As Label

    ' การสร้าง Image Control แบบ Run Time
    Set img = Controls.Add("VB.Image", "imageTemp")
    ' ตั้งค่าคุณสมบัติ (Properties) แบบ Run Time
    With img
        ' จัดวางตำแหน่งทางมุมซ้ายบนสุด
        .Move 60, 90
        .Visible = True
    End With
    
    ' การสร้าง Label Control แบบ Run Time
    Set lbl = Controls.Add("VB.Label", "LabelTemp")
    ' ตั้งค่าคุณสมบัติ (Properties) แบบ Run Time
    With lbl
        ' จัดวางตำแหน่งตัวอักษรในการแสดงผล
        .Move 60, sldSpeed.Top - 800
        .Font.Name = "Tahoma"
        .Font.Size = 16
        .FontBold = True
        ' ปรับให้พอดีกับข้อความ
        .AutoSize = True
        ' ปรับให้มีขอบแบบ Fixed Single
        .BorderStyle = 1
        ' สีตัวอักษร
        .ForeColor = vbRed
        ' สีพื้นหลัง
        .BackColor = vbYellow
        .Visible = True
    End With
    
    ' เลือกรายการตามป้าย (Caption) ของปุ่มกด (CommandButton) แต่ละตัว
    Select Case LCase(cmdName)
        Case "dog"
            img.Picture = LoadPicture(App.Path & "\images\dog.jpg")
            lbl.Caption = "THEY ARE THE DOGS."
        Case "cat"
            img.Picture = LoadPicture(App.Path & "\images\cat.jpg")
            lbl.Caption = "IT IS A CAT."
        Case "pig"
            img.Picture = LoadPicture(App.Path & "\images\pig.jpg")
            lbl.Caption = "PIG, MOO NOI NOI."
        Case "ambulance"
            img.Picture = LoadPicture(App.Path & "\images\ambulance.jpg")
            lbl.Caption = "THIS IS AN AMBULANCE."
    End Select
    
    ' เคลียร์เสียงเดิมก่อน เพราะอาจมีเสียงเดิมค้างไว้อยู่
    dssSpeak.AudioReset
    ' เริ่มอ่านตามข้อความใน Caption ของ Label Control
    dssSpeak.Speak lbl.Caption

End Sub

' #####################################################
' จะอ่านประโยคตามที่อยู่ใน TextBox Control (txtMessage)
' #####################################################
Private Sub cmdSpeakMessage_Click()

    txtMessage.Visible = True
    ' เคลียร์เสียงเดิมก่อน เพราะอาจมีเสียงเดิมค้างไว้อยู่
    dssSpeak.AudioReset
    ' เริ่มอ่านตามข้อความใน TextBox
    dssSpeak.Speak txtMessage.Text

End Sub

' #####################################################
' เริ่มต้นการทำงาน และ สาธิตการตั้งค่าคุณสมบัติของ Control แบบ Run Time
' #####################################################
Private Sub Form_Load()
    Me.Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2

    ' การตั้งค่าคุณสมบัติของ Control แบบ Run Time
    With dssSpeak
        .MaxPitch = 200
        .MinPitch = 50
        .Pitch = 100
        .MaxSpeed = 450
        .MinSpeed = 30
        .Speed = 150
    End With
    
    ' ตั้งค่า Speed SliderBar ให้ตรงกับ Speed ของ DirectSS
    With sldSpeed
        .Max = 450
        .Min = 30
        .Value = 150
    End With
    
    ' ตั้งค่า Pitch SliderBar ให้ตรงกับ Pitch ของ DirectSS
    With sldPitch
        .Max = 200
        .Min = 50
        .Value = 100
    End With
    
    ' กำหนดประโยคให้กับ TextBox และมีเครื่องหมาย คอมม่า , จะทำให้หยุดรอสักครู่
    txtMessage.Text = "Hello world, my name is thongkorn."
    
End Sub

' #####################################################
' ปรับระดับเสียง
' #####################################################
Private Sub sldPitch_Change()
    dssSpeak.Pitch = sldPitch.Value
End Sub

' #####################################################
' ปรับความเร็วเสียง
' #####################################################
Private Sub sldSpeed_Change()
    dssSpeak.Speed = sldSpeed.Value
End Sub

Private Sub cmdExit_Click()
    
    ' เคลียร์เสียงเดิมก่อน เพราะอาจมีเสียงเดิมค้างไว้อยู่
    dssSpeak.AudioReset
    ' โปรแกรมเมอร์ขี้เล่น และ ขี้เมา 55555+
    dssSpeak.Speak "Ja Joob, Program, chai maii, ha ha ha"
    'dssSpeak.Speak "Ja Joob, Program, Click OK, ha ha ha"
    
    If MsgBox("คุณแน่ใจว่าต้องการจบการทำงานของโปรแกรม ?", vbQuestion + _
        vbOKCancel + vbDefaultButton2, "ยืนยันการจบโปรแกรม") = vbOK Then
        Set frmTextToSpeech = Nothing
        End
    End If
End Sub