Pantai Sawarna

Pantai Sawarna

Buat kalian kalian yang mau nyari tempat yang keren, indah, yang jauh dari polusi, yang ada aernya, yang ada pasirnya pokoknya tempat yang bisa bikin semua beban masalah yang ada dikepala lu tuh ilang deh. Nih disini tempatnye

 

Pantai Sawarna tuh adanya diBanten lebih tepatnya diBayah, Lebak. diPantai Sawarna ini ada 3 tempat yang bisa lu kunjungin, yaitu : PasirPutih, Karang Tanjung Layar dan GOA

Kalo dari Jakarta mungkin bisa ditempuh 7-8 jam. Disana tiket masuknya masih murah sob harganya Rp 3.000 rupiah bukan dolar, euro apalagi rupee.

Sebernerya Sawarna itu nama desa, tapi mungkin karna didesanya itu ada pantai makanya dinamain Pantai Sawarna. Kalo kita udah sampe di desa Sawarna terus mau ke Pantainya,  kita bakal ngelewatin sebuah jembatan kecil yang cukup muat buat 1 motor aja sob, dari situ kita bakal jalan 1 km menuju pasir putihnya. Terus kalo mau ke Karang Tanjung Layar lu harus jalan 1,5 km dan kalo lu mau ke GOA lu harus jalan 3 km encok encok dah tuh kaki hahaha.

Tapi kalo udah sampe ditempat itu semua, gue yakin ga nyesel deh, kalo emang lu nyesel minta balikin duit tiketnya aja hahaha.

Yang belom pernah kePantai Sawarna, cobah deh lu sempetin kesitu (Pantai Sawarna surga yang tersembunyi).

Membuat Kakulator Sangat Sederhana Sekali Dengan Visual Basic

Oke…. Kali ini gue akan membahas cara membuat Kakulator Sangat Sedehana Sekali Dengan Visual Basic.

Ø  Pertama kita buka program Visual basic dan pilih Standard EXE

Ø  Kedua kita pilih Textbox, Label dan CommandButton, setelah itu kita buat diForm

 Ø  Ketiga, kita akan memberi nama pada CommandButton 1, CommandButton 2 dan commandButton 3. Caranya yaitu :

Kita klik CommandButton 1, lalu kita rubah nama Caption yang ada diProperties sebelah kanan layar Form kita. Kita rubah dengan tambah “ + “ .

 untuk CommandButton 2 kita rubah nama Caption dengan kurang “ - “.

untuk CommandButton 3 kita rubah nama Caption dengan bagi “ / “

Dan untuk CommandButton 4 kita rubah nama Caption dengan kali “ * “

Ø  Keempat, kita akan mengkoding/mengetikan perintah agar program kakulator kita bisa bekerja. Caranya yaitu kita tulis perintah dilembar kerja Project tulis perintah seperti dibawah ini

Dim a, b As Double

Private Sub Command1_Click()

a = Text1.Text

b = Text2.Text

Text3.Text = a + b

End Sub

Private Sub Command2_Click()

a = Text1.Text

b = Text2.Text

Text3.Text = a - b

End Sub

Private Sub Command3_Click()

a = Text1.Text

b = Text2.Text

Text3.Text = a / b

End Sub

Private Sub Command4_Click()

a = Text1.Text

b = Text2.Text

Text3.Text = a *  b

End Sub

Ø  Keenam, setelah semua perintah ditulis maka kita bisa SAVE dan menjalankan program kakulator yang sudah kita buat.

HASIL PROGRAM :

                TAMBAH :

                KURANG :

                BAGI :

                KALI ;

  Selamat Mencoba :)