Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Selesaikanlah Kasus Berikut :


Kasus Pemrograman : Informasi Penjualan Produk


Berikut Jawaban Program :

Public Class Form1



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lv.Columns.Add("NO", 80, HorizontalAlignment.Center)
        lv.Columns.Add("KODE", 150, HorizontalAlignment.Left)
        lv.Columns.Add("PRODUK", 100, HorizontalAlignment.Left)
        lv.Columns.Add("HARGA", 120, HorizontalAlignment.Left)
        lv.Columns.Add("JUMLAH", 80, HorizontalAlignment.Left)
        lv.Columns.Add("TOTAL", 120, HorizontalAlignment.Left)

        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True

        kode.Items.Add("1")
        kode.Items.Add("2")
        kode.Items.Add("3")

        no.Text = 0
    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Select Case kode.Text
            Case "1"
                pro.Text = "TV"
                harga.Text = 2000000
            Case "2"
                pro.Text = "DVD"
                harga.Text = 650000
            Case "3"
                pro.Text = "CD ROOM"
                harga.Text = 450000
        End Select
    End Sub

    Private Sub PROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PROSES.Click
        total.Text = Val(jumlah.Text) * Val(harga.Text)
        no.Text = no.Text + 1

        Dim LST As New ListViewItem
        LST.Text = no.Text
        LST.SubItems.Add(kode.Text)
        LST.SubItems.Add(pro.Text)
        LST.SubItems.Add(harga.Text)
        LST.SubItems.Add(jumlah.Text)
        LST.SubItems.Add(total.Text)
        lv.Items.Add(LST)
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub HAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS.Click
        lv.Items.Clear()
        no.Text = ""
        kode.Text = ""
        pro.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        total.Text = ""

    End Sub

    Private Sub KELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KELUAR.Click
        End
    End Sub
End Class




Demikilahlah postingan saya Nama : DIAN ZIKRY  NPM : 14110524

Selamat Belajar Pemrograman VB NET

 

Menggambar Karakter Sederhana Di Coreldraw

Tutorial coreldraw kita pada kesempatan kali ini yaitu menggambar karakter sederhana di coreldraw.
Karakter yang akan kita gambar adalah karakter dari game yang dikembangkan oleh Rovio Entertainment yakni Angry Birds. Anda mungkin pernah memainkannya, Game yang sukses ini telah di unduh oleh satu miliar pengguna.
Baiklah mari kita mulai membuat karakter sederhana dari burung pemarah ini

Aplikasi : CorelDraw X6
Waktu : 15 Menit
Tingkat Kesulitan : Mudah 

Menggambar karakter sederhana di coreldraw
Langkah 1
Buat lembar kerja baru di CorelDraw.
Buat lingkaran menggunakan Ellipse Tool (F7).
Kemudian duplikat lingkaran tersebut, letakkan dibawah lingkaran yang pertama.
Seleksi kedua lingkaran kemudian gunakan fungsi shaping dengan jenis Intersect.
Beri warna seperti gambar dibawah ini.
Langkah 2 
Selanjutnya kita gambar bagian alis karakter burung ini.
Aktifkan Rectangle Tool (F6), buat sebuah persegi panjang.
Putar rotasi persegi panjang sebesar 330 derajat.
Duplikat dan mirorkan hasil nya, bentuk seperti huruf  V.
Seleksi kedua object tadi kemudian gabungkkan keduanya dengan fungsi Weld.
Atur ukuran dan posisi nya, seperti gambar berikut.

Langkah 3
Membuat Mata burung ini.
Aktifkan Ellipse Tool (F7).
Buat lingkaran kemudian dupikat lingkaran tadi, kecilkan ukuran nya dan posisikan di tengah lingkaran yang pertama.
Duplikat lingkaran yang kecil, posisikan di atas sebelah kanan , kemudian gunakan fungsi Trim untuk memotong nya.
Beri warna hitam untuk lingkaran kecil tadi dan putih untuk lingkaran yang besar.
Duplikat dan miror mata tadi untuk bagian mata sebelahnya.
Posisikan kedua mata ini, kemudian pindahkan posisi object dibawah layer alis.
klik kanan pada object lalu pilih Order-Behind dengan tujuan object alis tadi.
Jika kita tidak ingin di repotkan dengan order object, kita bisa membuat mata nya terlebih dahulu, kemudian baru alis.

