17 Des 2013

perolehan medali pada sea games nyamar tanggal 17/12/2013 sementara

                  
sore, Selasa (17/12/2013) posisi kontingen Indonesia di klasemen perolehan medali Sea Games Myanmar 2013 berada di peringkat ke 3, dengan total perolehan medalai sebanyak 153 medali dengan rincian 42 Emas 56 perak dan 55 perunggu.
Di posisi pertama ada kontingen Thailand yang sudah melesat dengan total perolehan medali sebanyak 170 medali, dimana dari jumlah tersebut Thailand berhasil mengumpulkan 64 emas 53 Perak dan 53 perunggu. Perolehan medali Thailand tersebut jauh meninggalkan pesaingnya diperingkat ke dua yang ditempati oleh Vietnam yang sudah berhasil mengumpulkan sebanyak 47 medali emas 41 perak dan 51 perunggu.
Dari hasil sea games kemarin, Perolehan medali Indonesia bertambah dari cabang olahraga dayung dan panahan. Dimana sumbangan emas dari dayung dipersembahkan oleh duet pedayung putri Wahyuni, Maryam Makdalena Daimoi di nomor LW2x.
Selain emas cabang oleh raga dayung juga menyumbangkan medali perunggu yang dipersembahkan oleh Memo di nomor perserorangan putra. Melakoni nomor M1x, Memo finis ketiga di belakang atlet Myanmar Aung Ko Min (perak) dan atlet Filipina Nestor Cordova (emas).
Atlit Panah putri Delie Threesyadinda meraih medali perak di nomor compound invidiual. Delie finis di bawah Aung Ngeain (Myanmar) dan di atas pepanah Sarita Cham Nong.
Sayangnya, Indonesia gagal mendulang satu medalipun dari cabor athletik. Di nomor lari maraton putra Nikolas Albinus putra gagal naik podium usai mencetak waktu 2 jam 33 menit 32 detik dan di kategori putri Meri Meriana Paijo gagal finis.
Berikut ini Klasemen Sementara Perolehan medali Sea Games Myanmar 2013, sampai dengan hari ini, Selasa (17/12/2013) Update pukul 16:58 WIB.
NegaraEmasPerakPerunggu
Thailand
645353
Vietnam
474151
Indonesia
425655
Myanmar
423945
Malaysia
272446
Singapore
222031
Philippines
132024
Cambodia
5713
Laos
4722
Brunei
114
Timor-Leste
101

27 Nov 2013

hasil sementara pemilihan Gubernur riau putaran kedua oleh Quick Count

JAKARTA,BB – Pilkada Provinsi Riau putaran kedua digelar hari ini Rabu 27 November 2013. Hasil perhitungan cepat atau quick count disiarkan secara update stasiun Metro TV siang ini.
Sementara itu Komisi Pemilihan Umum (KPU) Riau jauh hari sebelumnya sudah menyatakan tidak mempublikasikan hasil real count Pilkada kali ini. Namun demikian KPU Riau tetap menggelar real count untuk kepentingan internal. Hasil quick count rencananya diumumkan sore ini oleh lembaga independen seperti Indobarometer.
Kedua pasangan calon gubernur dan wakil gubernur Riau sudah memberikan suara pagi tadi di tempat berbeda. Herman Abdullah mencoblos di Kota Pekanbaru, sedangkan Annas Maamum mencoblos di Kabupaten Rokan Hilir. Berdasar data KPU, jumlah daftar pemilih tetap (DPT) pada Pilgub putaran kedua provinsi Riau tetap berjumlah 4.000.459 orang.
Pilkada Riau Putaran Kedua di sebuah TPS Sepi, foto halloriau
Pilkada Riau Putaran Kedua di sebuah TPS Sepi, foto halloriau
Berikut hasil quick count pilkada Riau Putaran kedua sumber Indobarometer:
1. Herman Abdullah-Agus Widayat (Hebat), 40,06 Persen
2. Annas Maamun-Arsyadjuliandi Rachman (Aman), 59,94 Persen
Total sample suara masuk  99 Persen
Silahkan share halaman ini untuk mengetahui hasil akhir quick count usai jumpa pers petang ini.

20 Okt 2013

