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.

Merancang Apliksai Sederhana Perhitungan Kalor dgn Matlab

Metode Elemen Hingga, 29.10.2012, Tek Mesin S1

Setelah pada pertemuan sebelumnya kita membuat aplikasi perhitungan suhu suatu bidang dua dimensi dengan console (text-based), sekarang kita coba untuk membuat aplikasi yang berbasis Graphical User Interface (GUI). Untuk mempraktekannya download gambar berikut ini.

Kemudian pada command window ketik guide. Rancang disain seperti di bawah ini:

Gunakan teknik yang telah dijelaskan pada pertemuan yang lalu untuk menghitung nilai empat suhu di tengah jika atas, bawah, kiri dan kanan diberi suhu. Jika dijalankan hasilnya kira2 seperti di bawah ini.

Graph Theory 2

Mat Diskrit, 29.10.2012, T. Komputer D3

Jika pada pertemuan yang lalu kita menggunakan graph berarah, sekarang kita coba graph yang tidak berarah. Dalam Matlab tidak jauh berbeda teknik memasukkan datanya. Tetap gunakan arah panah sebagai patokan.

Setelah memasukan matriks graphnya:

>> W=[.5 .4 .3 .4 .2 .1];

>> DG=sparse([2 1 4 4 3 5],[1 3 3 2 5 4],W)

>>view(biograph(DG,[],’ShowWeights’,’on’))

Tekan tombol Accept. Akan dihasilkan gambar graph sebagai berikut:

Sekarang mencari Matriks graph untuk mengetahui jalur terpendek:

>> graphallshortestpaths(DG)

ans =

0 1.1000 0.4000 0.7000 0.6000

0.5000 0 0.9000 1.2000 1.1000

1.2000 0.7000 0 0.3000 0.2000

0.9000 0.4000 0.3000 0 0.5000

1.0000 0.5000 0.4000 0.1000 0

Untuk yang tidak berarah:

>> UG = tril(DG + DG’)

Matriks jalur terpendeknya:

>> graphallshortestpaths(UG)

ans =

0 Inf Inf Inf Inf

0.5000 0 Inf Inf Inf

0.4000 Inf 0 Inf Inf

0.7000 0.4000 0.3000 0 Inf

0.6000 0.5000 0.2000 0.1000 0

Mengalikan Matriks (2×3) dengan (3×2)

Aljabar Linear, 25.10.2012, T.Komputer D3, Lab Hardware

Pertemuan yang lalu kita telah membuat program perkalian dua buah matriks 3×3, sekarang kita coba membuat program mengalikan dua buah matriks, yakni matriks 2×3 dengan 3×2. Untuk menerima inputan matriks dari keyboard, buka program yang lalu. Lakukan modifikasi jangkauan i dan j baik untuk matriks kiri (A) dan matriks kanan (B).

Perhatikan kode di atas hasil modifikasi dari program sebelumnya. Deklarasi variabel, tidak ada perubahan, hanya saja format matriks A, B, dan X yang berubah jangkauan matriksnya. Matriks A jumlah baris 2 dan kolom 3, sebaliknya Matriks B dengan jumlah kolom 3 dan baris 2. Jangan lupa, kalang (for) untuk menampilkan matriks A dan B juga harus dimodifikasi.

Akhirnya, setelah Matriks A dan B terbentuk, dibuat satu kalang untuk membuat matriks X hasil perkalian kedua matriks itu. Perhatikan karena hasil kali matriks (2×3) dan (3×2) haruslah berukuran (2×2) maka a dan b dijaga dari 0 sampai 1 (array dimulai dari 0). Jalankan (Ctrl-F9).

Untuk latihan, coba buat program yang mengalikan matriks berapa saja, fleksibel, tergantung masukan ukuran matriks yang akan dikalikan. Tentu saja jika tidak memenuhi syarat, program langsung memberi respon adanya kesalahan tentang ukuran matriks sebagai syarat perkalian.

Graph Theory

Discrete Mathematic, Lab of Software, 23.10.2012, Comp. Engineering D3

Graph theory is an old theory about connection between vertex and edge. It was found in eighteen century by Euler. The first case was about bridge called konisberg. So, as a exercise we try to solve the smallest path to problem below.

Open your Matlab application and try to input that problem into Matlab. In command window, firstly, we create Matrix of vertexes and edges.

W=[.5 .4 .3 .4 .2 .1];
>> DG=sparse([2 1 4 4 3 5],[1 3 3 2 5 4],W)
DG =
(2,1) 0.5000
(5,4) 0.1000
(4,2) 0.4000
(1,3) 0.4000
(4,3) 0.3000
(3,5) 0.2000
view(biograph(DG,[],’ShowWeights’,’on’))

