MAKE ANIMATED WAVE IN MICROSOFT EXCEL 2010 WITH VBA


MAKE ANIMATED WAVE IN MICROSOFT EXCEL 2010 WITH VBA

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