1 JAM UNTUK MASA LALU

1 JAM UNTUK MASA LALU

22.54 "Ketika ada orang baru yang jadi bagian dari hidup lu, ketika waktu banyak di habisin buat dia,  ketika nama dia selalu ada tiap waktu di pikiran lu, Ketika apa yang lu perbuat sehari-sehari dia harus tau, ketika lu bangga punya dia di hadapan temen temen lu, ketika lu perjuangin sesuatu yang ga pernah lu lakuin kecuali buat dia, ketika cuma sama dia lu bisa berbagi beban dan kesenangan lu, ketika lu ketawa sekenceng kenceng nya nangis secengeng-cengengnya cuma sama dia, dan ketika setiap waktu lu pengen hubungin dia."

23.11 "Dia yang selalu di bikin ketawa sama lu pas dia lagi murung, dia yang selalu manjain dengan kata-kata lembut lu, Dia yang selalu lu puji-puji karna lu bangga punya dia, Dia yang selalu nyariin lu kalo lu ga hubungin dia, Dia yang selalu bertengkar sama lu karna sama sama pngen menang sendiri, Dia yang selalu dibikin nangis sama lu, Dia yang selalu lu cium karna lu sayang sama dia, Dia yang tatapan matanya selalu bikin hati lu seneng ,Dia yang selalu lu anggap cewe paling cantik sedunia, Dia yang selalu lu tangisin kalo lu udah nyesel berbuat sesuatu ke dia, Dan dia yang bikin hidup lu ke arah yang lebih baik."

23.20 "Tapi apa yang lu rasain ketika lu udah ngegantungin hidup lu sehari-hari cuma sama dia, lu udah ngegantungin mimpi masa depan lu cuma buat sama dia, lu udah  rela setia sama dia walaupun banyak yang jadi penghalang buat lu, ketika nama dia yang selalu jadi motivasi buat lu maju,ketika lu rela berjuang apapun buat dia, ketika dia udah lu anggap bagian penting dari hidup lu,"

23.25 "Ternyata Dia pergi ninggalin lu."

23.25 "Dia yang dulu selalu bilang dia sayang sama lu, Dia yang dulu selalu ngangenin lu, Dia yang dulu selalu bilang butuh lu terus, Dia yang dulu selalu nangisin lu, Dia yang dulu bilang bakal selalu setia sama lu, Dia yang dulu punya mimpi yang sama dengan lu, Dia yang dulu bilang lu cowo yang terbaik buat dia,"

23.34 "Sekarang yang ada cuma mimpi-mimpi lu, penyesalan lu, kebodohan lu, kenangan lu dan kekesalan lu."

23.36 "Apa yang bakal lu lakuin sehari-hari kalo yang sebelumnya lu lakuin sehari-hari cuma buat dia? Apa Mimpi lu kalo sebelumnya mimpi lu cuma lu gantungin buat sama dia? Apa kebiasaan yang bakal lu lakuin kalo kebiasaan lu cuma lu lakuin sama dia?"         

23.41 “Sekarang air mata lu udah ga ada artinya lagi buat dia. Kabar lu sekarang udah ga ada artinya. Dia udah sama sekali ga peduli sama lu. Sementara lu masih terjebak harapan dan penyesalan lu.”

23.43 “Dan apa rasanya ketika lu ngejar lagi dia mati-matian ternyata dia lebih mandang orang lain? Orang yang baru aja dia kenal yang dia anggap lebih baik dari lu?”

23.48 “Ternyata dia emang ga se istimewa yang lu bangga-banggain. Lu emang bukan yang terbaik buat dia. Mungkin semuanya yang udah lu lakuin ga berarti apa apa buat dia. Lu berarti rendah di mata dia. Mau sampe kapan lu mikirin orang yang jelas jelas udah ga peduli lg sama lu”

“Jikalau cinta yang ada padamu ingin pergi, maka relakanlah ia pergi. Dari pada dia tak bahagia denganmu dan pastinya kebahagiaanmu bukanlah bersama dia melainkan bersama cinta yang setia padamu.”