Memainkan musik (midi file) yang berada dalam resource


Mungkin kita sering memainkan game dan mendengar iringan musik saat aplikasi game tersebut diload. Nah, untuk kali ini kita akan belajar menambahkan musik dari file midi yang tersimpan di resource,dan menjalankannya saat aplikasi di load. Lalu bagaimana caranya?


Tambahkan VB 6 Resource Editor, dengan langkah:
1. Klik menu Add-Ins
2. Double Click untuk meload VB 6 Resource Editor,kemudian klik OK.
Untuk lebih jelasnya lihat Gambar di bawah ini.


Masukkan File midi ke dalam Resources, dengan langkah:
1. Klik menu icon Vb resource editor.
2. Pilih Icon Add Custom Resource, kemudian cari file midi yang akan ditambahkan.
3. Akan muncul, folder resource dengan Nama Type=Custom dan Id=101. Anda dapat merubahnya seperti gambar di bawah ini.
4.Klik icon save.


Pada form tambahkan code di bawah ini:
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Dim sMusik As String

Private Sub StartMusik()
    Dim sBuffer As String
    sMusik = App.Path & "\miditmp.mid"
    If Dir(sMusik) <> "" Then Kill sMusik
    sBuffer = StrConv(LoadResData("INTERFACE", "MIDI"), vbUnicode)
    Open sMusik For Output As #1
    Print #1, sBuffer
    Close #1
    Call mciSendString("open " & Chr(34) & sMusik & Chr(34) & " type sequencer alias INTERFACE", 0& , 0, 0)
    Call mciSendString("play INTERFACE", 0&, 0, 0)    
End Sub

Private Sub StopMusik()
    Call mciSendString("close INTERFACE", 0&, 0, 0)
    If Dir(sMusik) <> "" Then Kill sMusik
End Sub

Private Sub Form_Load()
    Call StartMusik
End sub

Private Sub Form_Unload(Cancel As Integer)
    StopMusik
End Sub

Download project klik disini, Semoga bermanfaat.

Memunculkan Field Gambar(OLE Object) Di Database Acces mudah


Sedikiit berbagi lagi.. Mungkin Teman2 ada kesulitan mengenai memunculkan file Image Database Acces ke VB. Saya menggunakan dua Cara untuk mewujudkan hal tersebut:

  1. Me-Load Gambar dalam Kontrol Image dari String Alamat Gambar yang telah ada di Field Database, jadi Field dalam tabel bertype Text. Keuntungannya Database berukuran lebih Kecil dibanding cara kedua.
  2. Meload Gambar Dari Field yang bertype OLE Object kedalam kontrol Image. Keuntungannya semua gambar dalam satu database sehingga dapat sebagai pustaka gambar.
Kali ini kita akan menggunakan cara yang kedua, Buat Database Acces bernama "BioData.mdb" terdiri atas satu Tabel yaitu "TblPhotoSaja" dan di dalamnya buat field Type Ole Object beri nama "Image",serta satu field lagi Bertype AutoNumber berinama "Id", Langsung saja ^_^ ini saourcenya..
Copy Paste Code Dibawah Ini Dalam form
Option Explicit
Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Private Declare Function lOpen Lib "kernel32" Alias "_lopen" (ByVal lpPathName As String, ByVal iReadWrite As Long) As Long
Private Declare Function lclose Lib "kernel32" Alias "_lclose" (ByVal hFile As Long) As Long
Private Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long
Private lpFSHigh As Long
Private strfilepath As String
Private Buffer As String
Private Const OF_READ = &H0&
Private db As ADODB.Connection
Private WithEvents adoPrimaryRSImageName As Recordset

Private Type OPENFILENAME
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustFilter As Long
    nFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    Flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
End Type

