Pages

Monday, November 29, 2010

Inter Vs Parma 5-2


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

Read More...

Saturday, November 20, 2010

Server isi pulsa paling gampang cara menggunakannya

Apakah temen-temen sudah punya server isi pulsa? apakah cara transaksi masih ribet? apakah harus ngapalin kode-kode voucher untuk bisa transaksi.
ini dia server isi pulsa tercanggih.


Untuk bertransaksi, anda tinggal ketik ., contoh untuk mengisi nomor mentari 5000 tinggal ketik 5.0816663388.

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

Read More...

Friday, November 19, 2010

Daftar Nilai Sementara UTS Ganjil 2010

Bagi mahasiswa yang mengambil mata kuliah Pemrograman WEB TI-S1 dan Pemrograman Aplikasi Bisnis I D3-MI, Sistem Informasi TI-D3 sudah dapat dilihat di SIADIN.

Apbila ada ketidakpuasan silahkan langsung menemui saya di lokasi.

Read More...

Sunday, November 14, 2010

CPNS Propinsi Jateng 2010

Formasi CPNS Jateng 2010 dapat dilihat di link www.jatengprov.go.id

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.

Read More...

Friday, November 12, 2010

Tutorial VB 6 - Mysql (bag. 2) : Membuat Form Master Barang

Sebelum membuat form buatlah database penjualan dan buat tabel berikut :
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));



Desain form di atas, dengan langkah sebagai berikut :
  1. Dari form kosong, pada properties form, pada caption isikan dengan “Pendataan Barang” sehingga akan tampak pada judul form.
  2. Pilih toolbox label, untuk membuat tulisan Kode Barang, Nama Barang, Satuan dan seterusnya.
  3. 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.
  4. 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.
  5. Pilih toolbox CommandButton, buat tombol sebanyak 10 dan sesuaikan dengan tampilan di atas. Semua text diisi pada properties Caption dari masing-masing commanbutton.
  6. 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.
  7. 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.
Read More...

Popular Posts

Blog Archive

 

Iklan

Daily Calendar