Download source code vb6, source code delphi7, tutorial vb, tutorial delphi, tutorial php

Membuat Auto Complete pada Combo Box di Visual Basic

Pada postingan kali ini saya akan membahas kembali mengenai Visual Basic yaitu Membuat Auto Complete pada Combo Box, maksud Auto Complete disini adalah Melengkapi Teks secara Otomatis pada saat sedang melakukan pengetikan ke data yang mendekati atau yang dinginkan, dengan catatan apabila data tersebut ada pada list data Combo Box tersebut.

Tip ini sangat berguna apabila menggunakan combobox yang di dalamnya terdiri atas ratusan bahkan ribuan data. User (pengguna/pemakai program) akan kesulitan jika harus memilih satu per satu menggunakan scroll combobox ke bawah hingga data yang diinginkan ketemu. Dengan adanya tip ini, user cukup hanya mengetikkan beberapa karakter awal, dan program akan otomatis melengkapinya, sehingga tidak perlu mengetik sampai akhir. Nah bagi yang berkenan untuk Tip ini silahkan ikuti langkah-lah berikut


  • Buatlah Project Baru Standart Exe
  • Tambahkan 1 buah ComboBox Style : Dropdown Combo
  • Tambahkan 1 buah Module

'Ketik Coding berikut pada Module

Option Explicit

Const CB_FINDSTRING = &H14C

Public Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long

Public Enum EnumKarakter
Asli = 0
Ubah = 1
End Enum

Public Function AutoComplete( _
cbCombo As ComboBox, _
sKeyAscii As Integer, _
Optional bUpperCase As Boolean = True, _
Optional cCharacter As EnumKarakter = Asli) _
As Integer
Dim lngFind As Long, intPos As Integer
Dim intLength As Integer, tStr As String
With cbCombo
If sKeyAscii = 8 Then
If .SelStart = 0 Then Exit Function
.SelStart = .SelStart - 1
.SelLength = 32000
.SelText = ""
Else
intPos = .SelStart
tStr = .Text
If bUpperCase = True Then
.SelText = UCase(Chr(sKeyAscii))
Else
.SelText = (Chr(sKeyAscii))
End If
End If

lngFind = SendMessage(.hwnd, CB_FINDSTRING, 0, _
ByVal .Text)
If lngFind = -1 Then
Exit Function
Else
intPos = .SelStart
intLength = Len(.List(lngFind)) - Len(.Text)
If cCharacter = Ubah Then
.SelText = .SelText & Right(.List(lngFind), _
intLength)
Else
.Text = .List(lngFind)
End If
.SelStart = intPos
.SelLength = intLength
End If
End With
End Function


' Ketik Coding berikut pada Form

Option Explicit

Private Sub Combo1_KeyPress(KeyAscii As Integer)
KeyAscii = AutoComplete(Combo1, KeyAscii, False, Asli)
End Sub

Private Sub Form_Load()
Call AddData
End Sub

Private Sub AddData()
With Combo1
.Clear
.AddItem "Deni Indrawan"
.AddItem "Riska Widiya"
.AddItem "Siapa Lagi"
.AddItem "Terserah anda"
.AddItem "Mau Kasih apaan"
.AddItem "Terserah"
End With
End Sub

Kemudian Run (jalankan) Program atau tekan F5, lalu pada combobox coba ketik huruf a , maka secara Otomatis teks pada combobox akan menjadi Ana Lestari. Semoga Tip ini ada mamfaat nya bagi kita semua, dan jangan lupa nitip komennya ya, terimakasih sebelumnya ... salam
project.zip



Membuat Caption Label Bergerak di Visual Basic

Tips kali ini masih seputar Visual Basic yaitu Membuat Caption Label Bergerak , maksudnya bisa berjalan-jalan (smoga aja gak kesasar yah .. wekekeke) kalau di Html istilah nya Marquee (kalo gak salah), mudah-mudahan yang saya maksud bisa ngerti yah, kalo gak ngerti di mengertiin aja deh ( :p ), Nah bagi yang berminat silakan ikuti langkah-langkah dibawah ini, Persiapan :

