Ta'Lim tiaP jum'aT

Disampaikan oleh : Ust. Dani

Allah menciptakan sesuatu dengan berpasangan. Keutaman menuntut ilmu adalah tidak samanya orang yang bodoh dengan orang yang pintar. Keutamaan yang ke-2 yaitu, orang yang berilmu di artikan orang yang hidup, dan orang yang bodoh di artikan seperti orang yang mati. Keutamaan ke-3, orang yang berilmu itu semakin berilmu semakin takut. Keutamaan ke-4, pengaruh ilmu sangat mempengaruhi iman dan tingkah laku. Keutamaan ke-5, ilmu adalah penuntun amal.

Manusia di bedakan menjadi 4 type.

1. Manusia yang tahu dan sadar bahwa dia tidak tahu.
2. Manusia yang tahu tapi dia tidak tahu
3. Manusia yang tidak tahu dan sadar bahwa ia tidak tahu
4. Manusia yang tidak tahu dan ia tidak sadar bahwa ia tidak tahu

Disampaikan oleh : Ust. Nanang

“Dan Tuhanmu menyuruh untuk bisa menyembah orang lain selain Allah, dan berbaktilah pada kedua orang tuamu.”

Kita sebagai anak dari orang tua hendaklah berbakti kepada kedua orang tua kita. Pengorbanan orang tua kita mulai dari dalam kandungan sampai keluarnya kita dari dalam perut seorang ibu dan dibesarkan hingga sekarang. Setiap orang tua pasti menginginkan anaknya menjadi yang terbaik dan orang tua selalu menuruti keinginan anaknya bila anaknya mempunyai keinginan yang belum terlaksanakan.

Begitu besar cinta dan sayangnya orang tua kita terhadap kita anak kandungnya. Maka untuk membalas rasa cinta dan sayangnya pun dengan cara kita menjaga orang tua kita dan menuruti nasihatnya.

Disampaikan oleh : Ust. Dani

Barang siapa yang mendatangi seorang dukun, maka pahala yang ia punya akan hilang secara sia-sia selama 40 hari . Ada 3-B yang perlu kita perhatikan dalam menghadapi sebuah problem, yaitu :

1. Berusaha
2. Berdo’a
3. Berkata

Macam-macam realitas kehidupan :

· Lemahnya aqidah

· Lemahnya wawasan

· Lemahnya spiritual

· Lemahnya kemauan

· Lemahnya cita-cita

Macam-macam realitas masyarakat :

· Lemahnya harga diri

• Lemahnya persaudaraan

Disampaikan oleh : Ust. Nanang

“Kalian adalah umat terbaik, yang dilahirkan untuk manusia. Menyuruh kepada ma’ruf, mencegah perbuatan munkar, dan beriman kepada Allah.” (QS. Ali-Imran : 110)

• Pilar Pemuda
1. Umara
2. Ulama
3. Aghniya
4. Annisa

• Inilah faktanya
1. Valentine’s day
2. Musik
3. Narkoba
4. Seks bebas
5. Tawuran
6. Kualitas SDM yang rendah

• Model Manusia Muslim

Manusia Pribadi salih Da’i Mujahid

program VB new

A. Rancanglah Form Seperti gambar di bawah ini dengan menggunakan visual basic ketentuan sebagai berikut :

Komponen yang digunakan dan settingan properties diantaranya adalah :

OBJEK	PROPERTIES	NILAI/ ISI
Form1	Caption	Program untuk menentukan nilai siswa dengan mengunakan if then else dan select case
Label 1	Caption	Masukan Nilai Siswa
Label 2	Caption	Keterangan Nilai Dengan Proses Menggunakan If then else
Label 3	Caption	Keterangan Nilai Dengan Proses Menggunakan Select Case
Label 4	Caption	:
Label 5	Caption	:
Label 6	Caption	:
Text1	Text	Di Kosongkan
Text2	Text	Di Kosongkan
Text3	Text	Di Kosongkan
Command1	Caption	Proses Nilai Dengan If then else
Command2	Caption	Proses Nilai Dengan Select Case
Command3	Caption	Proses Membersihkan Fields
Commadn4	Caption	Proses Untuk Keluar dari Form

Listing Program :

Pada Command1, Klik Double Kemudian Ketikkan Listing Program Sebagai Berikut :

If Text1.Text <= 50 Then

Text2.Text = "E"

Else

If Text1.Text <= 60 Then

Text2.Text = "D"

Else

If Text1.Text <= 70 Then

Text2.Text = "C"

Else

If Text1.Text <= 80 Then

Text2.Text = "B"

Else

If Text1.Text <= 100 Then

Text2.Text = "A"

Else

Text2.Text = "Tidak Ada Nilai"

End If

End If

End If

End If

End If

Pada Command2, Klik Double Kemudian Ketikkan Listing Program Sebagai Berikut :

Dim nilai As Integer

Dim keterangan As String

nilai = Text1.Text

Select Case nilai

Case 0 To 50

keterangan = "E"

Case 50 To 60

keterangan = "D"

Case 60 To 70

keterangan = "C"

Case 70 To 80

keterangan = "B"

Case Is <= 100

keterangan = "A"

Case Else

keterangan = "Tidak Ada Nilai"

End Select

Text3.Text = keterangan

Pada Command3, Klik Double Kemudian Ketikkan Listing Program sebagai berikut :

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text1.SetFocus

Pada Command4, Klik Double Kemudian Ketikkan Listing Program sebagai berikut :

Unload me

