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 :>

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.

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.

rumah citra raya surabaya