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

Selesaikanlah Kasus Berikut :
Kasus Pemrograman Pemakaian Listrik

Private Sub ID_KeyPress (ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles KODE.KeyPress

        Dim TOMBOL As Integer = Asc(e.KeyChar)

        If TOMBOL = 13 Then

            PROSES_Click(sender, e)

        End If

    End Sub

Private Sub ID_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KODE.TextChanged

        Dim x As String

        NO.Text = "1" & Microsoft.VisualBasic.Right(KODE.Text, 2)

        x = Microsoft.VisualBasic.Mid(KODE.Text, 4, 3)

        If x = "MED" Then

            DAERAH.Text = "MEDAN"

            PAJAK.Text = 0.015

        ElseIf  x = "BEL" Then

            DAERAH.Text = "BELAWAN"

            PAJAK.Text = 0.015

        ElseIf  x = "TEM" Then

            DAERAH.Text = "AKSARA"

            PAJAK.Text = 0.015

        ElseIf  x = "MAR" Then

            DAERAH.Text = "MARENDAL"

            PAJAK.Text = 0.015

        ElseIf  x = "BIN" Then

            DAERAH.Text = "BINJAI"

            PAJAK.Text = 0.015

        ElseIf  x = "PAK" Then

            DAERAH.Text = "LUBUK PAKAM"

            PAJAK.Text = 0.015

        End If

        x = Microsoft.VisualBasic.Mid(KODE.Text, 1, 3)

        If x = "TOK" Then

            TIPE.Text = "TOKO"

            HARGA.Text = "500"

            BEBAN.Text = "150000"

        ElseIf  x = "RUM" Then

            TIPE.Text = "RUMAH"

            HARGA.Text = "200"

            BEBAN.Text = "50000"

        ElseIf  x = "SWA" Then

            TIPE.Text = "SWALAYAN"

            HARGA.Text = "1500"

            BEBAN.Text = "400000"

        ElseIf  x = "PAB" Then

            TIPE.Text = "PABRIK"

            BEBAN.Text = "1000000"

            HARGA.Text = "10000"

        End If

    End Sub

Private Sub PROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PROSES.Click

BESAR.Text = SEKARANG.Text - LALU.Text

TAGIHAN.Text = BEBAN.Text + (HARGA.Text * BESAR.Text)

TOTAL.Text = TAGIHAN.Text * 0.015

End Sub

Sub buattabel()

LV.Columns.Add("TANGGAL BAYAR", 80, HorizontalAlignment.Left)

LV.Columns.Add("NO. URUT", 80, HorizontalAlignment.Center)

LV.Columns.Add("KODE PELANGGAN", 80, HorizontalAlignment.Left)

LV.Columns.Add("DAERAH", 80, HorizontalAlignment.Left)

LV.Columns.Add("TIPE PELANGGAN", 80, HorizontalAlignment.Left)

LV.Columns.Add("BEBAN", 80, HorizontalAlignment.Left)

LV.Columns.Add("METERAN BULAN LALU", 80, HorizontalAlignment.Left)

LV.Columns.Add("METERAN BULAN SEKARANG", 80, HorizontalAlignment.Left)

LV.Columns.Add("HARGA PER KWH", 80, HorizontalAlignment.Left)

LV.Columns.Add("BESAR PEMAKAIAN", 80, HorizontalAlignment.Left)

LV.Columns.Add("PAJAK", 80, HorizontalAlignment.Left)

LV.Columns.Add("TAGIHAN", 80, HorizontalAlignment.Left)

LV.Columns.Add("TOTAL BAYAR", 80, HorizontalAlignment.Left)

LV.View = View.Details

LV.GridLines = True

LV.FullRowSelect = True

End Sub

Sub isitabel()

Dim lst As New ListViewItem

lst.Text = TGL.Text

lst.SubItems.Add(NO.Text)

lst.SubItems.Add(KODE.Text)

lst.SubItems.Add(DAERAH.Text)

lst.SubItems.Add(TIPE.Text)

lst.SubItems.Add(BEBAN.Text)

lst.SubItems.Add(LALU.Text)

lst.SubItems.Add(SEKARANG.Text)

lst.SubItems.Add(HARGA.Text)

lst.SubItems.Add(BESAR.Text)

lst.SubItems.Add(PAJAK.Text)

lst.SubItems.Add(TAGIHAN.Text)

lst.SubItems.Add(TOTAL.Text)

LV.Items.Add(lst)

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        buattabel()

Private Sub SIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN.Click

        isitabel()

        KODE.Text = ""

        DAERAH.Text = ""

        BEBAN.Text = ""

        TIPE.Text = ""

        LALU.Text = ""

        HARGA.Text = ""

        TOTAL.Text = ""

        SEKARANG.Text = ""

        NO.Text = ""

        TAGIHAN.Text = ""

        BESAR.Text = ""

        PAJAK.Text = ""

    End Sub

Private Sub HAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

Private Sub RESET_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RESET.Click

        KODE.Text = ""

        DAERAH.Text = ""

        BEBAN.Text = ""

        TIPE.Text = ""

        LALU.Text = ""

        HARGA.Text = ""

        TOTAL.Text = ""

        SEKARANG.Text = ""

        NO.Text = ""

        TAGIHAN.Text = ""

        BESAR.Text = ""

        PAJAK.Text = ""

    End Sub

Demikilahlah postingan saya 
 Nama : SRI KARTIKA SARI 
 NPM   : 13110027
Selamat Belajar Pemrograman VB NET

Cara Membuat Desain Kartu Nama Dengan CorelDraw X4

Dalam tutorial kali ini saya coba membuat sebuah kartu nama yang sederhana dengan menggunakan CorelDRAW X4, yah intinya..... dari tutorial ini bisa dikembangkan lagi untuk membuat kartu nama yang lebih menarik, langsung aja deh kita mulai .....

Hasil Akhir

Berikut langkah-langkahnya;

Langkah 1

Siapkan canvas dengan ukuran 9 x 5 cm.

Langkah 2

Langkah selanjutnya menyiapkan Guidelines (Garis Bantu), aktifkan terlebih dahulu Bleed Area (garis tepi pada canvas) dengan cara mengklik menu View “ Setup => Guidelines Setup “ Presets “ Bleed Area, jangan lupa mengaktifkan Snap To Guidelines pada Property Tool agar objek yang kita buat melekat pada Guidelines.

Langkah 3

Selanjutnya membuat Background kartu nama, caranya, buat objek kotak dengan menggunakan Rectangle Tool (F6) sebesar ukuran canvas. Atur Corner Radius menjadi 0,2 cm agar sudut kotak menjadi lebih halus.

Langkah 4

Beri warna kotak dengan Interactive Tool (G), pilih Fill Type menjadi Radial, pilih warna yang diinginkan, disini saya menggunakan warna biru terang (cyan) dan hijau terang (Ghost green).

Langkah 5

Selanjutnya membuat garis dengan menggunakan Pen Tool, buatlah garis seperti gambar di bawah ini.

Langkah 6

Ubah garis agar melengkung dengan cara Klik Shape Tool, klik kiri di tengah-tengah garis diagonal, kemudian Pilih Convert to Curve.

Langkah 7

Masih dengan menggunakan Shape Tool, klik kiri dan Drag garis kebawah agar melengkung seperti gambar dibawah ini.

Langkah 8

Beri warna Gradient dengan cara Klik Interactive Fill (G), pilih type fill Linier dan pilih warna seperti gambar dibawah.

Langkah 9

Selanjutnya Copy + Paste objek garis melengkung tersebut, dan rubah warnanya menjadi putih lalu kecilkan dengan cara klik kiri pada titik acu kiri tengah dan Drag kekanan hingga seperti gambar dibawah. 

Langkah 10

Selanjutnya buatlah garis melengkung dibagian kiri bawah, lihat langkah 5 s/d 8. Hasilnya seperti gambar dibawah.

Langkah 11

Langkah selanjutnya membuat tempat Alamat, klik Pen Tool dan buat garis kotak seperti gambar dibawah, beri warna Ice Blue.

Langkah 12

Buat agar kotak Alamat menjadi transparan dengan cara klik Transparency Tool, Pilih Type Linier dan drag dari bawah keatas pada objek kotak.

Langkah 13

Langkah selanjutnya membuat text, dengan menggunakan Text Tool (f8) buat lah text dan posisikan text seperti gambar dibawah;

Langkah 14

Anda juga bisa menambahkan logo yang anda punya di bagian kanan atas. Contohnya seperti gambar dibawah ini.

Oke selesai, dari tutorial ini anda bisa desain kartu nama yang lebih menarik, contohnya seperti dibawah ini;

Oke semoga bermanfaat yaa ......

Terima Kasih :)

