SELAMAT DATANG DI BLOG SAYA, SEMOGA BERMANFAAT

Wednesday, October 22, 2014

Cerpen CINTA SALAH ALAMAT





CINTA SALAH ALAMAT
            Rambut pendek berkulit hitam manis bernama Doni. Cantik berkulit putih imut dan manis bernama Dina. Persahabatan mereka erat seperti kakak dan adik, kalau ada PR dikerjakan bersama-sama kalau doni lagi dalam kesulitan Dina pun membantunya di saat Doni ada masalah dengan keluarganya Dina pun memberikan solusi kedua itu seperti hidup bersama saling melengkapi, tapi maklium anak dewasa pasti ada rasa yang namanya jatuh cinta tapi keduanya taka da yang mengakui hatinya sendiri. Tak lama kemudian doni langsung mengakui hatinya sendiri kalau Doni merasa jatuh cinta terhadap Dina, Dina pun ingin di jadikan pacarnya. Pertamanya mereka berdua saling baik menjalani hubungan dengan baik. Dina adalah watak seorang wanita yang setia.
            Di tengah-tengah perjalanan cinta mereka kedua insan saling bertengkar sampai-sampai hubungan mereka mau putus, tapi allah bertindak lain. Keduanya menjalani hubungan cintanya diteruskan dengan baik 6 bulan/setengah tahun hubungan cinta merka sudah leawat. Doni mengajak Dina kerumah untuk dikenalkan kedua orang tuanya. Dina pun malu-malu terhadap orang tua Doni. Di kemudian hari Doni di ajak Dina kerumahnya Doni di perkenalkan ke orang tuanya. Keduanya sudah tahu oleh keluarganya masing-masing seperti di restui oleh orang tuanya. Hari kehari  Doni semakin berani Dinapun diajak kerumah Doni dirumah doni sepi sekali kedua orang tua Doni pergi bekerja Dina pun takut, tapi Dina dipaksa untuk berani masuk kerumah. Di dalam rumah merka berdua saja. Perjalanan cinta yang sudah cukup lama berjalan sudah 10 bulan. Doni pergi bersama orang tuanya ke swalayan beli baju.
 Disaat waktu beli baju Doni  melihat cewek cantik yang ada di sebalahnya cewek itu juga memilih milih baju. Dengan hati doni yang tak bisa menjaga kalu doni sudah punya pacar. Doni pun tertarik dengan cewek itu. Dengan keberanian Doni, doni langsung mengajak kenalan dengan cewek itu. Ternyata nama cewek itu adalah reni. Reni berkulit putih cantik dan tingginya sama dengan doni. Doni langsung meminta nomer hpnya Reni. Dina yang ada dirumah merasakan curiga dari si doni . tapi dina merasakan itu paling gak ada apa-apa cumak hanya perasaan saja Doni pun tidak memikirkan Dina yang ada di rumah. Di kemudian hari Doni di hadapan Dina baik-baik saja, tapi dina merasa hal yang curiga tapi dina berfikir yang positif saja.

Di kemudian hari Doni masih baik-baik saja sama dina tapi tak tau gimana doni pun memutuskan cintanya kepada dina. Dina sempat kaget dina baru sadar kalau kemaerin-kemarin dina merasakan hal yang berbeda. Hati dina merasakn sangat sedih sekali. Seperti malas hidup dina malas makan. Tapi disisi itu dina langsung mencurhatkan isi hatinya kepada orang tuanya. Dina masih mearaskan yang namanya sakit hati. Dina tak mau kayak gini teruz.
Di kemudian hari si doni menembak/jadian dengan cewek yang ia kenal saat membeli baju di swalayan yaitu reni, keduanya saling mencintai dan akhirnya hubungan mereka bejalan lancar. Saat  dina melihat mereka berduaan dina merasakan hati yang sangat terluka. Hubungan cinta doni dan reni sudah berjalan sekitar 3 bulanan sepertinya hubungan mereka tambah romantis sampai-sampai reni di ajak kerumahnya di perkenalkan oleh orang tuanya dan reni malahan akrab dengan keluarganya seperti sudah di restui. Disaat orang tua doni pergi semua reni di ajak doni pergi kerumahnya. Di dalam rumah mereka berduaan saja. Doni tak bisa menjaga hawa nafsu. Doni melakukan hal-hal yang negative tapi doni masih punya rasa takut tidak  sampai hal yang di larang. Remi pun tidak bisa bicara apa-apa. Reni akhirnya pilang minta izin dengan Doni sambil mencium pipi reni so sweet banget. Perjalanan cinta Doni dan Reni sudah 8 bulanan. Rupanya wajah Reni sudah cukup bosan berpacaran dengan Doni. karena Reni adalah wanita yang tak setia seperti Dina. Tapi Doni tidak tahu dengan keadaan Reni yang mulai bosan menjalankan hubungan percintaan mereka. Di kemudian hari Doni mengSMS Reni tapi Reni jarang membalasnya. Tapi Doni mengkira Reni sedang sibuk.


