Download Jawaban Quis Delphi

Mohon maaf sebelumnya jika untuk penyampaian materi terakhir tidak atau kurang dirasa maksimal. Dengan ini saya mau sedikit membalas rasa bersalah kepada para mahasiswa yang ingin mempelajari lebih lanjut tentang materi quis di lab H malam ini. Untuk diketahi untuk materi kita pada quis Delphi kemarin membahas tentang "Operator String" dan sedikit menggunakan "Struktur IF".
Dan untuk sekedar mengingatkan kalian, saya sedikit memberi penjelasan mengenai Struktur IF pada Delphi.

1. if kondisi then  
2.   Pernyataan1  //tanpa titik koma
3. else  
4.   Pernyataan2;  //dengan titik koma(untuk mengakhiri pengkondisian

Dari Struktur IF diatas dapat dikembangkan lagi dengan pengkondisian selanjutnya. Konsep dasar dalam IF bisa kalian lihat pada contoh diatas.
Lalu pada kasus berikutnya adalah mengenai Operator String di Delphi.
Untuk Format Penulisan Operator String di Delphi bisa kalian perhatikan pada script berikut:

1. LeftStr(Object, char)   
2. MidStr(Object, index, Char)   
3. RightStr(Object, Char)   

Dari penggalan code diatas adalah format dasar penulisan Operator string(dpt dikembangkan lagi).
Dilihat pada bagian "Object" itu dimaksud adalah tempat atau lokasi dimana string yang mau di eksekusi, saya ambil contoh untuk Object nya menggunakan EDIT1.Text dan saya akan mengambil character sebanyak 2 character.
bisa menggunakan Code sbb :

1. LeftStr(Edit1.text, 2)   
2. MidStr(Edit1.text, 3, 2)   
3. RightStr(Edit1.text, 2)   

Dimana jika di dalam Edit1.text adalah string berupa "TEST STRING"
Edit1 

Maka jika kita menggunakan LeftStr hasilnya akan menjadi

*Hanya 2 character dari sebelah Kiri yang tercetak.
Dan bila menggunakan MidStr(3,2) hasilnya:

*Yang tercetak hanya character ke-3 sebanya dua character berikut (spasi)
Dan jika menggunakan RightStr maka hasilnya sbb:

*Hanya dua character  dari sebelah kanan saja yang tercetak.

Kurang lebih itulah sedikit penjelasan dasar untuk materi kali ini, jika kalian mempunyai pertanyaan dapat kalian tinggalkan komentar dan pertanyaan pada kolom komentar di bawah artikel ini.

Dan untuk Download Soal berikut Source code jawabannya silahkan klik link dibawah:

| |

Semoga Bermanfaat :) 

---

Klik Like/share jika anda menyukai tulisan Share

    Syarat Tukar Link/Banner      Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.      Terdaftar      Terdapat meta tag search engine pada template.      Terindeks      Halaman blog muncul pada hasil pencarian Google...  

---

Materi Linux Sistem Administrator

Silahkan di download materi dari pertemuan Linux Di LAB H Malam.Dan kalian juga bisa kunjungi web mengenai CentOs di sini
PRA UTS

---

PRA UAS

---

Klik Like/share jika anda menyukai tulisan Share

    Syarat Tukar Link/Banner      Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.      Terdaftar      Terdapat meta tag search engine pada template.      Terindeks      Halaman blog muncul pada hasil pencarian Google...  

---

Donwload Contoh Kasus Input Data Karyawan PHP

I. Rancangan Form Masukan

Buat Form Input.php dibawah ini dengan script php pada software yang telah ditentukan :

II. Rancangan Form Keluaran

Tampilan setelah diklik Simpan adalah sebagai berikut:

Jika diklik INPUT DATA LAGI maka kembali ke tampilan Form Input.php dan jika diklik TAMPILKAN DATA maka muncul sebagai berikut:

DATA KARYAWAN ----------------------------------------------------------------------------- Jumlah data : 2 ----------------------------------------------------------------------------- Nip :123 Nama Karyawan :Anton Alamat :Jl. Radio Dalam Jenis Kelamin :Laki-Laki Pendidikan :D3 ----------------------------------------------------------------------------- Nip :124 Nama Karyawan :Linda Alamat :Jl. Tanah Kusir Jenis Kelamin :Perempuan Pendidikan :S1 ----------------------------------------------------------------------------- Back to input data lagi

