CARA BELAJAR YANG BAIK

Untuk menuju sukses di masa depan, para pelajar berlomba-lomba belajar untuk mendapatkan nilai yang baik di sekolah. Sesuai dengan pepatah “Belajar Merupakan Kunci Keberhasilan”. Belajar adalah memahami, merasakan, mengetahui, mencari, menjelaskan, sehingga dengan belajar orang akan mengetahui segala yang belum diketahui.

Belajar pada umumnya dilakukan pada saat jam pelajaran sekolah. Namun, untuk mendapatkan cara belajar yang efektif, belajar dibutuhkan waktu yang banyak. Tidak di jam sekolah saja, belajar wajib dilakukan saat dirumah. Belajar yang sukses tergantung dengan cara belajar masing-masing orang, setiap orang memiliki cara belajar yang berbeda. Namun, sebagian orang memiliki cara kerja otak yang sama, sehingga cara belajarnyapun sama. Berikut beberapa tips cara belajar yang baik.

  1. Niatkan dalam diri, berikan motovasi belajar terlebih dahulu. Yakin dan berikan semangat dalam hati. Bahwa, dengan belajar kita dapat mendapatkan nilai yang baik di sekolah.
  2. Mulai belajar dengan membaca terlebih dahulu. Setelah membaca, buat resume dari buku yang Anda baca. Membaca sambil menulis meningkatkan kinerja ingatan pada otak Anda.
  3. Jika ada yang tidak dimengerti, jangan malu untuk bertnya. Dan jangan malu untuk menjawab pertanyaan dari orang lain. Belajar dari pertanyaan orang lain menambah pengetahuan Anda.
  4. Hindari dari perbuatan mencontek. Kerjakan ujian dengan jawaban sendiri. Dengan begitu, Anda akan tahu, sisi mana yang belum diketahui, dan sisi mana yang harus dipelajari.
  5. Belajar yang terlalu serius juga tidak baik untuk otak, beri jenjang waktu belajar dan refreshing. Bisa juga dilakukan dengan belajar kelompok, belajar kelompok menjadi alternative belajar yang efisien. Jika tidak ada yang dimengerti, Anda bisa bertanya langsung kepada teman belajar kelompok Anda.
  6. Buat perencanaan waktu belajar yang baik. Misalnya, jika Anda bersekolah dari jam 7 sampai dengan jam 2 siang, berikan waktu 2 jam pada jam 7 malam sampai dengan jam 9 untuk mengulang pelajaran di sekolah.
  7. Belajarlah dengan tekun, berlatih terus dengan berbagai soal pelajaran di sekolah.

Ke 7 tips diatas tidak akan berarti jika Anda sendiri tidak memiliki motivasi untuk belajar, tingkatkan motivasi belajar Anda, lalu ikuti tips belajar efektif diatas, Barengi belajar dengan doa yang tulus kepada Tuhan, agar diberikan hasil yang maksimal, semoga sukses.

Sumber: http://pusatremaja.com

Iklan

pemrograman (program 11_PT PULANG PETANG SETIAP HARI)

12

Private Sub cmdbatal_Click()
txtgol = “”
txtks = “”
txts = “”
txtt = “”
txtj = “”
txtb = “”
txtgapok = “”
txttun = “”
txttg = “”
txtnik = “”
txtnama = “”
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtgol = “”
txtks = “”
txts = “”
txtt = “”
txtj = “”
txtb = “”
txtgapok = “”
txttun = “”
txttg = “”
txtnik = “”
txtnama = “”
End Sub

Private Sub cmdproses_Click()
Dim S As String
S = Right(txtnik, 3)
If S = “KEU” Then
txtb = “ACCOUNTING”
ElseIf S = “ADM” Then
txtb = “ADMINISTRASI”
ElseIf S = “SDM” Then
txtb = “GENERAL AFFAIR”
ElseIf S = “EDP” Then
txtb = “IT UNIT”
ElseIf S = “SPM” Then
txtb = “SECURITY”
End If
txtt = Left(txtnik, 4)
S = Mid(txtnik, 5, 1)
If S = “A” Then
txtj = “MANAGER”
txtgapok = “4000000”
txttun = ” 1025000″
ElseIf S = “B” Then
txtj = “Ka. SEKSI”
txtgapok = “3500000”
txttun = ” 975000″
ElseIf S = “C” Then
txtj = “STAFF”
txtgapok = “3000000”
txttun = ” 925000″
End If
S = Mid(txtnik, 7, 1)
If S = “S” Then
txts = “SINGLE”
ElseIf S = “M” Then
txts = “MENIKAH”
ElseIf S = “J” Then
txts = “JANDA”
ElseIf S = “D” Then
txts = “DUDA”
End If
txtgol = Mid(txtnik, 5, 1)
txtks = Mid(txtnik, 7, 1)
txttg = Val(txtgapok) + Val(txttun)
End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnik.SetFocus
End If
End Sub

