Minggu, 10 Februari 2013

MENYESAL

Betulkah???
Betulkah itu apa yang di katakan orang???
Q sama sekali tidak tahu,
aku belum mengalaminya sama sekali,,,
bahkan kini aku terjebak dengan keptsan aku sendiri.

Ya.....
aku akui, memang aku terkadang silap dalam mengambil keptusan,
tapi aku berharap itu normal saja bagiku
sekarang,,,aku hanya bisa berharap hari ni dan besok harinya 
aku tidak lagi melakukan hal yang sama.
Aku merasa cukup kali ini saja q melakukannya.

Tapi...
meskipun demikian aku tetap merasa tidak tenang,,
aku mengalami penyesalan yang cukup dalam.
Penyesalan yang datang terlambat kini harus aku alami lagi
dan bahkan bukan hanya itu, aku terus merasa tertuduh.


Besok hari ketika matahari terbit,,,
apa yang akan pertama kali aku dengar???
cerewetan orang-orang yang ada disekitar q???
siap atau tidak, aku harus menerimanya,,,
mungkin bukan hanya besok, beberapa hari kedepan atau bahkan beberapa tahun kedepan 
keptusan yang salah ini akan terus mengikutiku.

Bisakah...???
bisakah aku melupakan ini???
bagaimana caranya???
ini bukanlah hal yang mudah untuk dilupakan.
Sungguh sangat sulit bagiku,,,
benar-benar sulit.
Desahan hembus nafas teman sebelah menambah penesalan aku,
Desahan itu berarti menunjukkan kemarahan dan ketidak sukaan dia 
dengan keputusan yang aku ambil ini,
meskipun aku sudah berjanji tidak akan mengulanginya lagi
tetapi sepertinya dia tidak perduli,, terkadang aku menyangka dia sudah tertidur,,
tetapi sebentar lagi dia akan mendesah lebih keras lagi,
putar sana-putar sini menandakan ketidak sukaannya.

Tolong lupakan hal ini
Tolong maafkan aku
Tidak akan kuulangi lagi...

MAAFKAN AKU....
 

Minggu, 29 Januari 2012

Jawaban soal no3 (Usri Sagala)

Jawaban soal no3 (Usri Sagala)

Untuk kasus lihat disini Kasus Tagihan PDAM ……………….. (maka di Tulisan Kasus itu anda buat link ke Page Kasus yang soalnya, itu contohnya).

Listing Program Login:


Public Class Login

Private Sub BtnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOk.Click
           If username.Text = "Yusri" And password.Text = "tikus" Then
                    Menu_Utama.Show()
                    Me.Hide()
           Else
                    MsgBox("Username/Password salah!!!")
                    username.Text = ""
                    password.Text = ""
            End If
End Sub

End Class



Hasil Program Login:


Listing Program Menu Utama:


Imports System.Windows.Forms

Public Class Menu_Utama

Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
          End

End Sub

Private Sub PDAMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PDAMToolStripMenuItem.Click
             Tagihan_PDAM.Show()

End Sub
End Class

Sabtu, 28 Januari 2012

Postingan Jawaban No 3 (Usri Sagala)

Untuk kasus lihat disini Kasus Tagihan PDAM  (maka di Tulisan Kasus itu anda buat link ke Page Kasus yang soalnya, itu contohnya).
Listing Program Login:

Public Class Login

    Private Sub BtnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOk.Click
        If username.Text = "Yusri" And password.Text = "tikus" Then
            Menu_Utama.Show()

Postingan Jawaban No 2 (Usri Sagala)

Untuk kasus lihat disini Kasus disini(maka di Tulisan Kasus itu anda buat link ke Page Kasus yang soalnya, itu contohnya).

Listing Program

Public Class Form1

    Sub isinama()
        nama.Text = "Flasdisk 4GB"
        nama.Text = "Flashdik 2GB"
    End Sub

Kasus soal no 2

Desaign Form dengan ketentuan sebagai berikut:

- Kode barang menentukan nama barang dan merk
- 2 digit karakter dari sebelah kiri menentukan merk barang
- 3 digit karakter dari sebelah kanan adalah menentukan nama barang
- Total harga muncul ketika terjadi penekanan enter di jumlah beli
- Total harga = Harga * Jumlah Beli

Contoh :
   Kode barang: TS001, Merk: Toshiba, Nama Barang: Flashdisk 4GB
   Kode barang: TS002, Merk: Toshiba, Nama Barang: Flashdisk 2GB
   Kode barang: VG001, Merk: Toshiba, Nama Barang: Flashdisk 2GB
   Kode barang: VG002, Merk: Toshiba, Nama Barang: Flashdisk 4GB

Ketentuan harga:


KodeBarang                001                     002
TS 105000 75000
VG 90000 60000









Rabu, 25 Januari 2012

My Frame....


Sejarah Visual Basic

Written by Rudi  


Microsoft Visual Basic (sering disingkat sebagai VB saja) merupakan sebuah bahasa pemrograman yang bersifat event driven dan menawarkan Integrated Development Environment (IDE) visual untuk membuat program aplikasi berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman Common Object Model (COM).