- Buat Project baru Standart Exe
- Tambahkan 1 buah Control Timer (Timer1) Property yang diset :
Enable = True, Interval = 100
- Satu Buah Control Label (Label1)


Ketik Coding dibawah ini pada Form Project

  1. Dim Pos As Integer, StartPos As Integer, Lengh As Integer, iTeks As Integer  
  2. Dim MyTeks As String  
  3.   
  4. Private Sub Form_Load()  
  5. iTeks = 1  
  6. End Sub  
  7.   
  8. Private Sub Timer1_Timer()  
  9. Pos = Pos + 1  
  10. If iTeks = 1 Then  
  11. MyTeks = "Ini adalah Contoh ..."  
  12. ElseIf iTeks = 2 Then  
  13. MyTeks = "Pembuatan Label Berjalan"  
  14. ElseIf iTeks = 3 Then  
  15. MyTeks = "Dengan Visual Basic"  
  16. End If  
  17. StartPos = Len(MyTeks)  
  18. Lengh = StartPos - Pos  
  19. If Lengh = 0 Then  
  20. If iTeks = 1 Then  
  21. iTeks = 2  
  22. ElseIf iTeks = 2 Then  
  23. iTeks = 3  
  24. ElseIf iTeks = 3 Then  
  25. iTeks = 1  
  26. End If  
  27. Pos = 0 - StartPos  
  28. End If  
  29. Label1 = Right(MyTeks, Lengh)  
  30. End Sub  

Klik Like/share jika anda menyukai tulisan Share


EFEK GETAR PADA FORM di Visual Basic

Masih tentang Tips Visual Basic tentu nya .. kali ini saya mencoba berbagi tentang Membuat Efek Vibrate pada Form . sebenarnya tips ini tidak terlalu penting, tapi sekedar mencoba share ilmu tentang VB aja buat para calon programer tentunya yang masih junior. Tips ini untuk membuat unik Form sewaktu di run atau ditampilkan, maksud Efek Getar ini adalah efek getaran jadi sewaktu form di tampilan Form akan bergetar-getar seperti cacing kepanasan :p , untuk effect ini codingnya tidak panjang tidak capek ngetik nya, nah untuk mempersingkat waktu kita langsung to the point aja . bagi yang berminat silakan ikuti langkah-langkah berikut

Persiapan yang di lakukan :
Buat Project baru stardart exe  dengan satu timer.. lalu ketik coding berikut pada form



  1. Private Sub Vibrate(frm As Form, rScale As Integer, Times As Integer)  
  2. Dim Lft As Long, Tp As Long  
  3. Dim i  
  4. Lft = frm.Left  
  5. Tp = frm.Top  
  6. For i = 1 To Times  
  7. frm.Move Lft + Sgn(rScale)  
  8. Pause 20  
  9. frm.Move Lft + rScale  
  10. Pause 20  
  11. frm.Move Lft, Tp + Sgn(rScale), frm.Width, frm.Height  
  12. Pause 20  
  13. frm.Move Lft, Tp + rScale, frm.Width, frm.Height  
  14. Pause 20  
  15. Next i  
  16. End Sub  
  17.   
  18. Private Sub Pause(ms)  
  19. Dim secs  
  20. Dim g  
  21. secs = ms / 1000  
  22. g = Timer  
  23. Do While Timer - g < secs  
  24. DoEvents  
  25. Loop  
  26. End Sub  
  27.   
  28. Private Sub Form_Activate()  
  29. Vibrate Me, 100, 20  
  30. End Sub  


Klik Like/share jika anda menyukai tulisan Share


Tugas Pengganti Quiz Delphi Lab E Malam

Bisa Di download Hari Minggu. . .
Tugas dikumpulkan paling lambat hari jumat 29-04-2011 (Pas Uts)


Tugas . . . Klik

Pada soal tertera pengumpulan hari SENIN, Paling lambat hari Jum'at ( Pas UTS )

Cara Membuat Form Transparan di Visual Basic

Ada seorang kawan bertanya kpd saya,
" Kak,gimana sich bikin form di vb jadi transparan??? "
Okeh dari hal itu saya mencoba share info mengenai bagaimana cara membuat form di vb menjadi transparan.