Private Function GetFile(ByRef frm As Form) As String
    Dim OFName As OPENFILENAME
    OFName.lStructSize = Len(OFName)
    'Set the parent window
    OFName.hwndOwner = frm.hWnd
    'Set the application's instance
    OFName.hInstance = App.hInstance
    'Select a filter
    OFName.lpstrFilter = "Bitmap (*.bmp)" + Chr$(0) + _
      "*.bmp" + Chr$(0) + _
      "Jpg (*.jpg)" + Chr$(0) + _
      "*.jpg" + Chr$(0) + _
      "Icons (*.ico)" + Chr$(0) + _
      "*.ico" + Chr$(0) + _
      "Windows Metafiles (*.wmf)" + Chr$(0) + _
      "*.wmf" + Chr$(0) + _
      "Jpeg (*.jpeg)" + Chr$(0) + _
      "*.jpeg" + Chr$(0) + _
      "Gif (*.gif)" + Chr$(0) + _
      "*.gif" + Chr$(0) + _
      "All Files (*.*)" + Chr$(0) + _
      "*.*" + Chr$(0)
    'create a buffer for the file
    OFName.lpstrFile = Space$(254)
    'set the maximum length of a returned file
    OFName.nMaxFile = 255
    'Create a buffer for the file title
    OFName.lpstrFileTitle = Space$(254)
    'Set the maximum length of a returned file title
    OFName.nMaxFileTitle = 255
    'Set the initial directory
    'OFName.lpstrInitialDir = "C:\" 'Commented so that the box opens on the last directory browsed
    'Set the title
    OFName.lpstrTitle = "Open Dialog Box"
    'No flags
    OFName.Flags = 0
    'Show the 'Open File'-dialog
    If GetOpenFileName(OFName) Then
      GetFile = Trim$(OFName.lpstrFile)
    Else
      GetFile = ""
    End If
End Function

Private Sub SaveBitmap(ByRef adoRS As ADODB.Recordset, ByVal strField As String, ByVal SourceFile As String)
    'This sub copies the actual file into a byte array.
    'This byte array is then used as the value for
    'the field having an image data type
    Dim Arr() As Byte
    Dim Pointer As Long
    Dim SizeOfThefile As Long
    Pointer = lOpen(SourceFile, OF_READ)
    'size of the file
    SizeOfThefile = GetFileSize(Pointer, lpFSHigh)
    lclose Pointer
    'Resize the array, then fill it with
    'the entire contents of the field
    ReDim Arr(SizeOfThefile)
    Open SourceFile For Binary Access Read As #1
    Get #1, , Arr
    Close #1
    adoRS(strField).Value = Arr
    Exit Sub
End Sub

Private Sub cmdFirst_Click()
If adoPrimaryRSImageName.BOF And adoPrimaryRSImageName.RecordCount = 0 Then
   MsgBox "Anda Tidak Memiliki Data Record, Klik Tombol " & """" & "Tambah Record" & """" & " untuk Membuat Record."
Else
  adoPrimaryRSImageName.MoveFirst
End If
End Sub

Private Sub cmdLast_Click()
If adoPrimaryRSImageName.EOF And adoPrimaryRSImageName.RecordCount = 0 Then
   MsgBox "Anda Tidak Memiliki Data Record."
Else
    adoPrimaryRSImageName.MoveLast
End If
End Sub

Private Sub cmdNext_Click()
If adoPrimaryRSImageName.EOF And adoPrimaryRSImageName.RecordCount = 0 Then
   MsgBox "Anda Tidak Memiliki Data Record."
End If
If Not adoPrimaryRSImageName.EOF Then adoPrimaryRSImageName.MoveNext
If adoPrimaryRSImageName.EOF And Not adoPrimaryRSImageName.RecordCount = 0 Then
    Beep
    adoPrimaryRSImageName.MoveLast
End If
End Sub

Private Sub cmdPrevious_Click()
If adoPrimaryRSImageName.BOF And adoPrimaryRSImageName.RecordCount = 0 Then
   MsgBox "Anda Tidak Memiliki Data Record"
End If
If Not adoPrimaryRSImageName.BOF Then adoPrimaryRSImageName.MovePrevious
If adoPrimaryRSImageName.BOF And Not adoPrimaryRSImageName.RecordCount = 0 Then
    Beep
    adoPrimaryRSImageName.MoveFirst
End If
End Sub

Private Sub CariSimpanImage_Click()
    strfilepath = GetFile(Me)
    If strfilepath <> "" Then
        Image1.Picture = LoadPicture(strfilepath)
        SaveBitmap adoPrimaryRSImageName, "Image", strfilepath
    End If
