Jenis Type Data di Delphi

Seperti yang sudah diketahui masalah type data dalam delphi cukup sensitive.
Kali ini saya hanya coba memberi informasi tentang berbagai type data yang ada di delphi :

1. simple  ordinal  integer  character  Boolean  enumerated  subrange  real   string   structured   set  array  record  file  class  class  reference  interface  pointer  procedural  variant   

Cuma ini yang bisa saya tulis,semoga bermanfaat

EditBox Hanya diisi angka

Disini saya akan sedikit berbagi tentang validasi di EditBox Delphi,yang akan dibahas kali ini adalah validasi editbox dimana editbox tsb hanya bisa di isi dengan huruf,alias ga bisa diisi angka…

Pilih textbox mana yang mau divalidasi, trz pd object inspector pilih event
OnKeyPress, klik 2x masukan listing ini :

1. if (key in['0','1','2','3','4','5','6','7','8','9'])then key:=#0; 
2. atau klo hanya diisi angka saja 
3. if not(key in['0','1','2','3','4','5','6','7','8','9',#8])then key:=#0; 
4. 
   
5. Selamat mencoba !!!
6. 
   
7. di isi khusus aphabet 
8. procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); 
9. begin 
10. if not (key in ['A'..'z',#8]) then key := #0; 
11. end;  

Perulangan FOR

Suatu aktifitas yang sama yang dilakukan secara berulang ulang di
dalam sebuah program itulah yang disebut PERULANGAN. Perulangan ini bisa proses pencarian, pencetakan dan sebagainya.
Delphi mempunyai fasilitas perulangan tak bersyarat yaitu perulangan/looping For.
Format Listing:

1. For ... to 
2. contoh : 
3. procedure TForm1.Button2Click(Sender: TObject); 
4. var x:integer; 
5. begin x:=1 to 5 
6. do begin memo1.Lines.Add(inttostr(x)); 
7. end; 
8. end;  

Jika dilakukan dengan manual atau tanpa syntax perulangan,perintah diatas maka sebagai berikut

1. procedure< TForm1.Button2Click(Sender: TObject) 
2. begin; 
3. memo1.Lines.Add(inttostr(1)); 
4. memo1.Lines.Add(inttostr(2)); 
5. memo1.Lines.Add(inttostr(3)); 
6. memo1.Lines.Add(inttostr(4)); 
7. memo1.Lines.Add(inttostr(5)); 
8. end;  

Selamat Mencoba

Fungsi IF

Fungsi IF digunakan untuk memilah data sehingga
nilai yang diinginkan menjadi tepat dan akurat.
Syntax :

1. if ... { expression1 } then  
2. begin  
3. if ... { expression2 } then  
4. ... { statement1 }  
5. end  
6. else  
7. ... { statement2 } ;  

Contoh :

Untuk memindahkan cursor ke edit selanjutnya jika ditekan enter.

1. procedure TForm1.eNipKeyPress(Sender: TObject; var Key: Char); begin if key=#13 then eNama.SetFocus end; Mengisi nilai combobox status kawin berdasarkan jenis kelamin procedure TForm1.ekelaminKeyPress(Sender: TObject; var Key: Char); var npilih:byte; begin npilih:=ekelamin.ItemIndex; if key=#13 then begin // cek jika laki laki ubah nilai status if npilih=0 then begin eStatus.Items.Clear; // bersihkan nilai dulu eStatus.Items.Add('Kawin'); eStatus.Items.Add('Tidak Kawin'); eStatus.Items.Add('Duda');end else // cek jika perempuan ubah nilai status begin eStatus.Items.Clear; // bersihkan nilai dulu eStatus.Items.Add('Kawin'); eStatus.Items.Add('Tidak Kawin'); eStatus.Items.Add('Janda'); end; estatus.SetFocus; end;  

Semoga Bermanfaat
Cuma sedikit yang bisa saya tuliskan. . .

Macam-macam InputBox di VB

InputBox adalah sebuah dialog massage yang dimana terdapat inputan berupa TextBox di dalamnya, hal ini di peruntukan agar user dapat menggunakan inputan itu sendiri dalam kondisi tertentu.Adapun format penulisan : MsgBox(prompt[, Kode_Tombol]][, title][, helpfile, context])
Dan disini akan saya berikan macam-macam tampilan di dalam InputBox :

Kode Tombol	Bilangan	Tampilan pada Jendela Dialog
VbOKOnly	0	Tombol OK saja
VbOKCancel	1	Tombol OK dan Cancel
VbAbortRetryIgnore	2	Tombol Abort, Retry dan Ignore
VbYesNoCancel	3	Tombol Yes, No dan Cancel
VbYesNo	4	Tombol Yes dan No
VbRetryCancel	5	Tombol Retry dan Cancel
VbCritical	16	Icon pesan kritis
VbQuestion	32	Icon ?
VbExclamation	48	Icon !
VbInformation	64	Icon pesan informasi
VbDefaultButton1	0	Tombol pertama sbg default
VbDefaultButton2	256	Tombol kedua sbg default
VbDefaultButton3	512	Tombol ketiga sbg default
VbDefaultButton4	768	Tombol keempat sbg default
VbMsgBoxHelpButton	16384	Menampilkan juga tombol "Help"

Dan ini sebagai contoh saja agar kalian dapat membayangkan bagaimana cara penulisannya :
i = msgbox (“Read this !”, vbOKOnly, “Test Message”)

InputBox membuat jendela dialog input data yang meminta untuk memasukkan data string.
Format penulisan : InputBox(prompt[, title][, default][, xpos][, ypos][, helpfile, context])
Dim Message, Title, Default, MyValue
Message = “Enter a value between 1 and 3”
Title = “InputBoxDemo” ‘set title
MyValue = InputBox(Message, Title, Default)
‘ Helpfile and context, add Help button automatically
MyValue = InputBox(message, Title, , , , ”DEMO.HLP”, 10)
‘ Display dialog box at posotion 100,100
MyValue = InputBox(Message, Title, Default, 100, 100)

KUMPULAN TUTORIAL DAN MATERI DELPHI

Bagi kalian yang belum punya software delphi,bisa di cek disini
Di artikel kali ini saya hanya fokuskan mengenai materi atau tutorial delphi.
Silahkan Download pada link yang telah disediakan :

MATERI UTS

Pertemuan 1 . . . Klik
Pertemuan 2 . . . Klik
Pertemuan 3 . . . Klik
Pertemuan 4 . . . Klik

Pertemuan 5 . . . Klik

. . . . . . . . . . . . . . . . . . . . .
MATERI UAS

Pertemuan 1 . . . Klik
Pertemuan 2 . . . Klik
One To Many . . . Klik

Nama	Download
Tutorial Delphi for Newbie	Click
Database Dengan Script Soal + Jawaban Quiz A Soal + Jawaban Quiz B Penjualan 0ne to many Kasus CheckBox UTS	Click Click Click Click Source code

Manipulasi bilangan dalam VB

Fungsi
VB mempunyai fungsi untuk memanipulasi data numerik sebagai berikut :
 
Round : membulatkan bilangan cacah dengan jumlah desimal tertentu
MyValue = Round(33.4549, 2) ‘hasil 33.45
MyValue = Round(33.455, 2) ‘hasil 33.46
MyValue = Round(33.456, 2) ‘hasil 33.46
Val : menghasilkan bilangan numerik dari suatu variabel string
MyValue = Val(“2457”) ‘hasil 2457
MyValue = Val(“2 4 5 7”) ‘hasil 2457
MyValue = Val(“24 and 57”) ‘hasil 24
Str : menghasilkan variabel string (Variant) dari ekspresi numerik
MyString = Str (459) ‘hasil “459”
MyString = Str (-459.65) ‘hasil “-459.65”
MyString = Str (459.001) ‘hasil “459.001”

Hex : menghasilkan nilai hexadesimal dari suatu bilangan
MyHex = Hex(5) ‘hasil 5
MyHex = Hex(10) ‘hasil A
MyHex = Hex(459) ‘hasil 1CB

Oct : menghasilkan nilai octal dari setiap bilangan
MyOct = Oct(4) ‘hasil 4
MyOct = Oct(8) ‘hasil 10
MyOct = Oct(459) ‘hasil 713

Membuat Grafik Dengan VB

Kali ini yang dbahas masih seputar visual basic, yaitu bagaimana cara membuat Grafik Chart Menggunakan vb.... Silahkan di ikuti tahapan nya :

• Buka VB
• Tambahkan komponen mschart, adodc dan datagrid

Dan design atau buatlah form sperti dibawah ini :

Listing nya bisa di copy langsung :

Dim CONN As New ADODB.Connection Dim RSDATA As New ADODB.Recordset Sub KONEKSI() Set CONN = New ADODB.Connection Set RSDATA = New ADODB.Recordset CONN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\db1.mdb;Persist Security Info=False" End Sub Private Sub Form_Load() Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\db1.mdb;Persist Security Info=False" Adodc1.RecordSource = "DATAKU" Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Refresh End Sub Private Sub Command5_Click() Dim Nilai(1 To 6, 1 To 6) '===>>> inilah yang masih harus dicari solusinya, karena tidak bisa berupa variabel Call KONEKSI RSDATA.Open "select * from dataku", CONN RSDATA.Requery a = 0 RSDATA.MoveFirst Do While Not RSDATA.EOF a = a + 1 Nilai(a, 1) = RSDATA!Data Nilai(a, 2) = RSDATA!frekuensi RSDATA.MoveNext Loop MSChart1.ChartData = Nilai End Sub

Cara Register Komponen Vb

Belum lama ini saya dapet beberapa pertanyaan tentang cara register komponen vb di komputer atau laptop.Sebenernya cukup simple bin mudah,langsung deh di cek neh caranya .. .

• klik start
• pilih run
• ketik cmd
• tekan enter
• ketik CD C:\windows\system32
• enter
• ketik regsvr32 comctl32.ocx
• enter
• tunggu sebentar sampai muncul pesan bahwa registrasi sukses

*untuk lokasi file yang ada spasinya,penulisan alamatnya di tambahkan tanda kutip ("alamat/file.ocx")

Mengatasi "unable to open database" Crystal Report

Setelah ksana kesini bingung dng masalah satu ini,akhirnya dapet pencerahan juga...
Kalo kalian pernah menemukan masalah database crstl rpt ga bisa di load saat project kalian pindah komputer,ini mungkin akan sedikit membantu.
Kemarin-kemarin sempet puyeng juga seh :p
Pasudah tau penanggulangannya,eh malahan "cuma gitu doank???" (jadi sotoy gitu :p)
*Jadi curhat :D
Langsung deh ni solusinya :

Buka Cristal Reportnya dan pilih menu database lalu pilih "Set Location"

Setelah itu pilih / klik tombol "Same As Report"

Udah deh selesai ketika kalian pilih tombol "Done"
gitu doank kan :p

KODE ETIK PARA PROGRAMMER

Pemrograman komputer membutuhkan sebuah kode etik, dan kebanyakan dari
kode-kode etik ini disadur berdasarkan kode etik yang kini digunakan oleh
perkumpulan programmer internasional.
Kode etik seorang programmer adalah sebagai berikut :

1. Seorang programmer tidak boleh membuat atau mendistribusikan Malware.
2. Seorang programmer tidak boleh menulis kode yang sulit diikuti dengan sengaja.
3. Seorang programmer tidak boleh menulis dokumentasi yang dengan sengaja untuk membingungkan atau tidak akurat.
4. Seorang programmer tidak boleh menggunakan ulang kode dengan hak cipta kecuali telah membeli atau telah meminta izin.
5. Tidak boleh mencari keuntungan tambahan dari proyek yang didanai oleh pihak kedua tanpa izin.
Etika profesi yang berlaku bagi programmer di indonesia 36. Tidak boleh mencuri software khususnya development tools.
7. Tidak boleh menerima dana tambahan dari berbagai pihak eksternal dalam suatu proyek secara bersamaan kecuali mendapatkan izin.
8. Tidak boleh menulis kode yang dengan sengaja menjatuhkan kode programmer lain untuk mengambil keuntungan dalam menaikkan status.
9. Tidak boleh membeberkan data-data penting karyawan dalam perusahaan.
10. Tidak boleh memberitahu masalah keuangan pada pekerja dalam pengembangan suatu proyek.
11. Tidak pernah mengambil keuntungan dari pekerjaan orang lain.
12. Tidak boleh mempermalukan profesinya.
13. Tidak boleh secara asal-asalan menyangkal adanya bug dalam aplikasi.
14. Tidak boleh mengenalkan bug yang ada di dalam software yang nantinya programmer akan mendapatkan keuntungan dalam membetulkan bug.
15. Terus mengikuti pada perkembangan ilmu komputer.

Pada umumnya, programmer harus mematuhi “Golden Rule”: Memperlakukan orang lain sebagaimana kamu ingin diperlakukan. Jika semua programmer mematuhi peraturan ini, maka tidak akan ada masalah dalam komunitas.

www.proramer.blogspot.com

KONEKSI MENGGUNAKAN ADODC (Access)

Ikuti langkahnya step by step pada redaksi dan gambar di bawah ini.

1. Buatlah folder khusus sebagai tempat menyimpan database, form dan project.
2. Klik menu start
3. All programs
4. Microsoft office
5. Microsoft office access 2003
6. Klik menu file > new (atau klik icon new, atau klik create new file) 
7. Buka dan aktifkan folder yang telah dibuat di langkah 1
8. Tulis nama database misalnya DBMaster
9. Klik create
10. Double klik create table in design view 
11.  Buatlah struktur tabel sebagai berikut           
12. Klik kanan field kodebrg
13. Pilih primary key (atau klik icon Primary Key Gambar kunci warna kuning)  
14. Simpan struktur tabel > Klik ikon save (gambar disket)  
15. Tulis nama tabel (barang)
16. Klik OK
17. Isilah tabel barang secara manual dengan data sebagai berikut
    PROSES PEMBUATAN FOLDER, DATABASE, TABEL DAN INDEX SELESAI

 SEKARANG MULAILAH BEKERJA DENGAN VB

• Aktifkan VB
• Pilih standard exe
• Klik OK

• Tambahkan komponen adodc dan datagrid caranya
• Klik menu project
• Pilih components
•   
• Aktifkan dua checkbox seperti gambar di bawah ini  
• Klik apply
• Klik OK (close)
• Tambahkan adodc dan datagrid ke dalam form
• Caranya cukup dengan melakukan klik pada objek adodc di toolbox kemudian
  drag dalam form
• Klik datagrid di toolbox kemudian drag dalam form
• Hasilnya sebagai berikut
•  
• Klik kanan adodc1
• Pilih adodc properties 
• Pilih use connection string
• Klik build 
•  
•  Pilih microsoft jet 4.0 OLE DB Provider
• Klik next 
•  
•  Cari dan pilih database DBMaster.mdb yang telah dibuat sebelumnya
• Klik open 
• Klik test connection 
• Sampai muncul pesan sukses seperti gambar di bawah ini 
•  
• Klik OK
• Klik OK sekali lagi
•  
• Klik tab recordsource 
•  
• Klik Button Command Type
• Pilih 2 - adCmdTable 
•  
•  Klik button Table Or Stored Procedur Name
• Pilih Tabel “Barang” 
• to be continue>>>