Langkah 4 
Selanjut nya menggambar mulut burung ini.
Aktifkan Pen tool. Buat segitiga duplikat dan miror object segitiga tersebut. Lalu beri warna, seperti berikut ini.
Dan inilah hasil yang kita dapatkan.
Untuk lingkaran luar kita bisa menggunakan contour atau garis berwarna hitam.
Untuk memunculkan Contour Box klik menu Effect-Contour (Ctrl+F9).
Untuk Bagian latar kita beri sebuah kotak dengan warna yang sama dengan warna karakter burung ini.
Dan Burung pertama telah kita selesaikan.
Untuk pekerjaan selanjutnya hampir sama dengan membuat burung pertama, hanya ada beberapa shape yang berbeda.
Langkah 5
Untuk karakter yellow Bird, Buat segitiga menggunakan Polygon tool (Y), dengan jumlah sisi 3.
Kemudian untuk memberi sudut tumpul pada segitiga ini, kita aktifkan Fillet.
Untuk memunculkan kota fillet, klik menu windows-Dockers-Fillet/Scalop/Chamfer.
Dan untuk bagian bawah segitiga, sama seperti kita membuat bagian bawah karakter burung berwarna merah pertama.

Beri warna seperti gambar berikut ini.
 Langkah 6
Selanjutnya karakter burung biru angry birds. semua bagian sama dengan burung warna merah, namun tanpa alis mata. dan dibawah mata ada lingkaran kecil.
Buat lingkaran membentuk oval.

Beri warna seperti berikut ini.
Untuk burung berwana hijau, yang berbeda dari karakter lainnya yaitu paruhnya yang panjang.
Buat lingkaran lonjong dengan Ellipse tool, kemudian convert lingkaran tersebut menjadi curves.
hapus node kiri dan kanan, dan bentuk node atas sehingga membentuk seperti tetesan air.
Beri garis di tengah-tengah object dan beri warna.

Karakter burung hitam hampir sama dengan burung berwarna merah.
hanya berbeda warna.

Untuk burung yang berwarna putih, kita buat dari lingkaran yang lonjong.
untuk alis kita hanya perlu menggunakan rectangle tool.
Dan semua teknik nya sama. 

Dan setelah semua selesai maka kita akan mendapatkan hasil seperti berikut ini.
Demikianlah tutorial menggambar karakter sederhana di coreldraw.
Bagaimana menurut anda, mudah bukan.?
Selamat mencoba dan semoga sukses.
Aamiin.

CARA MEMBUAT UNDANGAN SEDERHANA DENGAN CORELDRAW

1. Pertama-tama buka aplikasi corel drawnya, kemudian buat kotak dengan menggunakan Rectangle Tool atau F6, kemudian beri warna apa aja terserah kamu, caranya klik Fiil kemudian di situ banyak pilihannya, tapi saya menggunakan yang Fountain Fill, lihat gambar di bawah ini:

2. Beri Hiasan balon-balon, atau topi ultah, dll dengan cara pilih Artistic Media Tool kemudian pilih sprayer. Banyak macam-macam hiasan ultah.. pilih terserah kamu.. 
Lihat gambar di bawah ini :
3. Kalau sudah, jadinya seperti ini :
4. Beri tulisan seperti contoh saya di bawah ini: 
5. Tambahkan kotak untuk menuliskan nama temen-temen yang mau di undang. Caranya buat kotak kecil, menggunakan Rectangle Tool (F6) ukurannya bebas, kemudian untuk menumpulkan ke empat pojok segi empat caranya Ubah ukuran Right Rectangle Corner Roundness pada standart toolbar menjadi 30 misalnya.
SELESAI....

