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