From pengisian KRS

Dim i As Byte
Dim mk(13) As String
Private Sub cmdAmbil_Click()
i = Lstsource.ListIndex
LstDest.AddItem Lstsource.List(i)
Lstsource.Text = ""
End Sub
Private Sub cmdAmbilAll_Click()
mk(0) = "Algoritma Pemrograman"
mk(2) = "Paket Aplikasi 1"
mk(1) = "Pemrograman I"
mk(2) = "Paket Aplikasi 1"
mk(3) = "Organisasi Komputer"
mk(4) = "Pancasila"
mk(5) = "kalkulus 1"
mk(6) = "Fisika 1"
mk(7) = "Arsitektur Komputer"
mk(8) = "Pengantar Teknologi Informasi"
mk(9) = "Struktur Data"
mk(10) = "Paket Aplikasi 2"
mk(11) = "Pemrograman 2"
mk(12) = "kalkulus 2"
mk(13) = "Fisika 2"
LstDest.Clear
For i = 0 To 13
LstDest.AddItem mk(i)
Next
End Sub
Private Sub cmdBatal_Click()
i = LstDest.ListIndex
LstDest.Text = ""
LstDest.List(i) = ""
End Sub
Private Sub cmdBatalAll_Click()
LstDest.Clear
End Sub
Private Sub Form_Load()
mk(0) = "Algoritma Pemrograman"
mk(2) = "Paket Aplikasi 1"
mk(1) = "Pemrograman I"
mk(2) = "Paket Aplikasi 1"
mk(3) = "Organisasi Komputer"
mk(4) = "Pancasila"
mk(5) = "kalkulus 1"
mk(6) = "Fisika 1"
mk(7) = "Arsitektur Komputer"
mk(8) = "Pengantar Teknologi Informasi"
mk(9) = "Struktur Data"
mk(10) = "Paket Aplikasi 2"
mk(11) = "Pemrograman 2"
mk(12) = "kalkulus 2"
mk(13) = "Fisika 2"
Lstsource.Clear
For i = 0 To 13
Lstsource.AddItem mk(i)
Next
End Sub

program billing wartel

Dim awal As Date
Dim akhir As Date
Dim total As Date
Private Sub Cmul_Click()
awal = Time
Timer1.Enabled = True
Timer1.Interval = 1
Cmul.Enabled = False
Csel.Enabled = True
Csel.SetFocus
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Csel_Click()
Timer1.Enabled = False
Cmul.Enabled = True
Csel.Enabled = False
Cmul.SetFocus
End Sub
Private Sub Form_Activate()
Cmul.SetFocus
End Sub

Private Sub Timer1_Timer()
Dim total As Date
Dim bayar As Integer
Dim akhir As Date
akhir = Time
total = akhir - awal
bayar = Round(1000000 * total)
Text1.Text = total
Text2.Text = Format(bayar, "Rp #,#")
Label4.Caption = Format(Now, "dddd/ddmmmmyyyy")
Text3.Text = akhir
Text4.Text = awal
End Sub

Setting Modem Untuk Telkomnet Instan

Adapun langkah-langkah untuk men-setting Modem untuk Access Internet Telkomnet Instan, adalah sebagai berikut :
1. Klik Start - trus pilih Control Panel.
NB : Untuk mempermudah pastikan “Regional and Language Options” di Control Panel dipilih “Indonesia”.

2. Selanjutnya di Control Panel pilih “Phone & Modem Options” lalu akan muncul “Location Information”.
NB : Lalu isi area code dengan 062 terus untuk dial a number isi dengan no telp access telkom 080989999.

3. Setelah diisi klik OK, lalu akan muncul “Phone and Modem Options” (Dialing Rules).

NB: Untuk memastikan Modem-nya sudah terinstal atau belum di “Phone and Modem Options” pilih (Modems) apabila sudah tertera / terinstal jenis modem-nya lalu lanjutkan perintah selanjutnya.

4. Kembali ke options “Phone and Modem Options” (Dialing Rules), lalu klik / pilih Edit. Di Edit Location (General). Dikolom Location Name ketikan telkomnet@instan. Selanjutnya setelah diisi lalu klik Apply - lalu klik OK.
NB : Untuk kolom Dialing Rules tidak usah di isi lagi. Soalnya itu hasil dari Langkah no 3.

5. Setelah di klik OK lalu akan muncul kembali “Phone & Modem Options”Locations yang sudah berubah menjadi telkomnet@instan dan Area Code yang sudah terisi dengan 062. Selanjutnya klik Apply lalu pilih OK. dengan tampilan

6. Apabila langkah di atas sudah dilakkukan kembali ke langkah 1 (klik Start lalu pilih Control Panel). Sekarang pilih “Network Connections”. Lalu akan muncul halaman dari “Network Connections”, di sebelah kiri ada kolom yang berjudul (Wizard).

7. Di kolom (Wizard) klik “New Connection Wizard” lalu pilih Next. Akan muncul beberapa tipe pilihan koneksi jaringan (Network Connection Type), pilih saja yang Connect to The Internet laul pilih Next kembali.

8. Kemudian akan muncul lagi beberapa pilihan dengan cara apa untuk koneksi internetnya, disini pilih saja yang Set up my connection manualy terus klik Next.

9. Kemudian akan muncul lagi pilihan Internet Connection, disini pilih saja yang Connect using dial-up modem terus klik Next.

10. Kemudian akan muncul ISP Name disini isi saja dengan telkomnet@instanNext. lalu klik

11. Kemudian akan muncul Phone Number to Dial, di kolom Phone Number isi dengan nomor telkom untuk acces internet 080989999 lalu klik Next.

12. Kemudian akan muncul Internet Account Information. Isi kolom Usernametelkomnet@instan dan paswordnya isi dengan telkom (huruf kecil semua), untuk kolom Confirm Password isi kembali dengan telkom juga. Setelah itu klik Next. dengan

13. Kemudian akan muncul halaman yang berjudul Completing the New Connection Wizard, disini apabila ingin membuat shortcut ke desktop untuk mempermudah acces men-dial-up pilih saja atau cheklist kotak Add to shortcut to this connection to my desktop. Lalu klik Finish.

14. Untuk menggunakan dial-up telkomnet@instan pastikan kabel jaringan telepon sudah masuk atau terkoneksi ke modem yang dipasang.

15. Apabila sudah terpasang semua mulailah ber-internet dengan mengklik shortcut telkomnet@instan tadi yang ada di desktop. Kemudian akan muncul option halaman baru, abaikan saja kolom kosong untuk passwordnya (Itu sudah dilakukan di Langkah 12) lalu klik OK. Tunggu beberapa saat hingga modem-nya men-dial-up nomor telkom tadi sampai beres.

16. Tanda dial-up berhasil masuk bisa dilihat di pojok kanan bawah layar monitor, dengan ditunjuk oleh gambar / icon dua monitor yang saling menyala bergantian atau keseluruhan.

18. Untuk mengakhiri koneksi internet ke telkom, klik kiri saja tanda icon 2 monitor yang ada di pojok kanan bawah layar, kemudian klik disconnect.