pemrograman (program 10_ penjualan laptop Asus dan Apple)

11
Private Sub cbokl_Click()
Dim S As String
Select Case cbokl.Text
Case “ASUS A43SA”
merk = “Asus A43SA-VX090D”
harga = “5500000”
Case “ASUS A43SD”
merk = “ASUS A43SD – VX052D”
harga = “4500000”
Case “ASUS A43SJ”
merk = “ASUS A43SJ – VX792D”
harga = “4300000”
Case “ASUS A43TA”
merk = “ASUS A43TA – VX034D”
harga = “4900000”
Case “ASUS N43SL”
merk = “ASUS N43SL – VX264D”
harga = “4300000”
Case “APPLE MD311”
merk = “Apple MacBook Pro MD311”
harga = “19300000”
Case “APPLE MD313”
merk = “Apple MacBook Pro MD313”
harga = “24200000”
Case “APPLE MD314”
merk = “Apple MacBook Pro MD314”
harga = “11900000”
Case “APPLE MD322”
merk = “Apple MacBook Pro MD322”
harga = “14700000”
Case “APPLE MC965”
merk = “Apple MacBook Air MC965”
harga = “21300000”
End Select
txtmerk = merk
txths = harga
txtjj.SetFocus
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
cbokl = “”
txtmerk = “”
txths = “”
txtjj = “”
txthp = “”
txtd = “”
txttb = “”
End Sub

Private Sub cmdproses_Click()
txthp = Val(txths) * Val(txtjj)
If Val(txthp) > 140000000 Then
txtd = txthp * 0.15
txttb = txthp – txtd
ElseIf Val(txthp) > 135000000 Then
txtd = txthp * 0.1
txttb = txthp – txtd
ElseIf Val(txthp) > 130000000 Then
txtd = txthp * 0.05
txttb = txthp – txtd
ElseIf Val(txthp) > 125000000 Then
txtd = txthp * 0.02
txttb = txthp – txtd
End If
End Sub

Private Sub Form_Load()
cbokl.AddItem “ASUS A43SA”
cbokl.AddItem “ASUS A43SD”
cbokl.AddItem “ASUS A43SJ”
cbokl.AddItem “ASUS A43TA”
cbokl.AddItem “ASUS N43SL”
cbokl.AddItem “APPLE MD311”
cbokl.AddItem “APPLE MD313”
cbokl.AddItem “APPLE MD314”
cbokl.AddItem “APPLE MD322”
cbokl.AddItem “APPLE MC965”
End Sub

PEMROGRAMAN (program 9_data buku STMIK PSW kode buku tengah)

9

Private Sub cmdbtl_Click()
txtkb = “”
txtjb = “”
txtp = “”
txttahun = “”
txtpenerbit = “”
txthg = “”
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlg_Click()
txtkb = “”
txtjb = “”
txtp = “”
txttahun = “”
txtpenerbit = “”
txthg = “”
End Sub

Private Sub cmdproses_Click()
Dim JB, P, HG As String
txttahun = “20” & Right(txtkb, 2)
S = Mid(txtkb, 3, 3)
If S = “SIM” Then
JB = “Sistem Informasi Manajemen”
P = “Andra Setiawan”
HG = “75900”
ElseIf S = “EDP” Then
JB = “ELEKTRONIK DATA PROCESSING”
P = “DESI ISTIQOMAH”
HG = “62000”
ElseIf S = “MNJ” Then
JB = “Manajemen”
P = “SANDI FITRAJAYA”
HG = “42000”
ElseIf S = “CDR” Then
JB = “Corel Draw”
P = “Tri Indah Sari”
HG = “53000”
ElseIf S = “RPL” Then
JB = “Rekayasa Perangkat Lunak”
P = “Ernita Sari”
HG = “83000”
End If
txtjb = JB
txtp = P
txthg = HG
S = Left(txtkb, 1)
If S = “A” Then
PENER = “ANDI OFFSET YOGYAKARTA”
ElseIf S = “I” Then
PENER = “INDAH SURABAYA”
ElseIf S = “S” Then
PENER = “SALEMBANG EMPAT”
ElseIf S = “E” Then
PENER = “ELEK MEDIA KOMPUTINDO”
ElseIf S = “M” Then
PENER = “MAXICOM”
End If
txtpenerbit = PENER
End Sub

pemrograman (program 8_uang semester STMIK PSW)

8
Private Sub cmdbtl_Click()
Txtnama = “”
txtnpm = “”
txtk = “”
txtj = “”
txtps = “”
txttm = “”
txtnu = “”
txtup = “”
txtbp = “”
txtub = “”
txtbpa = “”
txttb = “”
End Sub

Private Sub cmdkel_Click()
End
End Sub

Private Sub cmdlg_Click()
Txtnama = “”
txtnpm = “”
txtk = “”
txtj = “”
txtps = “”
txttm = “”
txtnu = “”
txtup = “”
txtbp = “”
txtub = “”
txtbpa = “”
txttb = “”
End Sub

