Kamis, 29 April 2010

Materi Visual basic







Materi Visual Basic untuk Pengulangan While, Do While ,Loop until
dibawah ini adalah source Code Pembuatan format tanggal / bulan /tahun

Dim tgl,bln,thn as integer
tgl=1
do
cmbtgl.item.add(tgl)
tgl=tgl+1
loop while(tgl <=31)
========================
Dim tgl,bln,thn as integer
tgl=1
do
cmbtgl.item.add(tgl)
tgl=tgl+1
loop until(tgl=31)

==============================
Dim tgl, bln,tahun as integer
while tgl <= 31
cmbtgl.item.add(tg)
tgl=tgl+1
end while
===========================

Source Code UTS Materi untuk FakturBarang








Sedangkan Designnya seperti gambar berikut


Untuk nilai dari Label Design Jumlah ...








Untuk Nilai dari Label Harga Satuan ...








Untuk Nilai dari Label Total Harga..


Selasa, 13 April 2010

Struktur Data(pengurutan)

Alhamdulilah tertanggal 12 April 2010 , hasil kerja kelompok 2 untuk teori struktur data yang beranggotakan 3 orang :
1.Sunaini,
2.Dakrun,
3.Ery Ferdian

Hasil Kerja dari soal kelompok 2 tentang Struktur data (pengurutan)
Data Awal sebagai berikut : 30| 29 | 15 | 30 | 45 | 32 | 78 | 100 | 97 | 98 |
Ditanya:
- Nilai i (awal) , N , x , dan j
- Iterasinya
- Tablenya
- Nilai pergeseran,rata-rata, Nilai Min,Nilai Max.
- Jumlah Perbandingan ,rata-rata, Nilai Min, Nilai max.

Penyelesaian :
1. N=10
* Pada saat i=1 , x=data[1]=29 dan j=0,karena data[0]=30 dan 29<30,maka dilakukan pergeseran sampai ditemukan data yang lebih kecil dari 29. Hasil pergeseran ini data[1]=30 sedangkan data[0]=x=29

* Pada saat i=2 , x=data[2]=15 dan j=1,karena data[1]=30 dan 15 < 30 , maka dilakukan pergeseran sampai ditemukan data yang lebih kecil dari 15.Hasil pergeseran ini data[1]=29 dan data[2]=30 sedangkan data[0]=x=15.

* Pada saat i=3, x=data[3]=30 dan j=2,karena data[2]=30 dan 30=30 maka proses dilanjutkan i=4.

* Pada saat i=4, x=data[4]=45 dan j=3,karena data[3]=30 dan 45>30,maka proses dilanjutkan i=5.

* Pada saat i=5,x=data[5]=32 dan j=4,karena data[4]=45 dan 32<45,maka dilakukan pergeseran sampai ditemukan data yang lebih kecil dari 32. Hasil pergeseran ini, data[0]=15,data[1]=29,data[2]=30,data[3]=30,data[4]=32,dan data[5]=45.

* Pada saat i=6,x=data[6]=78 dan j=5,karena data[5]=45 dan 78>45,maka proses dilanjutkan i=7.

* Pada saat i=7,x=data[7]=100 dan j=6,karena data[6]=78 dan 100 >78,maka proses dilanjutkan i=8.

* Pada saat i=8,x=data[8]=97 dan j=7,karena data[7]=100 dan 97 <100,maka dilanjutkan pergeseran sampai ditemukan data yang lebih kecil dari 97.Hasil pergeseran ini,data[0]=15,data[1]=29,data[2]=30,data[3]=30,data[4]=32,data[5]=45,data[6]=78,data[7]=97,sedangkan data[8]=100.

* Pada saat i=9,x=data[9]=98 dan j=8, karena data[8]=100 dan 98<100,maka dilakukan pergeseran sampai ditemukan data yang lebih kecil dari 98.Hasil pergeseran ini,data[0]=15,data[1]=29,data[2]=30,data[3]=30,data[4]=32,data[5]=45,data[6]=78,data[7]=97,data[8]=98,data[9]=100.

Tabel
===============================================
Awal | 30 | 29 | 15 | 30 | 45 | 32 | 78 | 100 | 97 | 98 |
Data |[0] | [1]| [2]|[3] |[4] |[5] |[6] | [7] |[8] |[9] |
===============================================
i=0 | 30 | 29 | 15 | 30 | 45 | 32 | 78 | 100 | 97 | 98 |
===============================================
i=1 | 29 | 30 | 15 | 30 | 45 | 32 | 78 | 100 | 97 | 98 |
===============================================
i=2 | 15 | 29 | 30 | 30 | 45 | 32 | 78 | 100 | 97 | 98 |
===============================================
i=3 | 15 | 29 | 30 | 30 | 45 | 32 | 78 | 100 | 97 | 98 |
===============================================
i=4 | 15 | 29 | 30 | 30 | 45 | 32 | 78 | 100 | 97 | 98 |
===============================================
i=5 | 15 | 29 | 30 | 30 | 32 | 45 | 78 | 100 | 97 | 98 |
===============================================
i=6 | 15 | 29 | 30 | 30 | 32 | 45 | 78 | 100 | 97 | 98 |
===============================================
i=7 | 15 | 29 | 30 | 30 | 32 | 45 | 78 | 100 | 97 | 98 |
===============================================
i=8 | 15 | 29 | 30 | 30 | 32 | 45 | 78 | 97 | 100 | 98 |
===============================================
i=9 | 15 | 29 | 30 | 30 | 32 | 45 | 78 | 97 | 98 | 100 |
===============================================
Akhir| 15 | 29 | 30 | 30 | 32 | 45 | 78 | 97 | 98 | 100 |
===============================================

Nilai Pergeseran
-------------------
M min = 2 ( N-1)
= 2( 10-1)
= 18

M Rata-rata = (N pangkat2 + 7N-8)/4
= (10 pangkat 2 + 7.10-8 )/4
= (100 + 70-8)/4
= 40,5
M max = (N pangkat2 + 3N-4)/2
=( 10 pangkat2 +3.10-4)/2
=(100 + 30-4) /2
= 126/2
= 63

Jumlah Perbandingan
C min = N-1
= 10 -1
= 9

C rata-rata = (N pangkat2 + N+2)/4
= (10pangkat2 +10+2)/4
= (100 + 12)/4 = 112/4 = 28

C max = (Npangkat2 + N-2)/2
= (10pangkat2 + 10-2)/2
= (100 + 10-2)/2
= 108/2 = 54