Konversi Desimal ke Biner Dengan C++

Ini merupakan program sederhana, untuk membuat konversi bilangan desimal ke C++

file bisa download di http://bit.ly/2kWnSFX

Import DBF to Ms.Access

Jika Anda awalnya membuat program for DOS dengan data menggunakan file DBF, dikemudian hari ingin migrate ke Access, Anda tidak perlu cemas dengan data-data sebelumnya.

Dengan source code dibawah ini Anda akan lebih mudah mengimport data-data file DBF ke Access.

Option Compare Database
Option Explicit

Private Sub cmdImport_Click()
Dim FullPath As String
Dim CurrentPath As String
Dim TableHRDExist As Boolean
Dim i As Integer

  On Error GoTo errorImport

  ' Ambil direktori beserta nama file database ini
  FullPath = CurrentDb.Name
  ' Ambil hanya direktorinya saja
  CurrentPath = Left$(FullPath, InStrRev(FullPath, "\", , vbBinaryCompare) - 1) & "\"
  ' Hapus table [Data HRD]
  CurrentDb.Execute "DROP TABLE [Data HRD];"

TransferDBF:
  ' Transfer file DataHRD.DBF to be table Data HRD
  DoCmd.TransferDatabase _
      acImport, "dBase III", CurrentPath, acTable, _
      "DataHRD.DBF", "Data HRD", False
  i = 0
  For i = 0 To CurrentDb.TableDefs.Count - 1
    If CurrentDb.TableDefs(i).Name = "Data HRD" Then
      TableHRDExist = True
    End If
  Next
  ' Jika table [Data HRD] tidak ada ulangi TransferDBF.
  ' Hal ini untuk mengecek berhasilkah transfer database?
  ' Biasanya transfer database tidak berhasil,
  '    sehingga harus dilakukan pengecekan
  If Not TableHRDExist Then
    GoTo TransferDBF
  End If
  MsgBox "Transfer file DBF telah berhasil.", , "Info"
Exit Sub
errorImport:
  Resume Next
End Sub

File DBF telah disertakan dalam paket download dibawah ini, nama file-nya adalah DataHRD.DBF, jika proses import telah berhasil, maka akan muncul tampilan seperti dibawah ini:

Proses import tsb akan menghasilkan satu table dengan nama Data HRD dengan beberapa record yang juga telah berhasil di import (lihat gambar dibawah).

Tools kecil ini semoga bisa memberikan manfaat.

DOWNLOAD DISINI

Foxpro

Bagi rekan2 yang butuh foxpro versi dos, silahkan melalui link dibawah ini
Download

Butuh Silabus dan RPP

Buat rekan - rekan guru yang mengampu mata pelajaran Rekayasa Perangkat Lunak (RPL), mohon bantuannya untuk sharing masalah Silabus dan RPP.
Karena masih banyak guru RPL yang belum mempunyai silabus dan RPP

Materi Silabus dan RPP bisa dikirimkan ke dy.hapeku@gmail.com

Terima kasih,

Fungsi Date & Time di Visual Basic 6.0

Operasi tanggal dan waktu tidak hanya sebatas mendapatkan tanggal dan waktu saat ini (current date/time). Anda mungkin juga perlu melakukan operasi-operasi lanjut, seperti mengembalikan tanggal/waktu, kalkulasi tanggal/waktu, dan sebagainya. Untuk lebih jelasnya, berikut tip dalam menyelesaikan operasi-operasi seputar tanggal dan waktu.

• Mendapatkan Tanggal dan Waktu

Untuk mendapatkan informasi mengenai tanggal dan waktu saat ini, lazimnya kita menggunakan method  Now. Sebagai alternatif, Anda bisa memanfaatkan properti Date dan Time untuk mendapatkan tanggal dan waktu.

'mendapatkan current date & time
Print Now     ' Tanggal dan waktu
Print Date    ' Tanggal
Print Time    ' Waktu

• Pembentukan dan Ekstraksi

Apabila Anda tidak ingin mendapatkan tanggal yang lengkap dari pendekatan sebelumnya, Anda bisa membentuk sendiri komponen-komponen tanggal/waktu.
' Mendapatkan bagian (DateTime) tertentu
Print Day(Now) & "-" & Month(Now) & "-" & _
Year(Now)
Print Hour(Now) & ":" & Minute(Now)

Seperti halnya ketika membentuk komponen-komponen tanggal/waktu, ada beberapa pendekatan untuk mengekstrak tanggal dan waktu.
' Mendapatkan bagian (DateTime) tertentuPrint Day(Now) & "-" & Month(Now) & "-" & _
Year(Now)
Print Hour(Now) & ":" & Minute(Now)
Print DatePart("d", Now)    ' d= Day
Print DatePart("m", Now)    ' m= Month
Print DatePart("yyyy", Now) ' yyyy= Year

• Kalkulasi Tanggal dan Waktu

 Bergantung pada kebutuhan Anda, ada beberapa pendekatan untuk mengalkulasi tanggal dan waktu. Sebagai contoh, untuk menambah atau mengurangi tanggal/waktu, gunakan method DateAdd.
' 3 hari kemudian dan yang lalu
Print DateAdd("d", 3, Now)
Print DateAdd("d", -3, Now)
' Untuk bulan=m, tahun=yyyy
' 3 jam kemudian
Print DateAdd("h", 3, Now)
' Untuk menit= n, detik= s
Jika Anda ingin mendapatkan informasi mengenai selisih tanggal/waktu, gunakan method DateDiff.
' Jumlah hari sejak 20 September 2006
Print DateDiff("d", #9/20/2006#, Now)

• Pemformatan Tanggal dan Waktu

Jika diperlukan, informasi tanggal/waktu yang telah Anda dapatkan bisa diformat sesuai dengan kebutuhan. Hal ini diwujudkan dengan memanfaatkan method Format.
Print Format(Now, "dddd, dd mmm yyyy")
' Output: (misal) Sabtu, 29 September 2006
Print Format(Now, "hh:mm:ss")
' Output: 21:30:48

Latihan soal untuk UAS Genap tahun pelajaran 2010/2011

Latihan soal untuk UAS Genap tahun pelajaran 2010/2011, kelas XI Teknik Informatika/Rekayasa Perangkat Lunak (RPL)
Materi yang di ujikan, Microsoft Visual Basic 6.0 dan perancangan sistem
Silahkan di download