TENTANG ITK JOS JOS

Kami Mahasiswa El-rahma Education Centre Angkatan 2011-2012 Pastinya Mahasiswa Informatika, ingin Berbagi dengan Antum tentang Dunia Informatika dimana yang sudah kami pelajari dari El-rahma Education Centre, Kami Memberikan Link-link yang Mudah-mudahan Bermanfaat Untuk Antum dan kami Sendiri..!!!

Membuat Program Stopwatch Sederhana dengan Visual Basic 6.0

Pasti Anda tau dengan yang namanya stopwatch, stopwatch adalah alat pengukur waktu. Pada postingan ini saya akan membahas pembuatan program stopwatch.

Pada program ini pengukur waktu yang digunakan dalam satuan menit,detik dan milidetik. Rancanglah Form seperti tampilan gambar diatas.
Source Code dari program diatas :
———————————————————————————————-
Private Sub CmdStart_Click()
Xmili.Caption = “00″
xdetik.Caption = “00″
xmenit.Caption = “00″
Timer1.Enabled = True
CmdStart.Enabled = False
CmdStop.Enabled = True
End Sub
Private Sub CmdStop_Click()
Timer1.Enabled = False
CmdStart.Enabled = True
CmdStop.Enabled = False
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
CmdStop.Enabled = False
End Sub
Private Sub Timer1_Timer()
Xmili.Caption = Val(Xmili.Caption) + 1
If Len(Xmili.Caption) = 1 Then Xmili.Caption = “0″ & Xmili.Caption
If Xmili.Caption = “60″ Then
Xmili.Caption = “00″
xdetik.Caption = Val(xdetik.Caption) + 1
If Len(xdetik.Caption) = 1 Then xdetik.Caption = “0″ & xdetik.Caption
End If
If xdetik.Caption = “60″ Then
xdetik.Caption = “00″
xmenit.Caption = Val(xmenit.Caption) + 1
If Len(xmenit.Caption) = 1 Then xmenit.Caption = “0″ & xmenit.Caption
End If
End Sub
———————————————————————————————-
Untuk mendownload program stopwatch sederhana ini, klik disini.

Membalikkan Kata di Visual Basic 6.0

Pernahkah Anda berfikir bagaimana proses membalikkan susunan suatu kata ???
Di Visual Basic 6.0 sendiri terdapat fungsi untuk membalikkan kata, yaitu “StrReverse”. Tapi apakah Anda tau proses yang terjadi didalam fungsi tersebut ???
Postingan ini akan mengupas tuntas proses yang terjadi di dalam fungsi tersebut.

Rancanglah form seperti gambar diatas. Berikut ini source codenya :
————————————————————————————————————
Private Sub Command1_Click()
Text2.Text = “”
For i = 1 To Len(Text1.Text)
Text2.Text = Text2.Text &     Mid(Text1.Text, Len(Text1.Text) – i + 1, 1)
Next i
End Sub
————————————————————————————————————
Download program kata terbalik klik disini.

Games MineSweeper dengan Visual Basic 6.0

Minesweeper adalah games bawaan windows, yang mungkin Anda mengetahuinya. Tapi apa Anda pernah mencoba membuat game ini dengan menggunakan bahasa pemrograman yang Anda ketahui ???. Bagi yang tidak pernah mencobanya dan ingin tau seperti apa script yg ada di dalam game ini, di postingan ini saya memberikan source code game ini dengan menggunakan bahasa pemrograman visual basic 6.0.

Download program Minesweeper.

Membaca File .txt di Visual Basic 6.0

 

File yang berektensi “.txt” sudah biasa kita gunakan untuk mencatat sesuatu yang penting, atau mencatat hal-hal yg menurut Anda itu perlu dicatat . Kelebihan file “.txt” ini di banding dengan file yang lain yaitu ukurannya yang sangat kecil sekali. Jadi sudah menjadi kebiasaan untuk mencatat sesuatu ke dalam file ini. Nah bagaimana cara untuk menampilkan isi dari file “.txt” dengan menggunakan bahasa visual basic 6.0 ???.

Download contoh program untuk membaca file txt.

Menambahkan Efek Suara di Visual Basic 6.0

Pasti Anda pernah bermain game kan ???. Game yang Anda mainkan tentu tidak akan seru jika tidak adanya suara yang membuat efek game itu menjadi lebih nyata. Pada postingan kali ini saya akan memberikan cara bagaimana menyisipkan atau menambahkan suara di visual basic 6.0 sehingga jika Anda membuat game dari visual basic, maka Anda hanya tinggal menambahkan suaranya saja. Jadi game yang Anda buat menjadi lebih seru jika di tambah efek suara.

Download source code program.

Meregisterkan OCX di Visual Basic 6.0

Mungkin Anda pernah menggunakan ocx di visual basic, tapi jika project yang Anda buat menggunakan ocx tersebut di buka di komputer lain apa bisa ??? . Mungkin bisa, mungkin tidak, itu karena ocx tersebut belum di registerkan. Bagaimana cara meregisterkan ocx tersebut ???.

Langkah 1:
- Buka Notepad.
- Ketik Kode Program di bawah ini :
cls
copy xpstyle.OCX %systemroot%\system32
regsvr32 /s %systemroot%\system32\xpstyle.OCX
pause
Simpan file tersebut di folder yang sama dengan ocx yang ingin di registerkan dengan nama install.cmd . Pada contoh di atas saya meregisterkan xpstyle.OCX .
Mengunakan file tersebut dengan men-double click file tersebut.