B. Rancanglah Form Seperti gambar di bawah ini dengan menggunakan visual basic ketentuan sebagai berikut :

Adapun Komponen Yang digunakan termasukkan settingan yang digunakan adalah sebagai berikut :

OBJEK	PROPERTIES	NILAI/ ISI
Form1	Caption	Program Untuk Menghitung Nilai Siswa Kelas I RPL
Label 1	Caption	Masukkan Nilai MID
Label 2	Caption	Masukkan Hasil Nilai Akhir Semester
Label 3	Caption	Rata-Rata
Label 4	Caption	Keterangan
Label 5	Caption	:
Label 6	Caption	:
Label 7	Caption	:
Label 8	Caption	:
Text1	Text	Kosongkan
Text2	Text	Kosongkan
Text3	Text	Kosongkan
Text4	Text	Kosongkan
Command1	Caption	Proses Hitung Nilai
Command2	Caption	Bersihkan

Listing Program:

Pada Command1, Klik double kemudian ketikkan perintah sebagai berikut :

Text3.Text = (Val(Text1.Text) + Val(Text2.Text)) / 2

If Text3.Text >= 85 Then

Text4.Text = "Sangat Memuaskan"

Else

If Text3.Text >= 75 Then

Text4.Text = "Cukup Memuaskan"

Else

If Text3.Text >= 60 Then

Text4.Text = "Memuaskan"

Else

Text4.Text = "Tidak Ada Nilai"

End If

End If

End If

Pada Command2, klik double kemudian ketikkan perintah sebagai berikut :

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text1.SetFocus

C. Rancanglah Form Seperti gambar di bawah ini dengan menggunakan visual basic ketentuan sebagai berikut :

Komponen yang dipakai dan aturan settingan sebagai berikut :

OBJEK	PROPERTIES	NILAI/ ISI
Form1	Caption	Program Hitung Pembayaran Pembelian Barang
Label1	Caption	Jumlah Yang di Beli
Label2	Caption	Harga Barang
Label3	Caption	Total Bayar
Label4	Caption	:
Label5	Caption	:
Label6	Caption	:
Text1	Text	Kosongkan
Text3	Text	Kosongkan
Text3	Text	Kosongkan
Command1	Caption	Hitung
Command2	Caption	Bersih

Listing Program :

Command1, Klik double kemudian ketikkan perintah sebagai berikut :

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

Text3.Text = Format(Text3.Text, "Rp ###,###,###") & ",-"

Command2, Klik double kemudian ketikkan perintah sebagai berikut :

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text1.SetFocus

D. Rancanglah Form Seperti gambar di bawah ini dengan menggunakan visual basic ketentuan sebagai berikut :

Komponen dan settingan yang digunakan adalah sebagai berikut :

OBJEK	PROPERTIES	NILAI/ ISI
Option1	Caption	Penjumlahan
Option2	Caption	Pengurangan
Option3	Caption	Perkalian
Option4	Caption	Pembagian
Option5	Caption	Luas Persegi Panjang
Option6	Caption	Luas Segitiga
Option7	Caption	Luas Lingkaran
Text1	Text	Kosongan
Text2	Text	Kosongan
Text3	Text	Kosongan
Label1	Caption	Masukan Nilai I
Label2	Caption	Masukan Nilai II
Label3	Caption	Hasil
Label4	Caption	:
Label5	Caption	:
Label6	Caption	:

Listing Program :

Option1, klik double ketikkan perintah sebagai berkut :

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

Option2, klik double ketikkan perintah sebagai berkut :

Text3.Text = Val(Text1.Text) - Val(Text2.Text)

Option3, klik double ketikkan perintah sebagai berkut :

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

Option4, klik double ketikkan perintah sebagai berkut :

Text3.Text = Val(Text1.Text) / Val(Text2.Text)

Option5, klik double ketikkan perintah sebagai berkut :

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

Option6, klik double ketikkan perintah sebagai berkut :

Text3.Text = (Val(Text1.Text) * Val(Text2.Text)) / 2

Option7, klik double ketikkan perintah sebagai berkut :

Text3.Text = (Val(Text1.Text) * Val(Text2.Text)) * 3.14

khu ma devil

Nec…khu ma devilx 1~RpL….sebenarnya ce ne lg zame pelajaran v,,maklum z wonk nwarciez n magito ( manusia gila foto ) hehehehe

caPe...decH.....!!!!!

Cneng nec ckrang khu biza open blog khu lg…. padahal dr kmrin khu udah pgen buka…v,,khu password khu….. tyuz lama khu m’ingat” password khu…. Khu jadi ingat dc… oy, khu takutnc bentar lg ujian semester so…..kudu belajar yg rajin dc…. Oy,, bwt my prenz y glom byar wank komite kudu bayar gih…..ntr gk bz kut ujian lho…..!!!!!!!!! (just kidding)

cerita khu

Re ney…. Gtw napha khu pengen ketawa tyuz…v,, sampai akhirnya khu jadi sebel,,kesal,,n pengen marah… mungkin karena kebanyakkan ketawa kali yac… maklum az….!!!! Obat waras khu ilang…. N khu Cuma punya obat ketawa… V,,,,gpp dec… yang penting zouk khu bisa ketawa lagi n always smile…………………… Oy….buat my prenz khu….lam kompersa z bwt kalian smw….oce……

Ney LyZTie bieZ puLanK dr sKuL.... MakanYa tuC masih paKe baJu pRakteK sKul... V,,teTep cReN khan....!!!??? SMK_A gTo loc,....