Finaly, we get the shortest path for every node using function ‘graphallshortestpaths‘

>> graphallshortestpaths(DG)

ans =

0 1.1000 0.4000 0.7000 0.6000

0.5000 0 0.9000 1.2000 1.1000

1.2000 0.7000 0 0.3000 0.2000

0.9000 0.4000 0.3000 0 0.5000

1.0000 0.5000 0.4000 0.1000 0

What is that matrix mean? The rows are represent nodes and the columns are another nodes. For example, the shortest path from node 2 to node 5 can be seen at that matrix are the number of row 2 column 5 is 1.1. You can count by your self that the node 2 to node 5 are across node 1 and 3 with 0.5, 0.4 and 0.2 = 1.1 which the same as element (2,5).

Membuat Persamaan dengan Microsoft Equation

Lab Sainstech, 23.10.2012, T.Mesin S1.

Buat persamaan matematik dengan Microsoft Equation. Klik ‘Insert’ – pilih symbol equation:

Contoh untuk nim: 41187001120054, a=5, b=4.

Untuk membuat Matrik, pilih ‘Matrix with Bracket‘.

Hapus isi matrik yang 2 x 2 dan ganti menjadi 3 x 3.

Terakhir, untuk pangkat eksponensial:

Note: Simpan dan beri nama sesuai dengan nama masing-masing. Kirim ke email: rahmadya.trias@gmail.com

Perbandingan Sistem Kendali Kontinyu dan Digital

Buka Simulink untuk memandingkan grafik keluaran antara sistem kendali kontinyu dan dijital. Untuk membandingkan kita gunakan fungsi alih yang sama.

Pilih ‘Continuous‘ dan ‘Diskrit‘ untuk membuat fungsi alihnya.

Untuk mendapatkan ‘Mux‘ gunakan ‘searching” pada simulink. Untuk mencari fungsi alih diskritnya, gunakan command window pada Matlab dan fungsi ‘c2d‘ untuk memperoleh ‘Discrete Transfer Fcn‘.

>> g=tf(1,[1 4 8])
Transfer function:
1
————-
s^2 + 4 s + 8
>> h=c2d(g,0.1,’zoh’)
Transfer function:
0.004367 z + 0.003821
———————-
z^2 – 1.605 z + 0.6703
Sampling time: 0.1

Hasilnya dapat dilihat pada Scope:

Ada sedikit perbedaan pada respon, tetapi akurasinya tetap sama (Lihat Display: 0.89). Ketertinggalan diakibatkan oleh ‘Time Sampling‘ yang kecil. Waktu cuplik yang terlalu akurat mengakibatkan beban saat konversi dari D/A dan A/D. Coba naikan waktu cuplik jadi satu detik, hasilnya:

Hasilnya lebih akurat tetapi akibatnya grafik kurang presisi.

Mengalikan Matriks 3 x 3

Untuk perkalian matriks kita harus mengetahui syarat perkalian dua matriks dimana kolom matriks bagian kiri harus sama dengan baris matriks bagian kanan. Jika tidak memenuhi, program sebaiknya memberi pesan. Hasilnya pun kita harus tahu, yakni berukuran baris matriks bagian kiri dan kolom matriks bagian kanan. Misal kita akan mengalikan matriks berukuran 2×3 dengan 3×2, maka hasil matriksnya adalah 2×2. Karena kasus yang akan kita coba adalah mengalikan matriks 3×3 dengan 3×3, maka dengan mudah kita mendapatkan hasil matriks 3×3 juga. Dengan kode pada tulisan terdahulu, tambahkan di bawahnya kode berikut (jangan lupa deklarasikan int a,b, dan c terlebih dahulu).

//mengalikan matriks A x B

for(a=0;a<3;a++)

