Pemain dan karakternya :
# Kim Soo Ro sebagai Kang Suk Ho
Adalah pengacara biasa yang baik dan berwibawa. Dia buka praktek disebuah tempat seperti ruko yang mana tempat tersebut dia relakan untuk dijual demi menembus tempat tinggal Hwang Baek Hyun. Dia juga suka membantu rakyat kecil tanpa dimintai bayarin. Boleh dibilang lelaki ini adalah superhero bagi orang-orang. Dia adalah lelaki yang tidak pernah takut apapun dan serba bisa, dan kalaupun gagal dia selalu terima konsekuensinya. Wajar saja kalau KepSek Jang Mari sampai suka sama dia .. hihihi. Masa Remaja Kang Suk Ho tidak jauh beda dengan Hwang Baek Hyun, sampai bertemu dengan guru yang perhatian dengan hidupnya, sehingga dia bersungguh-sungguh belajar hingga menjadi pengacara.
# Bae Doo Na sebagai Han Soo Jung (asisten Pengacara Kang / guru bahasa inggris)
Adalah guru yang baik, lemah lembut dan keibuan. Saya malah berpikir dia lebih cocok menjadi guru BP daripada guru bahasa inggris ^^. Di awal drama ini pun dia tidak diperbolehkan ngajar oleh pengacara Kang, karena cara ngajarnya yang membuat siswa mengantuk Tetapi guru ini benar-benar baik banget, saya berharap andai bisa bertemu guru yang seperti ini..
# Oh Yoon Ah sebagai Jang Ma Ri (Kepala Sekolah)
Baru kali ini ada KepSek yang keren dan cantik kayak seorang model, yaitu Jang Ma Ri. Karena mewarisi pekerjaan ayahnya dia terpaksa jadi KepSek. Dia sebenarnya baik, mungkin juga karena orang kaya jadi kurang bersosialisasi sehingga sifatnya agak sedikit egois, tetapi sejak bergabung dengan kelas khusus dia menjadi guru yang manis ^^.
# Yoo Seung Ho sebagai Hwang Baek Hyun
Adalah pemimpin grup dari ke-5 siswa kelas khusus itu. Sifatnya sangat keras kepala, emosional, kuat, romantis dan pandai berkelahi. Dia adalah seorang anak yatim piatu, ia dibesarkan neneknya dari kecil. Selama ini di seluruh hidupnya, ia tidak memiliki tujuan apa pun selain bekerja untuk mencari uang agar bisa bertahan hidup. Dia sangat mencintai neneknya dan bersedia melakukan apa pun untuknya. Satu lagi, senyumnya manis banget nih anak .. xixixi..
# Go Ah Sung sebagai Gil Pul Ip
Seorang gadis biasa saja, tidak pintar, tidak cantik dan tidak kaya tetapi dia mempunyai hati yang tulus dan jujur sehingga membuat banyak orang menyukainya, selain itu sikapnya juga dewasa dan mandiri. Dia tinggal bersama ibunya yang mengelola cafe kecil. Masalah yang Gil Pul Ip hadapi adalah sikap ibunya yang selalu mendominankan pacarnya padahal paman itu selalu bawa masalah dikeluarganya. Gil Pulip adalah tokoh yang saya suka ^^, klo diliat-liat kadang manis juga.
# Ji Yeon sebagai Na Hyun Jung
Seorang gadis cantik yang kaya raya dan agak manja, selalu mengintil Baek Hyun kemana saja. Dia tidak punya tujuan dalam hidupnya tetapi dia sangat pandai dalam melukis. Dia tinggal sendirian di sebuah apartemen yang mewah, ayah dan ibunya bercerai dan telah mempunyai keluarga baru masing-masing. Na Hyun Jung adalah gadis kesepian, dia sangat menyukai kalau ada orang yang menginap dirumahnya.
# Lee Hyun Woo sebagai Hong Chan Doo
Hong Chan Doo adalah lelaki manis yang tidak pernah belajar karena ia terlalu cinta dengan musik dan berdansa. Ayah dan Ibunya adalah orang kaya yang terpandang. Ayahnya berharap kelak Hong Chan Doo bisa menjadi pekerja kantoran yang sukses seperti dirinya tetapi pada kenyataannya Hong Chan Doo lebih suka berdansa.
# Lee Chan Ho sebagai Oh Bong Goo
Adalah seorang lelaki yang pemalu dan sopan. Dia hidup damai dengan keluarganya yang memiliki sebuah restoran. Dia selalu terbuka di sekitar rumah, tapi ketika dia keluar ke suatu tempat,ia tiba-tiba berubah menjadi orang yang pendiam. Dia suka belajar tetapi suka mengantuk ketika belajar, otaknya pun pas-pasan dibanding temannya dikelas khusus. Mungkin karena terlalu banyak makan daripada belajar :p. DiEndingnya pun dia menjadi lebih baik dari temen-temenya.
# Byun Hee Bong sebagai Cha Ki Bong
Guru Matematika yang sangat keras dan disiplin. Guru ini juga guru dari Pengacara Kang waktu SMU dulu.
Minggu, 27 November 2011
Rabu, 23 November 2011
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"
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
Untuk tampilan lebih jelasnya silahkan lihat presentasi di bawah ini.
Langganan:
Postingan (Atom)