tapi aku nemuin kalimat, yang mungkin bisa membuatmu sedikit tersenyum

Cinta sejati tidak menyakiti
Cinta sejati tidak mendzalimi
Cinta sejati tidak meninggalkan
Cinta sejati berlandaskan ridho ILLAHI

* u know what I mean

pas uda nyoba instal di hape [Alhamdulillah hapenya support..] tnyt emg beneran sama kyk google earth, cm dia nya versi hape aja.

agak berat jg pas nge-load, tp sec keseluruhan cukup menarik

mau nyobain ta? ini GMaps ny. donlod aj dsitu..

sepertinya cukup berguna buat yang punya kebiasaan nyasar atau pengen nyari shortcut biar lebih cepet nyampe tujuan

kwaen han chil too il geo ra go
nae ka we ro un ka cha shi neul sook yeo bwat ji man
i je teo neun nan kam chul so ka eob neun deul yo

I think I love you
keu reon ka bwa yo
Cause I miss you
keu dae man eob seu myeon

a moo keo do mot ha ko cha goo saeng kak na ko
i reon keol po myeon a moo rae do

I’m falling for you
nan mol rat ji man
Now I need you
eo neu saen ka na mam ki peun ko se
a ju kau ke cha ri ja beun keu dae ei mo seum eul i je
po a yo

u ri an eo ul rin da ko shin ku keu ke tak cho da go
ha na boo teo yeol-gae do dae she mwi han gae ra do mat neun ke eob naun de
eo teo ke sa kwol soo it nya ko
mal do an dwe neun yae ki ra ko mi ha myeo tul reo dat ji man
i je teo neun nan keu reo gi ga si reon geol yo

I think I love you
keu reon ka bwa yo
Cause I miss you
keu dae man eob seu myeon
a moo keo do mot ha ko cha goo saeng kak na ko
i reon keol po myeon a moo rae do

I’m falling for you
nan mol rat ji man
Now I need you
eo neu saen ka na mam ki peun ko se
a ju kau ke cha ri ja beun keu dae ei mo seum eul i je
po a yo

wae mol rat jyo keu dae ra neun keol
wae mot bwat jyo pa ro a pin de oh yea
keu do ngan i reo ke pa ro nae
kyeo te i seot neun ne
wae i je seo ya
sa ra ngi po i neun keon ji

I think I love you
keu reon ka bwa yo
Cause I miss you
keu dae man eob seu myeon
a moo keo do mot ha ko cha goo saeng kak na ko
i reon keol po myeon a moo rae do

I’m falling for you
nan mol rat ji man
Now I need you
eo neu saen ka na mam ki peun ko se
a ju kau ke cha r ja beun keu dae ei mo seum eul i je
po a yo

Uri Danduli its my story
Ddo Neoeui Mami Heumi Nae Nungaeui Nunmuli
Neowaeui Siganeun Neomunado Gileo Neomu Gileo
Ddaddeithan Naeui Mameuro Dolaogil Bileo
the ghetto Neoeui Mami Kkeullineun Daero Neon
Geudaero
Never say goodbye so get up

* If you go away
You will see me cry
Don?t you let me go
baby Don?t you let me down
Neul Hamgge Isseodo Deo Gaggapji Anheun
Eoddeon Euimido Eopsneun Jinbuhan Sarang
Don?t you let me go
baby Don?t you let me down

** You never say goodbye
Handongan Meonghani Udukeoni Anja
Dasi Saenggakhaessjiman
Meomchulsun Eopsgesseo
Ontong Geudae Saenggak
Halsu Bakke Eopsneun Nae Jasini Miuo
Don?t you let me go
baby don?t you let me down

And we the best aint no need to stress
Mario and nasty aint on need to impress
Yo! Neoeui Mamuel Bada Naeui Mameun
Byeonchianha
Heona Mam Teong Binchaero Biuodujin Anha
Call it a fling or a love thing
I don?t care I can handle any drama that you bring
Bam Kkok Seuo Mam Kkok Sarangeuro Chaeuo
with out u im etter no one could do it better
Mario right tight errnight that?s right

I am still in love with you hey
Nae Mameul Jeoldae Ihae Mothandago
I am still in love with you hey
Let me hear you say hey hey hey

Yo check it Niga Nareul Ddeonandago
Ojik Isesange Neoran Yeoja Hanarago
Kkotkkoti Namjadapge Pogihajin Anha
only u Ojikhana only u Ijjinanha
baby 1,2,3,4 I got the mic check

[Repeat * , **]

1,2 baby clap ur hands
Everybody lets go ha ha ha
I want yall ladies clap again
Let me hear u say hey hey hey

