TENTANG CINTA

1. Bila kata cinta itu sebuah pengorbanan, mengapa pengorbanan itu bukan nokhtah sebuah cinta? Bila derita itu harga sebuah cinta, tapi mengapa cinta itu semakin sukar dimiliki? Cinta bagaikan kota kristal indah di penglihatan ,tapi derita di dalam hati.

2. Ada seseorang yang awalnya malu untuk jatuh cinta ,tapi bila perasaan menjadi rindu padanya, tiba-tiba perasaan malu itu menjadi hilang dengan sendirinya dan terpaksa menerima kenyataan yang sebenarnya bahwa dia telah jatuh cinta.

3. Bahasa tubuh mengungkapkan maksud dalam hati yang tidak mampu terucap oleh kata-kata.

4. Cinta yang di semaikan tidak mungkin layu. Hati yang remuk akan kembali kokoh selagi ketenangan di dapati. Jiwa yang pasrah akan berubah haluan selagi esok masih ada. Luka yang lama pasti akan sembuh selagi iman terselit di dada.

5. Cinta yang datang bagaikan pelangi cerah dengan 7 warna ,memukau saat bayu berlagu riang, ketika itulah cinta hadir. Apabila mata melihat seseorang yang akan mewarnai hidupnya.

6. Cinta bukan paksaan. Ia lahir dari dua perasaan, kehadirannya tidak diundang, perginya tiada yang merelakan karena ia terlalu sukar untuk dimengertikan.

7. Persahabatan biasanya berakhir dengan percintaan tetapi percintaan akan sukar untuk berakhir dengan persahabatan.

8. Cinta bukan mengajarkan kita menjadi lemah tetapi membangkitkan kekuatan. Cinta bukan mengajar menghinakan diri tetapi menghembuskan kegagahan. Cinta bukan melemahkan semangat tetapi membangkitkan semangat.Cinta bukan petaka tapi kenikmatan.

9. Apakah sebenarnya cinta itu? Coba katakan. Tak lain tak bukan adalah dua jiwa dalam satu fikiran dan dua hati dalam satu debaran.

10. Ucapan cinta pertama merupakan suatu getaran yg sangat menggoncangkan jiwa.

11. Kadangkala kita baru menyadari betapa dalamnya kita mencintai seseorang, disaat kita sedang kehilangannya. Dan kadangkala kita juga baru akan menyadari betapa perlunya cinta seseorag terhadap kita, disaat kita sendiri dan amat memerlukannya.

12. Cinta yang lahir dari pandangan pertama adalah cinta suci, manakala perasaan cinta yang lahir dari kemesraan persahabatan adalah cinta sejati. Namun sukar untuk membedakan yg mana lebih abadi, cinta suci atau cinta sejati ?

APAKAH CINTA MENYAKITKAN ...?

Setiap orang mempunyai makna cinta yang tersendiri. Ada yang bilang, cinta itu menyakitkan dan jangan kau hampirinya. Tetapi, ada juga yang bilang, cinta itu mengasyikkan sehingga kau akan terhanyut oleh ombak asmaranya. Dan ada juga yang bilang, cinta itu indah dan tiada ungkapan yang dapat menyatakan maksud cinta yang sebenar.

Bagi yang mengatakan bahwa cinta itu menyakitkan, mereka memang benar. Walau bagaimanapun sepasang kekasih itu, akan ada juga masalah yang timbul. Mereka dapat diibaratkan, langit tak semestinya sentiasa cerah. Dalam hidup ini, kita memang tidak dapat lari dari masalah. Bahkan, kita sendiri yang perlu menghadapinya dan juga menyelesaikan masalah tersebut.

Sakit dalam cinta ini makin terasa ngilunya apabila sebuah pasangan itu hancur musnah. Apa yang telah dijanjikan selama ini, menjadi dusta belaka. Ketika baru saja berselisih, semuanya menjadi salah. Semuanya dipersalahkan. Itu tak betul, ini tak betul. Terasa diri ini dihimpit oleh sebuah kereta api dan tak seorangpun yang ingin menolong.

Jadi, sekiranya kamu ingin bercinta dengan seseorang, ingatlah. Cinta ini tak semuanya indah. Dan kamu perlu bersedia untuk menghadapi segala kemungkinan yang terjadi. Yang pasti, dalam percintaan akan ada pasang surutnya perhubungan. Cuma kita tidak tahu, kapan hal itu kan terjadi. Mungkin hari ini, esok, lusa dan kapanpun.

KEJUJURAN ADALAH BUKTI CINTA SEJATI

PERCINTAAN bukan hanya berakhir dengan pernikahan, bahkan ada pasangan yang bercinta bagai Laila dan Majnun tetapi akhirnya putus di pertengahan jalan.

Justru, apabila mengingatkan kisah percintaan lama, pasti ramai di antara kita yang tersenyum sendiri. Bagi lelaki dan wanita, mereka tentu mempunyai kisah percintaan sendiri yang kadangkala jika ditulis dapat dibuat menjadi novel.

