Membuat progam penjualan dengan visual basic 2010 ( tugas 3 )

by
No comments yet


Setelah kemarin membuat progam penjualan dengan visual basic 2010 ternyata masih ada beberapa kekurangan. sekarang saya akan melanjutkan progam yang kemarin lagi untuk melengkapi kekurangan di progam yang kemarin. Perbaikan progam yang saya buat antara lain :

  • penambahan tombol isi data
  • saat form dijalankan semuat isian, tombol isidata dan tutup aktif, sedangkan tombol clear tidak aktif
  • saat ditekan tombol clear maka sama dengan saat form dijalankan.

Untuk membuat progaram seperti diatas maka saya buat tampilan form seperti ini




Selanjutnya agarsaat form dijalankan semuat isian, tombol isidata dan tutup aktif, sedangkan tombol clear tidak aktif maka kita tambahkan coding berikut pada form load



PrivateSub Form1_Load(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesMyBase.Load





Dim Control AsWindows.Forms.Control



ForEach Control InMe.Controls

Control.Enabled = False

Next
        Button2.Enabled = True ‘tombol isi data
bttutup.Enabled = True

 maka tampilan saat progam dijalankan akan seperti ini




Agar dapat diisi maka isian harus aktif, maka kita bisa menambahkan perintah di tombol isi data agar isian bisa aktif semua dan tombol clear bisa berfungsi. Berikut coding yang saya gunakan untuk membuat semua isian progam tersebut menjadi aktif lagi

PrivateSub Button2_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click

Dim Control AsWindows.Forms.Control

ForEach Control InMe.Controls



Control.Enabled = True

Next

        Button1.Enabled = True‘button 1 tombol clear
        Button2.Enabled = False‘button 1 tombol isi data



EndSub


Dan tampilan progamnya saat dijalankan jadi seperti ini :
ketika tombol di klik
ketika tombol sis data di klik

Agar saat tombol clear ditekan tampilan form sperti pada saat pertama progam dijalankan maka perlu ditambahkan perintah pada tombol clear sebagai berikut
PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
txtbayar.Clear()
txtdiskon.Clear()
txtharga.Clear()
txtjumlah.Clear()
txtnama.Clear()
txttotal.Clear()
Me.radiotunai.Checked = False
Me.radiokredit.Checked = False
cmbkode.Text = ""

Dim Control AsWindows.Forms.Control
ForEach Control InMe.Controls

Control.Enabled = False

Next
        Button2.Enabled = True ‘tombol
bttutup.Enabled = True

EndSub

Ok demikia untuk update dari tugas pemrogaman 3 yang kemarin sebagai tugas pemrogaman 3 yang pertama.  Untuk source kode selengkapnya dibawah ini. Untuk tugas pemrogaman ke 3 yang ke dua tentang bagaimana membuat puzzle dengan visual basic juga telah saya buat. Terimakasih.

Untuk source code selengkapnya bisa dilihat dibawa ini :


PublicClassForm1

PrivateSub Form1_Load(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesMyBase.Load
Dim Control AsWindows.Forms.Control
ForEach Control InMe.Controls

Control.Enabled = False

Next
        Button2.Enabled = True
bttutup.Enabled = True

cmbkode.Items.Add("SPT")
cmbkode.Items.Add("SND")
cmbkode.Items.Add("TST")
cmbkode.Items.Add("TOP")
cmbkode.Items.Add("TAS")


EndSub

PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
txtbayar.Clear()
txtdiskon.Clear()
txtharga.Clear()
txtjumlah.Clear()
txtnama.Clear()
txttotal.Clear()
Me.radiotunai.Checked = False
Me.radiokredit.Checked = False
cmbkode.Text = ""
Dim Control AsWindows.Forms.Control
ForEach Control InMe.Controls

Control.Enabled = False

Next
        Button2.Enabled = True
bttutup.Enabled = True

EndSub

PrivateSub TextBox1_TextChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handlestxtjumlah.TextChanged

EndSub

PrivateSubcmbkode_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handlescmbkode.SelectedIndexChanged
Dimkdbarang, namabarangAsString
DimhargaAsInteger
kdbarang = cmbkode.Text
SelectCasekdbarang
Case"SPT"
namabarang = " sepatu "
harga = 20000
Case"SND"
namabarang = " sendal"
harga = 10000
Case"TST"
namabarang = " T-Shirt "
harga = 15000
Case"TOP"
namabarang = " topi "
harga = 50000
Case Else
namabarang = " - "
harga = 0
EndSelect
txtjumlah.Text = 0
txtnama.Text = namabarang
txtharga.Text = harga

txttotal.Text = Val(txtharga.Text) * Val(txtjumlah.Text)

EndSub

PrivateSubradiotunai_CheckedChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handlesradiotunai.CheckedChanged

txtdiskon.Text = Val(txttotal.Text) * 10 / 100

txttotal.Text = Val(txtharga.Text) * Val(txtjumlah.Text)
txtbayar.Text = Val(txttotal.Text) - Val(txtdiskon.Text)

EndSub

PrivateSubradiokredit_CheckedChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handlesradiokredit.CheckedChanged
txtdiskon.Text = 0
txttotal.Text = Val(txtharga.Text) * Val(txtjumlah.Text)
txtbayar.Text = Val(txttotal.Text) - Val(txtdiskon.Text)

EndSub

PrivateSubtxtbayar_TextChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handlestxtbayar.TextChanged

EndSub

PrivateSubbttutup_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handlesbttutup.Click
Me.Close()
EndSub

PrivateSubtxttotal_TextChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handlestxttotal.TextChanged

EndSub

PrivateSub Button2_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click
Dim Control AsWindows.Forms.Control
ForEach Control InMe.Controls

Control.Enabled = True
Next
        Button1.Enabled = True
        Button2.Enabled = False
EndSub
EndClass




Tugas pemrogaman ke 2

by
No comments yet

Okeh langsung saja dari pada kelamaan kali ini saya coba menganalisa masalah yang terjadi pada program 1.  Pertama buat 2 buah  form terlebih dahulu  kemudian masukan kode dibawah ini pada form 1

Public Class Frmsatu
    Const alamat = "kuningan"
    Private Sub Btalamat1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btalamat1.Click
        Dim alamat = "nandang"
        txtnama.Text = alamat
    End Sub

    Private Sub Btnama1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnama1.Click
        Dim nama As String
        nama = " Nandang "
        txtnama.Text = nama

    End Sub

    Private Sub Btnama2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnama2.Click

        txtnama.Text = nama
    End Sub

    Private Sub Btalamat2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btalamat2.Click
        Txtalamat.Text = alamat
    End Sub

    Private Sub Btumur1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btumur1.Click
        Dim umur As Integer
        umur += 1
        Txtumur.Text = umur
    End Sub

    Private Sub Btumur2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btumur2.Click
        Static umur As Integer
        umur += 1
        Txtumur.Text = umur
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Frmdua.ShowDialog()
    End Sub
End Class

Langah berikutnya kita jalankan program dan ternyata ada keganjilan yang terjadi dari program tersebut yaitu  saat ditekan tombol nama1 dan nama1 nama yang ditampilkan pada textbox nama berbeda sedangkan saat ditekan tombol alamat1 dan alamat2 yang ditampilkan pada textbox alamat sama kenapa bisa begitu??

 hal ini terjadi karena Pada tombol nama 1 dideklarasikan yaitu dengan dim as nama string yang berisi "nandang" sedangkan pada tombol nama 2 deklarasi menggambil dari deklarasi global yang terdapat pada modul program.

Pada tambah umur 1 selalu keluar angka satu karena pendeklarasiannya menggunakan DIM yang artinya tidak menyimpan nilai, maka nilai akan selalu keluar 1.  untuk itu DIM seharusnya diganti dengan STATIC agar nilainya tidak hilang saat program dijalankan.


Selanjutnya saya coba analisa program ke 2  coba buat form dengan tampilan sebagai berikut untuk menganalisa program if dan case


selanjutnya beri poperti dan masukan kode berikut :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cmbkode.Items.Add("SPT")
        cmbkode.Items.Add("SND")
        cmbkode.Items.Add("TST")
        cmbkode.Items.Add("TOP")
        cmbkode.Items.Add("TAS")

    End Sub
'========================================================='
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        txtbayar.Clear()
        txtdiskon.Clear()
        txtharga.Clear()
        txtjumlah.Clear()
        txtnama.Clear()
        txttotal.Clear()
        Me.radiotunai.Checked = False
        Me.radiokredit.Checked = False
        cmbkode.Text = ""

    End Sub

'========================================================='
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtjumlah.TextChanged
        txttotal.Text = Val(txtharga.Text) * Val(txtjumlah.Text)
        txtbayar.Text = Val(txttotal.Text) - Val(txtdiskon.Text)
    End Sub

    Private Sub cmbkode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbkode.SelectedIndexChanged
        Dim kdbarang, namabarang As String
        Dim harga As Integer
        kdbarang = cmbkode.Text
        Select Case kdbarang
            Case "SPT"
                namabarang = " sepatu "
                harga = 20000
            Case "SND"
                namabarang = " sendal"
                harga = 10000
            Case "TST"
                namabarang = " T-Shirt "
                harga = 15000
            Case "TOP"
                namabarang = " topi "
                harga = 50000
            Case Else
                namabarang = " - "
                harga = 0
        End Select
        txtnama.Text = namabarang
        txtharga.Text = harga
        txtbayar.Text = Val(txttotal.Text) - Val(txtdiskon.Text)

    End Sub

'========================================================='
    Private Sub radiotunai_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radiotunai.CheckedChanged
        txtdiskon.Text = Val(txttotal.Text) * 10 / 100
        txtbayar.Text = Val(txttotal.Text) - Val(txtdiskon.Text)
    End Sub

'========================================================='
    Private Sub radiokredit_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radiokredit.CheckedChanged
        txtdiskon.Text = 0
        txtbayar.Text = Val(txttotal.Text) - Val(txtdiskon.Text)
    End Sub

'========================================================='
    Private Sub txtbayar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtbayar.TextChanged

    End Sub

'========================================================='
    Private Sub bttutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttutup.Click
        Me.Close()
    End Sub

'========================================================='
    Private Sub txttotal_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txttotal.TextChanged

    End Sub

End Class
selanjutnya jalankan progam. maka progam berjalan dengan lancar tapi sebenarnya ada kekurangan dari program tersebut. antara lain


  • Tombol clear tidak menghapus semua textbox untuk itu kita tambahkan perintah untuk menghapus textbox yang masih isi dengan perintah namatxtbox.clear() 
  • Item barang tas tidak memilliki nilai untuk mengatasinya kita harus memberikan nilai tas pada select case agar nantinya nilai dapat diketahui
Demikian analisa untuk tugas pemrogaman 2 terimakasih ^^




Melindungi file gambar Copyright Act dengan Photoshop

by
No comments yet


Berikut ini adalah cara sederhana untuk menggunakan kotak Information File di Photoshop untuk menyimpan  undang-undang hak cipta. Ingat bahwa Anda mendapatkan perlindungan tambahan di bawah Digital Millennium Copyright Act dengan memberikan pemberitahuan kepada pemirsa dari pekerjaan Anda. Hal ini juga mencegah gambar Anda dari menjadi Pekerjaan Orphan  .

Ini harus tidak dilakukan sebagai satu-satunya alat Anda perlindungan. Saya juga akan menyarankan menggunakan "terlihat" watermark yang mencakup, minimal, simbol hak cipta dan nama Anda. Hal ini dapat ditempatkan sebagai lapisan di atas gambar dan hantu atau timbul ke dalam gambar.

Anda akan mendapatkan kualitas terbaik dengan bekerja dengan file yang dalam format terkompresi atau lossless seperti TIF daripada jpeg. Melakukan tindakan ini pada JPEG akan dikenakan file-file ke putaran lain kompresi "lossy" yang dapat menurunkan kualitas gambar Anda. Minimal saya akan menyarankan mengamati jpeg asli ke jpeg dua kali disimpan untuk memastikan bahwa kualitas dapat diterima.

Anda juga dapat menemukan penggunaan utilitas seperti Toolkit Info Gambar  , atau PhotoMechanic  lebih cocok untuk embedding metadata ke file jpeg.

Langkah-Langkah

Cara membuat tindakan di Photoshop (saya menggunakan Adobe Photoshop CS 5, tapi ini bisa bekerja dalam versi lain kebanyakan juga).

1. Buka  gambar di Photoshop.

2. Di bawah menu window pilih "Tindakan Tampilkan".

3. Di sisi kanan palet tindakan Anda akan melihat segitiga kecil. Klik dan pilih "menciptakan tindakan baru" .

4. Nama Aksi (misalnya, "Hak cipta 2007" )

5. Pilih satu set dari menu pop up (Anda bisa menciptakan satu set baru jika diinginkan seperti salah satu nama meta data atau hak cipta ). Jika Anda ingin Anda dapat memetakan tombol fungsi Anda sebagai shortcut (misalnya, Mac "Command + Shift + F8" atau pc, Ctrl + Shift + F8).

6. Anda siap untuk mulai merekam, pergi ke gambar terbuka dan pilih File, File Info .

7. Dalam jenis kotak Caption, di © 2007 (fotografer nama), All Rights Reserved . Jika Anda ingin, menambahkan nomor telepon Anda, alamat, dll
(untuk mendapatkan Option © simbol penggunaan + G [mac], atau tahan pada tombol Alt sambil mengetik 0169 dari keypad numerik * [jendela]). Lihat titik tanda bintang di bawah ini jika Anda menggunakan laptop jendela.

8. Ada beberapa bagian di bawah bar beralih tergantung pada versi Adobe ® Photoshop yang Anda gunakan. Untuk versi 6, lihat di bawah "hak cipta" bagian (Command + 6, Mac, Control + 6, PC), di versi 7 ini berada di bagian "umum". Centang kotak berlabel "Mark berhak cipta" dan tempat © 2003 (fotografer nama), All Rights Reserved . (Ini sehingga Anda benar-benar tertutup dalam setiap negara yang menandatangani Konvensi Bern). Karena tidak semua pembaca IPTC bekerja sama, saya juga menyarankan menempatkan info yang sama ke dalam kolom "keterangan" juga.

9. Jika Anda ingin, tambahkan URL website Anda di kolom yang disediakan di bawah ini. Namun, seperti disebutkan di atas ini hanya dapat terlihat jika klien membuka file dalam Adobe ® Photoshop, sehingga Anda mungkin ingin juga menempatkan ini dalam bidang caption juga.

10. Pilih OK - Anda akan melihat simbol hak cipta sekarang di depan nama gambar pada bagian atas jendela gambar.

11. Kembali ke segitiga kecil di tepi palet tindakan dan pilih "berhenti merekam" dari menu atau klik pada kotak hitam kecil di bagian bawah. Jika Anda ingin menggunakan ini sebagai bagian dari sebuah proses "batch" seperti yang disebutkan di bawah ini, Anda akan perlu menambahkan "Save As" ** langkah sebelum Anda berhenti merekam.

12. Anda sekarang memiliki tindakan untuk memasukkan data ini ke setiap gambar hanya dengan menjalankan tindakan ini ..

Anda mungkin ingin cadangan tindakan ini pada saat ini. Melihat file bantuan atau manual untuk spesifik tentang cara untuk melakukan ini.

Hanya itu otomatis!

Jika Anda ingin membuat proses ini lebih mudah, mengatur proses batch sehingga Anda dapat memproses banyak gambar sekaligus dengan tindakan ini.

1. Buat folder pada desktop Anda, Anda mungkin menyebutnya "hak cipta" . Pindahkan file yang Anda ingin melindungi ke dalam folder ini.

Catatan: Ini akan menghapus semua data yang ada dalam "file info" Anda kotak, jadi gunakan dengan hati-hati atau hanya menempatkan salinan file dalam folder ini.

2. Di bawah "file" menu pilih "otomatis" dan pilih "Batch" .

Pilih tindakan hak cipta (seharusnya muncul secara otomatis jika itu adalah tindakan terakhir Anda berlari), pilih sumber folder pastikan untuk memeriksa kotak berlabel tindakan override "Save As" ** perintah dan memilih bermain .

Kemudian duduk kembali dan menonton, atau menggunakan waktu yang Anda simpan untuk keperluan produksi yang lebih.

* Jika Anda berada di laptop windows dan tidak dapat dengan mudah menggunakan keypad numerik, coba gunakan "Character Map" program (membaca file bantuan Anda jika Anda belum pernah menggunakan ini). Anda dapat menemukannya dengan menggunakan Start >> Program >> Accessories >> System Tools >> Peta Karakter.

** Harap dicatat bahwa Anda hanya harus menggunakan "Save As" perintah. Semua versi terbaru Adobe ® Photoshop akan "menelanjangi" keluar info IPTC jika Anda menggunakan "Save for Web" pilihan karena hal ini memberikan ukuran file yang paling kompak. Lihat Manifesto Metadata  untuk rincian lainnya tentang bagaimana Anda dapat menggunakan metadata efektif.



Membuat Aplikasi Hitung Persegi Dengan Visual Studio 2010

by
7 Comments

Bingung mau bikin aplikasi apa nih menggunakan aplikasi visual basic 2010, setelah beberapa hari berpikir ingin buat program kasir tapi sepertinya ribet apalagi belum terbiasa dengan Visual Studio 2010. Akhirnya aku putuskan buat program menghitung luas, keliling, dan diagonal sebuah persegi. Untuk penampakan gambar akhirnya seperti ini.


Hasil Akhir setelah program di jalankan


Sangat sederhana sekali yah, dan tampilannya juga masih jelek. Tapi tidak masalah yang penting kan keakuratan hasilnya sudah pasti dan jelas. Oke langsung saja berikut langkah langkah membuat program untuk menghitung luas keliling dan diagonal persegi.

1. Buka Visual Studio 2010 kemudian pilih buat new project >> Pilih Windows Aplication Form. langsung Simpan di derektori yang anda inginkan.
2. Buat 2 buah textbox, 8 buah label dan 2 buah button atur seperti gambar dibawah ini.



Buat Layout Seperti gambar


Public Class Form1

    Private Sub Text1_KeyPress(ByVal KeyAscii As Integer)


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

    End Sub


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

        Dim a As Integer = Text1.Text
        Dim b As Integer = Text2.Text


        Label3.Visible = True
        Label4.Visible = True
        Label5.Visible = True
        Label6.Text = (a + b) * 2
        Label6.Visible = True
        Label7.Text = ((a * a) + (b * b)) ^ 0.5
        Label7.Visible = True
        Label8.Text = (a * b)
        Label8.Visible = True

    End Sub

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

    End Sub

    Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click

    End Sub

    Private Sub Text2_KeyPress(ByVal KeyAscii As Integer)
        If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9")) Then
            KeyAscii = 0
            MsgBox("Hanya angka saja..!", vbCritical, "Peringatan")

            Exit Sub
        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Text1.ResetText()
        Text2.ResetText()
        Label3.Visible = False
        Label4.Visible = False
        Label5.Visible = False
        Label6.Visible = False
        Label7.Visible = False
        Label8.Visible = False
        Button2.Enabled = False
    End Sub

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

    End Sub

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

    End Sub

    Private Sub Text1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Text1.TextChanged

    End Sub
End Class


3. Proses menghitung dilakukan saat tombol hitung di klik, pada button hitung diletakan script untuk membuat label yang enable=false berubah menjadi true agar dapat tampil saat di klik.
4. label6 menghasilkan keliling
5. label7 menghasilkan panjang diagonal
6. label8 menghasilkan luas
7. Tombol reset mreset semua nilai di textbox dan mengubah label menjadi enable=false sehingga label tidak nampak.

demikian cara membuat aplikasi hitung luas persegi panjang yang sederhana. semoga bermanfaat.












Mengawali Hidup Dengan Senyuman

by
No comments yet

Judulnya tidak nyambung dengan isinya tapi kalo kita sambung sambungin pasti nyambung kan? Ada kalanya kita bosan dengan aktivitas sehari hari. Memang sangat menjenuhkan aktifitas yang monoton dan tak ada perubahan. Jika sedang bosan mendingan kita cari aktifitas lain yang mungkin bisa lebih bermanfaat. Ada beberapa aktifitas yan bisa kamu lakukan jika dalam keadaan bosan. Kaya aku ini yang sedang bosan. Kalo aku lagi bosan hal hal yang biasa aku lakukan antara lain :

Menulis
Menulis menjadi salah satu alternatif bagiku jika lagi bosan. Menulis apa aja yang penting hati senang. Dari pada bengong. Tapi kadang menulis juga membosankan juga yah.

Membaca
Jika sudah bosan menulis biasanya saya suka baca baca. Tidak tahu apa yang dibaca yang penting hati senang lah dan harus bisa membuang kebosanan. bukan malah membuat kita tambah bosan. Membaca artikel yang bermanfaat itu lebih baik selain membuang kebosanan juga bisa menambah ilmu pengetahuan. Apa lagi jika membaca Al quran wah pastinya nambah pahala juga.

Jalan jalan
ini yang biasa dilakukan banyak orang. Jalan jalan kata mereka memang bisa membuat kita lebih segar lebih fres dan lebih sehat katanya. Ini juga sering aku lakukan jika lagi bosan total. jalan jalan ke taman kota kesawah atau kemana aja lah yang penting hati senang ^^

Makan
Makan sebenarnya bukan untuk menghilangkan bosan tapi bagiku jika sesuatu dilakukan sambil makan pastinya terasa lebih enjoy jadi gak gampang bosan.

Tidur
Lho kok tidur?? lah mau gimana lagi orang semua udah ngebosenin ya ditinggal tidur ajah. hahaha

Masih banyak hal yang dapat kita lakukan untuk mengurangi atau menghilangkan rasa bosan sebenarnya. MEngawali hari hari dengan senyuman pasti juga bisa membuat hidup kita lebih menyenangkan. Sudah dulu yah.. bosan nih


Diberdayakan oleh Blogger.