¡ÒùÓâ»Ãá¡ÃÁ Power Point ÁÒ·Óà»ç¹ CAI

àÃ×èͧ·Õèà¡ÕèÂÇ¢éͧ
â»Ãá¡ÃÁ PowerPoint ¡Ñº¡ÒÃàª×èÍÁµèÍÃкº°Ò¹¢éÍÁÙÅ Access - ¡Ò÷ÓÃкº Login
â»Ãá¡ÃÁ PowerPoint ¡Ñº CAI - µÍ¹¡ÒÃÊÃéÒ§º·àÃÕ¹Ẻ䴹ÒÁÔ¤
â»Ãá¡ÃÁ PowerPoint ¡Ñº ¤ÍÁ¾ÔÇàµÍÃìªèÇÂÊ͹ µÍ¹¡ÒÃÅÒ¡ÇÒ§Çѵ¶Ø (Drag & Drop)
¢Ñ鹵͹¢Í§¡ÒÃà»Ô´àÊÕ§-ËÂØ´àÊÕ§ ã¹áµèÅÐ Scene ãËé¡Ñºâ»Ãá¡ÃÁ SwishMax
¡Òúѹ·Ö¡àÊÕ§»ÃСͺ¡ÒüÅÔµÊ×èÍ¡ÒÃàÃÕ¹¡ÒÃÊ͹ ´éÇÂâ»Ãá¡ÃÁ Acoustica MP3 Audio Mixer
¡Ò÷ӢéÍÊͺẺàµÔÁ¤Ó´éÇ Swishmax
ã¤ÃÇèÒ·Ó¢éÍÊͺ¼èÒ¹ Flash Áѹà»ç¹àÃ×èͧÂÒ¡Êì
¡Ò÷ӻØèÁ ËÃ×Í àÁ¹Ù Ẻ§èÒÂæ (¶Ö§§èÒÂÁÒ¡) ´éÇÂâ»Ãá¡ÃÁ SwishMax (Flash Video)
ÊÃéÒ§àÁ¹Ùã¹ÃٻẺ Flash â´Âãªéâ»Ãá¡ÃÁ SwishMax ÍÂèÒ§§èÒÂ
¡ÒÃãªé§Ò¹ SwishMax ¡Ñº¡Ò÷ÓÀÒ¾à¤Å×è͹äËÇ ... ¾×é¹°Ò¹ÊØ´æ ¨¹á·ºäÁèÍÂÒ¡àª×èÍ
Visual Basic 6.0 ¡Ñº¡ÒþѲ¹ÒÊ×èÍ¡ÒÃàÃÕ¹ ¡ÒÃÊ͹
àÃÕ¹ÃÙé SwishMax (ËÃ×Í Flash) à¾×èÍÃѺÊ觢éÍÁÙÅä»ÁҡѺ MS Visual Basic 6.0 ÀÒ¤ 1
àÃÕ¹ÃÙé SwishMax (ËÃ×Í Flash) à¾×èÍÃѺÊ觢éÍÁÙÅä»ÁҡѺ MS Visual Basic 6.0 ÀÒ¤ 2
¡ÒÃãªé§Ò¹ Drag & Drop ã¹ VB 6 à¾×è;Ѳ¹ÒÊ×èÍ¡ÒÃàÃÕ¹ ¡ÒÃÊ͹ (ÀÒ¤ 1)
¡ÒÃãªé§Ò¹ Drag & Drop ã¹ VB 6 à¾×è;Ѳ¹ÒÊ×èÍ¡ÒÃàÃÕ¹ ¡ÒÃÊ͹ (ÀÒ¤ 2)
â»Ãá¡ÃÁÊØèÁµÑÇàÅ¢¨Ó¹Ç¹àµçÁẺäÁèãËé«éӡѹàÅ - Random Number
¡ÒûÃÐÂØ¡µìãªé§Ò¹ MS Visual Basic 6.0 ¡Ñº¡ÒþѲ¹ÒÊ×èÍ¡ÒÃàÃÕ¹¡ÒÃÊ͹ (¤³ÔµÈÒʵÃìà¾×èÍ˹ٹéÍÂ)

' à¡Ô´¡ÒäÅÔê¡»ØèÁ à¾×èÍ·Ó¡ÒÃá»Å§¤èÒàÅ¢°Ò¹ 10 à»ç¹àÅ¢°Ò¹ 2
Private Sub cmdDec2Bin_Click()
    ' áÊ´§¿ÍÃìÁ¡Òûé͹àÅ¢°Ò¹ 10 à¾×èÍ·Ó¡Òäӹdz¼Å
    frmConvertDec2Bin.Show vbModal
End Sub

