BIODATA

Nama: Riyan Noto Prayoga
Alamat:Mangli, banyuwangi, Jawa timur
Kelas:XI
Jurusan:RPL
Jenis Kelamin: Laki-Laki
Status: Pelajar
Hobi:

• Fishing
• Football
• Swimming

SEJARAH TEMPAT PSG SAYA

                                                                  INILAH SEJARAH SINGKAT DI TEMPAT PSG SAYA

                                                               Sejarah singkat PT.PLN (Persero) Rayon Genteng 

  pada sekitar tahun 1962 pln rayon genteng pada awalnya bukan menjadi sebuah  perusahaan yang ditunjuk oleh pt.pln area banyuwangi untuk menjadi kantor pembantu area atau APJ, melainkan kantor pln rayon genteng ini masih berdiri sendiri dan listrik yang di hasilkan diperoleh dari generator yang dipakai untuk menyalurkan khusus wilayah genteng itu sendiri ,  belum sampai ke wilayah lainnya seperti desa sempu , desa tegalsari , desa kaligondo dan desa desa lainnya yang lokasinya berdekatan dengan kantor genteng .  penyaluran listrik ini masih belum merata ke semua desa karena memang pada saat itu alat yang di gunakan masih cukup terbatas sehingga sulit untuk bisa menyalurkan listrik ke seluruh daerah daerah . Pada saat itu memang belum banyak pelanggan yang ikut berlangganan listrik di kantor genteng ,hal ini dikarenakan memang masih terbatasnya alat alat sehingga tidak  bisa menampung konsumen terlalu banyak . Namun sekitar pada tahun 1985 an kantor pln area  banyuwangi menunjuk kantor genteng menjadi salah satu kantor area pelayanan jaringan (APJ) Sehingga pada saat itu pln rayon genteng mengalami beberapa peningkatan dari alat - alat distribusi jaringan , transformator , dan lain lain . Sehingga pt.pln rayon genteng dapat menambung pelanggan/konsumen cukup banyak, dari tahun ketahun jumlah konsumen yang medaftar untuk berlanggan listrik semakin bertambah . PLN rayon genteng juga mengalami perubahan yang cukup banyak dari tahun ke tahun dalam beberapa pelayananannya , sampai pada saat ini pln rayon genteng memiliki beberapa tim kerja , seperti YANTEK (pelayanan taknik) , YANBUNG (pelayanan menyambung KWH), TuSBUNG (pelayanan pemutus atau menyambung KWH), CATER (pencatat meteran),dan juga RABAS. Yantek ini adalah singkatan dari pelayanan teknik dimana yantek ini melayani  pelanggan yang mengalami beberapa gangguan yang berhubungan dengan listrik yang di alami di rumahnya , YANBUNG ini adalah singkatan dari Pelayanan sambung , yaitu untuk melayani  pelanggan yang ingin menyambung atau memasang listrik baru . TOSBUNG ini adalah  pelayanan putus sambung , semisal ada pelanggan yang tidak membayar sehingga tim ini  bergerak dan berkewajiban untuk memutus sambungan listrik di rumahnya dan yang terakhir adalah CATER , cater ini adalah baca meter yaitu tukang untuk membaca meter an yang  berkeliling ke rumah rumah pelanggan. RABAS ini merupakan regu yang sangat penting dalam  pemeliharaan jaringan, mereka bekerja menebangi dan menyingkirkan pohon atau benda-benda yang menghalangi jaringan distribusi TM.

Hingga saat ini PLN rayon genteng mengalami peningkatanyang sangat pesat, dan tahun 2013 kemarin mereka mendapatkan prestasi sebagai pemberi pelayanan pelanggan terbaik se-Banyuwangi dan juara ke dua se-JATIM. 

*VISI DAN MISI PERUSAHAAN*

1.VISI:

a.Diakui sebagai Perusahaan Kelas Dunia yang Bertumbuh kembang, Unggul dan Terpercaya dengan bertumpu pada            Potensi Insani. 

2.MISI:

a.Menjalankan bisnis kelistrikan dan bidang lain yang terkait, berorientasi pada kepuasan pelanggan, anggota perusahaan dan pemegang saham.

b.Menjadikan tenaga listrik sebagai media untuk meningkatkan kualitas kehidupan masyarakat. 

c.Mengupayakan agar tenaga listrik menjadi pendorong kegiatan ekonomi. 

d.Mengupayakan agar tenaga listrik menjadi pendorong kegiatan ekonomi. 

                                             BERIKUT INI FOTO TEMPAT PSG SAYA DI PLN

 

SEKIYAN

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