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

͵Դҷҧ 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 2 0

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

Google   
g2gnet.com
Ҵѡ:  

PowerPoint Ѻ CAI - ͹ҧ¹Ẻ䴹Ԥ

Category »  Ѻ¤
: Webmaster 20/7/2553   : 11:24
(ҹ : 50755) 
ͧ¹ ҨءҹҹͧҺ͹ФѺ ... ʺóͧҷ§ҹ §ҹ͹ ͧѡԪҡ »Ժѵµʹ㹪Ե÷ӧҹͧ ѧͧ ȹԵ͡÷ҹ ҨǤԴᵡҧ͡ (ҧ) ҧ CAI CBT C á (¡ CAI) ӨӡѴ ѹͧ㹡¹ ͹ ¤ ҹ CAI Ե͡ҹ ټ͹ö͹ͧ¹ (ҡʶҹ֡Ҿ ͧ; ѧӤѭҡѺǼ͹͡ФѺ) ¹ѧöӡѺ价ǹµͧա ... ԴҾԵͧͧ PowerPoint Ѻ÷͡¹ ͹ CAI
    ѵػʧѡ
  • ͧҧçѹѺ Ҩ 㨷 CAI µͧ ... ͷҹҹͧش ҹö 价ͧ㹵͹ ᷺зءҹ ¹͡Ѻ ҧ ش з Ҩ繶֧մö (Extension) ͧ PowerPoint ҡҷҹ¤Դ
  • ͧŷ١ͧ ·ҹ礧ЪԹѺ ѹ ͺѺ¹ (Interactive) ԧ ѹáԹ˹ ѧ Ѻѡ ... ѹѧͧͧͧ Dynamic ¹ŧʹ¹ Ǣͧ (ͧͧ椹ФѺ ... ШҾѴਹҡҧ)
  • йͧͧҷйҽ֡ ҹ ... ҹٻͧ ѹշҧеͺʹͧ͡÷ CAI ҡҹ¹ Script ¹ Code Ҩ Authorware Script ͹ Pascal, SwishMax Script ͹ C Adobe Flash ҧ C/Pascal ... ǹԵѳͧ Microsoft ҷ BASIC ͷ¡ VBA - Visual Basic for Application (Ѩغѹ C#, C++, F# Ǵ) ... ҡҹ繺ҧͧ䫵 Ҩͧҹ õԴ Hardware к͢ ÷ CAI ͡ BASIC ҹ ... ҹѹء§ҹ ѧҡԹ仹ѡ͡¹Ѻ
  • ʹշش ͧҡ÷ӧҹѡɳТͧ Dynamic ա¹ŧŵ鴡÷ӧҹҧ (ͤ觡÷ӧҹ件֧) ֧բҴ硡ҡèѺѴء觷ءҧ㹷ء Slide ͹·ѡѹ ... 蹤ͧ¢մöͧ٧ҡѡ

Ҩ·ҹ ͺҡ ѺӶ ҡͧ÷ CAI еͧ鹨ҡç˹͹ ... ͺ§ "դ㨨ԧз" ͹Ѻ ... ҹѧ͹ ǡ˹ٵ¹ ѹ դص ͹Ҥѹҧ˹ ... Ƿҹ͹ͧͤѺ ...

ǹŴ
ǹŴ PowerPoint Ѻ CAI - ͹ҧ¹Ẻ䴹Ԥ (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 ѺþѲ͡¹͹ (Եʵ˹ٹ)

͡ǡѹ͹ ... ͧ ´¨ѧ
ͧҾͷ͸Ժ ´ ͧҹ Visual Basic for Application (VBA) Ѻءҹ͡ФѺ ҡҹҡзͧ ͧ仾 仨ҧ餹ҷ ҹͧ ǹҡѹͧ ҫ˹ѧͷǢͧѺ VB VBA (Ѻ PowerPoint ҡҡ ǹҡ Access Excel) Course ¹ǢͧѺͧѧ ç¹͹ҡ ... eBook Ҥѧǹ ( ҹ¹ еͧҹ English ФѺ) Դջª;鹰ҹͧ VBA ǹŴѹѺ
ǹŴ eBook ǢͧѺ VBA
PowerPoint Advanced Presentation Techniques (CHM)
Absolute Beginner's Guide To VBA (CHM)
鹡ѹ ...
͡ᶺͧͧ͢ Visual Basic
ͧͧ (ToolBox) лСͺ仴 Control ҧͧ Visual Basic ͧ͡ (TextBox) º͡ (Label) (CommandButton) 繵

ҡҨҹ˹͡ǹ ǹҴŧ Slide
͡ Control ҹ ¡ä͡ Control ͧ ҡ鹹Ҵŧ Slide
õ駤Ҥسѵ (Properties) Ѻ Control ҧй㹪鹧ҹ
    ûѺ觤سѵԢͧ Control Ẻ Design Time ( õ駤ҤسѵԵҧͧ Control ͹ Run Macro)
  • ¨աõ駤 Properties ѡѧ仹 (繵ͧ仵駤ҷ¹ФѺ)
      CommandButon ()
    • Name = CommandButton1 (ͺͧ͢͡ CommandButton ҧԧ͹¹)
    • Font = Angsana New (͡)
    • Caption = º͡ͻҡ价ӧҹ ÷ӧҹ
      ComboBox (¡͡)
    • Name = ComboBox1 (ͺͧ͢͡ ComboBox ҧԧ͹¹)
    • Font = Angsana New (͡)
    • Style = 2 - fmStyleDropDownList (աä)
      TextBox (ͧ͡)
    • Name = TextBox1 (ͺͧ͢͡ TextBox ҧԧ͹¹)
    • Font = Angsana New (͡)
    • Text = ˹Ѻ TextBox
      Label (º͡)
    • Name = Label1 (ͺͧ͢͡ Label ҧԧ͹¹)
    • Font = Angsana New (͡)
    • Caption = º͡ ͸Ժ
      Image (ʴҾ)
    • Name = image1 (ͺͧ͢͡ Image ҧԧ͹¹)
    • BackStyle = 0 - fmBackStyleTransparent (ͧҾؾѧѺҾ GIF)
    • BorderStyle = 0 - fmBorderStyleNone (ͺ)
    • PictureAlignment = 2 - fmPictureAlignmentCenter (˹觡ҧ)
    • PictureSizeMode = 1 - fmPictureSizeModeStretch (ʴҾҢҴԧ)
¡ҹ Visual Basic Editor (͡ Alt + F11 ¡)
View Codeͧ Visual Basic for Application (VBA)
ͧҡաҹ Macro ѧԴ ͧ͡Դҹ Macro
¡ҹ Macro ( Alt + F8)
͡ Macro ͧӧҹ

ӴѺ鹵͹÷ӧҹ

VBA Ѻ Slide1 PowerPoint

Option Explicit

Private Sub CommandButton1_Click()
    
    ' ¡ѧѧ  㹡Ŵ¡ ComboBox ͹
    Call Slide2.InitComboBox

    ' ѧ Slide ͧ¡˹ҡŢШ Slide (ҧ 3 Slide)
    ActivePresentation.SlideShowWindow.View.GotoSlide (2)
    '  觼ҹ Next ҡ Slide Ѵ
    'ActivePresentation.SlideShowWindow.View.Next
End Sub

' ÷ӧҹ Դ PowerPoint
Private Sub CommandButton2_Click()
    ' ҧԧ
    With Application.Presentations("PowerPoint-ComboBox.ppt")
        ' 觺ѹ֡ (Save) ͹͡
        .Saved = True
        .Close
    End With
    
End Sub

ӴѺ鹵͹÷ӧҹ

VBA Ѻ Slide2 PowerPoint

Option Explicit

' ########################################################
' ˹¡õҧѺ ComboBox
Sub InitComboBox()
' ########################################################
    
    ' ҢŢͧ ComboBox ͡
    ComboBox1.Clear
    '  Index á¡âͧ ComboBox ҡѺ 0
    ComboBox1.AddItem "س͡¡"    ' Index = 0
    ComboBox1.AddItem "ٻѵ"      ' Index = 1
    ComboBox1.AddItem "ٻ׹"      ' Index = 2
    ComboBox1.AddItem "ٻǧ"                 ' Index = 3
    ComboBox1.AddItem "ٻǧ"                     ' Index = 4
    ComboBox1.AddItem "ٻ"           ' Index = 5
    ComboBox1.AddItem "Ҿѵ 2 "          ' Index = 6
    ComboBox1.AddItem "Ҿѵ 4 "          ' Index = 7
    ComboBox1.AddItem "ѧ Slide Ѵ"   ' Index = 8
    ' з ComboBox.ListCount = 9 ( 0 - 8 = 9 )
    
    ' ˹价 Index = 0 駢ͤ͡
    ComboBox1.ListIndex = 0
    
    ' ҢšʴŤ͸Ժ
    Label1.Caption = ""
    
    ' ͹ Control  2 ͹ ... ¹͡¡
    Label1.Visible = False
    Image1.Visible = False

End Sub

' ########################################################
' ա͡ҵҧ ComboBox Դ˵ءó¹ŧ (Change)
Private Sub ComboBox1_Change()
' ########################################################

' ҹ´ҧͧ Shape Collection Object

    ' źǡ AutoShape ͡ ʴŤҧ  ٻ ǧ ... з¡ Dynamic
    Call RemoveShape

    Image1.Visible = False
    Label1.Visible = True
    
    Select Case ComboBox1.ListIndex
    
        ' ʴٻѵ
        Case 1
            With ActivePresentation.Slides(2)
                
                ' ####################################################
                ' Type  á˹˹ٻ ()
                ' Left  ҧ˹ Shape ҧҹ¢ͧ
                ' Top  ҧ˹ Shape ҧҹͧ
                ' Width ͡á˹ҧͧ Shape
                ' Height ͡á˹٧ͧ Shape
                ' ѧҨǧ (Oval)   (Rectangle) ҧͧ Shape
                ' á˹ҧ Ѻ ٧ͧ
                ' ####################################################
                
                ' ####################################################
                ' ҧͧ÷ CAI ѡɳТͧ Dynamic ¡ʴҾӢҴ
                    ' öҧ⨷Ẻ֡Ѵͧ ... ͧҾѧѺ
                ' 㹡Ţ͹
                Randomize
                Dim Axis As Integer
                ' Ţ 1 - 4  Ҿѹ˭Թ еͧ令ٳѺ 50 . ա (˹Ѵ Metric)
                ' Width:=Axis * 50  Height:= Axis * 50
                Axis = Int(4 * Rnd) + 1
                ' ####################################################

                With .Shapes.AddShape( _
                    Type:=msoShapeRectangle, _
                    Left:=100, _
                    Top:=200, _
                    Width:=Axis * 50, _
                    Height:=Axis * 50 _
                    )
                    ' 駪 Shape ҧԧ͹¹ VBA
                    .Name = "Sqaure"
                    ' ŧ Shape
                    .Fill.Solid
                    ' ˹Ѻ Shape üŢҹ 10 (ҧ 0 - 255)
                    ' R=Red ᴧ, G = Green , B = Blue չԹ
                    .Fill.ForeColor.RGB = RGB(54, 100, 154)
                End With
            End With
            
            ' ʴ͸Ժ¢ͧ Shape  Image ... Сͺ¹  ͹ͧ
            ' vbCrLf  â鹺÷Ѵ  Cr = Carriage Return  Lf = Line Feed
            Label1.Caption = "͸Ժ" & vbCrLf & "Ҿ鹷ٻѵ" & vbCrLf
            Label1.Caption = Label1.Caption & "..ٻѵ = ҹ x ҹ" & vbCrLf
            Label1.Caption = Label1.Caption & "ʹҹдҹ դ = " & Axis & " ˹." & vbCrLf
            Label1.Caption = Label1.Caption & "վ鹷 = " & Axis * Axis & " ˹."
            ' ѡɳТͧ Dynamic  ա¹ŧʹ
            ' 麷¹ӫҡ ¹Ըշͧ ... ҧադѺ ... ͧ (ͧ)
            
        ' ǹ ͹ѹѺ ... ѹٻ׹
        Case 2
            With ActivePresentation.Slides(2)
                With .Shapes.AddShape( _
                    Type:=msoShapeRectangle, _
                    Left:=100, _
                    Top:=200, _
                    Width:=120, Height:=80 _
                    )
                    .Name = "Rectangle"
                    .Fill.Solid
                    .Fill.ForeColor.RGB = RGB(0, 100, 0)
                End With
            End With

            Label1.Caption = "͸Ժ" & vbCrLf & "Ҿ鹷ٻ׹" & vbCrLf
            Label1.Caption = Label1.Caption & "..ٻ = ҧ x " & vbCrLf
            Label1.Caption = Label1.Caption & " ... á"

        ' ٻǧ
        Case 3
            With ActivePresentation.Slides(2)
                With .Shapes.AddShape( _
                    Type:=msoShapeOval, _
                    Left:=100, _
                    Top:=200, _
                    Width:=100, _
                    Height:=100 _
                    )
                    .Name = "Circle"
                    .Fill.Solid
                    .Fill.ForeColor.RGB = RGB(255, 100, 0)
                End With
            End With
            Label1.Caption = "͸Ժ" & vbCrLf & "ٻǧ"
        
        ' ٻǧ
        Case 4
            With ActivePresentation.Slides(2)
                With .Shapes.AddShape( _
                    Type:=msoShapeOval, _
                    Left:=100, _
                    Top:=200, _
                    Width:=100, _
                    Height:=60 _
                    )
                    .Name = "Oval"
                    .Fill.Solid
                    .Fill.ForeColor.RGB = RGB(255, 100, 154)
                End With
            End With
            Label1.Caption = "͸Ժ" & vbCrLf & "ٻǧ"

        ' ٻ
        Case 5
            With ActivePresentation.Slides(2)
                With .Shapes.AddShape( _
                    Type:=msoShapeIsoscelesTriangle, _
                    Left:=100, _
                    Top:=200, _
                    Width:=100, _
                    Height:=100 _
                    )
                    .Name = "Circle"
                    .Fill.Solid
                    .Fill.ForeColor.RGB = RGB(154, 100, 154)
                End With
            End With
            Label1.Caption = "͸Ժ" & vbCrLf & "ٻ"
        
        ' ʴٻҾ
        Case 6
            With ActivePresentation.Slides(2)
                With Image1
                    .Left = 100
                    .Top = 200
                    ' Ҿؾѧ (੾йʡ GIF ǹ PNG Ѻ Image Control )
                    .BackStyle = fmBackStyleTransparent
                    ' ѺҾʴŵԧ (Stretch)
                    .PictureSizeMode = fmPictureSizeModeStretch
                    ' աͺ
                    .BorderStyle = fmBorderStyleNone
                    ' ˹˹觢ͧҾʴ  ˹ PPT Ѩغѹ  images\ٻ
                    .Picture = LoadPicture(Application.ActivePresentation.Path & "\images\bird-01.gif")
                    ' öͧ
                    .Visible = True

                End With
            End With
            
            Label1.Caption = "͸Ժ" & vbCrLf & "Ҿѵ 2 "

        ' ʴٻҾ
        Case 7
            With ActivePresentation.Slides(2)
                With Image1
                    .Left = 100
                    .Top = 200
                    .BackStyle = fmBackStyleTransparent
                    .PictureSizeMode = fmPictureSizeModeStretch
                    .BorderStyle = fmBorderStyleNone
                    .Picture = LoadPicture(Application.ActivePresentation.Path & "\images\cow-01.gif")
                    .Visible = True
                End With
            End With
            
            Label1.Caption = "͸Ժ" & vbCrLf & "Ҿѵ 4 "
            
        ' ˹ҵ
        Case 8
        
            Label1.Visible = False
            Image1.Visible = False
            ' ѧ Slide ͧ¡˹ҡŢШ Slide (ҧ 3 Slide)
            ActivePresentation.SlideShowWindow.View.GotoSlide (3)
            '  觼ҹ Next ҡ Slide Ѵ
            'ActivePresentation.SlideShowWindow.View.Next

            
        Case Else
            Label1.Visible = False

    End Select

End Sub

' ########################################################
' ·㹡źǡ Shape ҧ   ǧ ͡仨ҡ Slide
' ʴź Slide ҧ ...  Dynamic ա蹡ѹ
' 繢մöͧ PowerPoint ѹҧѴਹ¤Ѻ
Sub RemoveShape()
' ########################################################

    ' ˹ Object Ẻ Shape (ٻҧ)
    Dim oSH As Shape
    ' Ѻӹǹͧ Object 躹 Slide Ѩغѹء
    Dim X As Long
    
    ' Ѻ Object  ѵطءǷ Slide ѧʴ (ActivePresentation)
    For X = ActivePresentation.Slides.Count To 1 Step -1
        ' ͡੾ Object  Shape ҹ
        For Each oSH In ActivePresentation.Slides(X).Shapes
            
            ' ҡͺ Object Ǩ Shape ź͡仨ҡ˹Ҩ Slide  PowerPoint
            If oSH.Type = msoAutoShape Then oSH.Delete
        
        Next
    Next

End Sub

' ÷ӧҹ Դ PowerPoint
Private Sub CommandButton1_Click()
    ' ҧԧ
    With Application.Presentations("PowerPoint-ComboBox.ppt")
        ' 觺ѹ֡ (Save) ͹͡
        .Saved = True
        .Close
    End With
    
End Sub

ӴѺ鹵͹÷ӧҹ

VBA Ѻ Slide3 PowerPoint

Option Explicit

' ÷ӧҹ Դ PowerPoint
Private Sub CommandButton1_Click()
    ' ҧԧ
    With Application.Presentations("PowerPoint-ComboBox.ppt")
        ' 觺ѹ֡ (Save) ͹͡
        .Saved = True
        .Close
    End With
    
End Sub

Private Sub CommandButton2_Click()
    ' ѧ Slide ͧ¡˹ҡŢШ Slide (ҧ 3 Slide)
    ' ͹Ѻ˹ҡ͹
    ActivePresentation.SlideShowWindow.View.GotoSlide (2)
End Sub
ͺ˹Ҽйʹͼŧҹ PowerPoint ͡Ѻкҹ Access ... ǹ Ҩ ·¤Դ PowerPoint ѹ红Ţͧ¹ ÷Ӣͺҧ (ҡѹ ... ) ... Ƿҹ繼ҹ˹䫵觹 繤á㹻¤Ѻ º м͡Ҩҡ VB6 鴢ͧͧ 55555+ ... ҡ ҡ繡͹ ¡͢
͵ - g2gNet Dot Com
Ţ¹ҳԪ硷͹ԡ 0407314800231
CopyLeft © 2004 - 2099 g2gNet.Com All rights reserved.
Email: [email protected] . 08-6862-6560