Koneksi dua Tabel dalam Satu Form

Pemr VB 6, 30.10.2012, Tek Sipil S1

Melanjutkan materi minggu lalu, kita mencoba menambahkan satu table dalam satu Form di VB. Tambahkan satu tabel baru di Database yang telah Anda buat, misalnya tabel transaksi. Tabel ini berisi transaksi penjualan material.

Untuk latihan, isi field-field di tabel transaksi yaitu No, kode dan Total. Masukan satu record awal, misalnya pembelian barang dengan kode 001 sebesar 110000. Klik Database Tools, buat relasi antara tabel material dengan tabel transaksi. Perhatikan, kode barang pada transaksi harus terkoneksi dengan kode barang pada tabel material.

Jika sudah selesai, buka project VB yang lalu, tambahkan DBGrid dan ADODC baru untuk mengkoneksikan tabel transaksi ke form tersebut. Gunakan cara yang sama dengan materi minggu lalu.

Coba koneksikan sehingga jika dijalankan Data Grid di bawah akan berisi data transaksi. Lanjut minggu depan bagaimana mengisi kode-nya.

Mengalikan Matriks dengan Ukuran Bervariasi

Aljabar Linear, 30.10.2012, T.Komputer

Jika pada pertemuan yang lalu kita mengalikan matriks ukuran 2×3 dengan 3×2, sekarang kita akan mengalikan matriks yang ukurannya tergantung dari pengguna asalkan tidak menyalahi kaidah perkalian (jumlah kolom matriks kiri harus sama dengan jumlah baris matriks kanan). Gunakan listing berikut ini (jika mengkopi – paste, jangan lupa simbol petik ” harus diketik ulang):

  • #include<stdio.h>
  • #include<iostream.h>
    • void main()
    • {
    • int i,j,A[5][5],B[5][5],ia,ja,ib,jb,a,b,c,X[5][5];
    • //menginput matriks A
    • cout<<“Masukkan Jumlah Baris Matriks A : “;
    • cin>>ia;
    • cout<<“Masukkan Jumlah Kolom Matriks A : “;
    • cin>>ja;
    • cout<<“Masukkan Matriks A \n”;
    • for(i=0;i<ia;i++)
    • {
      • for(j=0;j<ja;j++)
      • {
        • cout<<“Masukkan Elemen Matriks ke “<<(i+1)<<“,”<<(j+1)<<” :”;
        • cin>>A[i][j];
      • }
    • }
    • //menginput matriks B
    • cout<<“Masukkan Jumlah Baris Matriks B : “;
    • cin>>ib;
    • cout<<“Masukkan Jumlah Kolom Matriks B : “;
    • cin>>jb;
    • cout<<“Masukkan Matriks A \n”;
    • for(i=0;i<ib;i++)
    • {
      • for(j=0;j<jb;j++)
      • {
        • cout<<“Masukkan Elemen Matriks ke “<<(i+1)<<“,”<<(j+1)<<” :”;
        • cin>>B[i][j];
      • }
    • }
    • //menampilkan matriks A
    • cout<<“Matriks A = \n”;
    • for(i=0;i<ia;i++)
    • {
      • for(j=0;j<ja;j++)
      • {
        • cout<<A[i][j]<<” “;
      • }
      • cout<<“\n”;
    • }
    • //menampilkan matriks B
    • cout<<“Matriks B = \n”;
    • for(i=0;i<ib;i++)
    • {
      • for(j=0;j<jb;j++)
      • {
        • cout<<B[i][j]<<” “;
      • }
      • cout<<“\n”;
    • }
    • //mentraspose matriks A
    • cout<<“Transport matriks A : “<<“\n”;
    • for(j=0;j<ja;j++)
    • {
      • for(i=0;i<ia;i++)
      • {
        • cout<<A[i][j]<<” “;
      • }
      • cout<<“\n”;
    • }
    • //Mengalikan Matriks A dengan B
    • cout<<“Hasil kali Matriks A dengan B :”<<“\n”;
    • cout<<“Ukuran Matriks = “<<ia<<“x”<<jb<<“\n”;
    • for(a=0;a<ia;a++)
    • {    for(b=0;b<jb;b++)
      • {X[a][b]=0;
      • for(c=0;c<ja;c++)
      • {
      • X[a][b]=X[a][b]+A[a][c]*B[c][b];
      • }
      • }
    • }
    • //Menampilkan Matriks X
    • for(a=0;a<ia;a++)
    • {    for(b=0;b<jb;b++)
      • {
      • cout<<X[a][b]<<” “;
      • }
      • cout<<“\n”;
    • }
    • }

Setelah dijalankan akan dihasilkan perkalian matriks dengan ukuran yang ditentukan oleh pengguna program.

Ganti Baris Pada Bahasa Rakitan (Debug)

Ganti baris pada bahasa rakitan prinsipnya adalah mencetak dua kode ASCII 0D dan 0A berturut-turut. Di sini ASCII 0A berfungsi turun satu baris, sedangkan 0D geser ke kiri satu baris. Jika kita hanya menggunakan 0A maka baris berikutnya akan maju satu digit dari yang atasnya (ada offset).

Perhatikan gambar di atas, hurub ABC akan ada offset satu ketukan tiap ganti baris, Oleh karena itu saat berganti baris kita harus tambahkan 0D agar bergeser ke kiri juga dan tidak hanya turun satu baris. Perhatikan listing berikut ini.

Perhatikan, hasilnya ABC tercetak dalam baris yang berbeda tetapi dalam kolom yang sama dan tidak ada offset ke kanan satu digit. Sengaja digunakan push dan pop sekalian belajar instruksi itu .. dan biar pusing dikit J.