Membuat Stempel Dengan CorelDraw

Hai ......... kali ini saya akan membahas mengenai Cara Membuat Stempel sederhana Dengan CorelDraw. Oke sekarang kita mulai Cara Membuat Stempel Sederhana Dengan CorelDraw.

1). Langkah Pertama Buka program coreldraw Disini saya menggunakan Corel Draw X4,

2). Pada toolbox, pilih Ellipse tool Atau Tekan (F7) Pada Keyboard, Untuk Membuat lingkaran, lalu tekan Huruf P pada Keyboard, agar lingkaran berada di tengah Halaman. seperti gambar dibawah ini. 

3). Pilih Pick tool, dalam keadaan lingkaran terseleksi, lalu tekan 2 kali tanda + (plus) pada keyboard untuk menggandakan lingkaran. Lalu hasilnya diperkecil dengan cara Drag ke arah dalam sambil menekan Tombol Shift pada Keyboard, seperti gambar dibawah ini.

 4). Pilih Rectangle tool untuk membuat kotak. Supaya posisi kotak berada di tengah lingkaran  tekan huruf P pada keyboard.

5). Selanjutnya Seleksi kotak dan lingkaran, lalu pada Option bar klik Back minus front supaya terpotong, seperti gambar dibawah ini.

6). Berikutnya kita akan membuat teks melingkar, tapi terlebih dahulu copy lingkaran yang sudah ada.lalu Perkecil Dan Tempatkan Seperti Gambar Di bawah. 

7). Kemudian pada toolbox pilih Text tool, Kemudian Pada Menu Bar Pilih Menu  TEKT > FIT TEKT TO PATH dan arah didekat lingkaran yang baru dibuat buatlah teks terserah kita, Atau Klik Lingkaran Lalu pada menu bar pilih TEKT > FUT TEKT TO PATH dan klik lagi lingkaran tadi, buatlah teks terserah kita.

Untuk membuat teks melingkar  yang letaknya dibawah, caranya sama seperti tahap No. 7,

8. Jika kita ingin membalik teks , klik Mirror Text Horizontal dan Mirror Text Vertical, disini saya tidak membalik teks, tambahkan teks lagi ditengah kotak.

9. Untuk memberi jarak antar teks bisa diedit dengan Shape tool.
 
10). Selanjutnya kita akan memberi pembatas misalnya dengan bintang, caranya pada toolbox pilih Polygon tool dan pilih gambar bintang. Kalau sudah lalu duplikat bintang dengan tekan + (plus) pada keyboard.

Yang terakhir hapus lingkaran didekat teks karena tidak diperlukan lagi sebagai garis bantu teks melingkar, Warnai objek disini saya menggunakan warna Biru, hasilnya dibawah ini.

Semoga bermanfaat yaa :) ...................