Dasar Pembuatan Game Planet

Game Planet ...........?
weis asyik nih, asyik sih tapi aplikasi game planet yang saya buat ini masih belum bisa dikatakan game planet karena aplikasi yang saya buat ini masih belum sempuran. ini merupakan aplikasi sederhana yang hanya tersusun dari scrif-scrif dasar pemograman bahasa VB dengan memanfaatkan keycode saja. tapi tidak apalah kalo untuk belajar karena dengan sesuatu yang kita coba pasti bisa menghasilkan sesuatu yang dapat dibanggakan.


lho kok jd ngomongin yang ga jelas gini sih, mending donlot saja contohnya di sini

Cek Memori Pada Komputer dengan Visual Basic

Cek Memori Pada Komputer dengan Visual Basi. ini adala aplikasi kecil yang saya buat untuk mengetahui berapa besar memori pada komputer anda, dengan menggunakan APi Functions kita bisa lagsung mengaplikasikannya pada VB yang hendak kita buat. aplikasi ini bisa anda kembangkan lagi karena ini merupkan aplikasi sederhana yang memanfaatkan function saja.


untuk lebih jelasnya anda dapat mendownloadnya di sini
semoga bisa bermanfaat.

Pengucap Harga

ini merupakan aplikasi sederhana, yang bisa anda kembangkan lagi menjadi aplikasi yang lebih komplek. aplikasi ini cocok yang berhubungan dengan struk dengan pengucapan harga.
pengucap harga ini masih sederhana untuk dikembangkan lebih komplek lagi.


untuk lebih jelasnya silakan donlot di sini

Menggerakan Form Tanpa Title

bagi yang gi belajar VB nih da sedikit kode untuk menggerakan form tanpa judul, w dapet code ini dari vb-bego.com, wong enyong jg masih belajar. kode’y ga baanyak kok loe-loe pade tinggal copy paste za.


'awal coding ---------------------------------------
Private Declare Function SendMessage Lib “User32″ _
Alias “SendMessageA” (ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long

Private Declare Sub ReleaseCapture Lib “User32″ ()
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2

Private Sub Form_MouseMove(Button As Integer, Shift As Integer , X As Single, Y As Single)
Dim Judul As Long
If Button = 1 Then
Call ReleaseCapture
Judul = SendMessage(Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End If
End Sub
'akhir coding ---------------------------------------------

kalo ga berhasil contact za ke d_triady@yahoo.com

Convert Crystal Report ke PDF

untuk mengkonver cr ke pdf yang pertama kita lakukan adalah menambahkan reference Crystal Reports ActiveX Designer Runtime Library CRAXDRT di visual basic6

crystal report yang digunakan adalah crystal report 9

berikut adalah kodenya.


'============================================================
'Deklarasikan terlebih dahulu di Form atau di Modul
Dim crxApp As New CRAXDRT.Application
Dim Report As CRAXDRT.Report
Dim crxExport As CRAXDRT.ExportOptions

'kode untuk membuka CR dan mengkonvert ke pdf
Set Report = crxApp.OpenReport(”\.rpt”, 1)
Set crxExport = Report.ExportOptions
crxExport.formatType = crEFTPortableDocFormat
crxExport.DestinationType = crEDTDiskFile
crxExport.DiskFileName = “\.pdf”
Report.Export False
Set crxExport = Nothing
Set Report = Nothing '———————————————————————————-

apabila ada kesalahan dalam kode atau terjadi debug-debug langsung za hub saya di d_triady@yahoo.com atau kasih comment.

Menampilkan Crystal Report VB

untuk menampilkan crystal report ke dalam form itu hal mudah, berikut ini adalah
kode untuk menampilkan cr ke dalam vb.

semisalnya kita telah membuat atau memiliki CR 9 yang berada di direktory “C:\Tes.rpt
kemudian didalam form vb jangan lupa tambahkan componen “Crystal Report Viewer”,
dan jangan lupa juga tambahkan refernce “Crystal Report 9 ActiveX Designer Run Time Library”

berikut adalah kodenya :

‘===============================================
Dim CR As Report
Dim crApp As New CRAXDRT.Application
Set CR= crApp.OpenReport( “C:\Tes.rpt”)
CR.EnableParameter Prompting = False
Dim frmCobaCr As New frmReport

With frmCobaCr
.Show .CRVwr.ReportSource= CR .Caption = “Laporan Denga Crystal Report”
.CRVwr.ViewReport
End With

‘===============================================

apabila kode diatas terjadi debug-debug langsung kirim comment atau email di

d_triady@yahoo.com