Dikemudian hari Doni dan Reni ketemuan dan Reni ditanya oleh Doni.
“ kenapa kamu sekarang kog jarang bales SMSku yanx .  . . ?”
“Apa lagi malez kog yanx, ma’af ya . . . . “
“oh iya sayanx aka apa-apa . .. . “
            Padahal si Reni memang udah bosan dengan Doni. Perjalanan cinta mereka sudah kurang lebih 9 bulanan. Lalu Reni memutuskan hubungan cinta Doni. Doni lalu tak sadarkan diri, dia kaget melihat keadaan seperti begini. Doni langsung merasakan yang rasanya sakit hati. Di kemudian hari Doni melihat Reni berboncengan dengan cowokj. Doni langsung kaget melihat Reni seperti begitu. Hati  Doni langsung menangis. Doni menyesal dengan keadaan mereka, karena Reni adalah pembohong dan penghianat. Doni baru sadar kalau Dina adalah cewek yang setia tidak seperti Reni pembohong dan penghianat.
            Sekarang Doni merasakan yang rasanya jomblo. Doni ingin mendekati Dina lagi, tapi dia malu karena pernah menyakiti hati Dina. Dina sudah mendengar cerita kalau Doni sudah putus dengan Reni. Tapi Dina biasa aja, di dalam hati Dina berkata hukum karma masih berlaku. Dina sudah bersabar dengan 9 bulan jomblo karena Doni dan bersabar dengan hati yang terluka. Di suatu hari Doni bertemu dengan Dina dia malu-malu. Tapi Dina cuek-cuek aja.
Hari yang berjalan begitu cepat. 3 bulanan Doni ingin berusaha untuk mendekati si Dina tapi dia malu-malu, dengan sifanya yang kayak begitu. Karena Doni baru sadar Dina adalah cewek yang setia baik, solehah, cantik juga. Dina sudah tau kalau Doni ingin kembali dengannya, tapi Dina pura-pura gak tahu. Di suatu hari ada tugas kelompok, Doni dan Dina satu kelompok.
“tugas kelompoknya di kerjakan dimana . . . ?” .(Tanya doni)
“terserah . . “ ( jawab Dina dengan cuek)
“oke lah, dirumah ku aja gak papa  . . .”
            Rupanya mereka sudah dikit demi dikit dekat lagi. Tapi Dina ya begitu biasa saja.

TAMAT

Tuesday, October 21, 2014

Cara membuat media player dengan visual basic

Nama Component
Nama
Caption / Text
Form1
Form1
VMplayer
CommandButton1
cmdadd
&Add
CommandButton2
cmdplay
&Play
CommandButton3
cmdpause
&Pause
CommandButton4
cmdstop
&Stop
CommandButton5
cmdexit
&Exit
Text1
txtadd
“kosongkan”
CommonDialog1
CD
“kosongkan”
WindowsMediaPlayer1
vmplayer
“kosongkan”

Cara untuk mendapatkan CommonDialog n WindowsMediaPlayer adalah: -Pencet keyboard Ctrl+T
                                                                                                             -Cek list  pada “Microsoft                                                                                                       Common Dialog Control                                                                                                          6.0 (SP6)” dan “Windows                                                                                                   Media Player”
                                                                                                              -Lalu klik ok
3.  Lalu tata semua componentnya seperti gambar berikut: 


4.  Setelah Selesai mengatur letak sekarang masukkan kode berikut caranya klik menu “View >     Code”
Ini kodenya:
 
