Answer to UTS Sisbar 2011

NIch udh qw bikinin jawaban nya sekalian..
klik link www.ziddu.com/download/14902782/Answer_Sisbar.rar.html

selamat menghafal nya,,,
semoga ujian besok lancaarrr,,,
cahhyooo TI 2a,,
keep to spirit,,

Kisi2 Sisbar

kisi- kisi sisbar UTS,,,,

silahkan download di link di bawah ini.,,,

http://www.ziddu.com/download/14902396/Kisi2Sisbar.rar.html

Interface Menu Transaksi Makanan Kantin Menggunakan Vb.net

Bagi teman2 yg ingin belajar men-design interface Menu Transaksi Makanan Kantin datpat menggunakan aplikasi Vb.net.......Saya di sini akan membantu teman2 dalam membikin Interface nya..
Pertama teman2 hrus membuka aplikasi vb.net menggunakan Visual Studio 2010, setelah itu kita mulai men-design nya dgn memilih Label yang terdapat di Menu Toollbox, Label ini berfungsi untuk membikin Tulisan yang kita ingin kan,misalnya di gambar: Makanan.
Setelah itu kita men-design Check Box, saya memilih check box karena dalam Menu makanan terdapat banyak jenis makan, sihingga apa bila kita menginginkan lebih dari satu makanan maka, kita hanya mencheck box nya ajaa...berbeda dengan ComboBox, tool ini tidak dapat memilih makan, lebih dari satu,,,,,
Selanjutnya men-design menu transaksi nya dengan memasukkan toll Text Box, ini berfungsi untuk menampilkan harga makanan, sub total,ppn, jumlah bayar, dan uang kembali....
Kemudian yg terakhir kita men-design Button Hitung, Clear, dan Close..toll Hitung ini untuk mengitung transaksi yang telah kita pilih tadi....
CUKUP mudah bukannnn...hehhehehheheh.....

Note: jangan lupa me nganti name properties nya ya sesuai di script......

Untuk Finishing nya kita masukkan source code nya...
Public Class kantin
Dim a, b, c, d, en, f, g, h, i As Integer

Private Sub bebek_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bebek.CheckedChanged
Dim z As Boolean

z = Val(bebek.Checked)

If z = True Then
a = "11000"

Else
a = "0"
End If
End Sub

Private Sub pecel_lele_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pecel_lele.CheckedChanged
Dim z As Boolean

z = Val(pecel_lele.Checked)

If z = True Then
b = "4300"

Else
b = "0"
End If
End Sub

Private Sub ayam_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ayam.CheckedChanged
Dim z As Boolean

z = Val(ayam.Checked)

If z = True Then
c = "9500"

Else
c = "0"
End If
End Sub

Private Sub kopi_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kopi.CheckedChanged
Dim z As Boolean

z = Val(kopi.Checked)

If z = True Then
d = "2000"

Else
d = "0"
End If
End Sub

Private Sub es_teh_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles es_teh.CheckedChanged
Dim z As Boolean

z = Val(es_teh.Checked)

If z = True Then
en = "3500"

Else
en = "0"
End If

End Sub

Private Sub es_campur_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles es_campur.CheckedChanged
Dim z As Boolean

z = Val(es_campur.Checked)

If z = True Then
f = "8500"

Else
f = "0"
End If
End Sub

Private Sub pisang_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pisang.CheckedChanged
Dim z As Boolean

z = Val(pisang.Checked)

If z = True Then
g = "800"

Else
g = "0"
End If
End Sub

Private Sub pepaya_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pepaya.CheckedChanged
Dim z As Boolean

z = Val(pepaya.Checked)

If z = True Then
h = "1300"

Else
h = "0"
End If

End Sub

Private Sub melon_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles melon.CheckedChanged
Dim z As Boolean

z = Val(melon.Checked)

If z = True Then
i = "4000"

Else
i = "0"
End If
End Sub

Private Sub btHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btHitung.Click
Dim j_kem, j_byr, tot_b, paj, sub_tot, m, k, l, n, o, p, q, r, s, aa, bb, ddd As New Long

