KEGIYATAN DI HARI PSG

Minggu ke 1
Hari ke 1 tgl 21-12-2015
Kegiyatan : 1 .pengarahan tentang tugas-tugas prakerin di PLN
                  2 .mengtik keluhan dari pelanggan
                  3 .memilah surat-surat listrik bedasarkan surat-surat di amplop besar
                  4 .mengetahui fingsi dari APKT (aplikasi pengaduan dankeluhan terpadu

Hari ke 2 tgl 22-12-2015
Kegiyatan : 1 .menata amplop arsip pelanggan
                  2 .membedakan bulan dan tahun amplop arsip pelanggan
                  3 .menyapu ruang arsip

Hari ke 3 tgl 23-12-2015
Kegiyatan : 1.melepas staples surat dari amplop arsip pelanggan
                  2.nenscan surat surat
                  3.mengambil amplop arsip dari mobil
                  4.meneliti kesalahan dari printer

Hari ke 4 tgl 24-12-2015
               : libur

Hari ke 5 tgl 25-12-2015
              :libur
                                               HARI SABTU DAN MINGGU LIBUR


Minggu 2
Hari ke 1 tgl 28-12-2015
kegiyatan : 1.melakukan kegiyatan apel pagi(upacara coc)
               : 2.melepas staples
               : 3.menscan surat surat
               : 4.penjelasan cara pengguna'an apkt

Hari ke 2 tgl 29-12-2015
kegiyatan : 1.melepas staples
               : 2.menscan surat surat keluhan pelanggan
               : 3.menginstal driver2
               : 4.meng upload file file yang sudah di scan

 Hari ke 3 tgl 30-12-2015
kegiyatan : 1. menganggur mulai pukul 07.50-12.00      
                : 2.melakukan scan data
                : 3.menata surat di almari

Hari ke 4 tgl 31-12-2015
kegiyatan : 1.diberi penjelasan kegunaan (APPT)
                 : 2.melepas staples

Hari ke 5 tgl 1 -12-2016
LIBUR
                                              SABTU MINGGU LIBUR

Minggu ke 3
Hari ke 1 tgl 4-1-2016
Kegiyatan : 1.menata arsip di almari sampai pulang

Hari ke 2 tgl 5-1-2016
Kegiyatan : 1.mengambil no meter di gudang
                 : 2.meng upload data yg sudah di scan
                 : 3.membaca isi kardus yg ber isi no kwh meter

Hari ke 3 tgl 6-2-2016
Kegiyatan : 1.menata,memilah dan menghitung arsip sampek pulang

hari ke 4 dan 5 tgl  7 dan 8
kegiyatan: sama seperti tgl 6-2-2016
                                              SABTU MINGGU LIBUR

Minggu ke 4
Hari ke 1,2 dan ke 3 tgl 11,12 dan 13
kegiyatan : 1.masih seperti tgl 6-2-2016 yaitu menata ,memilah dan minghitung arsip sampek pulang

BELAJAR VISUAL BASIC

                                       BERIKUT INI RUMUSNYA
Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
If (Me.Adodc1.Recordset.EOF Or Me.Adodc1.Recordset.BOF) Then
End If
End Sub

Private Sub Command1_Click()
Me.Adodc1.Recordset.AddNew
Me.Adodc1.Recordset!nis = text1.Text
Me.Adodc1.Recordset!nama = Text2.Text
Me.Adodc1.Recordset!program = Me.Combo1.Text
Me.Adodc1.Recordset.Update

MsgBox "Data Berhasil di Simpan", vbInformation, "Penyimpanan Data"
Me.text1.Text = ""
Me.Text2.Text = ""
Me.Combo1.Text = "Pilih Jurusan Anda"
Me.text1.SetFocus
End Sub

Private Sub Command2_Click()
Me.text1.Text = ""
Me.Text2.Text = ""
Me.Combo1.Text = ""
text1.SetFocus
End Sub

Private Sub Command3_Click()
Me.Adodc1.Recordset.Delete
MsgBox "Data Siswa Telah Dihapus", vbInformation, "Hapus Data"
Me.text1.Text = ""
Me.Text2.Text = ""
Me.Combo1.Text = "Pilih Jurusan Anda"
Me.text1.SetFocus
End Sub

Private Sub Command4_Click()
Load DataReport1
DataReport1.Show
End Sub

Private Sub Command5_Click()
Me.Adodc1.Recordset!nis = text1.Text
Me.Adodc1.Recordset!nama = Text2.Text
Me.Adodc1.Recordset!program = Me.Combo1.Text
Me.Adodc1.Recordset.Update

MsgBox "Data Telah Dirubah", vbInformation, "Perubahan Data"
Me.text1.Text = ""
Me.Text2.Text = ""
Me.Combo1.Text = "Pilih Jurusan Anda"
Me.text1.SetFocus
End Sub

Private Sub DataGrid1_Click()
Me.text1.Text = Adodc1.Recordset!nis
Me.Text2.Text = Adodc1.Recordset!nama
Me.Combo1.Text = Adodc1.Recordset!program
End Sub

Private Sub Form_Load()
Me.Combo1.AddItem "Rekayasa Perangkat Lunak"
Me.Combo1.AddItem "Teknik Komputer dan Jaringan"
Me.Combo1.AddItem "Teknik Kendaraan Ringan"
Me.Combo1.AddItem "Akuntansi"
End Sub





                                                          BERIKUT INI HASILNYA

                                                               SEKIAN DARI SAYA

Penggunaan Fungsi "IF" dalam VB

Fungsi "IF" dalam Visual Basic biasa digunakan untuk menentukan pilihan. Sebuah parameter akan dijalankan oleh program jika pilihan tersebut bernilai benar atau "TRUE". sebagai contoh dalam sebuah kasus.

CONTOH

Private Sub Command1_Click()
If Text1.Text >= 200000 Then
                Text2.Text = Text1.Text * 0.15
                Text3.Text = "gelas cantik"
Else
             Text2.Text = "tidak ada hadiah"
Text3.Text = "tidak ada bonus"
End If
End Sub

                                            SEKIAN

Menjalankan Program Visual Basic

IDE Visual Basic
Langkah awal dari belajar Visual Basic adalah mengenal IDE (Integrated Developement Environment) Visual Basic yang merupakan Lingkungan Pengembangan Terpadu bagi programmer dalam mengembangkan aplikasinya. Dengan menggunakan IDE programmer dapat membuat user interface, melakukan koding, melakukan testing dan debuging serta menkompilasi program menjadi executable. Penguasaan yang baik akan IDE akan sangat membantu programmer dalam mengefektifkan tugas-tugasnya sehingga dapat bekerja dengan efisien.

Menjalankan IDE
Salah satu cara untuk mengaktifkan IDE Visual Basic adalah menjalankannya dari Menu Start, pilih menu Command, dan pilih Microsoft Visual Basic 6.0 dan akhirnya Microsoft Visual Basic 6.0.
                         
                                                     Berikut ini adalah gambarnya
                                                 

 

Selesai