Tugas 8

PENJELASAN OVERLOADING FUNCTION

 

 

     Overloading function merupakan beberapa fungsi atau method yang memiliki daftar parameter yang berbeda tetapi memiliki nama yang sama. Sebagai contoh adalah program dibawah ini. Terdapat 2 Fuction hitung pada program ini namun program hanya akan menjalankan salah satunya saja.

hitung = bil1 + bil2 + bil13

FUNCTION VISUAL BASIC 2010

Pada Visual Basic 2010 terdapat banyak function yang mana berfungsi sebagaimana mestinya dan di sesuaikan dengan kondisi kebutuhan si programmer, berikut ini beberapa function yang tidak bisa di sebutkan semuanya:

Asc()
Mengembalikan nilai integer dari parameter yang berupa karakter, bisa dibilang akan menghasilkan kode ASCII dari karakter yang dijadikan parameter
AscW()
sama seperti Asc() hanya saja parameter yang dgunakan adalah bertipe string
BeginInvoke()
Mengeksekusi sebuah thread secara spesifik
CallByName()
Mengeksekusi sebuah method dalam sebauah objek, atau mengeset atau mengembalikan sebuah property dari sebuah objek
CBool()
Mengkonversi sebuah ekspresi/parameternya menjadi tipe boolean
CByte()
Mengkonversi sebuah ekspresi/parameternya menjadi tipe data byte
CChar()
Mengkonversi sebuah ekspresi/parameternya menjadi tipe data character
CDate()
Mengkonversi sebuah ekspresi/parameternya menjadi tipe data date
CDbl()
Mengkonversi sebuah ekspresi/parameternya menjadi tipe data double
CDec()
Mengkonversi sebuah ekspresi/parameternya menjadi tipe data decimal
Choose()
Memilih dan mengembalikan sebuah nilai dari sekumpulan argument
Chr()
Mengembalikan sebuah karakter dari kode/parameter yang digunakan
ChrW()
sama seperti Chr
CInt()
Mengkonversi sebuah ekspresi/parameternya menjadi tipe data integer
cLng()
Mengkonversi sebuah ekspresi/parameternya menjadi tipe data long
CObj()
Mengkonversi sebuah ekspresi/parameternya menjadi tipe objek
Contains()
Mengembalikan sebuah nilai apakah control yang dimaksud adalah anak/turunan dari sebuah control
CreateGraphics()
Membuat System,Drawing.Graphics pada sebuah control
CSByte()
Mengkonversi sebuah ekspresi/parameternya menjadi tipe data SByte
CShort()
Mengkonversi sebuah ekspresi/parameternya menjadi tipe data short
CSng()
Mengkonversi sebuah ekspresi/parameternya menjadi tipe data Single
CStr()
Mengkonversi sebuah ekspresi/parameternya menjadi tipe data String
CUInt()
Mengkonversi sebuah ekspresi/parameternya menjadi tipe data UInteger
CULng()
Mengkonversi sebuah ekspresi/parameternya menjadi tipe data ULong
CurDir()
Mnegembalikan sebuah string yang menggambarkan sebuah path
CUShort()
Mengkonversi sebuah ekspresi/parameternya menjadi tipe data UShort
DoDragDrop()
Memulai aksi drag and drop
Environ()
Mengembalikan string yang menunjukan operasi sitem yang bekerja
EOF()
Mengembalikan niai true jika akhir dari file sudah tercapai
Err()
Memuat informasi tentang Run Time Error
ErrorToString()
Mengembalikan pesan error yang terkoresponden dengan nomer error
FreeFile()
Mengembalikan sebuah nilai integer yang menggambarkan nomer urut dari file berikutnya yang tersedia untukdigunakan untuk fungsi FileOpen
GetChar()
Mengembalikan nilai char dari suatu index sebuah string
GetTopLevel()
Mengembalikan nilai true jika sebuah control berada pada level tertinggi
GetType()
Mendapatkan System.Type dari instance yang aktif
Hex()
Mengembalikan sebuah string yang menampilkan nilai heksadesimal dari parameter yang digunkan
Hour()
Mengembalika sebuah angka dari 0 hingga 23 yang menandakan jam dalam 1 hari
Int()
Mengembalikan senuah porsi integer dari sebuah angka
IsArray()
Mengembalikan sebuah pernyataan apakah parameter merupakan array atau bukan
IsDate()
Mengembalikan sebuah pernyataan apakah parameter merupakan date atau bukan
LBound()
Mengembalikan indeks dari batas terbawah sebuah array
LCase()
Mengembalikan string ataupun character yang sudah diubah ke lowercase
Len()
Mengembalikan sebuah angka yang menunjukkan panjangnya sebuah string
Mid()
Mengembalikan string yang berada di tengah kata
Minute()
Mengembalikan angka dari 1 sampai 59 dalam satu jam
Month()
Mengembalikan angka dari 1 sampai 12 dalam satu tahun
MsgBox()
Mengembalikan sebuah objek berupa message box
Oct()
Mengembalikan sebuah string yang menampilkan nilai octal dari parameter yang digunkan
QBColor()
Mengembalikan kode warna RGB dari angka pada parameter yang digunakan
Rnd()
Mengembalikan sebuah angka bertipe single yang telah diacak 

 

Contoh dari funcition msgbox

 

 

Tugas 7

TUGAS VB 7

Hari ini saya akan membahas tentang menu, toolbar, dan MDI form dimana kita akan membuat suatu aplikasi yang menggunakan toolbox menus & tollbars,yang disitu terdapat menu ContextMenuStrip, MenuStrip, StatusStrip, ToolStripContainer, ToolStrip yang nanti akan kita gunakan:

