TUGAS VB 3

March 20, 2013 //

Normal
0

false
false
false

EN-US
X-NONE
X-NONE

/* Style Definitions */
table.MsoNormalTable
{mso-style-name:”Table Normal”;
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-qformat:yes;
mso-style-parent:””;
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin-top:0cm;
mso-para-margin-right:0cm;
mso-para-margin-bottom:10.0pt;
mso-para-margin-left:0cm;
line-height:115%;
mso-pagination:widow-orphan;
font-size:11.0pt;
font-family:”Calibri”,”sans-serif”;
mso-ascii-font-family:Calibri;
mso-ascii-theme-font:minor-latin;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;
mso-bidi-font-family:”Times New Roman”;
mso-bidi-theme-font:minor-bidi;}

PROGRAM 1 :

1. SCRIPT 1(MENGGUNAKAN ENTER DAN PROSES)

Private Sub Command1_Click()

Dim k, j, p As String

k = Mid(TXTNPM.Text, 3, 1)

If k = “1” Then

j = “SISTEM INFORMASI”

ElseIf k = “2” Then

j = “MANAJEMEN INFORMATIKA”

ElseIf k = “3” Then

j = “TEKNIK INFORMATIKA”

ElseIf k = “4” Then

j = “KOMPUTER AKUNTASI”

End If

TXTJURUSAN.Text = j

k = Mid(TXTNPM.Text, 4, 2)

If k = “01” Then

p = “STRATA SATU”

ElseIf k = “02” Then

p = “DIPLOMA TIGA”

ElseIf k = “03” Then

p = “DIPLOMA DUA”

ElseIf k = “04” Then

p = “DIPLOMA EMPAT”

End If

TXTPRODI.Text = p

TXTTM.Text = “20” & Left(TXTNPM.Text, 2)

TXTNU.Text = Right(TXTNPM.Text, 3)

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

Private Sub Command3_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTNPM.SetFocus

End If

End Sub

Private Sub TXTNPM_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim k, j, p As String

k = Mid(TXTNPM.Text, 3, 1)

If k = “1” Then

j = “SISTEM INFORMASI”

ElseIf k = “2” Then

j = “MANAJEMEN INFORMATIKA”

ElseIf k = “3” Then

j = “TEKNIK INFORMATIKA”

ElseIf k = “4” Then

j = “KOMPUTER AKUNTASI”

End If

TXTJURUSAN.Text = j

k = Mid(TXTNPM.Text, 4, 2)

If k = “01” Then

p = “STRATA SATU”

ElseIf k = “02” Then

p = “DIPLOMA TIGA”

ElseIf k = “03” Then

p = “DIPLOMA DUA”

ElseIf k = “04” Then

p = “DIPLOMA EMPAT”

End If

TXTPRODI.Text = p

TXTTM.Text = “20” & Left(TXTNPM.Text, 2)

TXTNU.Text = Right(TXTNPM.Text, 3)

End If

End Sub

Categories Uncategorized

vb 3

March 20, 2013 //

Normal
0

false
false
false

EN-US
X-NONE
X-NONE

PROGRAM 1 :

1. SCRIPT 1(MENGGUNAKAN ENTER DAN PROSES)

Private Sub Command1_Click()

Dim k, j, p As String

k = Mid(TXTNPM.Text, 3, 1)

If k = “1” Then

j = “SISTEM INFORMASI”

ElseIf k = “2” Then

j = “MANAJEMEN INFORMATIKA”

ElseIf k = “3” Then

j = “TEKNIK INFORMATIKA”

ElseIf k = “4” Then

j = “KOMPUTER AKUNTASI”

End If

TXTJURUSAN.Text = j

k = Mid(TXTNPM.Text, 4, 2)

If k = “01” Then

p = “STRATA SATU”

ElseIf k = “02” Then

p = “DIPLOMA TIGA”

ElseIf k = “03” Then

p = “DIPLOMA DUA”

ElseIf k = “04” Then

p = “DIPLOMA EMPAT”

End If

TXTPRODI.Text = p

TXTTM.Text = “20” & Left(TXTNPM.Text, 2)

TXTNU.Text = Right(TXTNPM.Text, 3)

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

