Selasa, 24 Juni 2008
akses internet telkomsel unlimited
sampai hari ini kira2 1 minggu sudah saya pakai internet telkomsel paket unlimited 125rb/bulan.lumayan kira-kira mungkin uda nyampe 2gb(perkiraan aja dengan menghitung besarnya file2 yg didownload)kecepatan download kurang lebih 10-23kbps tergantung lokasi file nya yg kita download.jadi sampai hari ini lumayanlah,belum ada komplain :>
Rabu, 11 Juni 2008
Paket Telkomsel Flash unlimited
hari ini saya baru tahu kalau ada paket akses internet unlimited dari telkomsel.info yg dikutip dari http://www.telkomsel.com/web/hot_offering
selama ini saya pakai telkomsel flash,kecepatannya tidak mengecewakan, untuk download sekitar 30-35 kbps.(dengan catatan HP3G dengan sinyal indicator 3G tampil di indicator HP kita.saya pake nokia N73).mudah mudahan dengan paket unlimited ini tidak mengurangi kecepatan browsing dech.stabil terus.semoga sukses selalu Telkomsel.
selama ini saya pakai telkomsel flash,kecepatannya tidak mengecewakan, untuk download sekitar 30-35 kbps.(dengan catatan HP3G dengan sinyal indicator 3G tampil di indicator HP kita.saya pake nokia N73).mudah mudahan dengan paket unlimited ini tidak mengurangi kecepatan browsing dech.stabil terus.semoga sukses selalu Telkomsel.
Sabtu, 07 Juni 2008
Membuat Aplikasi Dasar VB Penjumlahan
Setelah membaca posting saya terdahulu.mari kita mulai dengan aplikasi dasar penjumlahan.
1. Jalankan visual basic6
2. (Pilih) file-new project-(pilih) standard.exe
3. Click and drag pada form1,ambil textbox sebanyak 3 textbox,berturut-turut 1 command button 1 line, 1 label.
4. click pada masing masing control(text1 dst) dan ganti properties name dari :text1 =>txt1, text2=>txt2, text3=>txt3 (ket: => menjadi)
ganti properties name commandbutton menjadi cmdj.
5. Atur sesuai gambar.


6. Copy paste kan code dibawah ini .
Private Sub cmdj_Click()
on error goto salah 'ini adalah code perangkap kesalahan
Dim j1 As Integer
Dim j2 As Integer
Dim j3 As Integer
Dim j4 As Integer
j1 = txt1
j2 = txt2
j4 = txt3
j3 = j1 + j2
If j4 = j3 Then
MsgBox "Jawaban Benar Jose", vbOKCancel, "HEBAT"
Else
MsgBox "Jawaban Salah Jose", vbOKCancel, "ERROR"
txt3 = ""
End If
txt3.SetFocus
exit sub
salah: msgbox err.description
End Sub
Private Sub txt1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then 'ini adalah kode berpindah ke control berikut apabila tombol "enter " 'ditekan(seperti text box,command
' button yg memiliki properties tabstop=true)
txt2.SetFocus
End If
End Sub
Private Sub txt2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txt3.SetFocus
End If
End Sub
7. Tekan F5 untuk menjalankan program. (run - start)
8. Selamat mencoba semoga bermanfaat.
1. Jalankan visual basic6
2. (Pilih) file-new project-(pilih) standard.exe
3. Click and drag pada form1,ambil textbox sebanyak 3 textbox,berturut-turut 1 command button 1 line, 1 label.
4. click pada masing masing control(text1 dst) dan ganti properties name dari :text1 =>txt1, text2=>txt2, text3=>txt3 (ket: => menjadi)
ganti properties name commandbutton menjadi cmdj.
5. Atur sesuai gambar.
6. Copy paste kan code dibawah ini .
Private Sub cmdj_Click()
on error goto salah 'ini adalah code perangkap kesalahan
Dim j1 As Integer
Dim j2 As Integer
Dim j3 As Integer
Dim j4 As Integer
j1 = txt1
j2 = txt2
j4 = txt3
j3 = j1 + j2
If j4 = j3 Then
MsgBox "Jawaban Benar Jose", vbOKCancel, "HEBAT"
Else
MsgBox "Jawaban Salah Jose", vbOKCancel, "ERROR"
txt3 = ""
End If
txt3.SetFocus
exit sub
salah: msgbox err.description
End Sub
Private Sub txt1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then 'ini adalah kode berpindah ke control berikut apabila tombol "enter " 'ditekan(seperti text box,command
' button yg memiliki properties tabstop=true)
txt2.SetFocus
End If
End Sub
Private Sub txt2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txt3.SetFocus
End If
End Sub
7. Tekan F5 untuk menjalankan program. (run - start)
8. Selamat mencoba semoga bermanfaat.
Rabu, 05 Maret 2008
Kamis, 06 Desember 2007
Menghemat Bandwidth Internet
tips ini untuk menghemat pemakaian internet terutama yg berlangganan dengan system kuota(dibatasin upload and downloadnya).coba kunjungi www.toonel.com
langkah 1.Karena software toonel ini dibuat berdasarkan program java makanya sebelum dijalankan kita harus install java runtime dulu.ini ada link untuk downloadnya java.sun.com/javase/downloads/index_jdk5.jsp (sekitar 15mb mungkin lebih).Setelah didownload install-restart komputer.
2.download program toonel (200kb)
3.setting browser (saya pakai firefox 2.0.0.7).Masuk Tools-Option-advanced-network-setting-pilih manual proxy configuration-isi http proxy dengan 127.0.0.1 port 8080 terus OK
4.tutup firefox terus buka lagi dan jalankan toonel.siap untuk dial up (saya pake cdma starone 1gb) ternyata hasilnya lumayan.browsing lebih hemat(karena apa yg kita sent & received dikompresi oleh toonel)
Mari Belajar Visual Basic dari Awal
1a.Install Visual basic standar atau proffesional edition(pilih typical installation aja)
1b.Install crystal report bawaan dari vb 6 (ada di folder Common\Tools\Vb\CRYSREPT\
jalankan CRYSTL32.EXE untuk install crystal report versi 4.
1c.Copy file2 berikut ke folder windows\system32 (bila OS winXP) (untuk Win98 copy ke Windows\system\) : DBGRID.REG,DBGRID32.DEP,GRID32.OCX,DBGRID32.OCX ada di folder Common\Tools\Vb\Controls
1d.Setelah dicopy jalankan dbgrid.reg untuk registrasi ocx nya ke system windows
1e.Install Visual Studio service pack 5/6 (kalau tidak punya bisa hub.email saya(cikasayang@hotmail.com)
1f.Program Siap dipakai.
Langkah II. Buat Program Pertama Anda
2a.Jalankan vb6 pilih standar Exe
2b.di sebelah kiri windows vb ada tab general pilih "commandbutton"click and drag di form1
2c.klik 2 kali pada commandbutton maka muncul"
Private Sub Command1_Click()
End Sub
tulis didalamnya perintah sbb:
Private Sub Command1_Click()
MsgBox "Selamat datang di Visual Basic Program", vbOKOnly, "Pertama"
End Sub
Selamat mencoba coba dengan control lain seperti text box,label,dll
Langganan:
Postingan (Atom)