Membuat / Mendesain Kartu Nama Dengan CorelDraw


Kartu Nama Adalah Selembar Kertas Yang Didesain Biasanya Dengan Dimensi 5 - 6 Cm x 6 - 9 Cm, Yang Berisi Identitas / Informasi Seseorang Atau Perusahaan, Bagi Pebisnis Atau Para Sales, Kartu Nama Ini Adalah Salah Satu Sarana Yang Efektif Di jadikan Promosi untuk Perusahaan / Usaha.  Dan Ini Tidaklah Asing Bagi Kita Bukan ..:

Dan Dalam Kesempatan Kali Ini Saya Mencoba Membuat Thutorialnya. Ini Adalah Sebagai Contoh Belaka.

Berikut Adalah Langkah - Langkah menbuat Kartu Nama menggunakan Program CorelDraw,

1. Buka Program CorelDraw
Setelah Pogram CorelDraw Terbuka, Disini Saya Menggunakan CorelDraw X4, Buatlah Documen Baru Cukup menekan Tombol CTRL + N  Pada Keboard,

2. Membuat Persegi Panjang 
Buatlah Persegi Panjang Dengan Klik Pada Rectangle Tool Pada Deretan Tool Yang Berada Dikiri Lembar Kerja, Setelah Terbentuk Persegi Panjang Atau Kotak, Selanjutnya Kita Ubah Ukuran Persegi Panjang Tersebut, Kita Ketikan Saja Pada Properti Bar Panjang 90 mm Dan Lebar 55 mm Lalu Enter. Maka Sekarang Persegi Panjang Tersebut menjadi 9 Cm x 5.5 Cm

Sekarang Kita Akan Membulatkan Pada Empat Sudut Persegi Tersebut, Caranya Klik Pada Shape Tool Lalu Klik Pada Salah Satu Sudut Persegi Tersebut Dan Tarik Kebawah, Atas, Kanan Atau Ke Kiri, Sampai Kita Mendapat Bulatan Yang Sesuai.

Gambar Di Bawah Ini Adalah Hasil Dari Langkah di Atas,


3. Menambahkan Lingkaran Dengan Ellipse Tool.
Setelah Klik Pada Ellipse Tool Buatlah Lingkaran ( Agar Lingkaran Bulat Sempurna Tekan Tombol CTRL Pada Keyboard Pada Saat Menggeser Mouse Membuat Lingkaran ), 

Selanjutnya Kita Hanya Membutuhkan Sebagian Dari Lingkaran Tersebut Yaitu Hanya Lingkaran Yang Berada Dalam Persegi Panjang, Dan Sebagiannya Lagi Kita Akan Membuangnya,
Caranya : Aktifkan Lingkaran Yaitu Klik Pada Lingkaran Lalu Sambil Menekan Tombol SHIFT  Pada Keyboard Klik Pada Persegi Panjang Di Lanjutkan Dengan Klik Pada Intersect Di Properti Bar. Atau Klik Menu Arrange > Shaping > Intersect.
Sekarang Kita Buang Lingkaran Yang Berada Di Luar Persegi Panjang Klik Pada Lingkaran Lalu Tekan Tombol DELETE Pada Keyboard, Dan Hasilnya Sekarang Lingkaran Diluar Persegi Hilang,
Setelah Selesai Tahap Di Atas Sekarang Warnai Objek Lingkaran Dan Persegi Tersebut, Klik Pada Lingkaran Kemudian Klik Pada Warna Kuning Pada Palet Warna Yang Berada Disisi Kanan Lembar Kerja. Lalu Di Susul Pada Pesegi Panjang Dengan warna biru.
Sekarang Klik Pada Lingkaran Lalu Klik Pada Transparency Tool, Lalu Drag Ke Atas Kiri Seperti Pada Gambar Di Bawah Ini,