Private Sub Command3_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTNPM.SetFocus

End If

End Sub

Private Sub TXTNPM_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim k, j, p As String

k = Mid(TXTNPM.Text, 3, 1)

If k = “1” Then

j = “SISTEM INFORMASI”

ElseIf k = “2” Then

j = “MANAJEMEN INFORMATIKA”

ElseIf k = “3” Then

j = “TEKNIK INFORMATIKA”

ElseIf k = “4” Then

j = “KOMPUTER AKUNTASI”

End If

TXTJURUSAN.Text = j

k = Mid(TXTNPM.Text, 4, 2)

If k = “01” Then

p = “STRATA SATU”

ElseIf k = “02” Then

p = “DIPLOMA TIGA”

ElseIf k = “03” Then

p = “DIPLOMA DUA”

ElseIf k = “04” Then

p = “DIPLOMA EMPAT”

End If

TXTPRODI.Text = p

TXTTM.Text = “20” & Left(TXTNPM.Text, 2)

TXTNU.Text = Right(TXTNPM.Text, 3)

End If

End Sub

Categories Uncategorized

TUGA TIGA VB

March 20, 2013 //

Normal
0

false
false
false

EN-US
X-NONE
X-NONE

1. SCRIPT 3 (MENGGUNAKAN PROSES)

Private Sub Command1_Click()

Dim k, j, p As String

k = Mid(TXTNPM.Text, 3, 1)

If k = “1” Then

j = “SISTEM INFORMASI”

ElseIf k = “2” Then

j = “MANAJEMEN INFORMATIKA”

ElseIf k = “3” Then

j = “TEKNIK INFORMATIKA”

ElseIf k = “4” Then

j = “KOMPUTER AKUNTASI”

End If

TXTJURUSAN.Text = j

k = Mid(TXTNPM.Text, 4, 2)

If k = “01” Then

p = “STRATA SATU”

ElseIf k = “02” Then

p = “DIPLOMA TIGA”

ElseIf k = “03” Then

p = “DIPLOMA DUA”

ElseIf k = “04” Then

p = “DIPLOMA EMPAT”

End If

TXTPRODI.Text = p

TXTTM.Text = “20” & Left(TXTNPM.Text, 2)

TXTNU.Text = Right(TXTNPM.Text, 3)

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

Private Sub Command3_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTNPM.SetFocus

End If

End Sub

Categories Uncategorized

TUGA VB 3

March 20, 2013 //

Normal
0

false
false
false

EN-US
X-NONE
X-NONE

1. CRIPT 2(MENGGUNAKAN ENTER)

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

Private Sub Command3_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTNPM.SetFocus

End If

End Sub

Private Sub TXTNPM_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim k, j, p As String

k = Mid(TXTNPM.Text, 3, 1)

If k = “1” Then

j = “SISTEM INFORMASI”

ElseIf k = “2” Then

j = “MANAJEMEN INFORMATIKA”

ElseIf k = “3” Then

j = “TEKNIK INFORMATIKA”

ElseIf k = “4” Then

j = “KOMPUTER AKUNTASI”

End If

TXTJURUSAN.Text = j

k = Mid(TXTNPM.Text, 4, 2)

If k = “01” Then

p = “STRATA SATU”

ElseIf k = “02” Then

p = “DIPLOMA TIGA”

ElseIf k = “03” Then

p = “DIPLOMA DUA”

ElseIf k = “04” Then

p = “DIPLOMA EMPAT”

End If

TXTPRODI.Text = p

TXTTM.Text = “20” & Left(TXTNPM.Text, 2)

TXTNU.Text = Right(TXTNPM.Text, 3)

End If

End Sub

Categories Uncategorized

March 20, 2013 //

Normal
0

false
false
false

EN-US
X-NONE
X-NONE

1. CRIPT 2(MENGGUNAKAN ENTER)

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

Private Sub Command3_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTNPM.SetFocus

End If

End Sub

Private Sub TXTNPM_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim k, j, p As String

k = Mid(TXTNPM.Text, 3, 1)

If k = “1” Then

j = “SISTEM INFORMASI”

ElseIf k = “2” Then