23.53 “Sekarang pacar lu cm kesibukan lu dan mimpi-mimpi lu. Kesibukan lu tanpa dia dan Mimpi lu yang udah ga ada sangkut pautnya lagi sama dia. Mungkin suatu saat dia bakal liat keadaan lu lagi yang lagi nikmatin buah dari usaha dan mimpi-mimpi lu yang harusnya lu jalanin berdua sama dia. Mungkin dia suatu saat bakal nyesel setelah liat buah dari usaha dan mimpi lu, lu nikmatin berdua sama orang yang lebih baik dari dia.

00.02 “Terima Kasih untuk pemberian di Hari Ulang Tahun yg ke 18, Kamu memang selalu menuntut saya untuk Dewasa hingga itu pemberian terakhir yang kamu kasih. Selamat Hari Jadi kita”


i have someone for you.. 
 DOWNLOAD
 *Buka file di windows

  

Continue

MEMBUAT BELAH KETUPAT MENGGUNAKAN VISUAL BASIC

SOURCE KODE DAN ALGORITMA MEMBUAT BELAH KETUPAT DENGAN VISUAL BASIC

Contoh keluaran yang dihasilkan:

 Saya sering melihat artikel yang sama di blog-blog yang lain tentang cara membuat pola belah ketupat dengan string bintang (*) tapi hanya membeberkan source kodenya saja. Dan bahkan pembaca hanya bisa meniru atau sekedar copy paste saja dari artikel tersebut tanpa mengetahui algoritma dan maksud dari tiap baris kode tersebut. Oke disini kita akan kupas semua algoritma dan source kode dari pembuatan pola tersebut hingga pembaca bisa mencoba kembali membuat pola tersebut tanpa bantuan membaca artikel ini kembali.

Bila dilihat dari contoh:

'baris 1: Spasi=x=4,bintang=y=1
'baris 2: x=3,y=3
'baris 3: x=2,y=5
'baris 4: x=1,y=7
'baris 5: x=0,y=9
'baris 6: x=1,y=7
'baris 7: x=2,y=5
'baris 8: x=3,y=3
'baris 9: x=4,y=1

Dari contoh diatas kita akan membuat beberapa variabel;
spasi, bintang=1(di awal), bintang_maksimal(baris 5)=9, perubahan_bintang(per baris)=2.

lalu kita buat rumus;
spasi=(bintang_maksimal-1)/2
bintang=bintang+perubahan_bintang

kata kunci yang harus di gunakan yaitu suatu loop for, untuk menampilkan spasi,bintang dan garis baru. karena pola terbentuk hanya dari ketiga karakter ini. Sementara variabel spasi dan bintang kita deklarasikan untuk membatasi suatu loop.

sekarang kita tuangkan ke dalam source kode:

Module module1
    Sub main()
        'module1 membuat sebuah pola belah ketupat
        Dim spasi, bintang, bintang_maksimal, perubahan_bintang, i, j As Integer 'mendeklarasikan variabel
        bintang_maksimal = 9 'inisialisasi variabel
        perubahan_bintang = 2
        For bintang = 1 To bintang_maksimal Step perubahan_bintang 'loop menampilkan gabungan ketiga karakter(spasi,bintang,garis baru)
            spasi = ((bintang_maksimal - bintang) / 2) 'inisialisasi variabel spasi
            For i = 1 To spasi Step 1 'loop menampilkan spasi
                Console.Write(" ")
            Next
            For j = 1 To bintang Step 1 'loop menampilkan bintang
                Console.Write("*")
            Next
            Console.WriteLine() 'menampilkan garis baru
        Next
    End Sub
End Module



Mungkin sekarang anda bingung kenapa keluaran yang ditampilkan hanya membentuk setengah pola belah ketupat. Jawabanya "Belum Beres Cuy". Saya memotong menjadi dua bagian karena mustahil membentuk sebuah pola belah ketupat hanya menggunakan satu loop untuk menggabungkan tampilan dari ketiga karakter yaitu Spasi(" "),bintang("*"),dan garis baru.
Oke begini kelanjutanya...