Ada yang kecewa akibat bercinta dan mengambil keputusan untuk terus membujang sampai tua, seolah-olah cinta pertama itu terlalu agung dan tidak dapat diganti dengan percintaan lain.

Namun, bagi kebanyakan kita, jodoh pertemuan ketentuan Ilahi. Justru, apabila gagal dalam percintaan pertama, kedua dan seterusnya, masih ada ruang untuk merubah kedukaan itu.

Apabila menjadi suami isteri, kadangkala teringat juga kisah percintaan lama. Ada di antara kita yang berani untuk memberitahu pasangannya mengenai cerita cinta yang pernah ditempuh dan bagi yang lain menyimpan dalam memori sendiri.

Setiap orang pasti memiliki kisah masa lalu, sama ada buruk atau indah. Timbul persoalan, adakah kisah masa lalu yang buruk itu perlu diceritakan kepada kekasih kita?

Adakah jika diceritakan akan membuktikan betapa dalamnya cinta kamu dan pasangan? Atau adakah dengan membuka cerita cinta lama itu akan merusak dan memporak-porkamukan hubungan kamu?

Ada yang berkata, jika kamu tidak menyampaikan kisah cinta masa lalu, maka kamu akan menjadi seorang pembohong di hadapan orang yang kamu cintai dan kamu tidak mungkin dapat mencintainya dengan sepenuh hati.

Ini terjadi terutama kepada pasangan yang berkomitmen untuk bersama-sama selamanya, justru setiap orang berhak mengetahui kisah pasangan yang dicintainya itu.

Namun, sebelum kamu ingin menceritakan kisah percintaan masa lalu, pastikan pasangan kamu bersedia menerima segala masa lalu kamu dan melupakannya!

BIKIN KONVERSI DENGAN VB 6.0 DAN SOURCH CODE

LANGKAH MEMBUAT PROGAM KONVERSI DENGAN VISUAL BASIC 6.0

Oleh M YANTO

Syarat : Telah Terinstal Progam VB 6.0 pada komputer

1. Pertama-tama anda klik progam VB pada menu STAR => All Progam = > Visual Studio => Visual Basic 6.0 , maka akan tampilan windows sebagai berikut :

2. Pilih icon Standart.EXE (double klik) untuk memulai membuat progam (project) baru dengan Visual Basic.

Maka tampilan gambarnya akan berubah menjadi Form berikut :

bagian sebagai berikut :

Windows	Keterangan
Form	Tempat untuk membuat tampilan program secara grafis
Toolbox	Toolbox berisi tool yang biasa disebut dengan control.
Project	Berisi daftar type file yang digunakan dalam aplikasi. Aplikasi dalam Visual Basic dinamakan project
roperties	Digunakan untuk mengatur tampilan dari form atau control/toolbox yang digunakan dalam aplikasi.
Code	Tempat yang digunakan untuk menulis program visual basic. Ketika program dijalankan maka tampilan akan mengikuti seperti instruksi yang di berikan pada window code tersebut.

1.KONVERSI BINER KE DESIMAL

'Deskripsi: Mengkonversi dari bilangan Binary ke bilangan Desimal.

'Pembuat : M YANTO (m_okrek86@yahoo.co.id)

'Persiapan: 1. Buat 1 Project baru dengan 1 Form 1 commamd dan 3 text box.

' 2. Copy-kan coding berikut ke dalam editor form Anda.

'----------------------------------------------------------------

Private Function BinaryToDecimal(ByVal BinValue As String) As Long

Dim lngValue As Long

Dim x As Long

Dim k As Long

k = Len(BinValue) ' will only work with 32 or fewer "bits"

For x = k To 1 Step -1 ' work backwards down string

If Mid$(BinValue, x, 1) = "1" Then

If k - x > 30 Then ' bit 31 is the sign bit

lngValue = lngValue Or -2147483648# ' avoid overflow error

Else

lngValue = lngValue + 2 ^ (k - x)

End If

End If

Next x

BinaryToDecimal = lngValue

End Function

Contoh penjumlahan biner dengan hasil decimal :

1. Buat sebuah project exe dengan 1 form yang berisi 3 text box dan 1 command botton