m = Val(tbBebek.Text)
k = Val(tbPecel.Text)
l = Val(tbAyam.Text)
n = Val(tbKopi.Text)
o = Val(tbTeh.Text)
p = Val(tbEs.Text)
q = Val(tbPisang.Text)
r = Val(tbPepaya.Text)
s = Val(tbMelon.Text)

aa = Val(b_makan.Text)
bb = Val(b_minum.Text)
ddd = Val(b_buah.Text)

sub_tot = Val(sub_total.Text)
paj = Val(pajak.Text)
tot_b = Val(total_bayar.Text)
j_byr = Val(jmlh_byr.Text)
j_kem = Val(jmlh_kembali.Text)
aa = (m * a) + (k * b) + (l * c)
bb = (n * d) + (o * en) + (p * f)
ddd = (q * g) + (r * h) + (s * i)
sub_tot = aa + bb + ddd
paj = sub_tot * 0.1
tot_b = sub_tot + paj
j_kem = j_byr - tot_b
sub_total.Text = Format(sub_tot, "Rp ###,###.#0")
pajak.Text = Format(paj, "Rp ###,###.#0")
total_bayar.Text = Format(tot_b, "Rp ###,###.#0")
jmlh_kembali.Text = Format(j_kem, "Rp ###,###.#0")


b_makan.Text = Format(aa, "Rp ###,###")
b_minum.Text = Format(bb, "Rp ###,###")
b_buah.Text = Format(ddd, "Rp ###,###")

End Sub

Private Sub btClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btClose.Click
Me.Close()
End Sub

Private Sub btClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btClear.Click

Me.tbBebek.Clear()
Me.tbPecel.Clear()
Me.tbAyam.Clear()
Me.tbKopi.Clear()
Me.tbTeh.Clear()
Me.tbEs.Clear()
Me.tbPisang.Clear()
Me.tbPepaya.Clear()
Me.tbMelon.Clear()


Me.sub_total.Clear()
Me.pajak.Clear()
Me.total_bayar.Clear()
Me.jmlh_kembali.Clear()
Me.jmlh_byr.Clear()
Me.tbBebek.Focus()
End Sub
End Class


sampai di sini dulu ya..kepada teman2 yg membaca artikel ini semoga bermanfaat...

Tips Sukses Belajar Pemrograman

Dalam artikel kali ini saya akan memaparkan beberapa tips bagaimana cara sukses belajar pemrograman.

Tidak tahu mengapa, bahwa ilmu tentang pemrograman ini gampang-gampang susah. Gampang ketika dijelasin cara bikin program oleh sang dosen. OO…. ternyata cuman gitu aja to… Tapi kalau ada tugas atau disuruh bikin program dari suatu studi kasus tertentu, banyak yang mengeluh… wah kok sulit ya… trus ujung-ujungnya copas miliknya teman

Memang modal dasar pemrograman hanyalah penguasaan pada logika dan algoritma. Pelajaran logika, telah kita terima di pelajaran matematika SMU. So.. saya yakin para programmer pemula pasti sudah menguasai hal ini. Nah… yang terpenting adalah algoritma.

Perlu menjadi catatan di sini adalah, algoritma bukanlah teori maupun rumus yang perlu dihapalkan. Untuk belajar algoritma, perlu banyak waktu dan latihan. Tips untuk belajar algoritma hanyalah dengan memperbanyak latihan bagaimana mencari langkah-langkah solusi secara logis. Kalau perlu buat masalah sendiri dan cari langkah solusinya. Selain itu jangan hanya puas dengan mengerjakan tugas dari dosen. Karena tugas dari dosen itu scope nya kecil… masih banyak hal lain di luar tugas dosen yang perlu dieksplorasi.