Tampilan keluaran sejauh ini:

Sekarang yang harus kita selesaikan adalah menampilkan kembali bintang di baris selanjutnya dengan satu spasi dan 7 bintang. Yang

berarti menambah satu spasi di baris berikutnya dan megurangi dua bintang di baris berikutnya.


    *
   ***
  *****
 *******
*********
 *******    'baris 1: x=1,y=7
  *****        'baris 2: x=2,y=5
   ***        'baris 3: x=3,y=3
    *        'baris 4: x=4,y=1

yang berarti sekarang kita ubah nilai dari variabel variabel sebelumnya;perubahan_bintang=-2, bintang=bintang_maksimal-2. Dan kita

harus mendeklarasikan bintang_minimum dan menginisialisasikanya dengan nilai 0, agar menjadi batas minimum suatu loop.

Sekarang kita sempurnakan Source kodenya:


Module module1_
    Sub main()
        'module1 membuat sebuah pola belah ketupat
        Dim spasi, bintang, bintang_maksimal, perubahan_bintang, i, j As Integer 'mendeklarasikan variabel
        bintang_maksimal = 9 'inisialisasi variabel
        perubahan_bintang = 2
        For bintang = 1 To bintang_maksimal Step perubahan_bintang 'loop menampilkan gabungan ketiga karakter(spasi,bintang,garis

baru)
            spasi = ((bintang_maksimal - bintang) / 2) 'inisialisasi variabel spasi
            For i = 1 To spasi Step 1 'loop menampilkan spasi
                Console.Write(" ")
            Next
            For j = 1 To bintang Step 1 'loop menampilkan bintang
                Console.Write("*")
            Next
            Console.WriteLine() 'menampilkan garis baru
        Next
        Dim bintang_minimal = 0
        perubahan_bintang = -2
        bintang = 7
        For bintang = 7 To bintang_minimal Step perubahan_bintang
            spasi = ((bintang_maksimal - bintang) / 2)
            For i = 1 To spasi Step 1
                Console.Write(" ")
            Next
            For j = 1 To bintang Step 1
                Console.Write("*")
            Next
            Console.WriteLine()
        Next
    End Sub
End Module

SELAMAT BELAJAR!!!!


Anda juga bisa memodifikasi source kode yang saya berikan dengan mengganti inisialisasi program maksimum dengan membaca nilai yang

dimasukan pengguna menggunakan console.readline. Seperti Source kode berikut ini:

module module1
    Sub main()
        'module1 membuat sebuah pola belah ketupat
        Dim spasi, bintang, bintang_maksimal, perubahan_bintang, i, j As Integer 'mendeklarasikan variabel
        Console.WriteLine("POLA BELAH KETUPAT KARYA HARI ACHMAD")
        Console.Write("Masukan angka ganjil untuk menjadi bintang yang terbanyak: ")
        bintang_maksimal = Console.ReadLine()
        perubahan_bintang = 2
        For bintang = 1 To bintang_maksimal Step perubahan_bintang 'loop menampilkan gabungan ketiga karakter(spasi,bintang,garis

baru)
            spasi = ((bintang_maksimal - bintang) / 2) 'inisialisasi variabel spasi
            For i = 1 To spasi Step 1 'loop menampilkan spasi
                Console.Write(" ")
            Next
            For j = 1 To bintang Step 1 'loop menampilkan bintang
                Console.Write("*")
            Next
            Console.WriteLine() 'menampilkan garis baru
        Next
        Dim bintang_minimal = 0
        perubahan_bintang = -2
        bintang = bintang_maksimal - 2
        For bintang = bintang_maksimal - 2 To bintang_minimal Step perubahan_bintang
            spasi = ((bintang_maksimal - bintang) / 2)
            For i = 1 To spasi Step 1
                Console.Write(" ")
            Next
            For j = 1 To bintang Step 1
                Console.Write("*")
            Next
            Console.WriteLine()
        Next
    End Sub
End Module

KELUARAN TERAKHIR:

Continue