End Sub

Sub Koneksi()
    Set db = New ADODB.Connection
    db.CursorLocation = adUseClient
    db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=" & App.Path & "\BioData.mdb"
    Set adoPrimaryRSImageName = New ADODB.Recordset
    adoPrimaryRSImageName.Open "TblPhotoSaja", db, adOpenDynamic, adLockOptimistic
    Set Image1.DataSource = adoPrimaryRSImageName
End Sub

Private Sub Form_Load()
    Koneksi
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set db = Nothing
    Set adoPrimaryRSImageName = Nothing
    Unload Me
End Sub

2 Okt 2013

lowongan 132 formasi Calon Pegawai Negeri Sipil (CPNS) mulai tanggal 25 - 6 oktober 2013

Jakarta (ANTARA News) - Kementerian Komunikasi dan Informasi (Kominfo) membuka lowongan 132 formasi Calon Pegawai Negeri Sipil (CPNS) tahun anggaran 2013.

"Penerimaan registrasi untuk lamaran melalui situs e-CPNS Kementerian Kominfo dibuka pada 25 September dan ditutup pada 6 Oktober 2013," kata Sekretaris Jenderal Kementerian Kominfo Basuki Yusuf Iskandar, selaku Ketua Tim Pelaksana Seleksi CPNS Tahun 2013, seperti dikutip dalam laman Sekretaris Kabinet.

Ia mengemukakan, formasi yang tersedia itu terbuka untuk lulusan Sarjana (S1) Akuntansi, Ilmu Komunikasi, Ekonomi, Tehnik Informatika, Hukum, Psikologi, Manajemen Ekonomi, Matematika, Tehnik Elektro, Sistem Komputer, Manajemen Informatika, Tehnik Telekomunikasi, Sastra Inggris, dan Pendidikan.

Selain itu, juga terbuka peluang untuk lulusan Diploma III (D-III) Ilmu Komputer, Akuntansi, Sekretaris, dan Manajemen. Sedangkan lulusan Pasca Sarjana (S2) yang dibutuhkan adalah program studi Ilmu Hukum, Komunikasi, dan Sosial Politik. 

Para pelamar yang berminat harus memenuhi syarat khusus di antaranya: a. Memiliki TOEFL minimal 450; b. Indeks Prestasi Kumulatif (IPK) minimal 2,75 (D-III dan S1), dan 3,25 untuk lulusan S2; c. Berusia paling tinggi 35 tahun pada 1 Desember 2013 (S1 dan S2), dan 30 tahun (DIII).

Basuki Yusuf menjelaskan, dalam seleksi CPNS di Kementerian Kominfo ini, pihaknya menyediakan 3 (tiga) formasi untuk Putra-putri Daerah Papua, dan 1 (satu) formasi untuk Disabilitas Fisik.

"Khusus untuk formasi Putra-Putri Papua, tes akan dilaksanakan di Provinsi Papua (Jayapura) dan Provinsi Papua Barat (Manokwari) dengan sistem Lembar Jawaban Komputer," paparnya.

Basuki menegaskan, hanya pelamar dengan ranking teratas sebanyak 15 (lima belas) kali dari jumlah setiap formasi yang akan dipanggil untuk mengikuti Tes Kompetensi Dasar (TKD) yang akan dilaksanakan pada bulan November 2013. 

Selanjutnya, hanya pelamar dengan ranking teratas sebanyak 3 (tiga) kali dari jumlah hasil TKD yang akan dipanggil untuk mengikuti Tes Kompetensi Bidang (TKB) pada November mendatang.

"Pelaksanaan Seleksi CPNS Kementerian Kominfo tidak dipungut biaya apapun, dan keputusan Tim Seleksi Pelaksana CPNS bersifat mutlak dan tidak dapat diganggu gugat," kata Basuki Yusuf Iskandar.

Ia menambahkan daftar formasi lengkap dapat dilihat di www.kominfo.go.id

isi komentar Anda

black readmen
Sangat Bagus0%
Bagus0%
Kurang Bagus0%
Buruk0%
 
Penanggung Jawab Miftah Budi Kurniawan | Supported by Cheat Game 4U