{

for(b=0;b<3;b++)

{

X[a][b]=0;

for(c=0;c<3;c++)

{

X[a][b]=X[a][b]+A[a][c]*B[c][b];

}

cout<<“Hasil Kali = \n”;

for(a=0;a<3;a++)

{

for(b=0;b<3;b++)

{

cout<<X[a][b]<<” “;

}

cout<<” \n”;

}

Kebetulan matriks 3×3 unik, berikutnya kita akan coba mengalikan dua matriks yang ukurannya bervariasi.

Memasukan Matriks dengan Turbo/Borland C++

Sebelum masuk ke praktek mengalikan dua buah matriks, ada baiknya berlatih terlebih dahulu memasukan dua buah matriks yang akan dikalikan, misalnya matriks A dan B. Buka Turbo/Borland C++ dan ketik instruksi sebagai berikut:

#include<stdio.h>
#include<iostream.h>
void main()
{
int i,j,A[3][3],B[3][3];
//menginput matriks A
cout<<“Masukkan Matriks A \n”;
for(i=0;i<3;i++)
{
1. for(j=0;j<3;j++)
2. {
  1. cout<<“Masukkan Elemen Matriks ke “<<(i+1)<<“,”<<(j+1)<<” :”;
  2. cin>>A[i][j];
3. }
}
//menginput matriks B
cout<<“Masukkan Matriks B \n”;
for(i=0;i<3;i++)
{
1. for(j=0;j<3;j++)
2. {
  1. cout<<“Masukkan Elemen Matriks ke “<<(i+1)<<“,”<<(j+1)<<” :”;
  2. cin>>B[i][j];
3. }
}
//menampilkan matriks A
cout<<“Matriks A = \n”;
for(i=0;i<3;i++)
{
1. for(j=0;j<3;j++)
2. {
  1. cout<<A[i][j]<<” “;
3. }
4. cout<<“\n”;
}
//menampilkan matriks B
cout<<“Matriks B = \n”;
for(i=0;i<3;i++)
{
1. for(j=0;j<3;j++)
2. {
  1. cout<<A[i][j]<<” “;
3. }
4. cout<<“\n”;
}
}

Jalankan dengan menekan Ctrl-F9 atau mengklik “Debug” – “Run”.

Berikutnya akan kita coba mengalikan dua matriks tersebut.

Setting Router via Cisco Packet Tracer

Lab Networking UNSADA, 17.10.2012

Buka Cisco Packet Tracer (CPT). Gambar diagram seperti di bawah ini. Gunakan dua komputer, dua router dan dua switch.

Klik ganda PC0 untuk mengeset IP Addressnya.

Klik IP Configuration. Isi IP dengan benar. Pilih Static, isi lengkap dengan Default Gateway (IP routernya).

Pilih PC1, isikan juga IP dengan segment yang berbeda dari PC0, lengkap juga hingga Default Gatewaynya (IP Router 1).

Klik ganda pada Router0, isikan IP Address untuk Kabel Fast Ethernet dan Serialnya. Pilih terlebih dahulu interfacenya dilanjutkan dengan mengisi IP address.

Untuk routing, misalnya kita pilih jenis RIP. Masukkan data sebagai berikut di router0 (lakukan isian yang sama di router1):

RIP Routing dipilih alamat network yang akan menjadi tujuan tiap alat yang terkoneksi di jaringan. Uji dengan mengklik paket dari satu PC ke PC lain. Jika hasilnya Success maka setting sudah benar. Atau dobel klik pada PC1, masuk ke Command DOS, ketik >> ping 192.168.2.2. Jika reply, berarti setingan Anda sudah benar.

Penjumlahan dengan Bahasa Rakitan (Debug)

Berhubung ada masalah dengan kelistrikan di lab hardware, berikut ini saya publish cara menjumlahkan dua angka dengan bahasa rakitan (debug). Praktekan dengan komputer yang ada di lab.

Di sini kita harus mengurangi tiap bilangan yang diinputkan dengan 30H untuk keperluan merubah ‘String’ menjadi ‘Numerik’. Sebagai contoh, angka dua dalam ASCII adalah 32H, jika dua ditambah tiga tanpa dikurangi 30H, hasilnya bukan 35H melainkan 65H sehingga hasilnya jauh dari akurat. Untuk memunculkan kalimat ‘Masukkan Angka 1 : ‘ kita gunakan interupt 21 service 09H. Untuk menerima masukan dari keyboard kita gunakan interupt yang sama tetapi dengan servis 01H.

Interupt 21 Servis 09H

Interupt ini bermaksud mencetak satu deretan ‘String’ di layar. Berbeda dengan Servis 02H yang hanya mencetak satu ‘Karakter’, servis ini mencetak isi RAM di alamat offset yang didefinisikan di register DX. Oleh karena itu sebelum program dijalankan, kita harus mengisi terlebih dahulu RAM dengan ‘String’ lewat instruksi ‘f’, singkatan dari ‘fill’. Misal –f200’Masukkan Angka 1 : $’ berarti mengisi RAM di offset 200 dengan kalimat ‘Masukkan Angka 1 : ‘. Perhatikan, selalu diakhiri dengan simbol ‘$’ yang artinya ‘String‘.

Interupt 21 Servis 01H

Interupt DOS ini merupakan servis untuk menangkap masukan dari keyboard yang hasilnya disimpan di register AL. Jadi jika kita masukan angka ‘2’, maka ASCII ‘2’ yang berupa bilangan 32H akan tersimpan di register AL. Karena akan dijumlahkan, maka harus kita konversi terlebih dahulu menjadi 02H dengan cara mengurangi isi register AL tersebut dengan bilangan 30H agar dihasilkan bilangan 02H. Berikutnya isi register AL harus kita pindahkan, misalnya ke register BL, karena AL akan digunakan untuk menampung masukan dari keyboard untuk angka kedua.

Menulis kode di Debug.Exe

Berikutnya kita mulai menuliskan kode program di debug. Masuk ke DOS prompt lewat ‘Start’ – ‘Run’ – ‘Ketik CMD’. Setelah masuk ke DOS, ketik ‘debug’. Kita mulai membuat program di alamat offset ‘100’, dengan mengetik ‘- a100’.

Ketika kita salah mengetik instruksi, debug langsung menunjukkan lokasi kesalahannya (lihat offset 0124). Jika kita jalankan, misal angka pertama 2 dan angka kedua 3 maka dihasilkan angka 5. Untuk menjalankan ketik ‘g’ yang artinya ‘Go’.

Algoritma Genetik

M.Kul: Matematika Diskrit :Fungsi & Relasi, Lab Hardware

Fungsi dan relasi merupakan inti dari komputasi. Karena komputasi melibatkan bilangan-bilangan maka pengetahuan terhadap jenis-jenis bilangan perlu dikuasai. Fungsi melakukan komputasi terhadap bilangan bilangan itu. Jika komputasi dilakukan berulang dalam suatu iterasi maka perlu ada relasi antara fungsi dengan jangkauan iterasi tersebut. Misal kita akan melakukan komputasi dengan fungsi:

y=(x-3)^2+10 dengan jangkauan x=1 hingga 10.

Buka Matlab dan buat fungsinya:

Terkadang kita tidak hanya diminta mencari nilai suatu fungsi saja, melainkan mencari nilai optimumnya. Pada fungsi di atas, misalkan kita diminta mencari hariga y terendah dalam rentang tersebut. Berbagai macam cara banyak ditempuh. Cara konvensional adalah dengan menyamadengankan nol fungsi turunannya, sehingga nilai x-nya, yang merupakan nilai yang menghasilkan y terendah, diketahui. Kita akan mencoba melakukan optimasi dengan Algoritma Genetik.

Buka toolbox optimasi dengan mengetik

>>optimtool(‘ga’)

Isikan fitness function dengan @fungsi

Bounds, batas bawah = [1] dan batas atas = [10]

Pada ‘Option‘ pilih plot function ‘Best Fitness‘ dan ‘Best Individual‘.

Klik’Start’, Lihat plot yang dibuat, Hasilnya Nilai Fitness 10, Individual terbaik 3.

Alur cerita mengapa bisa diperoleh nilai tersebut adalah dengan proses pembangkitan bilangan random, diuji nilai fitness-nya, dicari individu yang survive dan dilakukan proses crossover, mutasi, dan lain-lain dengan terlebih dahulu mengkonversinya menjadi biner.

Membuat Program Perhitungan Suhu

Jika hitungan matematis sudah berjalan dengan normal di ‘Command Window’, kita akan membuat aplikasinya. Aplikasi pertama berbasis Konsol (Command prompt)/DOS. Ketik nama program di ‘Command Window’, misalnya ‘kalor’ >> Edit kalor. Ketika ada peringatan bahwa nama tersebut tidak ada berarti kita tekan ‘Yes’.

Berikutnya Anda masuk ke Editor M-File (M-File Editor) tempat dimana kode program dibuat. Kita akan membuat program dengan masukkan suhu bagian atas, kanan, kiri, dan bawah. Jika dieksekusi, akan keluar informasi kalor di titik 1, 2, 3, dan 4. Masukan kode program berikut ini:

function y=kalor()
Qatas=input(‘Masukkan suhu bagian atas : ‘);
Qbawah=input(‘Masukkan suhu bagian bawah : ‘);
Qkiri=input(‘Masukkan suhu bagian kiri : ‘);
Qkanan=input(‘Masukkan suhu bagian kanan : ‘);
Q=[-1*(Qbawah+Qkiri); -1*(Qbawah+Qkanan);-1*(Qkanan+Qatas);-1*(Qatas+Qkiri)]
M=[-4 1 0 1; 1 -4 1 0;0 1 -4 1;1 0 1 -4]
T=inv(M)*Q
pause

Baris kedua – lima bermaksud mengambil masukan kalor yang menempel di pinggir kotak, yang kemudian dikumpulkan dalam satu matriks Q dengan mengkonversi dari kombinasi kiri, atas, bawah, dan kanan. Baris 7 memasukan matriks kalor, dilanjutkan dengan menghitung Matriks suhu di baris 8. Hasilnya sebagai berikut:

>> 200

ans =

200

>> kalor

Masukkan suhu bagian atas : 300

Masukkan suhu bagian bawah : 500

Masukkan suhu bagian kiri : 400

Masukkan suhu bagian kanan : 200

Q =

-900

-700

-500