Sarangdo Byeonchianha Naeui Meomdo
Byeonchianha
Naeui Kkumeul Irhjin Anha Jeoldae Pogin Eopsda
Ill logic real toxic switch quicker than tiptonic
hetero sexual the kids flow is incredible
Sarangdo Byeonchianha Naeui Meomdo
Byeonchianha
Naeui Kkumeul Irhjin Anha Jeoldae Pogin Eopsda
Yea-

Hhmmm.. karna tema bebas, jadi malah bingung mau bikin apaan. Ide ini muncul saat lagi sayang bgt ama se2org. Uda pede gitu, yakin dah yg mau ama dia seumur hidup. Kepikir tentang sebuah buku tamu buat acara nikahan tar! Buku tamu yang g biasanya, yang g Cuma datang – tanda tangan – udah. G berkesan banget kan? Mana kita tau tuh org beneran dateng ato Cuma nitip absen doang *hihi.. nitip absen?? emgny kuliah??

Akhirnya kuputuskan untuk membuat sebuah “APLIKASI BUKU TAMU MENGGUNAKAN WEBCAM”. Kebetulannya lagi.. laptopku uda dilengkapi ama fasilitas webcam, jadinya y ga perlu ribet nyari pinjeman webcam dsb.

·         Jadi gini gambaran aplikasi secara umumnya :

Aplikasi ini merupakan aplikasi buku tamu menggunakan komputer. Setiap tamu yang datang akan mengisi identitas berupa nama, comment, serta foto yang bisa diambil langsung pada saat itu juga. Pengambilan foto dilakukan dengan menggunakan webcam yang telah terpasang dan terintegrasi pada aplikasi. Data daftar tamu yang hadir bisa dilihat pada daftar foto dalam tampilan thumbnail, yang jika di-klik akan menampilkan data nama serta comment yang telah diinputkan.

·         Fungsi API yang digunakan

1. Fungsi API untuk webcam

-         Public Declare Function capCreateCaptureWindow Lib “avicap32.dll” Alias “capCreateCaptureWindowA” _

(ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long _

, ByVal nHeight As Long, ByVal hwndParent As Long, ByVal nID As Long) As Long

-         Public Declare Function SendMessage Lib “user32″ _

Alias “SendMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long

1. Fungsi API untuk tampilan thumbnail

-         Public Declare Function CopyImage Lib “user32″ (ByVal handle As Long, ByVal imageType As Long, ByVal newWidth As Long, ByVal newHeight As Long, ByVal lFlags As Long) As Long

-         Public Declare Function SetClipboardData Lib “user32″ (ByVal wFormat As Long, ByVal hMem As Long) As Long

-         Public Declare Function EmptyClipboard Lib “user32″ () As Long

-         Public Declare Function CloseClipboard Lib “user32″ () As Long

-         Public Declare Function OpenClipboard Lib “user32″ (ByVal hwnd As Long) As Long

·         Listing Code

Mengoperasikan kamera

1.      Menghidupkan

Private Sub CamOn_Click()

Dim temp As Long

If temp = SendMessage(hCap, WM_CAP_DRIVER_DISCONNECT, 0&, 0&) Then

    hCap = capCreateCaptureWindow(iDevice, WS_CHILD Or WS_VISIBLE, 0, 0, PicWebCam.Width, PicWebCam.Height, PicWebCam.hwnd, 0)

    If hCap <> 0 Then

        Call SendMessage(hCap, WM_CAP_DRIVER_CONNECT, 0, 0)

        Call SendMessage(hCap, WM_CAP_SET_PREVIEWRATE, 66, 0&)

        Call SendMessage(hCap, WM_CAP_SET_PREVIEW, CLng(True), 0&)

    End If

Else

    Call SendMessage(hCap, WM_CAP_DRIVER_CONNECT, 0, 0)

    Call SendMessage(hCap, WM_CAP_SET_PREVIEWRATE, 66, 0&)

    Call SendMessage(hCap, WM_CAP_SET_PREVIEW, CLng(True), 0&)

End If

End Sub

2.      Mematikan

Private Sub CamOff_Click()

Dim temp As Long

    temp = SendMessage(hCap, WM_CAP_DRIVER_DISCONNECT, 0&, 0&)

End Sub

Memasukkan data kedalam database

Private Sub CommSubmit_Click()

Dim photoLocation As String

On Error GoTo ErrHandler

    If TextNameForm.Text = “” Or TextAddress.Text = “” Then

        MsgBox “Please fill your form and take your photo”, vbExclamation, “Required”

        TextNameForm.SetFocus           

        Exit Sub

    Else   

        strTanggal = Format(Now, “yyyymmdd”) & Format(Now, “_HH_MM_ss”)

        photoLocation = “\photo\” & strTanggal & “.bmp”       

        With AdoUser

            AdoUser.RecordSource = “select * From GuestTable”       

            .Refresh

            .Recordset.AddNew

            .Recordset!Name = TextNameForm

            .Recordset!address = TextAddress

            .Recordset!comment = TextComment

            .Recordset!photo = photoLocation

            .Recordset.Update

        End With

    End If   

    uploadImage   

    MsgBox “Your data successfully  saved”, vbInformation, “Message”

    TextNameForm.Text = “”

    TextAddress.Text = “”

    TextComment.Text = “”

    CommSubmit.Enabled = False   

    Exit Sub