j = “MANAJEMEN INFORMATIKA”

ElseIf k = “3” Then

j = “TEKNIK INFORMATIKA”

ElseIf k = “4” Then

j = “KOMPUTER AKUNTASI”

End If

TXTJURUSAN.Text = j

k = Mid(TXTNPM.Text, 4, 2)

If k = “01” Then

p = “STRATA SATU”

ElseIf k = “02” Then

p = “DIPLOMA TIGA”

ElseIf k = “03” Then

p = “DIPLOMA DUA”

ElseIf k = “04” Then

p = “DIPLOMA EMPAT”

End If

TXTPRODI.Text = p

TXTTM.Text = “20” & Left(TXTNPM.Text, 2)

TXTNU.Text = Right(TXTNPM.Text, 3)

End If

End Sub

Categories Uncategorized

Tugas 2

March 13, 2013 //

Script 1

Normal
0

false
false
false

EN-US
X-NONE
X-NONE

/* Style Definitions */
table.MsoNormalTable
{mso-style-name:”Table Normal”;
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-qformat:yes;
mso-style-parent:””;
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin-top:0cm;
mso-para-margin-right:0cm;
mso-para-margin-bottom:10.0pt;
mso-para-margin-left:0cm;
line-height:115%;
mso-pagination:widow-orphan;
font-size:11.0pt;
font-family:”Calibri”,”sans-serif”;
mso-ascii-font-family:Calibri;
mso-ascii-theme-font:minor-latin;
mso-fareast-font-family:”Times New Roman”;
mso-fareast-theme-font:minor-fareast;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;
mso-bidi-font-family:”Times New Roman”;
mso-bidi-theme-font:minor-bidi;}

Private Sub Command1_Click()

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

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

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

End If

End Sub

Script 2

Normal
0

false
false
false

EN-US
X-NONE
X-NONE

/* Style Definitions */
table.MsoNormalTable
{mso-style-name:”Table Normal”;
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-qformat:yes;
mso-style-parent:””;
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin-top:0cm;
mso-para-margin-right:0cm;
mso-para-margin-bottom:10.0pt;
mso-para-margin-left:0cm;
line-height:115%;
mso-pagination:widow-orphan;
font-size:11.0pt;
font-family:”Calibri”,”sans-serif”;
mso-ascii-font-family:Calibri;
mso-ascii-theme-font:minor-latin;
mso-fareast-font-family:”Times New Roman”;
mso-fareast-theme-font:minor-fareast;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;
mso-bidi-font-family:”Times New Roman”;
mso-bidi-theme-font:minor-bidi;}

Private Sub Command1_Click()

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

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

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

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

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

End If

End Sub

Script 3

Normal
0

false
false
false

EN-US
X-NONE
X-NONE

/* Style Definitions */
table.MsoNormalTable
{mso-style-name:”Table Normal”;
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-qformat:yes;
mso-style-parent:””;
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin-top:0cm;
mso-para-margin-right:0cm;
mso-para-margin-bottom:10.0pt;
mso-para-margin-left:0cm;
line-height:115%;
mso-pagination:widow-orphan;
font-size:11.0pt;
font-family:”Calibri”,”sans-serif”;
mso-ascii-font-family:Calibri;
mso-ascii-theme-font:minor-latin;
mso-fareast-font-family:”Times New Roman”;
mso-fareast-theme-font:minor-fareast;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;
mso-bidi-font-family:”Times New Roman”;
mso-bidi-theme-font:minor-bidi;}

Private Sub Command1_Click()

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

Text5.Text = Val(Text4.Text) * 0.1

Text6.Text = Val(Text4.Text) – Val(Text5.Text)

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text3.SetFocus

End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

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

Text5.Text = Val(Text4.Text) * 0.1

Text6.Text = Val(Text4.Text) – Val(Text5.Text)

End If

End Sub

Private Sub Text4_Change()

End Sub

Script 4

Normal
0

false
false
false

EN-US
X-NONE
X-NONE