Private Sub Ttxtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If
End Sub

Private Sub cmdpros_Click()
Dim I As String
I = Left(txtnpm, 1)
If I = “E” Then
K = “EKSEKUTIF”
UB = “1250000”
ElseIf I = “R” Then
K = “REGULER”
UB = “1000000”
End If
txtk = K
txtub = UB

I = Mid(txtnpm, 6, 2)
If I = “01” Then
PS = “STRATA SATU”
If K = “REGULER” Then
BPS = “1500000”
Else
BPS = “1900000”
End If
ElseIf I = “02” Then
PS = “DIPLOMA TIGA”
If K = “REGULER” Then
BPS = “1250000”
Else
BPS = “1650000”
End If
ElseIf I = “03” Then
PS = “DIPLOMA SATU”
If K = “REGULER” Then
BPS = “1250000”
Else
BPS = “1350000”
End If
End If
txtbp = BPS
txtk = K
I = Mid(txtnpm, 5, 1)
If I = “1” Then
J = “SISTEM INFORMASI”
ElseIf I = “2” Then
J = “MANAJEMEN INFORMATIKA”
ElseIf I = “3” Then
J = “MANAJEMEN DAN KOMP. AKUNTANSI”
End If
txtj = J
txttm = “20” & Mid(txtnpm, 3, 2)
txtnu = Right(txtnpm, 3)
If PS = “STRATA SATU” Then
UP = “200000”
BPA = “600000”
ElseIf PS = “DIPLOMA TIGA” Then
UP = “150000”
BPA = “600000”
ElseIf PS = “DIPLOMA SATU” Then
UP = “150000”
BPA = “600000”
End If
txtup = UP
txtbpa = BPA
txtps = PS
txttb = Val(txtup) + Val(txtbp) + Val(txtub) + Val(txtbpa)
End Sub

Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If
End Sub

pemrograman (tugas 7_tiket kereta api)

7

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
txtkt = “”
txtht = “”
txtjk = “”
txtjt = “”
txtjb = “”
txttotalp = “”
End Sub

Private Sub cmdproses_Click()
Dim ht, jk, jb As String
C = Left(txtkt, 3)
If C = “BIM” Then
ht = “50000”
jk = “BIMA”
jb = “16:00”
ElseIf C = “EKO” Then
ht = “35000”
jk = “EKONOMI”
jb = “19:00”
ElseIf C = “MUT” Then
ht = “23000”
jk = “MUTIARA”
jb = “17:00”
ElseIf C = “SEN” Then
ht = “15000”
jk = “SENJA”
jb = “20:00”
End If
txtht = ht
txtjk = jk
txtjb = jb
txtjt.SetFocus
End Sub

Private Sub txtjt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotalp = Val(txtht) * Val(txtjt)
End If
End Sub

pemrograman (program 6_data buku STMIK PSW kode depan)

6

Private Sub cmdbatal_Click()
TXTKODE = “”
txtjubuk = “”
txtpengarang = “”
txttt = “”
txtpener = “”
txtharga = “”
End Sub

Private Sub cmdend_Click()
End
End Sub

Private Sub cmdlagi_Click()
TXTKODE = “”
txtjubuk = “”
txtpengarang = “”
txttt = “”
txtpener = “”
txtharga = “”
End Sub

Private Sub cmdproses_Click()
Dim jubuk, peng, harga As String
S = Left(TXTKODE, 3)
If S = “SIM” Then
jubuk = “SISTEM INFORMASI MANAJEMEN”
peng = “FADIYA ULFA”
harga = “75900”
ElseIf S = “EDP” Then
jubuk = “ELEKTRONIK DATA PROCESSING”
peng = “NURUL AGUSTINA”
harga = “62000”
ElseIf S = “MNJ” Then
jubuk = “MANAJEMEN”
peng = “RIAN HIDAYAT”
harga = “42000”
ElseIf S = “CDR” Then
jubuk = “COREL DRAW”
peng = “SITI NUR KHOTIMAH”
harga = “53000”
ElseIf S = “RPL” Then
jubuk = “REKAYASA PERANGKAT LUNAK”
peng = “WINDA ERLIANTI”
harga = “83000”
End If
txtjubuk = jubuk
txtpengarang = peng
txtharga = harga
S = Right(TXTKODE, 1)
If S = “A” Then
PENER = “ANDI OFFSET YOGYAKARTA”
ElseIf S = “I” Then
PENER = “INDAH SURABAYA”
ElseIf S = “S” Then
PENER = “SALEMBANG EMPAT”
ElseIf S = “E” Then
PENER = “ELEK MEDIA KOMPUTINDO”
ElseIf S = “M” Then
PENER = “MAXICOM”
End If
txttt = “20” & Mid(TXTKODE, 5, 2)
txtpener = PENER
End Sub