ErrHandler:

    MsgBox “Saving failed” & Err.Description, vbExclamation, “Error”    

End Sub

Tampilan Thumbnail

1.      Menampilkan foto dalam bentuk thumbnail

Private Sub Form_Load()

Dim test As String

AdoUser.RecordSource = “select photo From GuestTable”

AdoUser.Refresh

With LV

        .View = lvwIcon

        .Arrange = lvwAutoLeft

        .LabelEdit = lvwManual

        .BorderStyle = ccFixedSingle

        .Appearance = cc3D

        .OLEDragMode = ccOLEDragAutomatic

        .OLEDropMode = ccOLEDropNone

        .HideSelection = True

        .LabelWrap = True

        .Enabled = True

    End With

Do While Not AdoUser.Recordset.EOF

    test = AdoUser.Recordset![photo]

    addMe App.path & test

    AdoUser.Recordset.MoveNext

Loop

End Sub

Public Function addMe(strPath As String)

    Screen.MousePointer = vbHourglass

    ‘copy the image to a desired size

    lngCpyImg = CopyImage(LoadPicture(strPath).handle, IMAGE_BITMAP, 100, 100, LR_COPYRETURNORG)

    ‘open the clipboard

    OpenClipboard Me.hwnd

    ‘empty clipboard

    EmptyClipboard

    ‘assign the copy image to the clipboard

    SetClipboardData CF_BITMAP, lngCpyImg

    ‘close the clipboard

    CloseClipboard

    ‘add the clipboard data to the imagelist

    iList.ListImages.Add , strPath, Clipboard.GetData()

    ‘always set the listview arragement to left

    ‘in some cases you need the thumbnails displayed horizontally

    LV.Arrange = lvwAutoLeft

    If LV.ListItems.Count = 0 Then

        ‘clear the listview

        LV.ListItems.Clear

        ‘set icons to nothing

        Set LV.Icons = Nothing

        ‘assign the imagelist to the listview icons

        Set LV.Icons = iList

    End If

    ‘get the filename

    strfName = StrReverse(strPath)

    strfName = Mid$(strfName, 1, InStr(strfName, “\”) – 1)

    ‘display the copy image to the listview

    Set lstItmLstVw = LV.ListItems.Add(, strPath, StrReverse(strfName), strPath)

    Screen.MousePointer = vbDefault

End Function

2.      Fungsi double click yang bisa menampilkan detail foto

Private Sub LV_DblClick()

If LV.ListItems.Count = 0 Then Exit Sub

    ‘assign the image path path

    filePath = LV.SelectedItem.Key

    ‘call frmview to display the image

    FormPerson.Show

End Sub

3.      Meload data foto yang telah di klik pada form baru

Private Sub Form_Load()

    Dim appPath  As Integer

    Dim strfName, path As String

    strfName = StrReverse(filePath)

    path = Mid(strfName, 1, 28)

    path = StrReverse(path)

    strfName = Mid$(strfName, 1, InStr(strfName, “\”) – 1)

    ‘assign

    Me.Caption = StrReverse(strfName)

    ‘stretch if needed

    PictGuest.Stretch = IIf(origAs = 0, True, False)

    ‘load the image

    PictGuest.Picture = LoadPicture(filePath)   

    AdoDetail.RecordSource = “select * From GuestTable where [photo]=’” & path & “‘”

    AdoDetail.Refresh

    LabelName = AdoDetail.Recordset![Name]

    LabelAddress = AdoDetail.Recordset![address]

    LabelComment = AdoDetail.Recordset![comment]

End Sub

4.      Melihat detail data tamu

Private Sub Form_Load()

    Adoview.Refresh

    PictGuest.Picture = LoadPicture(App.path & Label1.Caption)

End Sub

]]> http://melatiblog.wordpress.com/2008/11/15/aplikasi-buku-tamu-menggunakan-web-cam/feed/ 6 Princess http://melatiblog.wordpress.com/2008/11/15/implementasi-algoritma-a-star-search-pada-pada-game-puzzle/ http://melatiblog.wordpress.com/2008/11/15/implementasi-algoritma-a-star-search-pada-pada-game-puzzle/#comments Sat, 15 Nov 2008 12:50:14 +0000 Melati http://melatiblog.wordpress.com/?p=35 ]]>

