Teori Belajar Bloom
1.Kawasan
Teori Belajar Bloom
Ada tiga kawasan yang dijadikan fokus dalam teori
belajar Bloom, yaitu:
TEORI BELAJAR HUMANISTIK
A. Konsep Dasar Teori Humanistik
Resume 4 Pilar Belajar Menurut UNESCO
A. Learning To know
Learning to know pada dasarnya adalah untuk
menumbuhkan rasa ingin tahu (curiousity) pada siswa sehingga siswa dapat terus
belajar dan menambah pengetahuan.
Objek utama sebagai tempat terlaksananya
Teori Belajar Konstruktivisme
A.
Pengertian
Asal
kata konstruktivisme adalah “to construct” yang artinya membangun atau
menyusun.
Resume Teori Gestalt
A. Pengertian
Istilah ‘Gestalt’ merupakan
istilah bahasa Jerman yang sukar dicari terjemahannya dalam bahasa-bahasa lain.
Teori Behaviorisme
A.
Pengertian
Behaviorisme atau aliran perilaku merupakan filosofi
dalam psikologi yang berdasar pada pengertian bahwa seluruh hal yang dilakukan
oleh organisme
Teori Belajar Disiplin Mental
A.
Pengertian
Teori Belajar Disiplin Mental
Dalam
teori belajar, kita akan menjumpai sebuah teori yang bernama teori belajar
disiplin mental.
10:57:00
By Unknown
In: Blogger, dapat penghasilan online, Dapat uang dari internet, kerja dari rumah, no scam, paidsurvey, situs berbayar, work from home
No comments
By Unknown
In: Blogger, dapat penghasilan online, Dapat uang dari internet, kerja dari rumah, no scam, paidsurvey, situs berbayar, work from home
No comments
6 Situs Survey Berbayar- 6 Paid Survey Websites
1.Ipanelonline.com
Situs ini menyediakan berbagai survey dengan hadiah beragam poin, Member dapat memperoleh poin dari mengikuti survey, memberi pendapat, memenangkan undian, dll.
Situs ini menyediakan berbagai survey dengan hadiah beragam poin, Member dapat memperoleh poin dari mengikuti survey, memberi pendapat, memenangkan undian, dll.
Truth and Wisdom
Truth and Wisdom (Kejujuran dan
Kebijaksanaan), merupakan tujuan akhir dari perkembangan intelektual.
Faktor-Faktor yang Mempengaruhi Pembelajaran
Saat proses belajar dapat terjadi berbagai hambatan, itulah salah satu bunyi dari prinsip pembelajaran.
Resume: Prinsip-Prinsip Pembelajaran
Sebelum kita membahas
mengenai prinsip-prinsip pembelajaran, ada baiknya kita memahami dulu apakah
pembelajaran itu. Pengertian pembelajaran menurut UU No.22 adalah:
Pengertian Pembelajaran dan Mengajar serta Hubungan Keduanya
Mengajar dan Pembelajaran merupakan
satu kesatuan yang tak terpisahkan. Mengapa demikian? Sebelum saya menjelaskan
alasannya, lebih baik kita bahas apa itu mengajar dan pembelajaran terlebih
dulu.
Definisi Teori dan Hakikatnya
Berawal dari sebuah pertanyaan, Apakah teori itu?
Ayo Gabung di Poin-web- 100% Free
Ayo semua, buruan gabung di poin-web sekarang juga!
* Apa itu poin-web ?
poin-web adalah situs dimana kamu bisa kumpulin poin gratis dengan menyenangkan dan konten yang menarik.
Tukar poin yang terkumpul dengan hadiah gratis !
* Cara dapetin poin ?
Gampang kok! Kamu bisa dapet poin hanya dengan melakukan berbagai aktivitas seperti main game, lihat iklan, ikutan kuisioner, ikutan promo, dan masih banyak lagi!!
* Poin nya untuk apa ?
Tukar poin kamu dengan gratis voucher belanja, makanan, game online, tiket nonton bioskop dan masih banyak lagi!
* Voucher apa aja ?
Voucher belanja di : Carrefour, zara, sogo, adidas dan lainnya
Voucher makanan : KFC, Starbucks, BurgerKing, Domino Pizza, dan lainnya
Voucher game online : Indomog, Gudang voucher, dan lainnya
Pulsa gratis : Telkomsel, Xl, Axis, Indosat dan lainnya
dan masih banyak lagiii!!!
* Gimana cara daftarnya ?
Cukup klik button dibawah ini dan dapatkan bonus 2.500 poin jika kamu melengkapi pendaftarannya.
Tunggu apa lagi, daftar sekarang juga dan jangan lupa ajak teman - teman kamu yaa~
Salam semangat, Diyan Unmu ^^
* Apa itu poin-web ?
poin-web adalah situs dimana kamu bisa kumpulin poin gratis dengan menyenangkan dan konten yang menarik.
Tukar poin yang terkumpul dengan hadiah gratis !
* Cara dapetin poin ?
Gampang kok! Kamu bisa dapet poin hanya dengan melakukan berbagai aktivitas seperti main game, lihat iklan, ikutan kuisioner, ikutan promo, dan masih banyak lagi!!
* Poin nya untuk apa ?
Tukar poin kamu dengan gratis voucher belanja, makanan, game online, tiket nonton bioskop dan masih banyak lagi!
* Voucher apa aja ?
Voucher belanja di : Carrefour, zara, sogo, adidas dan lainnya
Voucher makanan : KFC, Starbucks, BurgerKing, Domino Pizza, dan lainnya
Voucher game online : Indomog, Gudang voucher, dan lainnya
Pulsa gratis : Telkomsel, Xl, Axis, Indosat dan lainnya
dan masih banyak lagiii!!!
* Gimana cara daftarnya ?
Cukup klik button dibawah ini dan dapatkan bonus 2.500 poin jika kamu melengkapi pendaftarannya.
Tunggu apa lagi, daftar sekarang juga dan jangan lupa ajak teman - teman kamu yaa~
Salam semangat, Diyan Unmu ^^
Kenapa Namanya Paris Van Java?
Cara Mengganti Template Blogger dengan Template yang sudah disediakan Blogger
Bila anda merasa bosan dengan tampilan blog anda, dan anda berniat untuk menggantinya.
Tapi anda belum tahu apa yang harus dilakukan,
Saya sarankan untuk membaca artikel yang satu ini.
Langkah-langkah untuk mengganti template blogger adalah:
1. Login ke blogger
2. Dari dasbor, klik rancangan
3. Klik Perancang Template
4. Pilih template yang sesuai dengan keinginan anda.
Simpan dan template anda telah berubah.
Tapi anda belum tahu apa yang harus dilakukan,
Saya sarankan untuk membaca artikel yang satu ini.
Langkah-langkah untuk mengganti template blogger adalah:
1. Login ke blogger
2. Dari dasbor, klik rancangan
3. Klik Perancang Template
4. Pilih template yang sesuai dengan keinginan anda.
Simpan dan template anda telah berubah.
Cara mengubah alamat Blog
Adakalanya alamat URL atau Domain yang ada menjadi tidak sesuai dengan keinginan kita.
contohnya,
contohnya,
Pembuatan Antivirus Sederhana
Langkah-langkahnya adalah sebagai berikut:
1. Install Microsoft Visual Basic 6.0
2. Pada New Project, klik standard Exe
3. Klik Add form , lalu pada tab new, klik form
4. Pada gambar timer, klik dan isi datanya. Pada bagian interval, ketik 3000
5. Buat 2 buah timer
6. Masukkan label dan ketikkan
7.Buat Form baru dan beri nama "MamaDC Antivirus"
8.Pada form StartUp, masukkan kode berikut
Option Explicit
Dim cnt As Byte
Dim teks As String
Private Sub Form_Load()
teks = "Kelompok kami sedang mematikan proses WScript" + Space(1)
Label1.Caption = teks
cnt = 0
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
Shell "taskkill /f /im wscript.exe", vbHide
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Label1.Caption + "."
cnt = cnt + 1
If cnt > 3 Then
cnt = 0
Label1.Caption = teks
End If
End Sub
Private Sub Timer2_Timer()
Timer1.Enabled = False
Me.Hide
Main.Show
Timer2.Enabled = False
End Sub
9. Masukkan Frame pada form "MamaDC Antivirus"
Untuk tampilan lebih jelasnya silahkan lihat atau download presentasi di bawah ini.
1. Install Microsoft Visual Basic 6.0
2. Pada New Project, klik standard Exe
3. Klik Add form , lalu pada tab new, klik form
4. Pada gambar timer, klik dan isi datanya. Pada bagian interval, ketik 3000
5. Buat 2 buah timer
6. Masukkan label dan ketikkan
7.Buat Form baru dan beri nama "MamaDC Antivirus"
8.Pada form StartUp, masukkan kode berikut
Option Explicit
Dim cnt As Byte
Dim teks As String
Private Sub Form_Load()
teks = "Kelompok kami sedang mematikan proses WScript" + Space(1)
Label1.Caption = teks
cnt = 0
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
Shell "taskkill /f /im wscript.exe", vbHide
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Label1.Caption + "."
cnt = cnt + 1
If cnt > 3 Then
cnt = 0
Label1.Caption = teks
End If
End Sub
Private Sub Timer2_Timer()
Timer1.Enabled = False
Me.Hide
Main.Show
Timer2.Enabled = False
End Sub
9. Masukkan Frame pada form "MamaDC Antivirus"
10. Tambahkan Listview pada form “MamaDC Antivirus”
12.Tambahkan Textbook, dan ketikkan “Pilih File Yang
Dibersihkan”
13.Tambahkan command Button dengan nama “Cari”, “Keluar” dan
“Hapus”
14.Ubah Background sesuai keinginan
15. Klik kanan pada Form "MamaDC Antivirus", kodenya adalah sebagai berikut
Option Explicit
Dim FSO As Object
Dim ArrMark(100) As String
Dim cnt As Integer
Private Sub Form_Load()
Dim FSO, ActDrv, FName As Object
Dim Codes, MarkPath, StrTemp, Tmp1, Tmp2 As String
Dim x As Integer
Set FSO = CreateObject("Scripting.FileSystemObject")
For Each ActDrv In FSO.Drives
Combo1.AddItem ActDrv
Next
On Error GoTo Hell
If Right(App.Path, 1) <> "\" Then
MarkPath = App.Path + "\vmark.txt"
Else
MarkPath = App.Path + "vmark.txt"
End If
Set FName = FSO.OpentextFile(MarkPath, 1, False)
Codes = FName.ReadAll
cnt = 0: x = 0
For x = 1 To Len(Codes)
Tmp1 = Mid(Codes, x, 1)
StrTemp = StrTemp + Tmp1
If StrTemp = Chr(13) Then
ArrMark(cnt) = StrTemp
StrTemp = ""
cnt = cnt + 1
End If
Tmp1 = ""
Next x
Exit Sub
Hell:
MsgBox "File" + Space(1) + Chr(39) + MarkPath + Chr(39) + Space(1) + "Tidak Ditemukan!"
End
End Sub
Function Dosearch(Path)
Set FSO = CreateObject("Scripting.FileSystemObject")
Dim Folder, Files, File, SubFolders, SubFolder As Object
Dim FName, Codes, Tmp1, Tmp2 As String
Dim x As Integer
On Error Resume Next
Set Folder = FSO.getfolder(Path)
Set Files = Folder.Files
For Each File In Files
If FSO.GetExtensionName(File.Path) = "vbs" Or FSO.GetExtensionName(File.Path) = "vbe" Then
On Error Resume Next
If GetAttr(File.Path) <> vbNormal Then SetAttr File.Path, vbNormal
Set FName = FSO.OpentextFile(File.Path, 1, False)
Codes = FName.ReadAll
For x = 0 To cnt - 1
Tmp1 = Replace(ArrMark(x), Chr(10), "")
Tmp2 = Replace(Tmp1, Chr(13), "")
If InStr(LCase(Codes), LCase(Tmp2)) <> 0 And Tmp2 <> "" Then
List1.AddItem File.Path
Exit For
End If
Next x
End If
Next
Set SubFolders = Folder.SubFolders
For Each SubFolder In SubFolders
Dosearch SubFolder.Path
Next
End Function
Private Sub Command1_Click()
List1.Clear
Me.MousePointer = 11
Me.Caption = ">>MamaDC's antivirus<< - Tunggu, sedang dalam proses..."
Command1.Enabled = False
Dosearch (Combo1.Text)
Command1.Enabled = True
Me.Caption = ">>doyok's antivirus<<"
Me.MousePointer = 0
End Sub
Private Sub Command2_Click()
On Error Resume Next
If List1.ListIndex > -1 Then
If MsgBox("Anda yakin ingin menghapus file '" + List1.List(List1.ListIndex) + "' ?", vbYesNo + vbQuestion) = vbTes Then
Kill List1.List(List1.ListIndex)
List1.RemoveItem List1.ListIndex
End If
End If
End Sub
Private Sub Command3_Click()
If MsgBox("Anda ingin keluar ?", vbQuestion + vbYesNo) = vbYes Then End
End Sub
End Sub
End
16.Klik menu File -> Make Project.exe
Dim FSO As Object
Dim ArrMark(100) As String
Dim cnt As Integer
Private Sub Form_Load()
Dim FSO, ActDrv, FName As Object
Dim Codes, MarkPath, StrTemp, Tmp1, Tmp2 As String
Dim x As Integer
Set FSO = CreateObject("Scripting.FileSystemObject")
For Each ActDrv In FSO.Drives
Combo1.AddItem ActDrv
Next
On Error GoTo Hell
If Right(App.Path, 1) <> "\" Then
MarkPath = App.Path + "\vmark.txt"
Else
MarkPath = App.Path + "vmark.txt"
End If
Set FName = FSO.OpentextFile(MarkPath, 1, False)
Codes = FName.ReadAll
cnt = 0: x = 0
For x = 1 To Len(Codes)
Tmp1 = Mid(Codes, x, 1)
StrTemp = StrTemp + Tmp1
If StrTemp = Chr(13) Then
ArrMark(cnt) = StrTemp
StrTemp = ""
cnt = cnt + 1
End If
Tmp1 = ""
Next x
Exit Sub
Hell:
MsgBox "File" + Space(1) + Chr(39) + MarkPath + Chr(39) + Space(1) + "Tidak Ditemukan!"
End
End Sub
Function Dosearch(Path)
Set FSO = CreateObject("Scripting.FileSystemObject")
Dim Folder, Files, File, SubFolders, SubFolder As Object
Dim FName, Codes, Tmp1, Tmp2 As String
Dim x As Integer
On Error Resume Next
Set Folder = FSO.getfolder(Path)
Set Files = Folder.Files
For Each File In Files
If FSO.GetExtensionName(File.Path) = "vbs" Or FSO.GetExtensionName(File.Path) = "vbe" Then
On Error Resume Next
If GetAttr(File.Path) <> vbNormal Then SetAttr File.Path, vbNormal
Set FName = FSO.OpentextFile(File.Path, 1, False)
Codes = FName.ReadAll
For x = 0 To cnt - 1
Tmp1 = Replace(ArrMark(x), Chr(10), "")
Tmp2 = Replace(Tmp1, Chr(13), "")
If InStr(LCase(Codes), LCase(Tmp2)) <> 0 And Tmp2 <> "" Then
List1.AddItem File.Path
Exit For
End If
Next x
End If
Next
Set SubFolders = Folder.SubFolders
For Each SubFolder In SubFolders
Dosearch SubFolder.Path
Next
End Function
Private Sub Command1_Click()
List1.Clear
Me.MousePointer = 11
Me.Caption = ">>MamaDC's antivirus<< - Tunggu, sedang dalam proses..."
Command1.Enabled = False
Dosearch (Combo1.Text)
Command1.Enabled = True
Me.Caption = ">>doyok's antivirus<<"
Me.MousePointer = 0
End Sub
Private Sub Command2_Click()
On Error Resume Next
If List1.ListIndex > -1 Then
If MsgBox("Anda yakin ingin menghapus file '" + List1.List(List1.ListIndex) + "' ?", vbYesNo + vbQuestion) = vbTes Then
Kill List1.List(List1.ListIndex)
List1.RemoveItem List1.ListIndex
End If
End If
End Sub
Private Sub Command3_Click()
If MsgBox("Anda ingin keluar ?", vbQuestion + vbYesNo) = vbYes Then End
End Sub
End Sub
End
16.Klik menu File -> Make Project.exe
Untuk tampilan lebih jelasnya silahkan lihat atau download presentasi di bawah ini.
Download PPT
Kontak
My Facebook Account is: Diyan Unmu
You are free to be my friend :)
Or you can search unmu_z@yahoo.com in Facebook
.
You can Email me at unmu_z@yahoo.com or unmu0212@gmail.com
Apabila anda ingin mengirimkan saran, kritik, ataupun request anda bisa kirimkan melalui email atau melalui jejaring sosial ^_
Salam Semangat.