berikut hasilnya
Wadah Koding adalah blog untuk mengkoleksi koding, berbagi itu indah... semoga bermanfaat
Thursday, November 16, 2017
Program 4 Penggunaan Style di HTML
Program 4 Penggunaan Style di HTML
-----------------------------------------------
Nah temen-temen belajar pakai tag dan tag ya...
Nah sekarang coba gimana caranya bikin tulisa AKU SUKSES bold+italic ya...
-----------------------------------------------
Nah temen-temen belajar pakai tag dan tag ya...
berikut hasilnya
Tuesday, November 14, 2017
Program 3 Paragraf dan Baris Baru di HTML
Membuat Paragraf dan Baris Baru
berikut kombinasi tampilannya
WARNA BEBAS
SELAMAT MENCOBA :)
berikut kombinasi tampilannya
WARNA BEBAS
berikut hasilnya
Program 1 Struktur Dasar HTML
Mudah banget,
1. Pilih editor nya pake Notepad / Notepad++
2. Simpan dengan nama bebas di folder bebas, dengan EKSTENSI ( .html)
3. Jalankan di peramban yang kamu punya... :)tidak usah pake XAMPP dulu...karena belum butuh database :)
Monday, November 13, 2017
Koding Muncul Data dari Database ke ComboBox / Panggil Data dari ComboBox
Koding Muncul Data di ComboBox / Panggil Data dari ComboBox
----------------------------------------------------------------------------------
Sub panggilcombo()
cmd = New OleDbCommand("select nama from kasir", conn)
dr = cmd.ExecuteReader
Do While dr.Read
If dr.HasRows Then
ckasir.Items.Add(dr.Item("nama"))
End If
Loop
End Sub
----------------------------------------------------------------------------------
Sub panggilcombo()
cmd = New OleDbCommand("select nama from kasir", conn)
dr = cmd.ExecuteReader
Do While dr.Read
If dr.HasRows Then
ckasir.Items.Add(dr.Item("nama"))
End If
Loop
End Sub
Thursday, October 26, 2017
Koding UBAH / UPDATE pada vb.net access
Koding UBAH / UPDATE vb.net
Sebelumnya memang pernah nulis koding ubah, cari aja di
-----------------
sekarang kamu bisa cobain koding ini juga ya...
Private Sub bubah_Click(sender As Object, e As EventArgs) Handles bubah.Click
If tid.Text = "" Then
MsgBox("ID BELUM DIISI", MsgBoxStyle.Information, "INFORMASI")
Exit Sub
End If
cmd = New OleDbCommand("SELECT * from buku where idbuku = ' " & tid.Text & " ' ", conn)
dr = cmd.ExecuteReader
dr.Read()
If dr.HasRows Then
Dim update As String = "update buku set judul ='" & tjudul.Text & "', penulis ='" & tpenulis.Text & "', penerbit ='" & tpenerbit.Text & " ' where idbuku = ' " & tid.Text & " ' "
cmd = New OleDbCommand(update, conn)
cmd.ExecuteNonQuery()
Call tampil()
Call kosong()
End If
End Sub
Tuesday, August 29, 2017
Komponen Dasar Microsoft Office PowerPoint 2007
Komponen Dasar Microsoft Office PowerPoint 2007
Perhatikan Gambar di bawah ini yak...
Keterangan ada disini:
1. Tittle Bar, berisi nama file dan nama program aktif 2. Menu Bar, berisi serangkaian perintah untuk mengelola pekerjaan dan program 3. Tool Bar, serangkaian tombol perintah tertentu 4. Area Outline, tampilan slide 5. Ruler, untuk mengatur batas-batas ketikkan dan indentasi 6. Place Holder, menunjukkan posisi dimana akan mengetik 7. Sizing Button, untuk mengatur tampilan window baik minimize, maximize, restore maupun close 8. Status Bar, memuat segala keterangan mengenai posisi cursor
Perhatikan Gambar di bawah ini yak...
Keterangan ada disini:
1. Tittle Bar, berisi nama file dan nama program aktif 2. Menu Bar, berisi serangkaian perintah untuk mengelola pekerjaan dan program 3. Tool Bar, serangkaian tombol perintah tertentu 4. Area Outline, tampilan slide 5. Ruler, untuk mengatur batas-batas ketikkan dan indentasi 6. Place Holder, menunjukkan posisi dimana akan mengetik 7. Sizing Button, untuk mengatur tampilan window baik minimize, maximize, restore maupun close 8. Status Bar, memuat segala keterangan mengenai posisi cursor
Monday, August 28, 2017
Konsep Dasar dan Teknologi Webpage
Konsep Dasar dan Teknologi Webpage
1. Pengenalan World Wide Web (WWW)
adalah dokumen -dokumen yang tersimpan dalam server web di seluruh dunia yang dapat diakses melalui internet.
WWW mempunyai tiga bagian yang digunakan sebagai berikut:
a. HTTP (HyperText Transfer Protocol) yang memungkinkan antara jaringan yang satu dengan jaringan yang lain dapat melakukan pembagian sumber daya secara bersama-sama, saling berkomunikasi dan bertukar informasi.
b. URL (Uniform Resource Locator) yang dapat menentukan aturan penamaan alamat yang ada di web (address).
3. HTML (HyperText Markup Language), yaitu bahasa pemrograman yang umum digunankan untuk mendukung akses web melalui internet. HTML dikenal dengan nama dokumen html dan berekstensi dot html (.html)
2. Pengertian HTML
HTML merupakan
1. Pengenalan World Wide Web (WWW)
adalah dokumen -dokumen yang tersimpan dalam server web di seluruh dunia yang dapat diakses melalui internet.
WWW mempunyai tiga bagian yang digunakan sebagai berikut:
a. HTTP (HyperText Transfer Protocol) yang memungkinkan antara jaringan yang satu dengan jaringan yang lain dapat melakukan pembagian sumber daya secara bersama-sama, saling berkomunikasi dan bertukar informasi.
b. URL (Uniform Resource Locator) yang dapat menentukan aturan penamaan alamat yang ada di web (address).
3. HTML (HyperText Markup Language), yaitu bahasa pemrograman yang umum digunankan untuk mendukung akses web melalui internet. HTML dikenal dengan nama dokumen html dan berekstensi dot html (.html)
2. Pengertian HTML
HTML merupakan
Tujuan Pembelajaran Pembuatan Web Statis Tingkat Dasar
1. Mampu menjelaskan konsep dasar dan teknologi Webpage
2. Mampu menjelaskan struktur dokumen HTML
3. Dapat menambahkan objek pada web
4. Dapat membuat tabel pada web
5. Dapat membuat Link pada web
6. Dapat menyimpan dokumen
7. Dapat menguji dokumen
2. Mampu menjelaskan struktur dokumen HTML
3. Dapat menambahkan objek pada web
4. Dapat membuat tabel pada web
5. Dapat membuat Link pada web
6. Dapat menyimpan dokumen
7. Dapat menguji dokumen
Wednesday, June 7, 2017
SOAL KKPI JEJAK SAKURA
Peraturan dalam menjawab soal!
>> berwarna kuning diisi Nama peserta(selebihnya sudah dijelaskan di kelas)
>> file dalam bentuk lembar kerja excel (bukan gambar)
Kirim via:
Email : sulistiowati.web@gmail.com
FB : https://www.facebook.com/jejak.sakura
IG : @jejak.sakura
Selamabat-lambatnya pada hari Jum'at 09 Juni 2017 23.59 WIB
NB: Harus Menggunakan Formula, bukan dihitung pakai alat hitung. :)
Terimakasih :)
>> berwarna kuning diisi Nama peserta(selebihnya sudah dijelaskan di kelas)
>> file dalam bentuk lembar kerja excel (bukan gambar)
Kirim via:
Email : sulistiowati.web@gmail.com
FB : https://www.facebook.com/jejak.sakura
IG : @jejak.sakura
Selamabat-lambatnya pada hari Jum'at 09 Juni 2017 23.59 WIB
NB: Harus Menggunakan Formula, bukan dihitung pakai alat hitung. :)
Terimakasih :)
Friday, May 12, 2017
Menampilkan Klik Datagridview ke Textbox (cellMouse_Click)
Menampilkan Klik Datagridview ke Textbox (cellMouse_Click)
----------------------------------------------------------
Langkah =
1. Klik 2x datagridview nya
2. Ganti Event nya menjadi CellMouse_Click
3. Ketikkan Koding di bawah ini.
Private Sub DataGridView1_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseClick
Dim d = Me.DataGridView1.CurrentRow.Index
With DataGridView1.Rows.Item(d)
Tid.Text = .Cells(0).Value
Tuser.Text = .Cells(1).Value
Tpass.Text = .Cells(2).Value
Tnama.Text = .Cells(3).Value
Talamat.Text = .Cells(4).Value
Ttelp.Text = .Cells(5).Value
Cstatus.Text = .Cells(6).Value
End With
End Sub
----------------------------------------------------------
Langkah =
1. Klik 2x datagridview nya
2. Ganti Event nya menjadi CellMouse_Click
3. Ketikkan Koding di bawah ini.
Private Sub DataGridView1_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseClick
Dim d = Me.DataGridView1.CurrentRow.Index
With DataGridView1.Rows.Item(d)
Tid.Text = .Cells(0).Value
Tuser.Text = .Cells(1).Value
Tpass.Text = .Cells(2).Value
Tnama.Text = .Cells(3).Value
Talamat.Text = .Cells(4).Value
Ttelp.Text = .Cells(5).Value
Cstatus.Text = .Cells(6).Value
End With
End Sub
Saturday, February 25, 2017
Membuat COVER CD di CorelDRAW X7 Simple dan Cepat
Membuat COVER CD di CorelDRAW X7 Simple dan Cepat
--------------------------------------------------------------------------
boleh sambil ngopi dijamin masih panas. wkwkwk
::
::
(1). Buka CorelDRAW > [Buat Lembar Kerja Baru]> Klik FILE > NEW > *Atur ukuran satuan ke centimeter. > Klik OK
(2). [Buat Lingkaran LUAR], Taukan kan pake apa? iyaps Ellipse Tool > Drag sambil tekan CTRL > Tekan P > Atur Object Size jadi 11.8cm dan 11.8cm (kalo msl milimeter ya 118mm dan 118mm).
(3). [Buat Lingkaran DALAM], Ulangi Langkah (2), Object Size 1,5cm / 15mm
(4). [Import Gambar], Tekan (ctrl+i) > Taro gambar di Samping Lingkaran > Klik Object > PowerClip > Place Inside Frame > Keluar Tanda Panah > Klik-an Pada Lingkaran
(5). Pas-pas in aja dengan memilih Edit PowerClip
(6). Jangan Lupa yang tengah warnain PUTIH > Hilangkan OutLine pada Gambar dengan cara : Klik Lingkaran-Besar > klik 2x OutLine Pen > Muncul jendela OP> Ubah Width mjd NONE > OK
*Lingkaran Kecil juga ya, Lakukan Hal yg sama.
(7). [Tinggal Kasih Tulisan] ajasi, selera, misal mo melingkar ya bikin pola dulu pake 3-point Curve Tool juga boleh, atau ntar langsung masukin ke lingkaran CD juga boleh, atau tulisan mo lurus2 aja jg gpp. wkwwk
Dibawah ini contoh yg melingkar, Bikin POLA > Bikin Tulisan > TEXT > Fit Text To Path > Taro di pola / lingkaran CD
Udah dulu ya.... aku kalo buat ya simple banget, makasih....
aku mo ngakustik dulu...ngopi-ngopi...
21:02 WIB 25-2-17
--------------------------------------------------------------------------
boleh sambil ngopi dijamin masih panas. wkwkwk
::
::
(1). Buka CorelDRAW > [Buat Lembar Kerja Baru]> Klik FILE > NEW > *Atur ukuran satuan ke centimeter. > Klik OK
(3). [Buat Lingkaran DALAM], Ulangi Langkah (2), Object Size 1,5cm / 15mm
(4). [Import Gambar], Tekan (ctrl+i) > Taro gambar di Samping Lingkaran > Klik Object > PowerClip > Place Inside Frame > Keluar Tanda Panah > Klik-an Pada Lingkaran
(5). Pas-pas in aja dengan memilih Edit PowerClip
(6). Jangan Lupa yang tengah warnain PUTIH > Hilangkan OutLine pada Gambar dengan cara : Klik Lingkaran-Besar > klik 2x OutLine Pen > Muncul jendela OP> Ubah Width mjd NONE > OK
*Lingkaran Kecil juga ya, Lakukan Hal yg sama.
(7). [Tinggal Kasih Tulisan] ajasi, selera, misal mo melingkar ya bikin pola dulu pake 3-point Curve Tool juga boleh, atau ntar langsung masukin ke lingkaran CD juga boleh, atau tulisan mo lurus2 aja jg gpp. wkwwk
Dibawah ini contoh yg melingkar, Bikin POLA > Bikin Tulisan > TEXT > Fit Text To Path > Taro di pola / lingkaran CD
Udah dulu ya.... aku kalo buat ya simple banget, makasih....
aku mo ngakustik dulu...ngopi-ngopi...
21:02 WIB 25-2-17
Friday, February 17, 2017
Koding Menyimpan Transaksi Many To Many
Private Sub Bsimpan_Click(sender As Object, e As EventArgs) Handles Bsimpan.Click
'urutan cara ngapalin, pahami alurnya ya wkwkwk
'[1]- validasi dulu, jika kosong itu gimana?
If Tnota.Text = "" Or Ttanggal.Text = "" Or Tbayar.Text = "" Then
MsgBox("Transaksi belum lengkap")
Exit Sub
End If
'[2]- buat deklarasi simpantransaksi
Dim simpantransaksi As String = " insert into transaksi values ('" & Tnota.Text & "', '" & Ttanggal.Text & "','" & Ttotalitem.Text & "' , '" & Ttotalharga.Text & "', '" & Tbayar.Text & "', '" & Tkembalian.Text & "')"
cmd = New OleDbCommand(simpantransaksi, conn)
cmd.ExecuteNonQuery()
'[3]- nah buat simpandetail_transaksi
For baris As Integer = 0 To DGV.RowCount - 2
Dim simpandetailtransaksi As String = " insert into detail_transaksi values ('" & Tnota.Text & "', '" & DGV.Rows(baris).Cells(1).Value & "', '" & DGV.Rows(baris).Cells(2).Value & "', '" & DGV.Rows(baris).Cells(4).Value & "')"
cmd = New OleDbCommand(simpandetailtransaksi, conn)
cmd.ExecuteNonQuery()
'[4]- bikin pencarian data barang dulu, ada gak nih barangnya yg udah diketik di DGV?
cmd = New OleDbCommand("select * from barang where kodebarang = '" & DGV.Rows(baris).Cells(1).Value & "'", conn)
dr = cmd.ExecuteReader()
dr.Read()
'[5]- jika barangnya ada, maka deklarasi kurangistok
If dr.HasRows Then
Dim kurangistok As String = "update barang set stok='" & dr.Item("stok") - DGV.Rows(baris).Cells(2).Value & "' where kodebarang = '" & DGV.Rows(baris).Cells(1).Value & "' "
cmd = New OleDbCommand(kurangistok, conn)
cmd.ExecuteNonQuery()
End If
Next
'[6]- nah tinggal call kosong dan notaotomatis
Call kosong()
Call otomatis()
End Sub
'urutan cara ngapalin, pahami alurnya ya wkwkwk
'[1]- validasi dulu, jika kosong itu gimana?
If Tnota.Text = "" Or Ttanggal.Text = "" Or Tbayar.Text = "" Then
MsgBox("Transaksi belum lengkap")
Exit Sub
End If
'[2]- buat deklarasi simpantransaksi
Dim simpantransaksi As String = " insert into transaksi values ('" & Tnota.Text & "', '" & Ttanggal.Text & "','" & Ttotalitem.Text & "' , '" & Ttotalharga.Text & "', '" & Tbayar.Text & "', '" & Tkembalian.Text & "')"
cmd = New OleDbCommand(simpantransaksi, conn)
cmd.ExecuteNonQuery()
'[3]- nah buat simpandetail_transaksi
For baris As Integer = 0 To DGV.RowCount - 2
Dim simpandetailtransaksi As String = " insert into detail_transaksi values ('" & Tnota.Text & "', '" & DGV.Rows(baris).Cells(1).Value & "', '" & DGV.Rows(baris).Cells(2).Value & "', '" & DGV.Rows(baris).Cells(4).Value & "')"
cmd = New OleDbCommand(simpandetailtransaksi, conn)
cmd.ExecuteNonQuery()
'[4]- bikin pencarian data barang dulu, ada gak nih barangnya yg udah diketik di DGV?
cmd = New OleDbCommand("select * from barang where kodebarang = '" & DGV.Rows(baris).Cells(1).Value & "'", conn)
dr = cmd.ExecuteReader()
dr.Read()
'[5]- jika barangnya ada, maka deklarasi kurangistok
If dr.HasRows Then
Dim kurangistok As String = "update barang set stok='" & dr.Item("stok") - DGV.Rows(baris).Cells(2).Value & "' where kodebarang = '" & DGV.Rows(baris).Cells(1).Value & "' "
cmd = New OleDbCommand(kurangistok, conn)
cmd.ExecuteNonQuery()
End If
Next
'[6]- nah tinggal call kosong dan notaotomatis
Call kosong()
Call otomatis()
End Sub
Thursday, February 16, 2017
Koding Transaksi Many To Many di dalam DatagridView VB .NET pada Penjualan
Koding Transaksi Many To Many di dalam DatagridView VB .NET pada Penjualan
::
::
Nah kali ini lanjut ke koding yak, uda pada jago nge design kan...
sebelumnya aku sampein alurnya dulu dikit.
disini gak ada tabel konsumen kan ya, artinya pembeli itu cuma dapet struk/nota aja, lah nota ini ya didapat dari (idtransaksi).
liat lagi gambar!
*ingat! detail_transaksi tidak pakai kunci utama / primary key
DAN temen2 juga harus paham yak, tentang konsep di dalam Datagridview, mana yang ROWS dan mana yang COLUMN!
*INGAT! index itu dari NOL, kek gini loh...
udah paham belom? kalo belom mending sekarang PIKNIK sanah!!!
::
::
Eh ngomong2, aku dapet ilmunya dari Pak UUS RUSMAWAN Loh, Beliau keren banget kalo bikin tutorial. Maasyaa Alloh, semoga Alloh selalu memberi Beliau kesehatan. aamiin
::
::
CUUUUUUSS!!!!!!!!!
LANGKAH-LANGKAH Koding Transaksi One To Many di dalam DatagridView VB .NET.
---------------------------------------------------------------------------------------------------------------
1. Buat kode otomatis dulu untuk NOTA (kalo di tabel sbg idtransaksi) dan TANGGAL(upToDate)
Kalo udah, RUN ________Hasilnya gini:
2. Klik 2x DGV, lalu Event nya diubah menjadi CellEndEdit. Lalu isikan koding di bawah ini. Sekalian prosedur hitungbarang() dan hitungharga()
*GAK USAH DITULIS JUGA KALEE Private Sub DGV_CellEndEdit....blablablabla
3. COBA RUN!, dan Ketikkan di Nama Barang sesuai yang ada di tabel barang, kekgini loh!
4. Nah sekarang Eksperimen dengan mengganti Cells Jumlah. Coba RUN lagi, terus ganti jumlah barangnya...Maka di kolom Total Item akan berubah sesuai jumlah barang contoh:
5. Sekarang tinggal Koding Bayar dan Kembalian.
Pas di kolom bayar kita nginputin manual dong, contoh: Total Harga 41.500, di kolom bayar kita inputkan 50.000, otomatis di kolom kembalian harus tertera 8.500 dong?
jadi logikanya, ada aksi yang dijalankan pada saat event perubahan di kolom bayar.
::
langkahnya, klik 2x pada kolom Bayar. Ketikkan koding di bawah ini
Sekarang Coba RUN, Hasilnya kekgini:
SELAMAT MENCOBA KAWAN...
Hai... GAMERs
--------------------||TIDAK ADA YANG SUSAH KALO MAU BELAJAR, #jere wkwkwwkwk ||------------------
::
::
Nah kali ini lanjut ke koding yak, uda pada jago nge design kan...
sebelumnya aku sampein alurnya dulu dikit.
disini gak ada tabel konsumen kan ya, artinya pembeli itu cuma dapet struk/nota aja, lah nota ini ya didapat dari (idtransaksi).
liat lagi gambar!
*ingat! detail_transaksi tidak pakai kunci utama / primary key
DAN temen2 juga harus paham yak, tentang konsep di dalam Datagridview, mana yang ROWS dan mana yang COLUMN!
*INGAT! index itu dari NOL, kek gini loh...
udah paham belom? kalo belom mending sekarang PIKNIK sanah!!!
::
::
Eh ngomong2, aku dapet ilmunya dari Pak UUS RUSMAWAN Loh, Beliau keren banget kalo bikin tutorial. Maasyaa Alloh, semoga Alloh selalu memberi Beliau kesehatan. aamiin
::
::
CUUUUUUSS!!!!!!!!!
LANGKAH-LANGKAH Koding Transaksi One To Many di dalam DatagridView VB .NET.
---------------------------------------------------------------------------------------------------------------
1. Buat kode otomatis dulu untuk NOTA (kalo di tabel sbg idtransaksi) dan TANGGAL(upToDate)
Kalo udah, RUN ________Hasilnya gini:
2. Klik 2x DGV, lalu Event nya diubah menjadi CellEndEdit. Lalu isikan koding di bawah ini. Sekalian prosedur hitungbarang() dan hitungharga()
Private Sub DGV_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles DGV.CellEndEdit
If e.ColumnIndex = 0 Then
cmd = New OleDbCommand("select * from barang where nama='" & DGV.Rows(e.RowIndex).Cells(0).Value & "'", conn)
dr = cmd.ExecuteReader
dr.Read()
If dr.HasRows Then
DGV.Rows(e.RowIndex).Cells(1).Value = dr.Item("kodebarang")
DGV.Rows(e.RowIndex).Cells(3).Value = dr.Item("harga")
'asumsi penjualan minimal jumlah barang 1 (satu)
'jadi ketika ngetik nama barang di kolom nama barang
DGV.Rows(e.RowIndex).Cells(2).Value = 1
DGV.Rows(e.RowIndex).Cells(4).Value = DGV.Rows(e.RowIndex).Cells(2).Value * DGV.Rows(e.RowIndex).Cells(3).Value
Else
MsgBox("data tidak terdaftar")
End If
End If
If e.ColumnIndex = 2 Then
'kolom sub total = kolom jumlah * kolom harga
'harus paham yah... coba lihat lagi, sub total/jumlah/harga terdapat di Cells berapa?
'biar paham koding di bawah ini.
DGV.Rows(e.RowIndex).Cells(4).Value = DGV.Rows(e.RowIndex).Cells(2).Value * DGV.Rows(e.RowIndex).Cells(3).Value
End If
Call hitungbarang()
Call hitungharga()
End Sub
------------------------------------------------------
prosedur hitungbarang() dan hitungharga()
--------------------------------------------------
Sub hitungbarang()
Dim hitung As Integer = 0
For baris As Integer = 0 To DGV.RowCount - 1
hitung = hitung + DGV.Rows(baris).Cells(2).Value
Next
Ttotalitem.Text = hitung
End Sub
Sub hitungharga()
Dim hitung As Integer = 0
For baris As Integer = 0 To DGV.RowCount - 1
hitung = hitung + DGV.Rows(baris).Cells(4).Value
Next
Ttotalharga.Text = hitung
End Sub
-----------------------------------------------------------------------------------------------------------------
*apa fungsi RowCount - 1 ? Karena pada Datagridview ada baris yang kosong, dan artinya gak ikut dihitung, makanya di -1.
-----------------------------------------------------------------------------------------------------------------
*Perhatikan setiap ada komen! di dalam koding yak...warnanya biasanya IJO.
(duh GALAK, maaf)
-----------------------------------------------------------------------------------------------------------------
If e.ColumnIndex = 0 Then
cmd = New OleDbCommand("select * from barang where nama='" & DGV.Rows(e.RowIndex).Cells(0).Value & "'", conn)
dr = cmd.ExecuteReader
dr.Read()
If dr.HasRows Then
DGV.Rows(e.RowIndex).Cells(1).Value = dr.Item("kodebarang")
DGV.Rows(e.RowIndex).Cells(3).Value = dr.Item("harga")
'asumsi penjualan minimal jumlah barang 1 (satu)
'jadi ketika ngetik nama barang di kolom nama barang
DGV.Rows(e.RowIndex).Cells(2).Value = 1
DGV.Rows(e.RowIndex).Cells(4).Value = DGV.Rows(e.RowIndex).Cells(2).Value * DGV.Rows(e.RowIndex).Cells(3).Value
Else
MsgBox("data tidak terdaftar")
End If
End If
If e.ColumnIndex = 2 Then
'kolom sub total = kolom jumlah * kolom harga
'harus paham yah... coba lihat lagi, sub total/jumlah/harga terdapat di Cells berapa?
'biar paham koding di bawah ini.
DGV.Rows(e.RowIndex).Cells(4).Value = DGV.Rows(e.RowIndex).Cells(2).Value * DGV.Rows(e.RowIndex).Cells(3).Value
End If
Call hitungbarang()
Call hitungharga()
End Sub
------------------------------------------------------
prosedur hitungbarang() dan hitungharga()
--------------------------------------------------
Sub hitungbarang()
Dim hitung As Integer = 0
For baris As Integer = 0 To DGV.RowCount - 1
hitung = hitung + DGV.Rows(baris).Cells(2).Value
Next
Ttotalitem.Text = hitung
End Sub
Sub hitungharga()
Dim hitung As Integer = 0
For baris As Integer = 0 To DGV.RowCount - 1
hitung = hitung + DGV.Rows(baris).Cells(4).Value
Next
Ttotalharga.Text = hitung
End Sub
-----------------------------------------------------------------------------------------------------------------
*apa fungsi RowCount - 1 ? Karena pada Datagridview ada baris yang kosong, dan artinya gak ikut dihitung, makanya di -1.
-----------------------------------------------------------------------------------------------------------------
*Perhatikan setiap ada komen! di dalam koding yak...warnanya biasanya IJO.
(duh GALAK, maaf)
-----------------------------------------------------------------------------------------------------------------
*GAK USAH DITULIS JUGA KALEE Private Sub DGV_CellEndEdit....blablablabla
3. COBA RUN!, dan Ketikkan di Nama Barang sesuai yang ada di tabel barang, kekgini loh!
4. Nah sekarang Eksperimen dengan mengganti Cells Jumlah. Coba RUN lagi, terus ganti jumlah barangnya...Maka di kolom Total Item akan berubah sesuai jumlah barang contoh:
5. Sekarang tinggal Koding Bayar dan Kembalian.
Pas di kolom bayar kita nginputin manual dong, contoh: Total Harga 41.500, di kolom bayar kita inputkan 50.000, otomatis di kolom kembalian harus tertera 8.500 dong?
jadi logikanya, ada aksi yang dijalankan pada saat event perubahan di kolom bayar.
::
langkahnya, klik 2x pada kolom Bayar. Ketikkan koding di bawah ini
Private Sub Tbayar_TextChanged(sender As Object, e As EventArgs) Handles Tbayar.TextChanged
Tkembalian.Text = Val(Tbayar.Text - Ttotalharga.Text)
End Sub
Tkembalian.Text = Val(Tbayar.Text - Ttotalharga.Text)
End Sub
Sekarang Coba RUN, Hasilnya kekgini:
SELAMAT MENCOBA KAWAN...
Hai... GAMERs
--------------------||TIDAK ADA YANG SUSAH KALO MAU BELAJAR, #jere wkwkwwkwk ||------------------
Design Datagridview untuk Transaksi Many To Many VB .NET Access (M To N)
Design Datagridview untuk Transaksi Many To Many VB .NET Access (M To N)
::
::
Jadi gini, misal dalam penjualan, gak mungkin kan kalo 1 NOTA cuma isinya 1 jenis barang? harusnya kan 1 NOTA ada banyak jenis barang.
Lihat Nih perbedaannya:
Ada 3 Tabel yang terlibat:
1. Tabel Barang
2. Tabel Transaksi
3. Tabel Detail_transaksi
Langkah awal!!! *aku anggep udah bisa cara bikin project dari awal yak...(form, komponen, module dll)
-----------------------------------------------------------------------------------------------------------------
1. Buat tabel "BARANG, TRANSAKSI, DETAIL_TRANSAKSI" (*jgn lupa untuk DETAIL_TRANSAKSI tdk ada primary key nya yak...Lihat gambar)
2. Design Form, untuk ukuruan/size/name dll lengkapnya klik disini
Jika udah bikin, Datagridview nya di klik kanan >> pilih Edit Column.
3. Akan tampil kek gini, terus klik ADD
4. Nah terus isi kek gini, perhatikan gambar yak...
5. Intinya, ulangi langkah 4 terus menerus, sampe yg dibutuhin terpenuhi. kalo udah close.
dan hasilnya KEK GINI!
6. KLIK OK. dan hasil akhirnya kek gini.
Jadi sekarang paham kan, kita tuh bisa masukin apa aja yang kita mau, tapi yang kira-kira dibutuhin aja.
OK Guys selamat mencoba!
---------------------------------------------------------------------------
KODING TRANSAKSI MANY TO MANY DISINI
---------------------------------------------------------------------------
yang baik hati boleh lah kirimin KOPI, iya kopi apalagi? Ngaantook Cuy! wkwkwk
03:45 AM; 16-2-17
::
::
Jadi gini, misal dalam penjualan, gak mungkin kan kalo 1 NOTA cuma isinya 1 jenis barang? harusnya kan 1 NOTA ada banyak jenis barang.
Lihat Nih perbedaannya:
Ada 3 Tabel yang terlibat:
1. Tabel Barang
2. Tabel Transaksi
3. Tabel Detail_transaksi
Langkah awal!!! *aku anggep udah bisa cara bikin project dari awal yak...(form, komponen, module dll)
-----------------------------------------------------------------------------------------------------------------
1. Buat tabel "BARANG, TRANSAKSI, DETAIL_TRANSAKSI" (*jgn lupa untuk DETAIL_TRANSAKSI tdk ada primary key nya yak...Lihat gambar)
2. Design Form, untuk ukuruan/size/name dll lengkapnya klik disini
Jika udah bikin, Datagridview nya di klik kanan >> pilih Edit Column.
4. Nah terus isi kek gini, perhatikan gambar yak...
5. Intinya, ulangi langkah 4 terus menerus, sampe yg dibutuhin terpenuhi. kalo udah close.
dan hasilnya KEK GINI!
6. KLIK OK. dan hasil akhirnya kek gini.
Jadi sekarang paham kan, kita tuh bisa masukin apa aja yang kita mau, tapi yang kira-kira dibutuhin aja.
OK Guys selamat mencoba!
---------------------------------------------------------------------------
KODING TRANSAKSI MANY TO MANY DISINI
---------------------------------------------------------------------------
yang baik hati boleh lah kirimin KOPI, iya kopi apalagi? Ngaantook Cuy! wkwkwk
03:45 AM; 16-2-17
Design Form Transaksi Penjualan VB .NET
Design Form Transaksi Penjualan
Sebenernya ini terserah ya, selera aja yang bikin mo kek gimana.
tapi yauda gapapa si nge post aja, barangkali bermanfaat. hehe
------------------------------------------------------------------------------
INGAT! HARUS URUT SESUAI URUTAN!
kenapa?
ya biar Ngebentuklah... wkwkwk
------------------------------------------------------------------------------
ini hasilnya.... TARA>>>>>>>>>>> wkwkwk
Lanjut ke Design Datagridview Ya... klik DISINI
Hihihi.. Gak penting banget, yaudasi gapapa... ABAIKAN!
kopi donk kopi.................mana kopi................. #ngantokkkkkkkkkkkkkkkkk
02:24 AM; Kamis,16-2-17
Sebenernya ini terserah ya, selera aja yang bikin mo kek gimana.
tapi yauda gapapa si nge post aja, barangkali bermanfaat. hehe
------------------------------------------------------------------------------
INGAT! HARUS URUT SESUAI URUTAN!
kenapa?
ya biar Ngebentuklah... wkwkwk
------------------------------------------------------------------------------
Lanjut ke Design Datagridview Ya... klik DISINI
Hihihi.. Gak penting banget, yaudasi gapapa... ABAIKAN!
kopi donk kopi.................mana kopi................. #ngantokkkkkkkkkkkkkkkkk
02:24 AM; Kamis,16-2-17
Friday, February 10, 2017
Koding Otomatis VB .NET Access berdasarkan tanggal sekarang dan tambahan string
Koding Otomatis VB .NET Access berdasarkan tanggal sekarang dan tambahan string
::
::
Waktu itu uda ya bikin kode otomatis, nah sekarang dimodif lagi nih... kode otomatisnya diambil dari tanggal sekrang dan tambahan string (misal belakangnya 0001).
Nah silakan dicoba yak :)
::
::
------------------------------------------------------------------------------------------------------------------------
Sub otomatis()
cmd = New OleDbCommand("select ID_pemeriksaan from Pemeriksaan order by ID_pemeriksaan desc", conn)
dr = cmd.ExecuteReader
dr.Read()
If Not dr.HasRows Then
tidp.Text = Format(Today, "yyMMdd") + "0001"
Else
If Microsoft.VisualBasic.Left(dr.Item("ID_pemeriksaan"), 6) = Format(Today, "yyMMdd") Then
tidp.Text = dr.Item("ID_pemeriksaan") + 1
Else
tidp.Text = Format(Today, "yyMMdd") + "0001"
End If
End If
End Sub
-----------------------------------------------------------------------------------------------------------------------
::
::
Waktu itu uda ya bikin kode otomatis, nah sekarang dimodif lagi nih... kode otomatisnya diambil dari tanggal sekrang dan tambahan string (misal belakangnya 0001).
Nah silakan dicoba yak :)
::
::
langsung aja cobain kodingnya yah, jangan lupa dipanggil di Form_Load
------------------------------------------------------------------------------------------------------------------------
Sub otomatis()
cmd = New OleDbCommand("select ID_pemeriksaan from Pemeriksaan order by ID_pemeriksaan desc", conn)
dr = cmd.ExecuteReader
dr.Read()
If Not dr.HasRows Then
tidp.Text = Format(Today, "yyMMdd") + "0001"
Else
If Microsoft.VisualBasic.Left(dr.Item("ID_pemeriksaan"), 6) = Format(Today, "yyMMdd") Then
tidp.Text = dr.Item("ID_pemeriksaan") + 1
Else
tidp.Text = Format(Today, "yyMMdd") + "0001"
End If
End If
End Sub
-----------------------------------------------------------------------------------------------------------------------
Friday, February 3, 2017
Koding input harga di Textbox ada keterangan Rupiah (Rp)
Koding input harga di Textbox ada keterangan Rupiah
:::
:::
aduh gmn ya njelasinnya, jadi gini : ketika textbox harga diinputkan, langsung ada tulisan "Rp" nya, Lihat aja nih gambarnya yak...
nah coba nih temen2 pake ini di kodingnya? dimana? iya bener di TextboxHarga.Text nya, nah event nya apa hayooo?
iyappp keren banget... event nya "Changed"
------------------------------------------------------------------------------------------
Private Sub Tharga_TextChanged(sender As Object, e As EventArgs) Handles Tharga.TextChanged
Dim a As Long
If Tharga.Text = "" Or Not IsNumeric(Tharga.Text) Then
Exit Sub
End If
a = Tharga.Text
Tharga.Text = Format(a, "Rp,##,##0")
Tharga.SelectionStart = Len(Tharga.Text)
End Sub
End Class
------------------------------------------------------------------------------------------
:::
:::
aduh gmn ya njelasinnya, jadi gini : ketika textbox harga diinputkan, langsung ada tulisan "Rp" nya, Lihat aja nih gambarnya yak...
nah coba nih temen2 pake ini di kodingnya? dimana? iya bener di TextboxHarga.Text nya, nah event nya apa hayooo?
iyappp keren banget... event nya "Changed"
------------------------------------------------------------------------------------------
Private Sub Tharga_TextChanged(sender As Object, e As EventArgs) Handles Tharga.TextChanged
Dim a As Long
If Tharga.Text = "" Or Not IsNumeric(Tharga.Text) Then
Exit Sub
End If
a = Tharga.Text
Tharga.Text = Format(a, "Rp,##,##0")
Tharga.SelectionStart = Len(Tharga.Text)
End Sub
End Class
------------------------------------------------------------------------------------------
Koding Kode Otomatis pada TextBox (bisa untuk primary key)
Koding Kode Otomatis pada TextBox
.
.
temen2 paham gak, gimana caranya kalo misal primary key itu supaya gak nginputin manual?
misal untuk "kode_petugas" gak harus nginputin manual, kebayang kan kalo udah capek2 nginput taunya ada yang sama.
..
coba pake koding di bawah ini, bikin prosedur baru terserah mo namain apaan.
----------------------------------------------------------------------------------------
Sub buka()
cmd = New OleDbCommand("select * from tabeladmin order by username desc", conn)
dr = cmd.ExecuteReader
dr.Read()
If Not dr.HasRows Then
Tusername.Text = "AD" + "0001"
Else
Tusername.Text = Val(Microsoft.VisualBasic.Mid(dr.Item("username").ToString, 4, 3)) + 1
If Len(Tusername.Text) = 1 Then
Tusername.Text = "AD000" & Tusername.Text & ""
ElseIf Len(Tusername.Text) = 2 Then
Tusername.Text = "AD00" & Tusername.Text & ""
ElseIf Len(Tusername.Text) = 3 Then
Tusername.Text = "AD0" & Tusername.Text & ""
End If
End If
End Sub
-------------------------------------------------------------------------------------------
*nah jgn lupa panggil di form_load yak...
.
.
temen2 paham gak, gimana caranya kalo misal primary key itu supaya gak nginputin manual?
misal untuk "kode_petugas" gak harus nginputin manual, kebayang kan kalo udah capek2 nginput taunya ada yang sama.
..
coba pake koding di bawah ini, bikin prosedur baru terserah mo namain apaan.
----------------------------------------------------------------------------------------
Sub buka()
cmd = New OleDbCommand("select * from tabeladmin order by username desc", conn)
dr = cmd.ExecuteReader
dr.Read()
If Not dr.HasRows Then
Tusername.Text = "AD" + "0001"
Else
Tusername.Text = Val(Microsoft.VisualBasic.Mid(dr.Item("username").ToString, 4, 3)) + 1
If Len(Tusername.Text) = 1 Then
Tusername.Text = "AD000" & Tusername.Text & ""
ElseIf Len(Tusername.Text) = 2 Then
Tusername.Text = "AD00" & Tusername.Text & ""
ElseIf Len(Tusername.Text) = 3 Then
Tusername.Text = "AD0" & Tusername.Text & ""
End If
End If
End Sub
-------------------------------------------------------------------------------------------
*nah jgn lupa panggil di form_load yak...
Monday, January 30, 2017
Menampilkan Tanggal dan Waktu di VB.NET Access
Menampilkan Tanggal dan Waktu di VB.NET Access
sudah buat kan timer nya? iya bener banget, cari di toolbox dengan keyword TIMER-> klik taro di form, kalo udah klik dua kali TIMER nya, lalu masukin koding dibawah ini yak...
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Ttanggal.Text = Format(Now, "dd/MM/yyyy")
Tjam.Text = Format(Now, "hh:mm:ss")
End Sub
*jangan lupa yess, panggil timer nya di form_load dengan= Timer1.Enabled = True
sudah buat kan timer nya? iya bener banget, cari di toolbox dengan keyword TIMER-> klik taro di form, kalo udah klik dua kali TIMER nya, lalu masukin koding dibawah ini yak...
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Ttanggal.Text = Format(Now, "dd/MM/yyyy")
Tjam.Text = Format(Now, "hh:mm:ss")
End Sub
*jangan lupa yess, panggil timer nya di form_load dengan= Timer1.Enabled = True
Koding Login di VB.NET Access
Koding Login di VB.NET Access
Private Sub Blogin_Click(sender As Object, e As EventArgs) Handles Blogin.Click
Call koneksi()
cmd = New OleDbCommand("select * from admin where username ='" & Tusername.Text & "' and pass ='" & Tpassword.Text & "'", conn)
dr = cmd.ExecuteReader
dr.Read()
If dr.HasRows Then
Me.Visible = False
MenuUtama.Show()
Else
MsgBox("login salah, periksan kembali username dan password")
Tusername.Focus()
End If
End Sub
Private Sub Blogin_Click(sender As Object, e As EventArgs) Handles Blogin.Click
Call koneksi()
cmd = New OleDbCommand("select * from admin where username ='" & Tusername.Text & "' and pass ='" & Tpassword.Text & "'", conn)
dr = cmd.ExecuteReader
dr.Read()
If dr.HasRows Then
Me.Visible = False
MenuUtama.Show()
Else
MsgBox("login salah, periksan kembali username dan password")
Tusername.Focus()
End If
End Sub
Thursday, January 26, 2017
Koding Edit di VB .NET Access
Koding Edit di VB .NET Access
Private Sub btnedit_Click(sender As Object, e As EventArgs) Handles btnedit.Click
Dim update As String
update = "update Ukuran set " & _
"ID_ukuran='" & txtidukuran.Text & "'," & _
"ukuran ='" & txtukuran.Text & "' where ID_ukuran ='" & txtidukuran.Text & "'"
cmd = New OleDbCommand(update, conn)
cmd.ExecuteNonQuery()
MsgBox("Data Sudah dIUBAH", MsgBoxStyle.Information, "INFORMASI")
txtidukuran.Enabled = True
Call kosong()
Call tampil()
End Sub
Private Sub btnedit_Click(sender As Object, e As EventArgs) Handles btnedit.Click
Dim update As String
update = "update Ukuran set " & _
"ID_ukuran='" & txtidukuran.Text & "'," & _
"ukuran ='" & txtukuran.Text & "' where ID_ukuran ='" & txtidukuran.Text & "'"
cmd = New OleDbCommand(update, conn)
cmd.ExecuteNonQuery()
MsgBox("Data Sudah dIUBAH", MsgBoxStyle.Information, "INFORMASI")
txtidukuran.Enabled = True
Call kosong()
Call tampil()
End Sub
Wednesday, January 25, 2017
Koding Cari di VB .NET Access
Koding Cari di VB .NET Access
Private Sub Tcari_TextChanged(sender As Object, e As EventArgs) Handles Tcari.TextChanged
cmd = New OleDbCommand("Select * from admin where username like '%" & Tcari.Text & "%' ", conn)
dr = cmd.ExecuteReader()
dr.Read()
If dr.HasRows Then
da = New OleDbDataAdapter("Select * from admin where username like '%" & Tcari.Text & "%' ", conn)
ds = New DataSet
da.Fill(ds, "ketemu")
DataGridView1.DataSource = ds.Tables("ketemu")
DataGridView1.ReadOnly = True
Lcari.ForeColor = Color.Azure
Else
MsgBox("Data Gak ADA!!!")
End If
End Sub
Private Sub Tcari_TextChanged(sender As Object, e As EventArgs) Handles Tcari.TextChanged
cmd = New OleDbCommand("Select * from admin where username like '%" & Tcari.Text & "%' ", conn)
dr = cmd.ExecuteReader()
dr.Read()
If dr.HasRows Then
da = New OleDbDataAdapter("Select * from admin where username like '%" & Tcari.Text & "%' ", conn)
ds = New DataSet
da.Fill(ds, "ketemu")
DataGridView1.DataSource = ds.Tables("ketemu")
DataGridView1.ReadOnly = True
Lcari.ForeColor = Color.Azure
Else
MsgBox("Data Gak ADA!!!")
End If
End Sub
Koding Hapus di VB .NET Access
Koding Hapus di VB .NET Access
Private Sub Bhapus_Click(sender As Object, e As EventArgs) Handles Bhapus.Click
If MessageBox.Show("Yakin Lu mo ngapus?!", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
cmd = New OleDbCommand("delete * from admin where username = '" & Tusername.Text & "'", conn)
cmd.ExecuteNonQuery()
Call tampil()
Call kosong()
Else
Call kosong()
End If
End Sub
Private Sub Bhapus_Click(sender As Object, e As EventArgs) Handles Bhapus.Click
If MessageBox.Show("Yakin Lu mo ngapus?!", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
cmd = New OleDbCommand("delete * from admin where username = '" & Tusername.Text & "'", conn)
cmd.ExecuteNonQuery()
Call tampil()
Call kosong()
Else
Call kosong()
End If
End Sub
Koding Tampil Datagridview di VB .NET Access
Koding Tampil Datagridview di VB .NET Access
Sub tampil()
da = New OleDbDataAdapter("select * from admin", conn)
ds = New DataSet
ds.Clear()
da.Fill(ds, "admin")
DataGridView1.DataSource = (ds.Tables("admin"))
DataGridView1.ReadOnly = True
End Sub
*Jangan Lupa panggil di form_load
call koneksi() dan call tampil()
*untuk membuat sub koneksi() klik disini
Sub tampil()
da = New OleDbDataAdapter("select * from admin", conn)
ds = New DataSet
ds.Clear()
da.Fill(ds, "admin")
DataGridView1.DataSource = (ds.Tables("admin"))
DataGridView1.ReadOnly = True
End Sub
*Jangan Lupa panggil di form_load
call koneksi() dan call tampil()
*untuk membuat sub koneksi() klik disini
Koding Simpan di VB .NET Access
Koding Simpan di VB .NET Access
Private Sub Bsimpan_Click(sender As Object, e As EventArgs) Handles Bsimpan.Click
If Tusername.Text = "" Or Tpassword.Text = "" Then
MsgBox("Data Lengkapi dulu boss!")
Exit Sub
Else
cmd = New OleDbCommand("select * from admin where username = '" & Tusername.Text & "'", conn)
dr = cmd.ExecuteReader
dr.Read()
If Not dr.HasRows Then
Dim simpan As String = "insert into admin values ('" & Tusername.Text & "', '" & Tpassword.Text & "')"
cmd = New OleDbCommand(simpan, conn)
cmd.ExecuteNonQuery()
Call tampil()
Call kosong()
Else
MsgBox("Username sudah ADA!!!")
End If
End If
End Sub
Private Sub Bsimpan_Click(sender As Object, e As EventArgs) Handles Bsimpan.Click
If Tusername.Text = "" Or Tpassword.Text = "" Then
MsgBox("Data Lengkapi dulu boss!")
Exit Sub
Else
cmd = New OleDbCommand("select * from admin where username = '" & Tusername.Text & "'", conn)
dr = cmd.ExecuteReader
dr.Read()
If Not dr.HasRows Then
Dim simpan As String = "insert into admin values ('" & Tusername.Text & "', '" & Tpassword.Text & "')"
cmd = New OleDbCommand(simpan, conn)
cmd.ExecuteNonQuery()
Call tampil()
Call kosong()
Else
MsgBox("Username sudah ADA!!!")
End If
End If
End Sub
Membuat Module Koneksi di VB .NET Access
Membuat Module Koneksi di VB .NET Access
Imports System.Data.OleDb
Module koneksi
Public conn As OleDbConnection
Public ds As New DataSet
Public dr As OleDbDataReader
Public da As OleDbDataAdapter
Public cmd As OleDbCommand
Public str As String
Public Sub koneksi()
str = "provider=microsoft.jet.oledb.4.0;data source = namaDB.mdb"
conn = New OleDbConnection(str)
If conn.State = ConnectionState.Closed Then
conn.Open()
Else
MsgBox("Gagal bos!")
End If
End Sub
End Module
*panggilah koneksi jika dibutuhkan dengan => call koneksi()
Imports System.Data.OleDb
Module koneksi
Public conn As OleDbConnection
Public ds As New DataSet
Public dr As OleDbDataReader
Public da As OleDbDataAdapter
Public cmd As OleDbCommand
Public str As String
Public Sub koneksi()
str = "provider=microsoft.jet.oledb.4.0;data source = namaDB.mdb"
conn = New OleDbConnection(str)
If conn.State = ConnectionState.Closed Then
conn.Open()
Else
MsgBox("Gagal bos!")
End If
End Sub
End Module
*panggilah koneksi jika dibutuhkan dengan => call koneksi()
Subscribe to:
Posts (Atom)
Tutorial Membuat LEVEL ADMIN dengan status strip lengkap dengan koding
Tutorial Membuat LEVEL ADMIN dengan status strip lengkap dengan koding. ------------------- PERHATIKAN LANGKAH-LANGKAH BERIKUT!!! (urut) ...
-
Koding Transaksi Many To Many di dalam DatagridView VB .NET pada Penjualan :: :: Nah kali ini lanjut ke koding yak, uda pada jago nge des...
-
Menampilkan Tanggal dan Waktu di VB.NET Access sudah buat kan timer nya? iya bener banget, cari di toolbox dengan keyword TIMER-> klik ...
-
Koding Otomatis VB .NET Access berdasarkan tanggal sekarang dan tambahan string :: :: Waktu itu uda ya bikin kode otomatis , nah sekarang...