pada gambar diatas kita gunakan MenuStrip dan ToolStrip,diatas saya tambah kan menu latihan, tugas, dan Exit,selain dari menu standar file, edit, tools, dan help.
pada menu latihan dan tugas terdapat beberapa latihan dan tugas yang nantinya bisa kita buka,

setelah form yang telah kita buka tadi,kita bisa membuat form-form itu menjadi berurutan atau cascade,dengan mengklik icon cascade yang telah ada,dengan mengklik icon cascade maka akan menghasilkan sebagai berikut:

terdapat juga pilihan lain selain cascade yaitu horizontal dan vertical,pada icon yang telah tersedia
hasil dari icon horizontal

Hasil dari icon Vertical:

pada menu Tugas saya menggunakan showdialog,dan apabila telah dibuka maka tidak bisa membuka form lain,

sort program:
Public Class Form1

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

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

    End Sub

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

    End Sub

    Private Sub ExitToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem1.Click
        If MsgBox("Anda yakin akan keluar dari apikasi ini?", vbQuestion + vbYesNo + vbDefaultButton2, "Keluar") = MsgBoxResult.Yes Then Me.Close()
    End Sub

    Private Sub ToolStripMenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem5.Click
        Form2.ShowDialog()

    End Sub

    Private Sub ToolStripMenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem6.Click
        Form3.ShowDialog()

    End Sub

    Private Sub ToolStripMenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem7.Click
        Form4.ShowDialog()

    End Sub

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

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

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

TUGAS VB 3

1.Saat form dijalankan : semua isian tidak aktif, tombol isidata dan tutup aktif, tombol clear tidak aktif

2.Saat ditekan tombol isi data : kodebarang, jumlahbarang, cara beli, tombol clear, aktif, tombol isidata tidak aktif

3.Saat ditekan combol clear sama dengan saat form dijalankan

 

tampilan awal dari form yang telah di rubah :

dan terdapat coding yang kita tambah sehingga menjadi seperti di bawah ini :

maka hasil yang akan keluar apa bila kita klik button isi data :

1.Saat form dijalankan posisi angka acak

2.Saat ditekan tombol yang terletak di dekat tombol kosong maka tombol tersebut akan menempati tombol kosong, begitu seterusnya sampai dengan angkanya tersusun dari 1 sampai 8

3.Saat angka sudah tersusun tampilkan pesan selamat anda berhasil

 

dengan coding sebagai berikut :

 

 

TUGAS PRAKTIKUM KE-2 VB

LATIHAN 1 NOMOR 3

  

• Apa yang menyebabkan error pada Btalamat1_Click baris program “alamat=Kuningan”?
  
  
  Karena dimana dari nilai konstanta yang tidak bisa dirubah-rubah,seharusnya diganti menjadi variabel lokal yaitu
  Private Sub Btalamat1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btalamat1.Click
          Dim alamat As String
          alamat = "Kuningan"
          Txtalamat.Text = alamat
      End Sub
  Digunakan untuk memanggil dari nilai tersebut
   
• Kenapa saat ditekan tombol nama 1 dan nama 2 yang ditampilkan pada textbox nama berbeda sedangkan saat ditekan tombol alamat 1 dan alamat 2 yang ditampilkan pada textbox alamat sama ? 
  Pada pada Nama 1 menggunakan variable lokal (Dim) dimana hanya dapat dikenali pada nama 1 saja sedangkan pada Nama 2 tidak adanya pendeklarasian lokal sehingga Nama 2 hanya memanggil value dari nama dan langsung mengambil dari module,karena pada module menggunakan pendeklarasian 
  Public Const nama As String = "Nandang Hermanto"
  sehingga dapat dikenali oleh semua koponen asalkan penulisan nama varibelnya sama
  pada alamat 1 dan alamat 2 kedua-duanya mengambil value langsung dari Const alamat = "Kuningan" maka hasil pemanggilan dari keduanya yaitu hanya kuingan saja.
   
• Kenapa saat ditekan tombol tambah umur 1 selalu keluar angka 1 sedangkan saat ditekan tombol tambah umur 2 selalu bertambah satu dari umr sebelumnya ?
  Karena pada tambah umur 1 menggunakan variabel lokal Dim,
          Dim umur As Integer
          umur += 1
          Txtumur.Text = umur
  Dimana umur dideklarasikan dengan nilai awal 1 dan bersifat tetap.
  
  
  Sedangkan pada tambah umur 2 menggunakan ,
  Static umur As Integer
          umur += 1
          Txtumur.Text = umur
  Dimana dapat diartikan bahwa dia dapat menambahkan sesuai dengan apa yang telah kita set 
  selama program dijalankan,dan nilainya tidak akan hilang. 
   
  Analisa pada Form 2
  Untuk menampilkan form 2 setelah form1 kita haru memasukan codenya Form2.ShowDialog()
  Sehingga form2 dapat dipanggil dan digunakan.
  
  
  LATIHAN PROGRAM KE 2 IF DAN CASE
  
  
  A.    Pada item TST dan TOP terdapat kesalahan harga Yang seharusya 
  pada TST bukan 1500000 tetapi 150000 dan TOP bukan 500000 tetapi 50000
  
  
  
  
  
  B.    Pada Txtjumlah_ Pada combobox seharusya pada item TAS harus di isi sehingga menjadi
  Case "TAS"
                  namabarang = "Tas"
                  harga = 150000
  
  
  
  
  
  C.    TextChanged pada code Txt bayar kita bisa hapus terlebih dahulu sehingga pada pengisian Total Bayar tidak langsung keluar,dan keluar setelah kita klik radibutton Tunai / Kredit maka hasilnya akan keluar
  
  
  
  
  
   
  D.   Jika kita klik tombol clear tidak semua form akan hilang semua,pada kolom diskon dan total bayar masih terdapat angaka 0