Algoritma pencarian A* atau disebut juga A-star search, merupakan format best-fist search yang banyak diketahui. A* search mengevaluasi tiap node dengan cara mengkombinasikan g(n) dan h(n), dimana g(n) merupakanCost yang dicapai sampai di n, dan h(n) adalah Estimasi cost untuk sampai pd goal dari n. Evaluation function dari A* search bisa dituliskan sebagai berikut :

f(n) = g(n) + h(n)

dimana f(n) merupakan Estimasi total cost dari path n sampai goal.

Apabila kita ingin menemukan solusi termurah, suatu hal layak untuk dicoba pertama kali adalah node dengan nilai g(n) yang paling rendah + h(n). Hal ini menunjukkan bahwa strategi ini lebih dari sekedar layak : dengan ketentuan bahwa heuristik function h(n) pada kondisi tertentu telah sesuai, maka A* search optimal dan lengkap.

Optimalitas dari A* search adalah bisa dianalisis secara langsung jika menggunakan Tree-Search. Dalam hal ini, A* search adalah optimal jika h(n) adalah sebuah admissible heuristic, dengan ketentuan bahwa h(n) tidak meng-overestimate cost untuk mencapai goal.

Fungsi Heuristic h(n) dikatakan konsisten jika setiap node n dan setiap successor n’ dari n yang digenerate action a, maka estimasi cost dari n sampai ke goal tidak lebih besar dari cost sampai step n’ + estimasi cost n’ ke goal

h(n) <= c(n,a,n’) + h(n’)

Jika h(n) konsisten, maka nilai dari f(n) melalui suatu path tidak berkurang/nondecreasing.

f(n’) = g(n’)+h(n’)

       = g(n) + c(n,a,n’) + h(n’)

       >= g(n) + h(n)

       = f(n)

Keterangan A* Search :

• Complete : ya, selama jumlah node f <= f(G) terbatas
• Time : Exponensial
• Space : Setiap node disimpan dalam memory
• Optimal :

Ya,

1.      A* mengekspand node-node dengan f(n) < C*

2.      A* mengekspand beberapa node dengan f(n)=C*

3.      A* Tidak akan mengekspand node dengan f(n)>C*

Aplikasi game puzzle nya dibuat dengan menggunakan bahasa pemrograman Delphi. Tapi karna file nya [sempet] hilang, yang ada hanya tinggal file executable-nya [.exe] aja.

Game puzzle yang uda berupa file .exe itu bisa donlod di Puzzle

*Lingkungan Kerja Matlab

1. Beberapa Bagian dari Window Matlab

• Current Directory

Window ini menampilkan isi dari direktori kerja saat menggunakan matlab. Kita dapat mengganti direktori ini sesuai dengan tempat direktori kerja yang diinginkan. Default dari alamat direktori berada dalam folder works tempat program files Matlab berada.

• Command History

Window ini berfungsi untuk menyimpan perintah-perintah apa saja yang sebelumnya dilakukan oleh pengguna terhadap matlab.

• Command Window

Window ini adalah window utama dari Matlab. Disini adalah tempat untuk menjalankan fungsi, mendeklarasikan variable, menjalankan proses-proses , serta melihat isi variable.

• Workspace

Workspace berfungsi untuk menampilkan seluruh variabel-variabel yang sedang aktif pada saat pemakaian matlab. Apabila variabel berupa data matriks berukuran besar maka user dapat melihat isi dari seluruh data dengan melakukan double klik pada variabel tersebut. Matlab secara otomatis akan menampilkan window “array editor” yang berisikan data pada setiap variabel yang dipilih user

2. Help

Matlab menyediakan fungsi help yang berisikan tutorial lengkap mengenai Matlab dan segala keunggulannya. User dapat menjalankan fungsi ini dengan menekan tombol help pada toolbar atau menulis perintah ‘helpwin’ pada command window. Matlab juga menyediakan fungsi demos yang berisikan video tutorial matlab serta contoh-contoh program yang bisa dibuat dengan matlab

3. Interupting dan Terminating dalam Matlab

Untuk menghentikan proses yang sedang berjalan pada matlab dapat dilakukan dengan menekan tombol Ctrl-C. Sedangkan untuk keluar dari matlab dapat dilakukan dengan menuliskan perintah exit atau quit pada comamnd window atau dengan menekan menu exit pada bagian menu file dari menu bar.

* M File

Di dalam matlab, kita dapat menyimpan semua script yang akan digunakan dalam file pada matlab dengan ekstensi .M.
M-File dapat dipanggil dengan memilih menu file->new->M-File.
Di dalam M-File, kita dapat menyimpan semua perintah dan menjalankan dengan menekan tombol atau mengetikan nama M-File yang kita buat pada command window.
Di dalam M File, kita dapat menuliskan fungsi-fungsi yang berisikan berbagai operasi sehingga menghasilkan data yang diinginkan.

* untuk lebih lengkap dan lebih jelasnya, bisa download tutorial disini