MAKE ANIMATED WAVE IN MICROSOFT EXCEL 2010 WITH VBA

Start Download (Tested Link)

Physics can not be separated from the learning associated with nature seitar or tangible form of a concepts. For the sake of ease in the process of delivering the material (for Educators) and as a medium of learning (for students) technology is one of the main medium of learning 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 code themselves the following:

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

For example, can be downloaded here:

Thank you, may be useful