/* Style Definitions */
table.MsoNormalTable
{mso-style-name:”Table Normal”;
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-qformat:yes;
mso-style-parent:””;
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin-top:0cm;
mso-para-margin-right:0cm;
mso-para-margin-bottom:10.0pt;
mso-para-margin-left:0cm;
line-height:115%;
mso-pagination:widow-orphan;
font-size:11.0pt;
font-family:”Calibri”,”sans-serif”;
mso-ascii-font-family:Calibri;
mso-ascii-theme-font:minor-latin;
mso-fareast-font-family:”Times New Roman”;
mso-fareast-theme-font:minor-fareast;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;
mso-bidi-font-family:”Times New Roman”;
mso-bidi-theme-font:minor-bidi;}

Private Sub Command1_Click()

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

End Sub

Private Sub Command2_Click()

Text4.Text = Val(Text1.Text) – Val(Text2.Text)

End Sub

Private Sub Command3_Click()

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

End Sub

Private Sub Command4_Click()

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

End Sub

Private Sub Command5_Click()

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

Text4.Text = Val(Text1.Text) – Val(Text2.Text)

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

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

End Sub

Private Sub Command6_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

End Sub

Private Sub Command7_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

End Sub

Private Sub Command8_Click()

Unload Me

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

Categories Uncategorized

PROGRAM VISUAL BASIC 1

March 6, 2013 //

Private Sub KELUAR_Click()

ANLOAD Me

End Sub

Private Sub LAGI_Click()

NPM.SetFocus

NPM = “”

NAMA = “”

ALAMAT = “”

End Sub

Private Sub NAMA_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

ALAMAT.SetFocus

End If

End Sub

Private Sub NPM_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

NAMA.SetFocus

End If

End Sub

Private Sub BATAL_Click()

NPM.SetFocus

NPM = “”

NAMA = “”

ALAMAT = “”

End Sub

Categories Uncategorized

Belanjakan Uang Palsu, Mustakim Dituntut 2,5 Tahun Penjara

March 5, 2013 //

Laporan Wartawan Tribun Lampung Hanafi Sampurna

TRIBUNLAMPUNG.co.id – Mustakim (27) warga Desa Tanjungsari, Kabupaten Mesuji terdakwa pengedar uang palsu sebanyak Rp 4,1 juta dituntut 2,5 tahun penjara.

Jaksa penuntut umum (JPU) Puji Rahayu pada sidang di Pengadilan Negeri Tanjungkarang, Senin (18/2) mengatakan Mustakim terbukti melakukan tindak pidana menyimpan rupiah palsu. Atas perbuatanya Mustakim terbukti melanggar Pasal 36 ayat 2 UU 7/2011 tentang Mata Uang.

Selain Mustakim juga dituntut membayar denda Rp 10 juta subsider tiga bulan penjara.

” Meminta majelis hakim untuk menjatuhkan pidana penjara kepada terdakwa Musatkim selama dua tahun dan enam bulan serta denda Rp 10 juta subsider tiga bulan penjara,” ujar JPU Puji Rahayu.

Terungkap dalam persidangan Mustakim membelanjakan uang palsu pecahan Rp 100 ribu tersebut dengan membeli satu bungkus rokok di warung milik Edison. Dengan membeli rokok tersebut, Mustakim berharap mendapatkan uang asli. Namun nasib sial menimpa Mustakim, karena sang pemilik warung ternyata curiga dengan uangnya Mustakim. (hanafi sampurna).

Editor : soni

Akses lampung.tribunnews.com lewat perangkat mobile anda melalui alamat lampung.tribunnews.com/m

http://lampung.tribunnews.com/2013/02/18/belanjakan-uang-palsu-mustakim-dituntut-25-tahun-penjara

Categories Uncategorized

Gara-gara Sabu Charlie Dituntut Lima Tahun Penjara

March 5, 2013 //

Laporan Wartawan Tribun Lampung, Hanafi Sampurna

TRIBUNLAMPUNG.co.id – Charlie Adinda (22) dituntut lima tahun penjara karena terbukti menyimpan satu paket kecil sabu-sabu seberat 0,08 gram.

Jaksa penuntut umum (JPU) Tri Wahyu pada sidang di Pengadilan Negeri Tanjungkarang, Selasa (5/3/2013) menyatakan Charlie Adinda terbukti menyimpan, mengusai narkotika golongan I bukan tanaman.