Nah… terkadang, programmer pemula kesulitan dalam mengekspresikan algoritma yang ada di benaknya ke dalam bentuk algoritma pemrograman. Misalnya “saya sebenarnya tahu cara mencari nilai n faktorial, tapi kok rasanya sulit mengekspresikan ke dalam algoritma pemrogramannya?”. Hal ini juga perlu banyak latihan dan juga dengan melihat banyak contoh-contoh algoritma yang ada. Pelajari bagaimana teknik pengekspresian algoritma.

Terkadang… untuk menentukan algoritma penyelesaian suatu kasus itu muncul karena insting sang programmer. Nah… insting ini muncul kalo penguasaan atau jam terbang sang programmer sudah banyak.

Setelah konsep algoritma ini dikuasai, silakan Anda memilih salah satu jenis bahasa pemrograman yang disukai. Pada prinsipnya, jika konsep algoritma sudah dipegang, mau pindah ke bahasa pemrograman apapun bisa, karena bila sudah masuk ke bahasa pemrograman, fokusnya ke penguasaan sintaks atau aturan penulisan perintah. Nah.. sintaks ini bisa dihapalkan.

Saran saya, sebaiknya kita menguasai lebih dari satu bahasa pemrograman. Mengapa demikian? Ya… karena lapangan kerja tidak hanya membutuhkan satu jenis bahasa pemrograman saja. Misalnya perusahaan X butuh programmer Java, sedangkan perusahaan Y butuh programmer C++ dsb. Semakin banyak bahasa pemrograman yang kita kuasai, maka semakin baik dan bisa lebih berpotensi bagi karir kita.

Ok mudah-mudahan berguna bagi Anda para new comer di bidang programmer.

Satu lagi saran saya… “JANGAN MUDAH MENYERAH”.

Cerita dari minang

Urang Jerman Timur

Disebuah desa di Jerman, yang berbatasan lansung jo Jertim dan Jerbar diperbatasan acok urang kadua desa baik yang di barat dan Timur malinteh.

Iyo lai dibuliahkan..dek Desa sajo..mungkin ado nan mangunjungis sanaknyo tapi tantara Jerman Timur..yo..kareh..pangawalannyo di perbatasan tu tarutamo urang nan dari Timur..malinteh ka Barat di pariso abih untuak ka Desa di Jerbar panjagonyo...gahar..ditakuti..mamacik sanjato geren..siap tembak. Urang harus dipariso dari ujuang kaki..sampai ujuang kapalo kok pai ka Barat, baitu pulo kok pulang ka Timur.

Jadi ado urang timur...kito sabuik namonyo si Karel sajo tiok minggu dari desanyo yang di timur pai ka Desa di Barat alasannyo mancaliak urang gaeknyo nan di Barat lai ado kemudahan stek... dek panjago nan ganas di Pos Perbatasan.

"Guten tag?"

"Biaso Ndan..ambo liek urang gaek ka Desa di Muko (Barat)"

"Masuak Pos waang dulu den pariso... tingga identitas..."

"Ok...jam bara waang baliak ka Timur Karel"

"Sekita jam tigo sore Ndan"

"Ok..Den catat..labiah jam tigo waang kanai hukum masuak panjaro"

Lah malenggang..si Karel kalua perbatasan manuju ka Desa di Barat nan satiok Minggu hari Pakan (Catatan Penulis: Ruponyo di Jerbar desa-desanyo pakannyo ampia samo jo nagari awak sakali saminggu ada yang protes..ya silahkan aja..nih guwa punya cerita..he..he..he)

Tapek jam tigo si Karel baliak dari Barat jo Sepeda tapi mambaok karuang goni dibalakangnyo

Tibo di Pos... Kepala Jaga mengadakan pemeriksaan

"Apo nan ang baok dikaruang tu Karel?"

"Siap Komandan..kasiak/pasir..nyo untuak panimbun rumah den."

"Bongka..jaan2 waang menggelapkan senjata..granat dari Barat ka timur"

"Silahkan..Ndan"

"Lah inyo bongka karuang nan tatonggok di sepeda tadi ndak labiah..indak kurang yo kasiak/pasir..didalam karuang tu"