III. Ketentuan Logika Soal

1. Buat database dengan nama uas_12xxxxxx (nim masing-masing)

2. Buat tabel dengan nama data_karyawan dengan struktur tabel sebagai berikut:

Field	Type	Length
Nip	Varchar	5
Nama	Varchar	20
Alamat	Text
Jeniskel	Varchar	10
Pendidikan	Varchar	3

3. Buat pilihan pada combo pendidikan yaitu : SMA, D3, S1, S2

4. Gunakan perintah-perintah SQL untuk menyimpan dan menampilkan data

Download : Download Contoh Kasus Data Karyawan

Semoga Bermanfaat

---

Share

Jawaban Web2 Kasus Hapus Data

Artikel ini kelanjutan dari artikel mengenai Tugas Mahasiswa Web ProgramingTugas Libur akhir tahun 2 Lab G. Bagi yang ingin mengetahui bentuk soal dan mungkin ingin mendownload soalnya, kalian bisa lihat pada artikel berjudul Tugas WEB II atau klik pada link Berikut : Klik

Untuk Downloadnya Silahkan kalian download :
File  : Tugas.zip | Tugas.pdf
Size :  18.8Kb  |  43.3kb

---

Klik Like/share jika anda menyukai tulisan Share

    Syarat Tukar Link/Banner      Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.      Terdaftar      Terdapat meta tag search engine pada template.      Terindeks      Halaman blog muncul pada hasil pencarian Google...  

---

Latihan Visual Basic 1 Transaksi Rental Video

Field	Type	Size	Ket
Notrans	Text	8	Pk
Kode_film	Text	5
Judul_film	Text	30
Harga_film	currency
Jenis	Text	1
Tanggal_pinjam	Date/time
Tanggal_kembali	Date/time
Lama_pinjam	integer
Total_harga	currency

• Buat Database dengan nama rental_dvd
• Buat Tabel rental

 Ketentuan Kode Film :

Kode Film	Judul Film	Harga
DVD01	Spy Kids 4	8000
DVD02	Cars 2	9000
DVD03	Twilight Saga : Breaking Dawn	10000

• Jika jenis “member” maka mendapat diskon 10 %, selain itu tidak mendapat diskon

Lama = Tgl Pinjam – tgl kembali               Total= (Harga-diskon)* lama

 Jika tekan tombol keluar dan simpan tampil konfirmasi dan info sbb :

Source code dapat di lihat di

---

Klik Like/share jika anda menyukai tulisan Share

    Syarat Tukar Link/Banner      Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.      Terdaftar      Terdapat meta tag search engine pada template.      Terindeks      Halaman blog muncul pada hasil pencarian Google...  

Tugas WEB II

1. Buat Database dengan nama barang_nim masing2

2. Buat Tabel dengan nama transakasi_barang. Isi Fieldnya sebagai berikut :

Field	Type	Length
nokw	Varchar	10
kdbrg	Varchar	5
nmbrg	Varchar	50
Spesifikasi	Varchar	50
Harga	INT
Jmlbeli	INT
Diskon	INT

3. Isikan datanya sebanyak 2

4. Kemudian buat form (Gunakan objek TextBox) dengan tampilan sebagai berikut : (transaksibarang_hapus.php).

5. Tampilan setelah di hapus record ke 2:

Download disini :

Download

Source code

Close

COPY PASTE = 0

---

Klik Like/share jika anda menyukai tulisan Share

Source code Penyewaan DVD

Pusing ditagih melulu ama mahasiswa, ditambah lupa juga upload jawaban ini :p
sok silahkan dinikmati source code berikut :D
Source code ini adalah source code dari latihan yang ada di lab G tentang penyewaan,teapi menggunakan listbox sebagai pemilihan id dari produknya.

Penampakan form nya

gausah panjang lebar,udah malem juga. . .
lagian kalo panjang n lebar nanti jadinya luas :p
cara mengisi ListBox nya buat Procedure atau bisa langsung di taruh di event Form_load