4. Buat Persegi Panjang Ke Dua.
Sekarang Buat Persegi Panjang Dengan  Rectangle Tool.
Setelah Persegi Di Buat, Warnai Objek Ini Dengan Fountain Fill, Caranya : Klik Pada Fountain Fill Toll Atau Dengan menekan Tombol F11  Pada Keyboard Lalu Akan Muncul Kotak Dialog Fountain Fill Dan Atur Sebagai Berikut : Pada Type Pilih Linear, Angle : 0, Edgepad : 0 %, Color blend : Two Color, Mid : 50,  Dan Warna : Merah Dan Orange. Lalu Klik OK.

Kemudian Posisikan Persegi Panjang Tersebut Seperti Gambar Dibawah Ini.


5. Menambahkan Nama Perusahaannya Dengan Teks Tool.
Klik Pada Teks Tool Dengan Icon A, Lalu Ketiklah Nama Perusahaan Sebagai Contoh Disini Saya Mengetik Global Cell, Lalu Mewarnai Objek Teks Ini Dengan Warna Putih,
6. Menambahkan Logo.
Sekarang Buat Logo, Klik Pada Teks Tool Lalu Ketik Huruf G, Lalu Perbesar Sedikit Huruf G Ini,  Kemudian Tambahkan Lingkaran Menggunakan Ellipse Tool, Lalu Tempatkan Huruf G Seperti Gambar Di Bawah.
Setelah Tahap Di Atas Selesai, Klik Pada Huruf G Lalu Sambil Menekan Tombol SHIFT Pada Keyboard KLik Pada Lingkaran, Maka Dua Objek Ini Akan Aktif Lalu Klik Trim Pada Property Bar, Atau Klik Menu Arrange > Shaping > Trim.
Setelah Proses Trim, Maka Sekarang Objek Akan Seperti Di Bawah, Lalu Warnai Dengan Warna Kuning.

7. Mewarnai Logo Dengan Fountain Fill.
Setelah Di Warnai Dengan Warna Kuning Ternyata Logo Ini Kurang Mantap, Maka Disini Saya Memutuskan Mengkombinasi Warna Dengan Fountai Fill, Caranya : Pastikan Objek Telah Aktif, Jika Belum Klik Pada Objek Untuk Mengaktifkannya, Dilanjutkan Klik Pada Fountain Fill.
Maka Akan Muncul Jendela Fountain Fill, Lalu Atur Pada Type : Linear, Angle : 45, Edge Pad : 19 %, Color blend :  Custom, Dan Warna Saya Menggunakan Kuning, Orange Dan Blue Ice. Dan Klik OK.
Maka Hasilnya Akan Seperti.
Buatlagi Persegi Lalu Perkecil Agar Kelihatan Seperti Garis lalu Warnai Dengan Warna Putih, Lalu Tempatkan Seperti Gambar di Bawah.
Buatlagi Teks Dan Tempatkan Di Atas Garis Persegi,

8. Menambahkan Nama Pemilik Kartu Nama Dan Informasi Kontak Juga Alamat.
Copy Persegi Panjang Pada No.4 Dua Kali, Dengan Cara Tekan Tombol CTRL + C Pada Keyboard, Dan Posisikan Persegi Di Bawah Logo, Buat Teks Nama Pemilik Kartu Nama, Dan Posisikan Teks Tersebut Pada Persegi Hasil Copy Ke1, Buat Juga No Handphone Dengan Teks Tooll Dan Posisikan Pada Persegi Hasil Copy Ke2. Atur ukurannya Dengan Menyeret Mouse.

Sekarang Bulatkan Sudut Persegi dengan Shape Tool, Seperti Tahap No 2, Kemudian Buat Teks Lagi Berisikan Alamat  dan Kontak Email.

9. Menghilangkan Garis Pinggir Semua Objek.
Langkah Terakhir Adalah Menghilangkan Garis Pinggir Atau Outpennya, Caranya Seleksi Seluruh Objek Dilanjutkan Dengan Klik Kanan Pada Tanda X ( Silang ) Pada Palet Warna.

Maka Setelah Menghilangkan Garis pinggirnya Selesai Sudah Kartu Nama Di Buat,

Terima Kasih...

More

Whats Hot