MEMBUAT ANIMASI GELOMBANG DARI EXCEL 2010 DENGAN VBA

Fisika tidak bisa lepas dari pembelajaran yang berhubungan dengan alam seitar atau bentuk nyata dari suatu konsep. Demi mempermudah dalam proses penyampaian materi (Bagi Pendidik) dan sebagai media belajar (Bagi Siswa) teknologi adalah salahsatu media pembelajaran yang sangat efektif dan efisien.Kali ini, saya akan membuat sebuah amimasi gelombang yang dengan hanya menginput data Amplitudo, Ohm dan Kappa dapat di ketahui y1, y2 dan Superposisi'nya.
Berikut kontrol yang dapat di ubah oleh pengguna :




Berikut Source denya:
Private Sub btnAkhiri_Click()

End

End Sub

Private Sub btnAkhiri_DblClick(ByVal Cancel As MSForms.ReturnBooln)

End

End Sub

Private Sub btnExit_Click()

Dim a

a = MsgBox("Apakah yakin anda akan menutup aplikasi ini?", vbQuestion + vbYesNo + vbDefaultButton2, "Konfirmasi Keluar")

If a = vbNo Then

Exit Sub

End If

For ch w In Appliion.Workbooks

w.Save

Next w

Appliion.Quit

End Sub

Private Sub btnFull_Click()

If btnFull.Caption = "Full Screen" Then

Appliion.DisplayFullScreen = True

btnFull.Caption = "Restore"

Else

Appliion.DisplayFullScreen = False

btnFull.Caption = "Full Screen"

End If

End Sub

Private Sub btnMinimize_Click()

btnFull.Caption = "Full Screen"

Appliion.WindowState = xlMinimized

End Sub

Private Sub btnOpen_Aplikasi_Click()

frmGelombang.Show

End Sub

Public Sub btnOperasikan_Click()

On Error GoTo msg

If textt.Text = "" Then

MsgBox ("Masukan dulu Nilai t Max.!"), vbExclamation, "Perhatian"

Exit Sub

End If

Beep

tmax = textt.Text

For a = 1 To tmax

DoEvents

Cells(5, 3).Value = a

Cells(5, 4).Value = a

DoEvents

Range("t").Select

Range("tt").Select

DoEvents

Next

Beep

Exit Sub

msg:

MsgBox ("Nilai t Max. dalam nomor!"), vbExclamation, "Perhatian"

End Sub
Untuk contoh, dapat di download di sini :

Download
Termiakasih, semoga bermanfaat