' ¨º¡Ò÷ӧҹ »Ô´ PowerPoint
Private Sub cmdExit_Click()
    ' ÍéÒ§ÍÔ§ª×èÍä¿Åì
    With Application.Presentations("Sample CAI.ppt")
        ' ÊÑ觺ѹ·Ö¡ (Save) ¡è͹ÍÍ¡
        .Saved = True
        .Close
    End With
End Sub

Private Sub cmdConvertDec2Bin_Click()
    ' à¡çº¤èҤӵͺ¨Ò¡¡ÒÃàÍÒàÈɢͧàÅ¢°Ò¹ 2
    Dim Bit As String
    ' µÑÇá»Ãà¡çº¤èÒàÅ¢°Ò¹ 10 áÅÐ ·Óä»àÃ×èÍÂ樹¡ÇèҨзÓãËé Dec ÁÕ¤èÒà»ç¹ 0
    Dim Dec As Long
    
    ' µÃǨÊͺÇèÒÁÕ¡Òûé͹¤èÒµÑÇàÅ¢°Ò¹ 10 ŧ㹠TextBox ËÃ×ÍäÁè
    If Trim(txtDecimal.Text) = "" Or Len(Trim(txtDecimal.Text)) = 0 Then
        txtDecimal.SetFocus
        Exit Sub
    End If
    
    ' ÃѺ¤èÒàÅ¢°Ò¹ 10 ¨Ò¡ TextBox (txtDecimal)
    Dec = CLng(txtDecimal.Text)
    
    ' DO WHILE ... à§×è͹ä¢à»ç¹¨ÃÔ§¨ÐǹÃͺ ... à·ç¨àÁ×èÍäËÃè¡ç¨ÐÍÍ¡¨Ò¡ÅÙ»
    Do While (Dec > 0)
        Bit = (Dec Mod 2) & Bit
        Dec = Dec \ 2
    Loop

    ' áÊ´§¼Å¡ÒÃËÒàÅ¢°Ò¹ 2 ŧ㹠Slide1
    Slide1.txtBinary.Text = Bit
    
End Sub

' #######################################################
' ¿Ñ§¤ìªÑè¹µÃǨÊͺ¡Òá´¤ÕÂìãËéÃѺä´é੾ÒФèÒ 0 - 9 (à¾ÃÒÐÁѹàÅ¢°Ò¹ 10 ¹Õè¤ÃѺ ¨Ö§ÃѺµÑÇàÅ¢ä´éá¤è¹Õé)
' #######################################################
Function CheckDecimal(ByVal KeyAscii As Integer)
    Select Case KeyAscii
        ' ASCII Code 48 - 57 ¤×Í µÑÇÍÑ¡¢ÃÐ 0 - 9
        Case 48 To 57
        ' ASCII Code 8 ¤×Í Back Space
        ' ASCII Code 13 ¤×Í Enter
        Case 8, 13
        Case Else
            KeyAscii = 0
    End Select
    CheckDecimal = KeyAscii
End Function

Private Sub txtDecimal_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    ' ËÒ¡à»ç¹¡Òá´¤ÕÂì Enter (vbKeyReturn ÁÕ¤èÒ ASCII Code = 13)
    If KeyAscii = vbKeyReturn Then
        KeyAscii = 0
        SendKeys "{TAB}"
    Else
        ' 仵ÃǨÊͺ¤èÒ㹿ѧ¤ìªÑ蹡è͹ÇèÒ ÁÕ¡Òá´àÅ¢ 0 - 9 ËÃ×ÍäÁè
        KeyAscii = CheckDecimal(KeyAscii)
    End If
End Sub

Private Sub UserForm_Initialize()
    ' ¡ÒõÑ駵Óá˹觢ͧ¿ÍÃìÁ¡Òûé͹¢éÍÁÙÅàÅ¢°Ò¹ 10
    With Me
        .StartUpPosition = 0
        .Top = 10
        .Left = Application.Left + Application.Width - Me.Width * 2
    End With
End Sub

' ·Ó¡ÒÃâËÅ´¿ÍÃìÁ¡Òûé͹¤èÒ áÅÐ ¡ÒÃá»Å§àÅ¢°Ò¹ 10 ¢Öé¹ÁÒáÊ´§
Private Sub UserForm_Activate()
    ' à¤ÅÕÂÃì¤èҤӵͺ
    Slide1.txtBinary.Text = ""
    ' à¤ÅÕÂÃì·Õè»é͹¤èÒàÅ¢°Ò¹ 10
    txtDecimal.Text = ""
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ' ¡è͹»Ô´¿ÍÃìÁ ãËéà¤ÅÕÂÃì¤èÒ TextBox (txtBinary) ãËéà»ç¹¤èÒÇèÒ§
    Slide1.txtBinary.Text = ""
End Sub