ҡդӶ ʵŧ 纺촨շ٨絴͵ ᷹ФѺ

͵Դҷҧ Inbox Ѻ

˹ѡ
-
VB 6/VB.Net
ASP/ASP.Net
Ѻ¤
¹ҹ Flash Movie
ռͺش  
 RSS Feeds
 ǹŴ RSS Reader ...   Download  RSS Reader

Forum - www.g2gnet.com
Webmaster - www.g2gnet.com
Visitors - Session views
 5 6 1 6 1 8 3

7 ѹҤ ..2549
139 Users On-Line.
Visitors - Page views
 8 9 7 3 9 2 6
1 Ҿѹ ..2551

Google   
g2gnet.com
Ҵѡ:  

ù Power Point ҷ CAI

Category »  Ѻ¤
: Webmaster 14/7/2553   : 10:21
(ҹ : 136377) 
ǹŴ
ǹŴҧ Visual Basic for Application (VBA) Ѻ PowerPoint (PPT 2003)

ͧǢͧ
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 ѺþѲ͡¹͹ (Եʵ˹ٹ)

͹蹵ͧ͡Ƕ֧ CAI ͹ФѺ CAI (Computer Assisted Instruction) ùҤҪ㹡¹ ͹ ҧҧ˹觡 蹤 ѹ͹᷹ٹФѺ (¤㨼Դ) ... ·ҹ礧Һ PowerPoint (شԷķ) ǹ СѺҹҹЪѹ ʹͧҹ ǹ˭ ẺѹԹ˹ ѧ ! ѹ价 CAI ѧ ͧͧ ÷ CAI ѹеͧաͺ (Interactive) Ѻ¹ PowerPoint ѹ 䩹¶֧СҺѧҨ ҷҷ⫨Ӿǡ AuthorWare Flash ? ͺ͡͹ 仡仴ٶ١ ͵ŧ 觷سҨѧԧ Ѻ¾ѹͧ MicroSoft Office ҫ.

ѷëͿ ͡Ẻҵ˹ ¡ Visual Basic ҵǹ١è Miscrosoft Office ء㹡þѲ㹢٧ Ҩѡѹ㹹ͧ Visual Basic for Application (VBA) ѹҷ¤֧Ѻ Basic йҹᵡҧѹ͡仵е ҡ MS Excel ¡ҹѺ Work Sheet PowerPoint ͧ¡ҹѹѺ Slide ( Basic ԧ)
ѵػʧ ...
Ѻҹ ҹ ... ͸Ժ¶֧鹵͹͡Ẻ ¹ 㹡ҹ VBA Ѻ PowerPoint ͡ФѺ شѡ ͷзǷҧ ͧþѲ͡¹/͹ ѡɳТͧͺѺ¹ (Interactive) ѹͧ ... ҤسоѲ CAI á ҡ֡¹ Script ¹ǹ ѹշҧзҹѹ͡㨹֡͡Ѻ ... èз͡ҡѺ͹ͧ Ф͹ͧҹҹ» ҴҨѧ¹ ... §·ҹѧҴ 㹡ҹ ҹͧ ... Ǩҧ ءҹ礧դӵͺѺͧФѺ
ҹѡ㹡ŧŢҹ 10 Ţҹ 2 Ըա (ѧ)

BAProject 㹡͡Ẻ  ¹ VBA
ǹͧ VBAProject 㹡͡Ẻ ¹ VBA

˹Ҩ͡͡Ẻ
˹Ҩ͡͡Ẻҡ PowerPoint

ӴѺ鹵͹÷ӧҹ
ӴѺ鹵͹÷ӧҹ Ţ 1 - 4
1. ͡˹Ҩͻ͹Ţҹ 10 ʴŢ
2. ͹Ţҹ 10 ... VBA աͤ ¹Ţ 0 - 9 ҹ鹤Ѻ
3. ꡻ͷӡäӹdz
4. ʴ͡ҧ˹ҨҾ Slide ͧ PowerPoint

VBA Ѻ Slide1 PowerPoint

' Դä꡻ ͷӡŧŢҹ 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
VBA Ѻ UserForm 㹡û͹Ţҹ 10 зӡŧŢҹ (frmConvertDec2Bin)

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
Դҧ

Դ PowerPoint ҧ
Դ PowerPoint ҧ㹵͹ ҡաâ˹ҨẺ 䢵Ҿҧҹҧ

͡ѡҤʹ
͡ѡҤʹ

͡ѡҤʹ
͡ʹ»ҹҧ (Ҿ)

ҷͧ¹ Save ͹֡ ǹ¹ ѹ֡ PowerPoint Show չʡ PPS ᨡѺ¹ ... ѹѺ (ŧ EXE ӧҹͧҹ PowerPoint ¡)

ԴҾԵͧͧ PowerPoint Ѻ÷͡¹ ͹ CAI

Conclusion:
ҡҧʴ ͷ椹ѡѺ CAI ҡ觢 §ҧѹҨҡ AuthorWare/Flash ͡Թ˹ ѧ ҹͧ й蹡 鹷з CAI ջѹ աͺѺ¹ ѡɳТͧ Dynamic ѧ鹤 Ҩ ԴмԵ CAI ͡ èеͧӤ㨡Ѻҷ͹ҧ´ ͹ҧеͧդ դǪҭҧҡ㹡 Ƿҧ Ҩ㹡͡Ẻ CAI ѡɳٻẺ¡ CourseWare 仹ͧ.
͵ - g2gNet Dot Com
Ţ¹ҳԪ硷͹ԡ 0407314800231
CopyLeft © 2004 - 2099 g2gNet.Com All rights reserved.
Email: [email protected] . 08-6862-6560