Pembahasan Tugas Pemrograman Visual 8

  kita dapat melihat bahwa saat Button 1 di klik maka program akan menjalankan algoritma yang telah di tulis sebelumnya, yaitu perlulangan, i = 0 To UBound(args) 

hasil(0) = hasil(0) + args(i)   "ini di gunakan untuk mencari total jumlah dari angka-angka yang ada , dan hasilnya akan di masukan pada kotak total, terbesar dan nilai terkecil" 

  pada coding berikut :

if hasil(1) > args(i) then hasil(1) = args (i)

if hasil(2) < args(i) then hasil(2) = args (i)

merupakan proses pencarian nilai, sedangkan :

Textbox1.text = statistik(0)  = textbox1 akan menampilkan proses hasil(0)

Textbox2.text = statistik(1) =  textbox2 akan menampilkan proses hasil(1)

Textbox3.text = statistik(2) = textbox3 akan menampilkan proses hasil(2)

Sedikit memberikan informasi bahwa dalam VB.net 2010 terdapat beberapa Function bawaan,  Antara lain :

• Fungsi Numeric
  CInt () : Pembuatan nilai desimal 0.5 dan lebih ke integer yang lebih dekat
  Fix ()   : Pemotongan suatu nilai desimal menjadi integer
  Int ()    : Pembuatan ke bawah suatu nilai desimal

• Fungsi String
  Left      : mengambil karakter dari sebelah kiri
  Right    : mengambil karakter dari sebelah kanan

•  Fungsi Tanggal dan Waktu   

          Date () : menetapkan tanggal dari sistem
         Time () : menetapkan waktu dari sistem



Sekian tulisan dari saya. Terima kasih.

tugas 7

Setelah menjalani UTS kini mulai Lagi dengan tugas yang terus menumpuk...

Kali ini saya akan sedikit membagi pengetahuan saya tentang MDIForm pada VB.net 2010


kita mulai dari cara pembuatan Mdi form pada Vb,net 2010

pertama kita buat windows form biasa dengan nama "terserah pembaca"
lalu pada Properties form cari IsMdiContain, rubah isi properties tersebut dari false menjadi true... maka akan terlihat seperti gambar berikut...

kemudian kita coba tambahkan menu strip...
pilihan menustrip ada pada toolbox bagian menu&Toolbars..
double klik pada pilihan menustrip, maka akan muncul tampilan seperti gambar berikut

selanjutnya kita tambahkan isi dari menustrip dengan cara menuliskan isi konten pada menustrip..
contoh isian dari menu strip bisa dilihat pada gambar berikut..

kita tambahkan form baru pada project ini sebanyak 4 form baru dengan cara klik kanan pada properties project lalu plih add windows form..

Setelah itu kita menambahkan coding pada masing masing menu seperti berikut...

Public Class Form1

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub HorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HorizontalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

    Private Sub VerticalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VerticalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub

    Private Sub CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub

    Private Sub Form2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Form2ToolStripMenuItem.Click
        Form2.MdiParent = Me
        Form2.Show()
    End Sub

    Private Sub Form3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Form3ToolStripMenuItem.Click
        Form3.MdiParent = Me
        Form3.Show()
    End Sub

    Private Sub Form4ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Form4ToolStripMenuItem.Click
        Form4.MdiParent = Me
        Form4.Show()
    End Sub

    Private Sub Form5ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Form5ToolStripMenuItem.Click
        Form5.MdiParent = Me
        Form5.Show()
    End Sub
End Class
Demikian Sedikit Info yang dapat saya berikan...