ditengah2 kebingungan ngerjain TA, ada sobat yang abis curhat..
eehhhmmm.. maaf pren, aku jg g tau gmn ngasi solusi buatmu.
aku sendiri aja masi kayak gini, masi banyak bgt kekurangannya.
masi perlu kuatin kaki untuk bisa berdiri tegak sendiri.
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 lagi donlod2 aplikasi buat hape, nemuin aplikasi menarik. yups!! nama nya GMaps.. pas baca deskripsiny, kok mirip ama google earth yak??! *sounds interesting.
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
keu reol ri eob da go a nil geo ra go mi deot jyo
nae ga keu dal sa rang han da ni mal do an dwe jyeo eom
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
1,2 baby clap ur hands
Everybody lets go ha ha ha
I want yall ledies clap again
Let me hear u say wut wut
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-
Pas uda deket2 UAS, kami para pengambil mata kuliah pemrograman api dikejutkan dengan berita dari Bu Henning. Yups! Sebagai pengganti UAS, kami diharuskan membuat program dengan menggunakan fungsi API. Yo namanya juga kuliah pemrograman API, semakin banyak fungsi API yang dipake.. semakin bagus nilai UAS kami.
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
- 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
- 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
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
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
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
Private Sub Form_Load()
Adoview.Refresh
PictGuest.Picture = LoadPicture(App.path & Label1.Caption)
End Sub
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) merupakan Cost 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 :
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
Matlab merupakan bahasa pemrograman yang hadir dengan fungsi dan karakteristik yang berbeda dengan bahasa pemrograman lain yang sudah ada lebih dahulu seperti Delphi, Basic maupun C++. Matlab merupakan bahasa pemrograman level tinggi yang dikhususkan untuk kebutuhan komputasi teknis, visualisasi dan pemrograman seperti komputasi matematik, analisis data, pengembangan algoritma, simulasi dan pemodelan dan grafik-grafik perhitungan.
*Lingkungan Kerja Matlab
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.
Window ini berfungsi untuk menyimpan perintah-perintah apa saja yang sebelumnya dilakukan oleh pengguna terhadap matlab.
Window ini adalah window utama dari Matlab. Disini adalah tempat untuk menjalankan fungsi, mendeklarasikan variable, menjalankan proses-proses , serta melihat isi variable.
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
Pren, nih ada jadwal kul versi 6.
sori ye agak lama.. maklum, pendatang baru neh di dunia blogger. Hehehee.. semoga bermanfaat. Jangan lupa nanti sore kita ketemu dikampus mbahas mt kul apa aja yg mau kita ambil semester ini. Ok!! CU
Welcome to myBlog. sebenernya ini bukan blog pertama yg aku bikin.. sebelumnya aku pake fasilitas blog yg ada di fs. Setelah bbrp lama make blog itu, aku rasa nothing special bout it. isinya tuh cuma tulisan2 sesuai mood aku. belum lagi tampilannya yg standar bgt, trus.. didukung pula lemot nya pengaksesan situs fs. kalo ke warnet, berapa duit harus keluar buat ngisi blog yang isinya almost ga penting itu. hampir useless deh.. bukan bermaksud me’nama-buruk’kan fs (toh sampe sekarang aku juga masih pake jasa2nya fs kok). blog ku itu sekarang lagi mati suri. uda males kayaknya buat posting2 lagi..
tapi.. segala pemikiran itu sekarang uda mulai berubah. banyaknya akses internet gratis sering bikin mati gaya. bingung euy! mau ngapain lagi..
selain itu, banyak juga temen2 yang kadang butuhin info. yyaaa.. tentang apa aja lah! mulai dari jadwal kul, frs, nilai, jadwal jalan2, rencana touring, dsb.
kebetulan waktu itu ada someone kasih liat blog dia (pamer gitu deh. hehehe..)
setelah dipikir.. oke juga neh! bisa buat posting info2 yang mungkin dibutuhin temen2. at least, tercetuslah ide untuk bikin sebuah blog.
nah, selamat mengakses info. semoga blog ini bermanfaat.
