MEMBUAT ANIMASI GELOMBANG DARI MICROSOFT EXCEL 2010 DENGAN VBA

Start Download (Tested Link)

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 codedenya:

Private Sub btnAkhiri_Click()

End

End Sub

Private Sub btnAkhiri_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

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 Each w In Application.Workbooks

w.Save

Next w

Application.Quit

End Sub

Private Sub btnFull_Click()

If btnFull.Caption = “Full Screen” Then

Application.DisplayFullScreen = True

btnFull.Caption = “Restore”

Else

Application.DisplayFullScreen = False

btnFull.Caption = “Full Screen”

End If

End Sub

Private Sub btnMinimize_Click()

btnFull.Caption = “Full Screen”

Application.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 :

Termiakasih, semoga bermanfaat