Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbNim.SelectedIndexChanged
Dim NIM1, NIM2, NIM3 As Integer
NIM1 = 1411500331
NIM2 = 1412500413
NIM3 = 1413500347
If cmbNim.Text = NIM1 Then
txtNama.Text = "Ahmad Galil Pramudito"
txtJenjang.Text = "S-1"
txtJurusan.Text = "Teknik Informasi"
ElseIf cmbNim.Text = NIM2 Then
txtNama.Text = "Abdilah Sanad"
txtJenjang.Text = "S-1"
txtJurusan.Text = "Sistem Informasi"
ElseIf cmbNim.Text = NIM3 Then
txtNama.Text = "Chairul Anwar"
txtJenjang.Text = "S-1"
txtJurusan.Text = "Teknik Informasi"
End If
End Sub
Sub Loop_Kehadiran()
Dim batasAwal, BatasAkhir, textStep As Integer
batasAwal = 0
BatasAkhir = 100
textStep = 10
Do While batasAwal <= BatasAkhir
Me.cmbNilaiKehadiran.Items.Add(batasAwal)
Me.cmbTugas.Items.Add(batasAwal)
Me.cmbUTS.Items.Add(batasAwal)
Me.cmbUAS.Items.Add(batasAwal)
batasAwal += textStep
Loop
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.cmbNilaiKehadiran.SelectedValue = 0
Me.cmbTugas.SelectedValue = 0
Me.cmbUTS.SelectedValue = 0
Me.cmbUAS.SelectedValue = 0
Loop_Kehadiran()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Kehadiran, Tugas, UTS, UAS, Nilai_Kehadiran, Nilai_Tugas, Nilai_UTS, Nilai_UAS, Hasil As Integer
Dim Kelulusan, Nilai_Akhir As String
Kehadiran = Integer.Parse(cmbNilaiKehadiran.Text)
Tugas = Integer.Parse(cmbTugas.Text)
UTS = Integer.Parse(cmbUTS.Text)
UAS = Integer.Parse(cmbUAS.Text)
' Absen Kehadiran 10%
Nilai_Kehadiran = ((Kehadiran * 10) / 100)
' Tugas 20%
Nilai_Tugas = ((Tugas * 20) / 100)
' UTS 30%
Nilai_UTS = ((UTS * 30) / 100)
' UAS 40%
Nilai_UAS = ((UAS * 40) / 100)
Hasil = (Nilai_Kehadiran + Nilai_Tugas + Nilai_UTS + Nilai_UAS)
If Hasil >= 85 And Hasil <= 100 Then
Nilai_Akhir = "A"
Kelulusan = "Lulus"
ElseIf Hasil >= 75 And Hasil <= 85 Then
Nilai_Akhir = "B"
Kelulusan = "Lulus"
ElseIf Hasil >= 60 And Hasil <= 75 Then
Nilai_Akhir = "C"
Kelulusan = "Lulus"
ElseIf Hasil >= 45 And Hasil <= 60 Then
Nilai_Akhir = "D"
Kelulusan = "Tidak Lulus"
ElseIf Hasil >= 0 And Hasil <= 45 Then
Nilai_Akhir = "E"
Kelulusan = "Tidak Lulus"
End If
lblNilaiAkhir.Text = Hasil
lblNilaiHuruf.Text = Nilai_Akhir
lblKelulusan.Text = Kelulusan
End Sub
Fikroh 57
Jumat, 28 Oktober 2016
Minggu, 14 Februari 2016
Sabtu, 13 Februari 2016
Pergantian Pemimpin Fikroh 57
Assalammu'alaikum Wr.Wb
Alhamdulillahirabbil'alamiin, Presiden Fikroh 57 yang baru sudah terpilih yang dipilih secara SYURO AKBAR pada tanggal 8 Februari 2016 dengan ribuan suara pemilih *prok prok prok, untuk menggantikan masa kepemimpinan REZIM MRC atau Rezim kak Muhammad Radhinal Cendikia yang sudah memimpin selama 2 PERIODE.
Yang dimana ada beberapa kandidat yang bersemangat "MENCALONKAN" maju menjadi Presiden Fikroh 2016-2018 dan beberapa calonnya yaitu : 1.Kak Dani Septyadi ===> 2.Kak Fauzi Firdaus===> 3. Kak Indri Barbara ===> 4. Kak Sekti Jatmiko.
Dan Inilah Pemimpin Presiden FIKROH terbaru dan terupdate......Kita sambut dug dug dug dug inilah Presiden FIKROH 2016-2018 kak SEKTI JATMIKO.
Alhamdulillahirabbil'alamiin, Presiden Fikroh 57 yang baru sudah terpilih yang dipilih secara SYURO AKBAR pada tanggal 8 Februari 2016 dengan ribuan suara pemilih *prok prok prok, untuk menggantikan masa kepemimpinan REZIM MRC atau Rezim kak Muhammad Radhinal Cendikia yang sudah memimpin selama 2 PERIODE.
Yang dimana ada beberapa kandidat yang bersemangat "MENCALONKAN" maju menjadi Presiden Fikroh 2016-2018 dan beberapa calonnya yaitu : 1.Kak Dani Septyadi ===> 2.Kak Fauzi Firdaus===> 3. Kak Indri Barbara ===> 4. Kak Sekti Jatmiko.
Dan Inilah Pemimpin Presiden FIKROH terbaru dan terupdate......Kita sambut dug dug dug dug inilah Presiden FIKROH 2016-2018 kak SEKTI JATMIKO.
Yups Kak Sekti akan meminpin dan memegang amanah Fikroh selanjutnya sampai 2018 nanti untuk menggantikan Rezim sebelumya kak Radhinal Cendikia.
Dan semoga FIKROH 57 kedepannya lebih baik dan makin baik lagi, Barakallahulaka wa innalillahi wa inna ilaihi raaji'uun..
Dan kami seluruh anggota FIKROH 57 terima kasih sebelumnya kepada Kak Radhinal atas loyalitasnya selama ini kepada fikroh dan rohis 57 untuk menjadikan rohis 57 lebih baik lagi dan semoga tahun yang akan datang nanti menyalonkan kembali utuk menjadi presiden FIKROH 57 jakarta Barat :).
Wassalammu'alaikum Wr.Wb.
* KALO ADA YANG MAU DI KOREKSI SILAHKAN ISI DI KOLOM KOMENTAR :)
Sabtu, 03 Oktober 2015
Syuro Fikroh
HASIL SYURO FIKROH 57
(3 Oktober 2015)
Hasil
Syuro FIKROH 57, Antara Lain :
1. Penanggung
Jawab Acara IMTAQ 2015 Ialah Sekti Jatmiko, Indrih Barbara, Dan Danny Septyadi.
2. Panitia
Kecil IMTAQ 2015, Antara Lain :
·
Ketua : Ilyas.
·
Sekretaris : Ade.
·
Bendahara : Farhah.
·
Danus : Hanif
& Syifa.
·
Acara : Fathan
& Ayu.
·
Publikasi : Faris.
3. Syuro
Perdana Panitia Kecil IMTAQ 2015 Dengan Para Alumni (Wabil Khusus PJ IMTAQ)
Tanggal 10-10-2015 Pkl. 13.00 Bertempat Di Rumah Salah Satu Ortu Panitia Tim
Kecil.
4. Tanggal
17-10-2015 Akan Dilaksanakan Acara Silaturrahim Ke Rumah Kepala Sekolah SMAN 57
Oleh FIKROH 57.
5. Tanggal
24-10-2015 Akan Dilaksanakan Acara Pengajian Bulanan FIKROH 57 Yang Dihadiri
Oleh Anak ROHIS 57 (Kelas X S/D XII). Tema : Hijrah. Dilaksanakan Pkl. 13.00
Wib, Tempat : Menyusul.
ROHIS 57 (kelas X s/d XII). Tema : Hijrah. Dilaksanakan pkl. 13.00
wib, tempat : menyusul.
Jumat, 02 Oktober 2015
SUSUNAN ACARA MABIT FIKROH 57
Dan Berikutnya Susunan Acara Mabit yang dilakukan pada TANGGAL 19-20 SEPTEMBER 2015
SUSUNAN ACARA MABIT
FIKROH 57
I. 19 September 2015 :
12.00
– 12.15 : shalat zuhur berjamaah.
12.15
– 12.45 : persiapan acara.
12.45
– 12.50 : pembukaan.
12.50
– 13.00 : tilawah Al-Quran.
13.00
– 14.00 : materi tentang “Kupas Tuntas Gerakan Al-Kahfi”oleh Bpk.
Drs. Anwar Musadat & Bpk.
Rahmatullah, S.Pd.
14.00
– 14.45 : pemaparan tentang gerakan Al-Kahfi
dari mantan pengikutnya
yakni sdri. Nur Aida & sdri. Etik
Muqasaddiah.
14.45
– 15.00 : tanya jawab.
15.00
– 15.15 : persiapan shalat asar.
15.15
– 15.30 : shalat asar berjamaah.
15.30
– 17.00 : outbonds
di lapangan.
17.00
– 17.45 : bersih-bersih.
17.45
– 18.00 : persiapan shalat magrib.
18.00
– 18.15 : shalat magrib berjamaah.
18.15
– 18.30 : tilawah Al-Quran bersama-sama
dibimbing oleh para alumni.
18.30
– 19.00 : makan malam bersama.
19.00
- 19.20 : persiapan & shalat isya
berjamaah.
19.20
– 19.40 : persiapan nonton film.
19.40
– 21.00 : nonton & bedah film ROHIS 57.
21.00
– 21.30 : bakar sosis.
21.30
– 03.15 : tidur.
II. 20 September 2015 :
03.15
– 03.30 : persiapan shalat tahajjud.
03.30
– 04.20 : shalat tahajjud berjamaah.
04.20
– 04.35 : persiapan shalat subuh.
04.35
– 04.50 : shalat subuh berjamaah.
04.50
– 05.00 : membaca al-matsurat.
05.00
– 06.00 : olahraga & games.
06.00
– 07.00 : bersih-bersih.
07.00
– 08.00 : makan pagi.
08.00
– 09.00 : penutupan.
09.00
– dst : pulang.
Keterangan :
1. PJ
Keseluruhan : Fauzi & Kaderisasi FIKROH 57.
2. PJ
Acara : Chandra Syarofi.
3. PJ
Perlengkapan : Azhar Krisna.
4. PJ
Outbonds : Indrih
Barbara & Muhammad Nasrul Arifin.
5. PJ
Dokumentasi : Adam Wicaksana.
7. PJ
Mentoring : Danny Septyadi.
8. PJ
Izin Tempat & Perlengkapan :
Pengurus ROHIS SMAN 57 .
9. Bendahara : Dewi Lestari.
10. Tanggal
Acara : 19 s/d 20 September 2015.
11. Tempat : Masjid Darussalam SMAN 57 & Lapangan SMAN 57.
12. Perlengkapan
yang dibutuhkan :
·
Microphone minimal 3
buah.
·
Kabel Roll.
·
TOA (Amplipayer).
·
LCD.
·
Proyektor.
·
Ijab.
·
Speaker eksternal
laptop.
13. Infak : Alumni : min.
Rp15.000/orang.
Pelajar : min.
Rp5.000/orang.
Langganan:
Postingan (Atom)

