twitter

Kenapa Ada Orang Kayak Jun Ji Hyun a.k.a Gianna Jun Siiihhh !!!!

13 comments
Posted in Labels:


Setelah menonton My Sassy Girl dua hari yang lalu,
saya malah jadi suka tuh sama film komedi romantis Korea
tahun 2001 an ini, apalagi jalan ceritanya yang agak2 aneh
gak nyesel denger sinopsisnya sekian lama,ternyata pas nonton, sesuai
terbayar,gak nyesel daahhhh

Sedikit  Profil Jun Ji Hyun

Nama Asli : Wang Ji Hyun
Nama  Beken : Jun Ji Hyun
Tanggal lahir : 30 Oktober 1981
Tempat lahir : Seoul,Korea Selatan

My Sassy Girl

kasian banget bang gyeon woo


ini beberapa adegan gokil di film My Sassy Girl 
Paporit ane,

abis ni tampar tu muka si gyeon-woo

lol

byuti jihyun

mabokk!!!


Jun Ji Hyun yang memiliki nama asli Wang Ji Hyun merupakan artis Cantik dari Korea Selatan, ia lahir tahun 1981, nama Jun Ji Hyun mulai di kenal di kalangan publik setelah ia membintangi sebuah film yang berjudul My Sassy Girl pada tahun 2001, untuk melihat lebih lengkap tentang Jun Ji Hyun langsung saja kita simak Profil Biodata Jun Ji Hyun berikut ini : Profil Jun Ji Hyun Nama asli : Wang Ji Hyun Zodiac : Scorpio Nama Asli : Wang Ji Hyun Tanggal Lahir : 30 Oktober 1981 Tempat Lahir : Seoul, Korea Selatan Tinggi Badan :172 Kewarganegaraan : Korea Selatan Kekasih : Lee Young Hee Populer Sejak : Membintangi film "My Sassy Girl" (2001)

Baca selengkapnya di : http://www.profil.web.id/2012/11/profil-biodata-jun-ji-hyun.html
Jun Ji Hyun yang memiliki nama asli Wang Ji Hyun merupakan artis Cantik dari Korea Selatan, ia lahir tahun 1981, nama Jun Ji Hyun mulai di kenal di kalangan publik setelah ia membintangi sebuah film yang berjudul My Sassy Girl pada tahun 2001, untuk melihat lebih lengkap tentang Jun Ji Hyun langsung saja kita simak Profil Biodata Jun Ji Hyun berikut ini : Profil Jun Ji Hyun Nama asli : Wang Ji Hyun Zodiac : Scorpio Nama Asli : Wang Ji Hyun Tanggal Lahir : 30 Oktober 1981 Tempat Lahir : Seoul, Korea Selatan Tinggi Badan :172 Kewarganegaraan : Korea Selatan Kekasih : Lee Young Hee Populer Sejak : Membintangi film "My Sassy Girl" (2001)

Baca selengkapnya di : http://www.profil.web.id/2012/11/profil-biodata-jun-ji-hyun.html
ngakak,ngakunyanya mau aborsi biar dikasih bolos sama dosen

gendong cewek mabok gak dikenal

tersiksa tapi endingnya bahagia

byuti jihyun (again)

suka buat cerita ( sinopsis ) aneh, gyeon woo 'dipaksa' membaca

romantisnya,bela2in datang kesekolah cewek hanya utk kasih bunga ke si cewek gila

pesen kopi,kalo gak mau mati !!! haha

Kalo diperhatikan, Gianna Jun kadang mirip

Song hye kyo

Yoon eun hye

Jung so min

Choi Sulli

ya ampun mungkin menurut kalian pendapatku aneh ya,
tapi sepanjang menonton film nya Gianna Jun,itulah yang aku dapatkan ( ceilah)
kadang mirip mereka,malah ada kalanya mirip Kim tae hee, nah lo !!!
Wajah mereka kalo disatukan ya wajahnya Gianna Jun kale yak ,
hueehehhehh

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

0 comments
Posted in Labels:



Berikut Jawaban Program :

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kodebarang.Items.Add("TS001")
        kodebarang.Items.Add("TS002")
        kodebarang.Items.Add("VG001")
        kodebarang.Items.Add("VG002")
        buattabel()
    End Sub
    Sub buattabel()
        LV.Columns.Add("No Pembelian", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Kode Barang", 60, HorizontalAlignment.Left)
        LV.Columns.Add("Nama Barang", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Merk", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Harga", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Jumlah Beli", 60, HorizontalAlignment.Left)
        LV.Columns.Add("Total Harga", 80, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub isitable()
        Dim lst As New ListViewItem
        lst.Text = nopembelian.Text
        lst.SubItems.Add(kodebarang.Text)
        lst.SubItems.Add(namabarang.Text)
        lst.SubItems.Add(merk.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(jumlahbeli.Text)
        lst.SubItems.Add(totalharga.Text)
        LV.Items.Add(lst)
    End Sub
    Private Sub kodebarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodebarang.SelectedIndexChanged
        Select Case kodebarang.Text
            Case "TS001" : namabarang.Text = "Flashdisk4GB" : harga.Text = "105000"
            Case "TS002" : namabarang.Text = "Flashdisk2GB" : harga.Text = "90000"
            Case "VG001" : namabarang.Text = "Flashdisk4GB" : harga.Text = "75000"
            Case "VG002" : namabarang.Text = "Flashdisk2GB" : harga.Text = "60000"
        End Select
    End Sub
    Private Sub namabarang_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles namabarang.TextChanged
        Select Case namabarang.Text
            Case "Flashdisk4GB" : merk.Text = "Toshiba"
            Case "Flashdisk2GB" : merk.Text = "Toshiba"
            Case "Flashdisk4GB" : merk.Text = "VGen"
            Case "Flashdisk2GB" : merk.Text = "VGen"
        End Select
    End Sub
    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        Close()
    End Sub
    Private Sub jumlahbeli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlahbeli.KeyPress
        If e.KeyChar = Chr(13) Then
            totalharga.Text = harga.Text * jumlahbeli.Text
        End If
   
    End Sub
    Private Sub jumlahbeli_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlahbeli.TextChanged
    End Sub
    Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
        isitable()
        nopembelian.Text = ""
        kodebarang.Text = ""
        namabarang.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlahbeli.Text = ""
        totalharga.Text = ""
    End Sub
    Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
        nopembelian.Text = ""
        kodebarang.Text = ""
        namabarang.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlahbeli.Text = ""
        totalharga.Text = ""
    End Sub
    Private Sub Btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapussemua.Click
        LV.Items.Clear()
    End Sub
    Private Sub Btnhapusyangdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapusyangdipilih.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub
End Class
  Hasil :


 

Demikilahlah postingan saya  Nama : Laila Nurli
NPM : 1111226
Selamat Belajar Pemrograman VB.Net

Laila Nurli. Powered by Blogger.