MAKE ANIMATED WAVE IN EXCEL 2010 WITH VBA

Physics can not be separated from the lrning associated with nature seitar or tangible form of a concepts. For the sake of se in the process of delivering the material (for Eduors) and as a medium of lrning (for students) technology is one of the main medium of lrning a highly effective and efficient.

This time, I will make a amimasi wave by simply inputting the data amplitude, Ohm and Kappa can be in the know y1, y2 and Superposition.The following controls can be changed by the user:





Source themselves the following:
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
For example, can be downloaded here:

Download
Thank you, may be useful