1. Copy listing dibawah ini pada header(paling atas) listing form yg mau di buat transparan
  1. Option Explicit  
  2.   
  3. Private Const WS_EX_LAYERED   
  4. Private Const GWL_EXSTYLE   
  5. Private Const LWA_COLORKEY   
  6. Private Const LWA_ALPHA   
  7.   
  8. Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As LongByVal nIndex As LongAs Long  
  9. Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As LongByVal nIndex As LongByVal dwNewLong As LongAs Long  
  10. Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As LongByVal crColor As LongByVal nAlpha As ByteByVal dwFlags As LongAs Long  


2. Nah selanjutnya tinggal copy listing ini pada event Form_load
  1. Call SetWindowLong(Me.hWnd, GWL_EXSTYLE, GetWindowLong(Me.hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED)  
  2. Call SetLayeredWindowAttributes(Me.hWnd, RGB(0, 0, 0), <b>200</b>, LWA_ALPHA Or LWA_COLORKEY)  

3.Trus coba di run
4.Untuk merubah tingkat tembus pandang dari form , kalian tinggal ganti 200dengan angka lain,semakin kecil angkanya,semakin menghilang form anda alias makin transparant :D

Untuk sample project sedot here :p


Klik Like/share jika anda menyukai tulisan Share


Aplikasi Showroom Mobil (Cash/Credit)

Oke disini saya akan menampilkan aplikasi showroom/penjualan mobil secara kredit.
Dengan sedikit ngantuk2 dan agak sedikit nyolong2 waktu kalo lagi bengong, akhirnya bisa jg jadi ini aplikasi.
Bardasarkan instruksi dari instruktur dan asisten nya yg cantik dan ganteng (gombal dikit,biar dpt nilai tambah :p )
langsung ajah di cek penampakannya dari aplikasi ini...

Screen Shootnya cekidot :D

Login:


Menu Utama:


Form Operator:


Form Pelanggan/atau bahasa jawanya customer


Form Mobil / Kendaraan :


Form Transaksi Cash :


Form Transaksi Kredit :


Transaksi Bayar Cicilan :

Sekian dulu dari saya, Buat projectnya masih blm bisa di publikasikan...Soalnya blm dpt nilai :p

Latihan Delphi



Buat Mahasiswa Ku.. Di baca-baca yah.. Latihan yang udah di pelajari..
Ni saya Kasih Jawaban waktu Latihan Kemaren..
***************************************
Jawaban Latihan Nested if (Hotel) . . .  Klik
Jawaban Latihan Nested If (Agen) . . .  Klik

Jawaban Quiz Type A . . . Klik
Jawaban Quiz Type B . . . Klik 

Trik Folder ajaib SmadLock

Tau folder ajaib smadlock???? hmmm...folder ajaib ini bener2 bisa ajaib karena g bisa ngiden, infeksi virus dan diduplikat keren....setelah searching & mampir ke forum sebelah ternyata lambang segitiga yang mengapit tulisan samd lock lah yang menjadi kuncina... setelah mencobana ternyata bener bisa ane nyolok di server lab D pan banyak biang tuh hi2... [:D] ... ane jga g sembarang bikin icon ternyata g semua icon bisa memproteksi folder kaya gini gan..baru tau ane kirain semua simbol yang g da di keyboard bisa semua aman...(inget simbol yang g da di keyboard yak).... ane penasaran ane keliling lagi ternyata bung fazrie membocorkan simbol apa z nyang bisa n g bisa cekidot gambar diabawah ini yak..

oce langsung ke praktek



1.buka ms word karena kita akan mencari simbol yang g da di keyboard n sesuai m gambar di atas oce....

2.lalu ketikan nama folder yang akan agan2 pakai, untuk menyisipkan icon silahkan klik insert lalu klik pada symbol. Copy paste lah nama tersebut pada nama folder yang ingin agan gunakan. Sangat Mudah bukan...



dah jadi pan sekarang kita buat folder autorun.infnya....



1. Buka Notepad atau New > Text Document

2. Beri nama Desktop.ini

3. Copy kode berikut:

[.ShellClassInfo]



CLSID={2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}

4. Kemudian buka lagi Notepad atau New > Text Document di tempat yang sama dengan Desktop.ini

5. Ganti dengan nama terserah anda.

6. Copy kode berikut kedalamnya:

md autorun.inf



md autorun.inf\con\

md autorun.inf\con\aux\



md autorun.inf\con\aux\nul\

move desktop.ini autorun.inf



attrib +r +s +h /d /s autorun.inf

7. Ganti ext file ini dengan .bat (ex. namafile.bat)

8. Kemudian klik 2 X file namafile.bat dan lihat hasilnya



cara kedua Jika junker2 ingin membuatnya sendiri dari awal membuat folder hingga desktop.ini, agar tampak hasilnya super hidden folder tersebut menggunakan CMD.

1.Caranya klik start-> pilih run -> isi dengan CMD lalu enter.

2.Setelah itu cari letak drive FD anda pada my computer. Misal Drive FD anda letaknya pada G:\, maka ketiklah G: -> lalu tekan enter,

3.setelah itu ketik attrib +s +h (nama folder anda tanpa tanda kurung), contoh attrib +s +h autorun.inf -> lalu tekan enter

Nb: ane ga tau cara ngapus folder ini yak hi2... coba di search di google



dah kelar bisa pan para junker bikin folder smadlock & autorun.inf nya simple bisa ngamanin data penting di FD tinggal masukin datana ke dalam folder buatan kita ntu...cuman ane sendiri orang yang jarang nyimen data penting di FD cuma ane demen ngoprek beginian he2...moga bermanfaat
>>original post <<

Tutorial Crystal Reports

Crystal Reports adalah piranti standar untuk pembuatan laporan pada sistem operasi Windows, dimana cetakan/templete laporan yang dihasilkan dapat disertakan pada banyak bahasa pemrograman, untuk memudahkan crystal report disingkat CR

Prestasi yang di rasih CR tidak lepas dari sejarah perjalanan produk yang panjang. CR versi 8.5 dilunjurkan pada tahun 2001 (tahun peluncuran didasarkan pada tahun file User’s Guiode, maka dapat diperkirakan versi pertama CR diluncurkan pada tahun 1990-1992 dengan pola hitungan setiap versi membutuhkan waktu 1 tahun. Pada saat ini versi CR sudah pada versi 11, tetapi pembahasan pada tutorial ini, kita hanya membahas CR versi 8.5 karena lebih mudah dipahami.

Pada tutorial ini sy tidak akan menjelaskan tatacara instalasi CR 8.5, tetapi lebih membahas bagaimana merancang/mendesain laporan CR 85. dengan menggunakan database Ms Access. Untuk lebih jelasnya langsung aja ya :

1. Merancang Laporan
Buka crystal report dengan cara:
- klik Start All program
- Crystak Report Tools Crystal Report, maka akan tampil jendela dialog
sebagai berikut:











- Pada Crystal Report Gallery Pilih:

- Pada tab Data pilih database

- Pilih Find database File pada Data Explorer










- Klik Add, maka akan tampil sebagai berikut, lalu pillih  Next:





















- Pilih Add All>> untuk memilih semua data













- Pilih Finish jika tidak ada pengaturan lain. Maka akan tampil desain
report sebagai berikut:

- Perbaiki tampilan dan tambahkan judul laporan
- Simpan dengan nama yang anda inginkan.

Update Status FB

Penomoran otomatis

Desain Nomor otomatis Visual Basic


secara simple yang akan saya ajarkan hanya berupa form kecil.

Syarat yang dibutuhkan:
- Label (1)
- TextBox(1)
- Adodc (1)
- DBGRID(1)
- CommandButton(1)

setelah selesai mendesain, langkah selanjutnya adalah input code ini di form
  1. sub otomatis()  
  2. dim nomor,otomatis as string  
  3. adodc1.recordsource = "select kode_barang from barang"  
  4. adodc1.refresh  
  5.   
  6. if adodc1.recordset.recordcount = 0 then  
  7. otomatis = "B-001"  
  8. else  
  9. adodc1.recordset.movelast  
  10. nomor= Right (adodc1.recordset!kode_barang,3)+1  
  11. otomatis= "B-"&amp;right("000"&amp;nomor,3)  
  12. end if  
  13. textboxt1.text= otomatis   
  14. end sub  

*Setelah selesai panggil sub tersebut di Form_load dengan nama "otomatis"

Klik Like/share jika anda menyukai tulisan Share


Anjing



Koleksi Hewan lainnya :

Ikan

 

Koleksi Hewan lainnya :

Kura-Kura

 
Koleksi Hewan lainnya :

Kodok

Pinguin

Pinguin : 

Kumpulan Latihan-Latihan Delphi

Pada ketentuan diatas,data yg ada di combo kode dokter dan combo obat dapat langsung kita masukan di properties combobox tsb.
Caranya :
Klik satu kali di ComboBox lalu di Object Inspector cari Items dan masukan data-data tsb di kotak dialog yg muncul.
Untuk penamaan objek2nya dapat dilihat dari gbr diatas.
Code :
 procedure TForm1.CmbKodeClick(Sender: TObject);
begin
IF
CmbKode.Text='DRJ01' then
  begin
  eNama.Text:='Raffa';
  eSpesialis.Text:='Jantung';
  eByPreiksa.text:='2000000';
  end
else IF
CmbKode.Text='DRA02' then
  begin
  eNama.Text:='Sheila Anisa';
  eSpesialis.Text:='Anak';
  eByPreiksa.text:='150000';
  end
else
  begin

  eNama.Text:='Putri';
  eSpesialis.Text:='Mata';
  eByPreiksa.text:='100000';
  end;
CmbObt.SetFocus;
end;

procedure TForm1.CmbObtClick(Sender: TObject);
begin
IF
CmbKode.Text='OBT01' then
  begin
  eNmObt.Text:='Obat Capsul';
  eHrgObt.text:='250000';
  end
else IF CmbKode.Text='OBT02' then
  begin
  eNmObt.Text:='Obat Sirup';
  eHrgObt.text:='15000';
  end
else
  begin

  eNmObt.Text:='Obat Puyer';
  eHrgObt.text:='25000';
  end;
bTobay.SetFocus;
end;

procedure TForm1.bTobayClick(Sender: TObject);
var
a,b,c : real;
begin
a:=strtofloat(eByPreiksa.Text);
b:=strtofloat(eHrgObt.Text);
c:=a+b;
eTobay.Text:=floattostr(c);
eubay.SetFocus;
end;

procedure TForm1.eUbayKeyPress(Sender: TObject; var Key: Char);
var
a,b,c : real;
begin
if key=#13 then
  begin
    a:=strtofloat(eTobay.Text);
    b:=strtofloat(eubay.Text);
    c:=b-a;
    eKembali.Text:=floattostr(c);
  end;
end;

procedure TForm1.bBersihClick(Sender: TObject);
begin

bersih;
end;

procedure TForm1.bKeluarClick(Sender: TObject);
begin

close;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin

bersih;
CmbKode.SetFocus;
end;

Ketikan listing diatas pada jendela listingnya.
Kalo ga mau pada ribet,bisa download langsung projectnya Disini silahkan dilanjutkan dengan membuat pesan saat klik tombol keluar

Kode Otomatis (autonumber) Di Delphi

Nah sekarang ada yg bertanya masalah kode otomatis,

Siapkan project dng satu Button dan satu Edit.box
Lalu pada button click tuliskan listing berikut :

  1. var  
  2. kd,st,newKd :string;  
  3. i,n         :integer;  
  4. begin  
  5.  DataModule1.ZQuery6.Last;  
  6. if not(DataModule1.ZQuery6.eof and DataModule1.ZQuery6.Bof) then  
  7. begin  
  8. kd:=DataModule1.ZQuery6.FieldByName('tccode').AsString;  
  9. // auto generate  
  10. for i:=1 to 5 do  
  11. st:=st+kd[i+1];  
  12. n:=strtoint(st)+1;  
  13. case length(inttostr(n)) of  
  14. 1 : newKd:='CLR0000'+inttostr(n);  
  15. 2 : newKd:='CLR000'+inttostr(n);  
  16. 3 : newKd:='CLR00'+inttostr(n);  
  17. 4 : newKd:='CLR0'+inttostr(n);  
  18. 5 : newKd:='CLR'+inttostr(n);  
  19. end;  
  20. end  
  21. else newKd:='CLR00001';  
  22. edkode.Text:=newKd;  

Klik Like/share jika anda menyukai tulisan Share


Cara Membuat Tampilan form XP di Delphi

Ternyata membuat effect hot style seperti pada windows XP tidaklah sulit cukup satu baris perintah.
Effectnya jika button, cekbox, dan sebagainya kalau didekati dengan mouse akan menyala seperti pada gambar (hot tract)
bagaimana caranya..?
kita cukup menambahkan file winxp.res , file ini bisa anda download pada menu top download gratis
perintahnya sebagai berikut  :


  1. unit Unit1;  
  2.   
  3. interface  
  4.   
  5. uses  
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  7.   Dialogs, OffBtn, DB, DBTables, Grids, DBGrids, Buttons, StdCtrls,  
  8.   ComCtrls, ExtCtrls;  
  9.   
  10. type  
  11.   TForm1 = class(TForm)  
  12.     PageControl1: TPageControl;  
  13.     TabSheet1: TTabSheet;  
  14.     TabSheet2: TTabSheet;  
  15.     TabSheet3: TTabSheet;  
  16.     Button1: TButton;  
  17.     BitBtn1: TBitBtn;  
  18.     SpeedButton1: TSpeedButton;  
  19.     Edit1: TEdit;  
  20.     CheckBox1: TCheckBox;  
  21.     RadioButton1: TRadioButton;  
  22.     ComboBox1: TComboBox;  
  23.     RadioGroup1: TRadioGroup;  
  24.   private  
  25.     { Private declarations }  
  26.   public  
  27.     { Public declarations }  
  28.   end;  
  29.   
  30. var  
  31.   Form1: TForm1;  
  32.   
  33. implementation  
  34.   
  35. {$R *.dfm}  
  36. {$R winxp.res} // Tambahannya  
  37.   
  38. end.  

Klik Like/share jika anda menyukai tulisan Share


Statement IF

Dalam setiap pemrograman dikenal sebuah fungsi untuk memilah dan menyeleksi data, begitu juga di dalam delphi. Fungsi IF digunakan untuk memilah data sehingga nilai yang diinginkan menjadi tepat dan akurat.
Code:
  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);  
  2. begin  
  3. if key=#13 then eNama.SetFocus  
  4. end;  

  • mengisi nilai combobox status kawin berdasarkan jenis kelamin
  1. procedure TForm1.ekelaminKeyPress(Sender: TObject; var Key: Char);  
  2. var  
  3. npilih:byte;  
  4. begin  
  5. npilih:=ekelamin.ItemIndex;  
  6. if key=#13 then  
  7. begin  
  8.   // cek jika laki laki ubah nilai status  
  9.   if npilih=0 then  
  10.    begin  
  11.     eStatus.Items.Clear; // bersihkan nilai dulu  
  12.     eStatus.Items.Add('Kawin');  
  13.     eStatus.Items.Add('Tidak Kawin');  
  14.     eStatus.Items.Add('Duda');  
  15.    end  
  16.    else  
  17.      // cek jika perempuan ubah nilai status  
  18.    begin  
  19.     eStatus.Items.Clear;    // bersihkan nilai dulu  
  20.     eStatus.Items.Add('Kawin');  
  21.     eStatus.Items.Add('Tidak Kawin');  
  22.     eStatus.Items.Add('Janda');  
  23.    end;  
  24. estatus.SetFocus;  
  25. end;  


Klik Like/share jika anda menyukai tulisan Share


Statement Case ... Of

Disamping if delphi juga mengenal Case. berbeda di dalam menggunakan if dengan Case, Jika menggunakan if expresi pembandingnya bisa menggunakan type data string, integer, dan lainnya.
Namun  Case kita hanya bisa menggunakan type data Char atau angka.
contoh :
  • If Edit1.text<>'' then
 tetapi case tidak bisa menggunakan cara seperti diatas.
Syntax Case :
  1. case expressi of  
  2.     caseList1: statement1;  
  3.       ...  
  4.     caseListn: statementn;  
  5.  end  

Contoh : 
untuk demo ini buatlah aplikasi baru, tambahkan edit1, button1 dan memo1.
berikut ini listing programnya

  1. unit Unit1;  
  2.   
  3. interface  
  4.   
  5. uses  
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  7.   Dialogs, StdCtrls;  
  8.   
  9. type  
  10.   TForm1 = class(TForm)  
  11.     Edit1: TEdit;  
  12.     Button1: TButton;  
  13.     Memo1: TMemo;  
  14.     procedure Button1Click(Sender: TObject);  
  15.   private  
  16.     { Private declarations }  
  17.   public  
  18.     { Public declarations }  
  19.   end;  
  20.   
  21. var  
  22.   Form1: TForm1;  
  23.   
  24. implementation  
  25.   
  26. {$R *.dfm}  
  27.   
  28. procedure TForm1.Button1Click(Sender: TObject);  
  29. var angka:integer;  
  30. pesan:string;  
  31. begin  
  32.  angka:=strtoint(edit1.text);  
  33.  case angka of  
  34.       1:  pesan:='angka 1';  
  35.       5:  pesan:='Bilangan Ganjil';  
  36.   6..10 : pesan:='angka antara 6 sampai 10';  
  37.   11..20 :  
  38.    begin  
  39.      showmessage('ada 2 statatement pakai begin end');  
  40.      pesan :='Bilangan antara 11 sampai 20';  
  41.    end;  
  42.   end;  
  43.   memo1.lines.add(pesan);  
  44. end;  
  45.   
  46. end.  

Klik Like/share jika anda menyukai tulisan Share


Perulangan (For) di DELPHI

Perulangan merupakan aktifitas yang sama yang dilakukan secara berulang ulang di dalam sebuah program. Perulangan ini bisa proses pencarian, pencetakan dan sebagainya.
Delphi mempunyai fasilitas perulangan tak bersyarat yaitu perulangan/looping For.
syntax :
For ... to 
contoh :
  1. procedure TForm1.Button2Click(Sender: TObject);  
  2. var x:integer;  
  3. begin  
  4. for x:=1 to 5 do  
  5. begin  
  6.   memo1.Lines.Add(inttostr(x));  
  7. end;  
  8. end;  
  9. perintah di atas jika dilakukan dengan manual maka sebagai berikut  
  10. procedure TForm1.Button2Click(Sender: TObject);  
  11. begin  
  12.   
  13.   memo1.Lines.Add(inttostr(1));  
  14.   memo1.Lines.Add(inttostr(2));  
  15.   memo1.Lines.Add(inttostr(3));  
  16.   memo1.Lines.Add(inttostr(4));  
  17.   memo1.Lines.Add(inttostr(5));  
  18.   
  19. end;  

EditBox tidak bisa diisi angka

Agar EditBox tidak dapat diisi angka menurut saya begini sintaknya:
pilih EditBox mana yang mo divalidasi, trz pd object inspector pilih event OnKeyPress, klik 2x masukan code ini :
  1. if (key in['0','1','2','3','4','5','6','7','8','9'])then key:=#0;  
  2. 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.  Selamat mencoba !!!  
  5. di isi khusus aphabet  
  6. procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);  
  7. begin  
  8. if not (key in ['A'..'z',#8]) then key := #0;  
  9. end;  

Aritmatik dengan Tanda Titik (.) Pada EditBox

Disini saya akan memberikan tentang Cara menghitung perkalian yang memakai tanda separator misalnya titik (.) seperti 1.5 * 100 hasilnya biasanya dia error tergantung regional setting, dan bagaimana supaya tidak perlu di set lagi regional settingnya
Code:


  1. procedure TForm1.Button1Click(Sender: TObject);  
  2. var x,y:extended;  
  3. s:string;  
  4. begin  
  5.   ThousandSeparator := '.';  
  6.   DecimalSeparator := ',';  
  7.   s:='1.500.100,50';  
  8.   s:=StringReplace(s,'.','',[rfReplaceAll]);;  
  9.    x:=strtofloat(s);  
  10.   y:=5*x;  
  11.   showmessage(formatfloat('###.##',y));  
  12. end;  

Klik Like/share jika anda menyukai tulisan Share