Private Sub cmdadd_Click()
On Error GoTo akhir
Dim Filename As String
cd.Filter = "Semua File|*.*" 'kamu bisa merubah kode ini sesuai dengan kebutuhan misal Image|*.jpg
cd.ShowOpen
Filename = cd.Filename
akhir:
If Len(Filename) > 0 Then
txtadd.Text = Filename
vmplayer.URL = txtadd.Text
Timer1.Enabled = True
End If
End Sub

Private Sub cmdexit_Click()
Unload Me
End Sub

Private Sub cmdpause_Click()
vmplayer.Controls.pause
Timer1.Interval = 0
End Sub

Private Sub cmdplay_Click()
vmplayer.Controls.play
Timer1.Enabled = True
End Sub

Private Sub cmdstop_Click()
vmplayer.Controls.stop
Timer1.Enabled = False
End Sub

Private Sub form_load()
txtadd.Visible = False
Timer1.Interval = 100
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Form1.Caption = vmplayer.currentMedia.Name
End Sub

DIBAWAH INI APILIKASINYA BISA DIDOWNLOAD :


<a
href="http://downloads.ziddu.com/download/24136043/Vmplayer.exe.html " target="_blank"><img alt="Download Button" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiK-A-OlYXSEEGSdfc1vO1vYCCVmzu0QJbXIT27S5SJZOYtDBC-hBB-ieOxb3TJn0fwXrjvck-xebLt4NhH5FdCCN5CeMFoUpRJXpvsg7hYS7QzDwY5d6iSlhw5-hC4KtWG_J2oKBVkYUfE/s1600/download-button.jpg" /></a>     

cara membuat apilikasi internet browser dengan visual basic


1. Buka Visual Basic 6.0 dan buatlah sebuah form.

2. Buat 6 CommandButton, 1 TextBox, 1 WebBrowser. Untuk memasukkan WebBrowser ke dalam form, Klik menu project, lalu centang Microsoft Internet Controls > OK

3. Ganti caption pada  CommandButton menjadi seperti berikut, dan kosongkan teks di dalam TextBok.
       Command1  =  Back
       Command2  =  Forward
       Command3  =  Stop
       Command4  =  Refresh
       Command5  =  Home
       Command6  =  GO

4. Lalu masukkan kode berikut.


Private Sub Command1_Click()
    WebBrowser1.GoBack
End Sub
Private Sub Command2_Click()
    WebBrowser1.GoForward
End Sub
Private Sub Command3_Click()
    WebBrowser1.Stop
End Sub
Private Sub Command4_Click()
    WebBrowser1.Refresh
End Sub
Private Sub Command5_Click()
    WebBrowser1.Navigate ("http://www.google.co.id")
End Sub
Private Sub Command6_Click()
    WebBrowser1.Navigate (Text1.Text)
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
    Text1.Text = (WebBrowser1.LocationURL)
    Form1.Caption = (WebBrowser1.LocationName)
End Sub
Private Sub Form_Load()
    WebBrowser1.Navigate ("http://www.google.co.id")
End Sub


5. Selanjutnya program tersebut kita buat menjadi file ".exe"
Klik File > Make Project1.exe > Tentukan lokasi penyimpanan > OK.

DI BAWAH INI APILIKASINYA BISA DI DOWNLOAD :

Thursday, October 2, 2014

Contoh progam visual basic MTK faktorial



contoh 1 : Membuat Program Faktorial Dengan Vb 6.0

a.    Buatlah New Project pada software VB anda kemudian tambahkan 3 buah label, 3 commandbutton dan 2 textbox pada form. Kemudian ubah properti masing-masing dan Atur form seperti pada gambar berikut :



Gambar Program faktorial

b.    kemudian ketikkan code/listing/script program berikut :

Private Sub Command1_Click()

Dim a, b, i As Integer

i = 1

b = Text1.Text

For a = 1 To b

i = i * a

Next

Text2.Text = i

End Sub



Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text1.SetFocus

End Sub



Private Sub Command3_Click()

End

End Sub

c.     Run(F5) dan coba masukkan nilai faktorial 4 dimana 4!=1x2x3x4=24 berikut dapat anda lihat hasilnya pada gambar dibawah ini :



 















Gambar Program faktorial dengan VB 6.0