1. Sub isi()  
2. Set db = OpenDatabase(App.Path & "\penyewaan.mdb")  
3. Set rsMyRS = db.OpenRecordset("film", dbOpenDynaset)  
4. If Not rsMyRS.EOF Then rsMyRS.MoveFirst  
5. Do While Not rsMyRS.EOF  
6.     List1.AddItem rsMyRS!kode_dvd  
7.     rsMyRS.MoveNext  
8. Loop  
9. End Sub  

Nah untuk proses pemilihannya di taruh pada ListBox_click

1. Private Sub List1_Click()  
2. rsMyRS.FindFirst ("[kode_dvd] = '" & List1.Text & "'")  
3. Tjudul.Text = rsMyRS!judul  
4. Thrg = rsMyRS!harga  
5. End Sub  

jika dalam keseluruhan listingnya bisa dilihat dibawah ini :

1. Dim db As Database  
2. Dim rsMyRS As Recordset  
3.   
4. Sub bersih()  
5. For Each x In Me  
6. If TypeName(x) = "TextBox" Then x.Text = ""  
7. Next  
8. End Sub  
9. Sub aktif()  
10. For Each x In Me  
11. If TypeName(x) = "TextBox" Then x.Enabled = True  
12. Next  
13. List1.Enabled = True  
14. End Sub  
15. Sub mati()  
16. For Each x In Me  
17. If TypeName(x) = "TextBox" Then x.Enabled = False  
18. Next  
19. List1.Enabled = False  
20. End Sub  
21.   
22. Private Sub CmdaNew_Click()  
23. bersih  
24. aktif  
25. isi  
26. Tno.SetFocus  
27. End Sub  
28.   
29. Private Sub CmdCancel_Click()  
30. bersih  
31. mati  
32. End Sub  
33.   
34. Private Sub CmdExt_Click()  
35. p = MsgBox("Yakin mau keluar??", vbQuestion + vbOKCancel, "Konfirmasi")  
36.     If p = vbOK Then End  
37. End Sub  
38.   
39. Private Sub CmdSave_Click()  
40. With dtSewa.Recordset  
41. .AddNew  
42. !no_pinjam = Tno  
43. !nama = Tnama  
44. !jumlah = Tjmlh  
45. !total = Ttotal  
46. !kode_dvd = Lbox1.Text  
47. .Update  
48. End With  
49. MsgBox "Data berhasil disimpan", vbInformation, "Simpan"  
50. bersih  
51. mati  
52. End Sub  
53.   
54. Private Sub Form_Load()  
55. mati  
56. bersih  
57. End Sub  
58. Sub isi()  
59. Set db = OpenDatabase(App.Path & "\penyewaan.mdb")  
60. Set rsMyRS = db.OpenRecordset("film", dbOpenDynaset)  
61. If Not rsMyRS.EOF Then rsMyRS.MoveFirst  
62. Do While Not rsMyRS.EOF  
63.     List1.AddItem rsMyRS!kode_dvd  
64.     rsMyRS.MoveNext  
65. Loop  
66. End Sub  
67. Private Sub List1_Click()  
68. rsMyRS.FindFirst ("[kode_dvd] = '" & List1.Text & "'")  
69. Tjudul.Text = rsMyRS!judul  
70. Thrg = rsMyRS!harga  
71. End Sub  
72.    
73. Private Sub Tbyr_KeyPress(KeyAscii As Integer)  
74. If KeyAscii = 13 Then Tukem = Val(Tbyr) - Val(Ttotal)  
75. End Sub  
76.   
77. Private Sub Tjmlh_Change()  
78. Ttotal = Val(Tjmlh) * Val(Thrg)  
79. End Sub  
80.   
81. Private Sub Tjmlh_KeyPress(KeyAscii As Integer)  
82. If KeyAscii = 13 Then Tbyr.SetFocus  
83. End Sub  
84.   
85. Private Sub Tnama_KeyPress(KeyAscii As Integer)  
86. If KeyAscii = 13 Then Tjmlh.SetFocus  
87. End Sub  
88.   
89. Private Sub Tno_KeyPress(KeyAscii As Integer)  
90. If KeyAscii = 13 Then Tnama.SetFocus  
91. End Sub  

Download disini :

Download

Source code

Close

---

Klik Like/share jika anda menyukai tulisan Share