2. Double klik pada command botton , hapus semua karakter (tulisan di halaman tersebut dan ketikkan kode fungsi di atas

3. Tambahkan code di bawah ini :

Private Sub Command1_Click()

okrek1 = BinaryToDecimal(Text1)

okrek2 = BinaryToDecimal(Text2)

Text3 = Val(okrek1) + Val(okrek2)

End Sub

Contoh lain untuk menampilkam massage boxpada form , ketikkan kode di bawah ini :

Private Sub Form_Load()

'Ganti "11001" di bawah dengan bilangan binary yang Anda inginkan untuk

'dikonversi ke bilangan desimal.

MsgBox BinaryToDecimal("11001") 'contoh ini menghasilkan 25

End Sub

2.KONVERSI DESIMAL KE BINER

'Deskripsi: Mengkonversi bilangan desimal menjadi bilangan binary.

' (kelipatan 2).

'Persiapan: 1. Buat 1 Project baru dengan 1 Form 1 commamd dan 3 text box

' 2. Copy-kan coding berikut ke dalam editor Form Anda.

'-------------------------------------------------------------------

Public Function dec2bin(mynum As Variant) As String

Dim loopcounter As Integer

If mynum >= 2 ^ 31 Then

dec2bin = "Bilangan terlalu besar!"

Exit Function

End If

Do

If (mynum And 2 ^ loopcounter) = 2 ^ loopcounter Then

dec2bin = "1" & dec2bin

Else

dec2bin = "0" & dec2bin

End If

loopcounter = loopcounter + 1

Loop Until 2 ^ loopcounter > mynum

End Function

Contoh pengurangan decimal dengan hasl biner :

1. Buat sebuah project exe dengan 1 form yang berisi , 3 text box dan 1 command botton

2. Double klik pada command botton , hapus semua karakter (tulisan di halaman tersebut dan ketikkan kode fungsi di atas ,Tambahkan code di bawah ini :

Private Sub Command1_Click()

okrek = Text1 - Text2

Text3 = dec2bin(okrek)

End Sub

CONTOH jika ingin merubah huruf bilangan decimal di text1 menjadi bilangan biner di text2

Ketikkan kode berikut

'Masukkan bilangan ke dalam Text1.

'Lihat hasilnya di Label1...

Private Sub Text1_Change()

Text2 = dec2bin(Text1.Text)

End Sub

3.KONVERSI heksa ke desimal

Jika kamu ingin membuat konversi Bilangan HEKSAmenjadi bilangan DESIMAL

Contoh pembagian heksa hasil decimal :

1. Buat sebuah project exe dengan 1 form yang berisi , 3 text box dan 1 command botton

2. Double klik pada command botton , hapus semua karakter (tulisan) di halaman tersebut dan ketikkan kode fungsi di bawah ini :

'Deskripsi: Mengkonversi bilangan Hexa ke bilangan Desimal.

'Persiapan: 1. Buat 1 Project baru dengan 1 Form 1 commamd dan 3 text box.

' 2. Copy-kan coding berikut ke dalam editor form.

Private Sub command1_click()

strHexOkrek1 = Text1

strHexOkrek2 = Text2

Text3 = Val("&H" + strHexOkrek1) / Val("&H" + strHexOkrek2)

End Sub

4.KONVERSI decimal ke heksa

Jika kamu ingin membuat konversi Bilangan Desimal menjadi bilangan Heksa

Buatlah Form Project seperti di atas dan ketikan kode berikut :

Contoh perkalian bilangan Desimal hasil Heksa

'Deskripsi: Mengkonversi bilangan Desimal ke bilangan Hexa

'Pembuat : M YANTO (m_okrek86@yahoo.co.id)

'Persiapan: 1. Buat 1 Project baru dengan Form 1 commamd dan 3 text box.

' 2. Copy-kan coding berikut ke dalam editor form.

'-------------------------------------------------------------------

Private Sub Command1_Click ()

Okrek = val(text1) * val(text2)

Text3 = hex(Okrek)

End Sub

5.KONVERSI okta ke desimal

Jika kamu ingin membuat konversi Bilangan OKTA menjadi bilangan DESIMAL

Contoh pengurangan okta hasil decimal :

1. Buat sebuah project exe dengan 1 form yang berisi , 3 text box dan 1 command botton

2. Double klik pada command botton , hapus semua karakter (tulisan) di halaman tersebut dan ketikkan kode fungsi di bawah ini :

'Deskripsi: Mengkonversi bilangan Okta ke bilangan Desimal.

'Persiapan: 1. Buat 1 Project baru dengan 1 Form 1 commamd dan 3 text box.

' 2. Copy-kan coding berikut ke dalam editor form.

Private Sub command1_click()

strOctOkrek1 = Text1

strOctOkrek2 = Text2

Text3 = Val("&O" + strOctOkrek1) - Val("&O" + strOctOkrek2)

End Sub

6.KONVERSI decimal ke okta

Jika kamu ingin membuat konversi Bilangan Desimal menjadi bilangan Okta

Buatlah Form Project seperti di atas dan ketikan kode berikut :

Contoh penjumlahan bilangan Desimal hasil Okta

'Deskripsi: Mengkonversi bilangan Desimal ke bilangan Hexadesimal

'Persiapan: 1. Buat 1 Project baru dengan 1 Form 1 commamd dan 3 text box.

' 2. Copy-kan coding berikut ke dalam editor form.

'-------------------------------------------------------------------

Private Sub Command1_Click ()

Okrek = val(text1) + val(text2)

Text3 = Oct(Okrek)

End Sub

Untuk Project yang lain silahkan kamu kreasikan sendiri , or hubungi Mr.Okrek

SELAMAT MENCOBA !!!!