Myu Myu Kaa

Wednesday, 15 January 2014

Form Penjualan TV Sony

Nancy Popo January 15, 2014 0 Comments

KUIS ONLINE BELAJAR BAHASA PEMROGRAMAN

Kali ini saya mau memposting artikel Quis online kuliah saya.

Bentuk Form Awal

Dibawah ini kode designnya :

Public Class Form1

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

Nama.Items.Add("SONY V46")

Nama.Items.Add("SONY Q10")

Nama.Items.Add("SONY M25")

Nama.Items.Add("SONY 3D")

Nama.Items.Add("SONY TURBO SOUND")

Dim i As Integer

For i = 1 To 10

Jumlah.Items.Add(i)

End Sub

Private Sub Nama_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nama.SelectedIndexChanged

Select Case Nama.Text

Case "SONY V46"

Harga.Text = "2000000"

Case "SONY Q10"

Harga.Text = "4500000"

Case "SONY M25"

Harga.Text = "4000000"

Case "SONY 3D"

Harga.Text = "6500000"

Case "SONY TURBO SOUND"

Harga.Text = "6000000"

End Select

End Sub

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

Totalharga.Text = Harga.Text * Jumlah.Text

If Totalharga.Text > 2500000 Then

Discount.Text = 0.1 * Totalharga.Text

Else

Discount.Text = 0

End If

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Total.Text = Totalharga.Text - Discount.Text

End Sub

End Class

Tuesday, 14 January 2014

Fakta Unik Personil Super Junior

Nancy Popo January 14, 2014 0 Comments

Fakta Unik dan Kebiasaan lucu para personil suju

Fakta Unik Personil Super Junior

Fakta Unik Super Junior

Nancy Popo January 14, 2014 0 Comments

Para ELF jangan ngaku seorang ELF jika belum mengetahui fakta - fakta tentang sang idola.
Kali ini saya akan membuat Link sluruh Fakta tentang Super Junior yang saya temukan.
Silahkan dibaca Elf.. :)

150 FAKTA UNIK SUPER JUNIOR
Fakta Unik Super Junior Saat di Indonesia
Fakta Unik Seputar Super Junior
Fakta kocak and Unik tentang ‘Super Junior’

Kau bukanlah untukku
Meski ku tahu
Ku menyayangimu

Cinta tak mungkin terjadi
Diantara kita berdua

[*]
Dirimu kini telah bersamanya
Begitu pula aku telah memilikinya

[**]
Kini ku sadari rasa ini tak mungkin
Dapat terwujud dalam kisah kasih kita
Kini ku mengerti tulus cinta ini
Hanyalah mimpi panjang yang tak pernah usai

Karena ‘tuk bersamamu
Bagai berharap memeluk bulan

Back to [*]

Back to [**] 2x

Karena ‘tuk bersamamu
Bagaikan berharap memeluk bulan
Karena ‘tuk bersamamu
Bagaikan berharap memetik bintang

Friday, 10 January 2014

[Review] Mengenal Mesran.Net

Nancy Popo January 10, 2014 0 Comments

adalah sebuah situs website yang sangat bagus bagi siapa pun yang ingin belajar bahasa pemrograman karena di website ini anda bisa belajar bahasa pemrograman, mendownload program, dan mendownload software untuk belajar.

Seperti ingin belajar tentang Visual Basic 6, Visual Basic Net, Visual C# / C Sharp, Pascal, C/C++ , Algoritma anda bisa mempelajarinya di website ini. Tidak sullit untuk mempelajari suatu bahasa pemograman jika di barengi dengan giat belajar dan berlatih.

Tidak hanya belajar pemograman, di meran[dot]net anda juga dapat membaca berita, pengalam, cerita lucu / lelucon dan sebagainya.

Terima kasih untuk mesran[dot]net karena telah membantu saya untuk belajar lebih dalam lagi tentang bahasa pemograman.

Sinopsis Pretty Man / Bel Ami

Nancy Popo January 10, 2014 0 Comments

Detail Drama :

Title: 예쁜남자 / Pretty Man
Chinese Title: 漂亮男人
Also Known as: Bel Ami / Beautiful Man / Pretty Boy
Genre: Romance, Comedy, Family
Episodes: 16
Broadcast network: KBS2
Broadcast period: 2013-Nov-20 to 2014-Jan-09
Air time: Wednesday & Thursday 21:55

Silahkan lanjut klik disini »

Monday, 6 January 2014

Sinopsis The Heirs Episode 1 - 20 [Lengkap]

Nancy Popo January 06, 2014 0 Comments

Detail Drama :

Title: 상속자들 / The Heirs
Chinese Title: 欲戴王冠，必承其重－繼承者們
Also Known as: The Inheritors
Genre: Romance, Comedy, School
Episodes: 20 (To Be Confirmed)
Broadcast network: SBS

Silahkan lanjut klik disini »

Pemakaian IF Pada Visual Basic Net

Nancy Popo January 06, 2014 0 Comments

Di bawah ini merupakan contoh pemakaian IF pada visual basic net.

Public Class Form1

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

End Sub

Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

If Nilai.Text >= 50 Then

Keterangan.Text = "Lulus"

Else

Keterangan.Text = "Gagal"

End If

End Sub

End Class

Dan ini Hasilnya :

Gambar. Hasil Gagal

Sunday, 5 January 2014

Sinopsis You Who Came From The Stars

Nancy Popo January 05, 2014 0 Comments

Detail Drama:

Drama: My Love From The Star (English title) / You Who Came From the Stars (literal title)

Revised romanization: Byeoleseo On Geudae
Hangul: 별에서 온 그대
Director: Jang Tae-Yoo
Writer: Park Ji-Eun
Network: SBS
Episodes: 20
Release Date: December 18, 2013 - February 20, 2014
Runtime: Wed. & Thu. 21:55
Language: Korean
Country: South Korea

Silahkan lanjut klik disini »