Postingan

Menampilkan postingan dari Desember, 2012

Contoh program Penerapan Function pada Microsoft Visual Studio 2010

Gambar
Function dengan Microsoft Visual Studio 2010 A. FUNCTION DENGAN RETURN VALUE BERUPA ARRAY Desain form seperti dibawah ini: Public Class Form1      Private Function fstat(ByVal ParamArray args() As Object) As Single()         Dim hasil(3) As Single         Dim i As Integer         For i = 0 To UBound(args)          hasil(0) = hasil(0) + args(i)           If i = 0 Then           hasil(1) = args(i)            hasil(2) = args(i)            End If             If hasil(1) > args(i) Then hasil(1) = args(i)          If hasil(2) < args(i) Then hasil(2) = args(i)          Next i         Return hasil        End Function     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click         Dim statistik As Single() = fstat(21, 30, 5, 19, 33, 89, 4)         TextBox1.Text = statistik(0)         TextBox2.Text = statistik(1)         TextBox3.Text = statistik(2)       End Sub End Class

Tugas 7 (tujuh)

Gambar
MDI FORM Form 1 seperti dibawah ini : Ubah Properti  IsMDIContainer  pada form 1  menjadi  true Gunakan Dock  pada propertis Untuk memindahkan tempat standar bar dikiri, kanan, atas atau tengah. Untuk Form 2 Codingnya Public Class Form2     Private Sub Form2_Load( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles MyBase .Load         Me .MdiParent = Form1     End Sub End Class Dan form 3 Public Class Form3     Private Sub Form3_Load( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles MyBase .Load         Me .MdiParent = Form1     End Sub End Class Setelah di Run pada windows kita pilih cascade hasilnya seperti ini: Dan horisontal seperti ini: Dan yang terakhir vertikal: Dan cascade : Coding pada form 1:: Public Class Form1     Private Sub Tugas1ToolStripMenuItem_Click(