Kepala Jaga..ko Utaknyo..kincia2nyo..asli dibawah standar bana jadi...indak bapikia..lain-lain..

Ok..silahkan waang lewat karel..lai indak ado waang salundupkan

Bagitu satiok minggu si karel..pai ka Desa di Barat. Pulang naik sepeda... mambaok karuang nan barisi kasiak/pasir kanai pareso...lewat taruih.

Nan Kepala Jaga ko..yo panasaran

"Si Karel ko pasti ado nan inyo selundupkan ka Timur..."

Tapi kok dicaliak...kasiak nan indak baharago..nan indak mambahayakan Komunis di Timur..

Ah..sungguh mati penasaran Waden dek si Karel Pasti..pasti si Karel ado nan diseludupkannyo (Maklum utak Kapalo Jaga di bawah standar mati penasaran sajo..utak Intelnyo ndak jalan)

Jadi Kamandan Pos tadi lah Pensiun dari Tugas

di Pos perbatasan... Pai lah inyo karumah si Karel

Waden harus dapek jawek dari si Karel... bia waden indak mati penasaran..pasti ado nan diseludupkan si karel dari Barat ka Timur.

Tibolah si Komandan ko di rumah si Karel

"Selamat pagi Karel..."

"Oi..pak Komandan..apo kaba?"

Iyo agak tagalenjek si Karel atas kedatangan si Komandan Jaga

"Jujur karel waden yo mati penasaran ko dek ulah waang nan tiok minggu ka Barat pulang mambaok kasiak/pasir..ka Timur waang tahu ndak manuruik si Jepe urang minang kalo di indonesia..arwah Penasaran ko bergentayangan bantuak pilem Susana..jadul"

"Lan waden lah pensiun..indak ka den tangkok waang Karel ko..rahasio awak baduo sajo..bajanji waden indak ka waden agiah tahu ka Partai do ambo yakin..pasti ado nan angku seludupan dari Barat tapi lolos taruih nan angku baok yo kasiaknyo..lolos taruih tolong..waang agiah tahu apo sabananyo nan waang seludupkan dari Barat ka Timur"

"Kok bantuak itu..yo..lah Komandan lah bajanji iko iyo awak baduos sajo nan tahu nan ambo seludupkan dari Barat ka Timur Tiok Minggu Komandan indak labiah indak kurang SEPEDA!!"

"Haaaaaaa...!!!%$#@@..????"

Soal...

1. Buatlah NPM mahasiswa yang memiliki nilai 'A'
Jawab...

Untuk mengerjakan soal diatas dapat menggunakan script di bawah ini.

SELECT NPM FROM nilai where nilai='A';

Hasilnya akan ditampilkan beberapa NPM yang memiliki nilai A.

2. Buatlah NPM mahasiswa yang mengambil mata kuliah 'Matematika Diskrit'
Jawab...

SELECT NPM FROM nilai where kd_mk='A10';

Hasilnya akan ditampilkan NPM mahasiswa yang mengambil mata kuliah matematika diskrit.
Keterangan:
kd_mk='A10' menunjukkan bahwa A10 adalah kode dari matematika diskrit.

Membuat Database NilaiNah disinilah relasional yang aQu buat. Jadi kedua tabel tadi di relasionalkan di tabel nilai ini. Sebelum membuat relasional kita buat terlebih dahulu database nilai.

CREATE DATABASE nilai;Kemudian kita buat tabel di dalam database nilai tersebut.
CREATE TABLE nilai (NPM INTEGER NOT NULL REFERENCES mahasiswa, kd_mk VARCHAR(10) REFERENCES mat_kul, nilai VARCHAR(5), PRIMARY KEY (NPM, kd_mk));

Nah setelah tabel sudah jadi sama seperti perintah sebelumnya kita isi tabel tersebut dengan perintah di bawah ini :
INSERT INTO nilai(NPM, kd_kul, nilai) VALUES (19289, 'A10', 'A');

nah hasilnya akan menjadi seperti gambar dibawah ini.