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

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

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()

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)
-----------------------------------------------------------------------------------------------------------------

*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

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

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

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 :)
::
::

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
-----------------------------------------------------------------------------------------------------------------------

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
------------------------------------------------------------------------------------------

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...