Atas perbuatannya, Charlie Adinda yang merupakan warga Jalan Bumi Manti I, Kedaton, Bandar Lampung tersebut terbukti melanggar pasal 112 ayat 1 UU 235/2009 tentang Narkotika.

Selain itu Charlie Adinda juga dituntut membayar denda Rp 800 juta subsider dua bulan penjara.

“Meminta majelis hakim yang menyidangkan perkara ini untuk menjatuhkan pidana penjara selama lima tahun dengan dikurangi masa tahanan yang telah dijalani dan denda Rp 800 juta subsider dua bulan penjara,” ujar JPU Tri Wahyu.

Dalam pertimbangannya JPU menyatakan hal yang memberatkan perbuatan terdakwa tidak mendukung program pemberantasan narkotika. Sedangkan yang meringankan terdakwa mengakui dan menyesali perbuatannya serta belum pernah dihukum. (hanafi sampurna).

Laporan Wartawan Tribun Lampung, Hanafi Sampurna

TRIBUNLAMPUNG.co.id – Charlie Adinda (22) dituntut lima tahun penjara karena terbukti menyimpan satu paket kecil sabu-sabu seberat 0,08 gram.

Jaksa penuntut umum (JPU) Tri Wahyu pada sidang di Pengadilan Negeri Tanjungkarang, Selasa (5/3/2013) menyatakan Charlie Adinda terbukti menyimpan, mengusai narkotika golongan I bukan tanaman.

Atas perbuatannya, Charlie Adinda yang merupakan warga Jalan Bumi Manti I, Kedaton, Bandar Lampung tersebut terbukti melanggar pasal 112 ayat 1 UU 235/2009 tentang Narkotika.

Selain itu Charlie Adinda juga dituntut membayar denda Rp 800 juta subsider dua bulan penjara.

Categories Uncategorized

Belajar Empat Jam Per Hari Bawa Al Kautsar Jawara LCC MPR RI 2013

March 5, 2013 //

BANDAR LAMPUNG, TRIBUN – Berakit rakit kehulu berenang-renang ketepian bersakit sakit dahulu baru kemenangan pun datang. Pepatah ini sangat pantas diberikan kepada kelompok lomba cerdas cermat (LCC) SMA AL Kautsar Bandar Lampung. Pasalnya pada tahun ini SMA AL Kautsar mampu meraih juara pertama pada LCC Majelis Permusyawaratan Rakyat Republik Indonesia (MPR RI) empat pilar kebangsaaan yang diadakan MPR RI.

.Sekolah yang berwawasan islami yang terletak di samping Universitas Lampung ini berhasil mengalahkan 18 SMA seluruh Lampung,.SMA Al Kautsar memiliki cara tersendiri untuk bisa meraih juara pertama pada LCC MPR RI empat pilar kebangsaan pada minggu lalu.

Cara yang dilakukan oleh sekolah yakni dengan cara belajar terus menerus tepatnya setiap pulang sekolah hingga empat jam lamanya. Dari 10 orang siswa yang dikutkan dalam LCC tersebut sekolah memilih siswa yang berkompeten di bidang mata pelajaran pendidikan kewarganearaan.

Terpilihnya 10 siswa tersebut berasal dari seluruh kelas 11, kemudian dengan pilihan sekolah akhirnya para 10 siswa tersebut terpilih dalam satu tim. Terpilihnya 10 siswa tersebut juga berdasarkan dari pengamatan sekolah, bagus atau tidak nilainya dalam pendidikan kewarganegaraan.

“Penyaringan siswa yang ingin mengikuti LCC tersebut sangat ketat, sekolah juga memiliki cara tersendiri untuk bisa masuk dalam tim. Apalagi pada satu minggu sebelum perlombaan para siswa sengaja diberikan dispensasi untuk liki cara mempersiapkan diri berlomba,” ujar Kepala SMA Al Kautsar Joko Santoso saat ditemui Tribun Lampug diruang kerjanya, Selasa (5/3).

http://lampung.tribunnews.com/2013/03/05/belajar-empat-jam-per-hari-bawa-al-kautsar-jawara-lcc-mpr-ri-2013

Categories Uncategorized