Milan - Inter Milan meraih hasil bagus kala menjamu Parma. Untuk pertama kalinya dalam tiga pertandingan terakhir, Inter akhirnya mereguk kemenangan, kali ini dengan skor 5-2.
Pada laga yang berlangsung di Stadion Giuseppe Meazza, Minggu (28/11/2010) malam WIB, Inter sempat dikejutka oleh gol Hernan Crespo di menit keempat. Tapi sebelum babak pertama habis, mereka berhasil membobol jala sang tamu tiga kali melalui dua gol Dejan Stankovic dan satu dari Esteban Cambiasso.
Crespo sempat mempertipis kedudukan menjadi 2-3, tapi gol Thiago Motta dan gol ketiga Stankovic membuat Parma harus bertekuk lutut. Bagi Inter, kemenangan ini bak penawar dari dua kekalahan sebelumnya dari AC Milan dan Chievo.
Kemenangan ini juga menjadi momentum bagus buat mereka usai memastikan diri lolos ke babak 16 besar Liga Champions beberapa hari silam. Tanda Inter mulai bangkit?
Jalannya Pertandingan
Parma mengejutkan publik Giuseppe Meazza pada menit keempat ketika umpan silang Mariano Angelo disambut Crespo yang berada di tiang dekat. Ia melambungkan bola melewati Luca Castellazzi, dan mencetak gol ke-190 sepanjang karirnya.
Tujuh menit berselang, Blreim Dzemalli melepaskan tendangan keras ke arah gawang, tapi Castellazzi dengan sigap berhasil membloknya. Sepakan Sebastian Giovinco di menit 13 juga belum membuahkan hasil untuk Parma, karena sepakannya masih melebar dari gawang.
Inter akhirnya menyamakan kedudukan di menit 17 setelah sepakan keras Stankovic dari jarak sekitar 23 meter tak mampu dihalau Antonio Mirante. Bola sempat mengenai badan Alessandro Lucarelli, dan akhirnya meluncur masuk ke dalam gawang.
Hanya berselang semenit, Stankovic kembali mengoyak gawang Parma. Tusukan Jonathan Biabiany ke dalam kotak penalti diakhiri dengan sebuah operan ke arah Stankovic yang langsung melepaskan tembakan. Bola membentur Luca Antonelli dan Mirante bergerak ke arah yang salah. Gawang Parma bobol lagi, Inter unggul 2-1
Inter menjauh pada menit 22 ketika sepak pojok Wesley Sneijder disambut dengan sundulan oleh Lucio. Bola mengarah ke tiang jauh, di mana ada Cambiasso berdiri. Melalui satu sontekan, gelandang asal Argentina itu membuat Inter mengoyak jala Mirante untuk ketiga kalinya.
Sebelum babak pertama habis, tepatnya pada menit 35, Parma mempertipis kedudukan menjadi 2-3. Tendangan Massimo Gobbi berhasil ditepis oleh Castellazzi, tetapi bola mengarah tepat kepada Crespo yang langsung menyambarnya untuk mencetak gol.
Crespo nyaris mencetak hat-trick dan menyamakan kedudukan untuk Parma pada menit 38. Umpan silang Angelo ditanduknya dengan sempurna ke arah gawang Inter, tapi Castellazzi tak kalah cekatan. Ia berhasil memblok sundulan Crespo hanya dengan satu tangan.
Di awal babak kedua, Parma mendapatkan kesempatan lagi untuk menyamakan kedudukan. Angelo yang berdiri tak terkawal di depan gawang Inter, mengarahkan sepakan ke tiang dekat. Bola berhasil menaklukkan Castellazzi, tapi akhirnya malah membentur tiang gawang! Peluang tim tamu gagal lagi.
Inter akhirnya memperbesar keunggulan menjadi 4-2 di menit 71. Kali ini yang menjadi pencetak golnya adalah Motta, usai memanfaatkan tendangan bebas Sneijder dan bola hasil pemberian Goran Pandev. Sontekannya tak mampu dihalau Mirante.
Stankovic akhirnya mencetak hat-trick pada menit 74 sekaligus memperbesar kedudukan menjadi 5-2. Sneijder menusuk dari sayap kiri dan memberikan bola kepada Stankovic yang berada di ujung kotak penalti. Gelandang asal Serbia ini kemudian melepaskan sepakan ke pojok bawah gawang. Gawang Mirante pun bobol lagi.
Berkat hasil ini, posisi Inter naik ke urutan lima klasemen dengan koleksi nilai 23. Sementara Parma masih berada di urutan 14 dengan nilai 15.
Susunan Pemain
Inter Milan: Luca Castellazzi, Marco Materazzi, Lucio, Javier Zanetti, Ivan Cordoba, Davide Santon (Felice Natalino 45), Esteban Cambiasso, Dejan Stankovic (Nwankwo Obiora 79), Goran Pandev, Wesley Sneijder, Jonathan Biabiany (Thiago Motta 68).
Parma: Antonio Mirante, Alessandro Lucarelli, Gabriel Paletta, Luca Antonelli, Cristian Zaccardo, Blerim Dzemalli, Massimo Gobbi (FRanceco Valiani 45), Antonio Candreva, Sebastian Giovinco (Valeri Bojinov 72), Hernan Crespo, Mariano Angelo (Ze Eduardo 90).
Sumber : detikSport
Monday, November 29, 2010
Inter Vs Parma 5-2
Saturday, November 20, 2010
Server isi pulsa paling gampang cara menggunakannya
ini dia server isi pulsa tercanggih.
Untuk bertransaksi, anda tinggal ketik
anda tertarik untuk memiliki software ini?
Tersedia paket ekonomis host2host Rp. 2.500.000
1. Bisa MLM
2. SMS Center / Sender tidak terbatas
3. Transaksi tidak terbatas
4. Gampang pengoperasiannya
5. Stabil
Tersedia juga :
1. Modul SEV ( untuk Indosat) -> bisa Sub Dealer maupun Reseller
2. Modul Mkios ( Untuk Telkomsel ) -> bisa Sub Dealer maupun Reseller
3. Modul Dompet Pulsa ( untuk XL)
4. Modul Three
5. Modul Axis
6. Modul YM
7. Modul Esia
8. Modul Flexi
9. Modul Fren
Lebih lengkap buka Intisoftmedia
Friday, November 19, 2010
Daftar Nilai Sementara UTS Ganjil 2010
Apbila ada ketidakpuasan silahkan langsung menemui saya di lokasi.
Sunday, November 14, 2010
CPNS Propinsi Jateng 2010
Pendaftaran Online tanggal 16-25 Nopember 2010 klik di http://cpns.jatengprov.go.id
Pendaftaran Kab. Klaten di http://klatenkab-cpns2010.net
Pendaftaran Kota Salatiga di http://cpns.pemkot-salatiga.go.id
Pendafatarn Kota Semarang di http://cpnsd.semarangkota.go.id/
Semoga menjadi rejeki yang ingin menjadi PNS.
Friday, November 12, 2010
Tutorial VB 6 - Mysql (bag. 2) : Membuat Form Master Barang
Tabel barang;
+----------+----------+------+-----+---------+-------+
| Field | Type | Null | Key | Default | Extra |
+----------+----------+------+-----+---------+-------+
| kd_brg | char(6) | NO | PRI | | |
| nm_brg | char(30) | YES | | NULL | |
| satuan | char(10) | YES | | NULL | |
| harga | double | YES | | NULL | |
| stok | int(5) | YES | | NULL | |
| stok_min | int(4) | YES | | NULL | |
+----------+----------+------+-----+---------+-------+
create table barang(kd_brg char(6) primary key not null,nm_brg char(30),satuan char(10), harga double, stok int(5), stok_min int(4));
- Dari form kosong, pada properties form, pada caption isikan dengan “Pendataan Barang” sehingga akan tampak pada judul form.
- Pilih toolbox label, untuk membuat tulisan Kode Barang, Nama Barang, Satuan dan seterusnya.
- Pilih pada properties dan ganti masing-masing label sesuai dengan desain di atas.3. Pilih toolbox inputbox, untuk membuat inputan data mulai dari Kode Barang sampai dengan Stok Minimal. Kosongkan properties Text dari masing-masing inputbox.
- Pilih toolbox combobox, pada properties Text isikan “---Pilihan ---“, kemudian isikan satuan (Buah, Box, Lusin, Kg, Meter dll) pada properties List. Gunakan tombol CTRL + ENTER untuk pindah baris, jika selesai tekan ENTER.
- Pilih toolbox CommandButton, buat tombol sebanyak 10 dan sesuaikan dengan tampilan di atas. Semua text diisi pada properties Caption dari masing-masing commanbutton.
- Pilih toolbox DataGrid, isikan captionnya dengan “Informasi Data Barang”, apabila dataGrid belum ada maka tambahkan componennya dengan mengclick kanan pada area toolbox, pilih menu Components, pilih Microsoft ADO Data Control 6.0(OLEDB) dengan mencentak kotak kecil di sebelah kiri.
- Buat bingkai dengan Frame, properties caption diisi dengan “Pencarian Data”, buat label “Berdasarkan” dan “Teks yang dicari”, kemudian buat combobox dan textbox nya.
Tambahkan kode program berikut :
Dim rsbarang As New ADODB.Recordset
Dim strsql As String
Dim cek As Integer
Private Sub cmbsatuan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then txtharga.SetFocus
End Sub
Private Sub cmdakhir_Click()
rsbarang.MoveLast 'pindah akhir record
End Sub
Private Sub cmdawal_Click()
rsbarang.MoveFirst 'pindah awal record
End Sub
Private Sub cmdbatal_Click()
tombol True
aktif False
End Sub
Private Sub cmdhapus_Click()
strsql = "delete from barang where kd_brg='" & _
txtkd_brg.Text & "'"
hapus = MsgBox("Yakin diHapus", vbYesNo, "Konfirmasi")
If hapus = vbYes Then
dbcon.Execute strsql
End If
rsbarang.Requery
End Sub
Private Sub cmdkeluar_Click()
dbcon.Close
Unload Me
End Sub
Private Sub cmdkoreksi_Click()
cek = 2
aktif True
tombol False
txtkd_brg.Enabled = False
txtnm_brg.SetFocus
End Sub
Private Sub cmdsebelum_Click()
On Error GoTo GoPrevError
If Not rsbarang.BOF Then rsbarang.MovePrevious
If rsbarang.BOF And rsbarang.RecordCount > 0 Then
Beep
'moved off the end so go back
rsbarang.MoveFirst
End If
'show the current record
Exit Sub
GoPrevError:
MsgBox Err.Description
End Sub
Private Sub cmdsesudah_Click()
On Error GoTo GoNextError
If Not rsbarang.EOF Then rsbarang.MoveNext
If rsbarang.EOF And rsbarang.RecordCount > 0 Then
Beep
'moved off the end so go back
rsbarang.MoveLast
End If
'show the current record
Exit Sub
GoNextError:
MsgBox Err.Description
End Sub
Private Sub cmdsimpan_Click()
On Error GoTo errSimpan
If cek = 1 Then
'tambah data
strsql = "insert into barang values('" & txtkd_brg.Text _
& "','" & txtnm_brg.Text & "','" & cmbsatuan.Text & "'," & _
Val(txtharga.Text) & "," & _
Val(txtstok.Text) & "," & Val(txtstok_min.Text) & ")"
Else
'edit data
strsql = "update barang set nm_brg='" & txtnm_brg.Text & _
"',satuan='" & cmbsatuan.Text & _
"',harga=" & Val(txtharga.Text) & _
",stok=" & Val(txtstok.Text) & _
",stok_min=" & Val(txtstok_min.Text) & _
" where kd_brg='" & txtkd_brg.Text & "'"
End If
' MsgBox strsql
dbcon.Execute (strsql) ' eksekusi perintah SQL
rsbarang.Requery
tombol True
aktif False
MsgBox "Sukses disimpan", vbOKOnly, "Konfirmasi Simpan"
Exit Sub
errSimpan:
MsgBox Err.Description, vbCritical, "Error Simpan"
End Sub
Private Sub cmdtambah_Click()
cek = 1
tombol False
aktif True
kosong
txtkd_brg.SetFocus
End Sub
Private Sub DgBarang_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
baca_data
End Sub
Private Sub Form_Activate()
tombol True
aktif False
baca_data
End Sub
Private Sub tombol(x)
cmdtambah.Enabled = x
cmdsimpan.Enabled = Not x
cmdkoreksi.Enabled = x
cmdhapus.Enabled = x
cmdbatal.Enabled = Not x
cmdkeluar.Enabled = x
cmdawal.Enabled = x
cmdakhir.Enabled = x
cmdsebelum.Enabled = x
cmdsesudah.Enabled = x
End Sub
Private Sub aktif(x)
txtkd_brg.Enabled = x
txtnm_brg.Enabled = x
cmbsatuan.Enabled = x
txtharga.Enabled = x
txtstok.Enabled = x
txtstok_min.Enabled = x
End Sub
Private Sub kosong()
txtkd_brg.Text = ""
txtnm_brg.Text = ""
cmbsatuan.Text = ""
txtharga.Text = ""
txtstok.Text = ""
txtstok_min.Text = ""
End Sub
Private Sub Form_Load()
nyambung
strsql = "select * from barang order by kd_brg asc"
rsbarang.Open strsql, dbcon
Set dgbarang.DataSource = rsbarang
rsbarang.Requery
load_cbocari "barang", cbocari
End Sub
Private Sub Form_Unload(Cancel As Integer)
tutup_koneksi
End Sub
Private Sub txtcari_Change()
strsql = "select * from barang where barang." & _
cbocari.Text & " LIKE ('%" & txtcari.Text & "%')"
rsbarang.Close
rsbarang.Open strsql, dbcon, adOpenStatic
rsbarang.Requery
dgbarang.Refresh
'lebar_grid
End Sub
Private Sub txtharga_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then txtstok.SetFocus
End Sub
Private Sub txtkd_brg_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then txtnm_brg.SetFocus
End Sub
Private Sub txtnm_brg_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then cmbsatuan.SetFocus
End Sub
Private Sub txtstok_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then txtstok_min.SetFocus
End Sub
Private Sub baca_data()
On Error Resume Next
If rsbarang.RecordCount > 0 Then 'untuk cek jumlah record
txtkd_brg.Text = rsbarang!kd_brg 'pindahkan data dr tabel ke form
txtnm_brg.Text = rsbarang!nm_brg
cmbsatuan.Text = rsbarang!satuan
txtharga.Text = rsbarang!harga
txtstok.Text = rsbarang!stok
txtstok_min.Text = rsbarang!stok_min
End If
End Sub
Jika menginginkan source code komplit silahkan email ke a71b_2008@yahoo.co.id.
Popular Posts
-
Contoh pembuatan form pada aplikasi penjualan dengan Java + NetBean + Mysql, komplit dapat di download pada link di bawah. Mohon di implemen...
-
Formulir pendaftaran email, mohon mengisi formulir secara lengkap, email harus valid. Silahkan meng-upload hasil dokumentasi dengan membu...
-
Formulir pendaftaran email, mohon mengisi formulir secara lengkap, email harus valid. Silahkan meng-upload hasil dokumentasi dengan membu...
-
Formulir pendaftaran email, mohon mengisi formulir secara lengkap, email harus valid. Silahkan meng-upload hasil dokumentasi dengan membu...
-
Menunggu pengumuman hasil lolos seleksi Administrasi PKKP 2020 Propinsi Jawa Tengah, dapat mempersiapkan diri untuk mempelajari materi ujian...
-
Belajar membuat form di Java dengan NetBean dan belajar exception. # semuanyaajib Serial Belajar oop with Java Part8 Serial B...
-
Midterm atau Mid Test dan jawaban Java Foundation : Midterm dan jawaban dapat di download di sini Midterm # semuanyaajib
-
JURNAL : OPTIMASI QUERY MENGGUNAKAN ALGORITMA INGRES PADA PORTAL LUMBUNG DATA PENDIDIKAN JAWA TENGAHAbstrak Portal web Lumbung Data Pendidikan Jawa Tengah memiliki jumlah data record yang besar yaitu 46.442.378 record, dan terdapat tabel ...
-
Download Jurnal di sini atau di sini . # semuanyaajib
-
Pendaftaran Email untuk Mata Kuliah Pemrograman Berorientasi Obyek Semester Pendek (SP) Genap 2012/2013, data akan di gunakan untuk invite a...