Table Daftar kode ASCII ( kode angka keyboard)

Seperti yang kalian ketahui,bahwa kode ascii adalah kode input dari sebuah keyboard yang akan di terima dan di olah untuk di tampilkan pad program atau komputer,jadi dalam penginputan huruf atau angka sesungguhnya bukan huruf atau angka yang kita input.namun berupa kode-kode ascii.
Ini adalah daftar kode ASCII di keyboar,bagi kalian yang ingin menggunakannya pada pemprograman,silahkan di baca-baca ajah :p

ASCII	Chr	ASCII	Chr	ASCII	Chr
8	Backspace	61	=	98	b
13	Carriage Return or Enter key	62	>	99	c
32	Space	63	?	100	d
33	!	64	@	101	e
34	"	65	A	102	f
35	#	66	B	103	g
36	$	67	C	104	h
37	%	68	D	105	i
38	&	69	E	106	j
39	'	70	F	107	k
40	(	71	G	108	l
41	)	72	H	109	m
42	*	73	I	110	n
43	+	74	J	111	o
44	,	75	K	112	p
45	-	76	L	113	q
46	.	77	M	114	r
47	/	78	N	115	s
48	0	79	O	116	t
49	1	80	P	117	u
50	2	81	Q	118	v
51	3	82	R	119	w
52	4	83	S	120	x
53	5	84	T	121	y
54	6	85	U	122	z
55	7	86	V	123	{
56	8	87	W	124	|
57	9	88	X	125	}
58	:	89	Y	126	~
59	;	90	Z	127	DEL
60	<	97	a

Untuk melihat daftar konstanta bisa kalian klik disini

---

Klik Like/share jika anda menyukai tulisan Share

    Syarat Tukar Link/Banner      Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.      Terdaftar      Terdapat meta tag search engine pada template.      Terindeks      Halaman blog muncul pada hasil pencarian Google...  

---

Jumlah Karakter dalam Kalimat (String)

Artikel kali ini adalah tentang bagaimana cara menghitung jumlah karakter di dalam sebuah EditBox di dalam delphi,ikuti langkah-langkah dibawah ini.

Pertama siapkan project dengan 

-3 buah edit.box

-1 Button

Misal di edit1 di input huruf 'a', kemudian di edit2 di inputkan kalimat misal 'nama saya adalah'

ketika di klik button maka akan muncul hasilnya di edit3 berupa 7, 7 di dapat dari banyaknya huruf a pada kalimat trsebut, terimakasih
Code :

1. procedure TForm1.Button1Click(Sender: TObject);  
2. var x,jml:integer;  
3. h,s:string;  
4. n:char;  
5. begin  
6. h:=edit1.Text;  
7. s:=edit2.Text;  
8. n:=h[1];  
9. jml:=0;  
10. for x:=1 to length(s) do  
11. if s[x]=n then inc(jml);  
12. edit3.Text:=inttostr(jml);  
13. end;  

---

Klik Like/share jika anda menyukai tulisan Share

    Syarat Tukar Link/Banner      Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.      Terdaftar      Terdapat meta tag search engine pada template.      Terindeks      Halaman blog muncul pada hasil pencarian Google...  

---

Animasi Form Delphi

Menampilkan form dengan animasi yang bervariasi bisa menggunakan fungsi dari file dll windows yaitu fungsi animate. Fungsi ini kita panggil di form on show

1. unit Unit1;  
2.   
3. interface  
4.   
5. uses  
6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
7.   Dialogs;  
8.   
9. type  
10.   TForm1 = class(TForm)  
11.     procedure FormShow(Sender: TObject);  
12.   private  
13.     { Private declarations }  
14.   public  
15.     { Public declarations }  
16.   end;  
17.   
18. var  
19.   Form1: TForm1;  
20.   
21. implementation  
22.   
23. {$R *.dfm}  
24.   
25. procedure TForm1.FormShow(Sender: TObject);  
26. begin  
27.         AnimateWindow(Handle,1000,AW_CENTER);  
28.       //  AnimateWindow(Handle,1000,AW_BLEND);  
29.   
30. end;  
31.   
32. end.  

Hasilnya form akan muncul dari tengah kecil terus membesar.
beberapa pilihan lain yang bisa dipakai

AW_SLIDE Uses slide animation, the default is AW_ROLL AW_HOR_POSITIVE Animates the window from left to right, used with AW_SLIDE, or the default AW_ROLL AW_HOR_NEGATIVE Animates the window from right to left, used with AW_SLIDE, or the default AW_ROLL AW_VER_POSITIVE Animates the window from top to bottom, used with AW_SLIDE, or the default AW_ROLL AW_VER_NEGATIVE Animates the window from bottom to top, used with AW_SLIDE, or the default AW_ROLL AW_CENTER Expands the window from centerpoint outward when opening, negates any other direction flags AW_BLEND Uses a fade in effect when opening, or a fade out effect when closing, ignored if AW_CENTER is also assigned AW_ACTIVATE Activates the window, should not be used with AW_HIDE AW_HIDE Hides the window, the default is a visible window

---

Klik Like/share jika anda menyukai tulisan Share

    Syarat Tukar Link/Banner      Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.      Terdaftar      Terdapat meta tag search engine pada template.      Terindeks      Halaman blog muncul pada hasil pencarian Google...  

---

Simpan, Cari, Edit dan hapus pada Visual Basic 6.0

Berikut adalah comtoh penulisan code vb6 untuk simpan, cari, ubah dan hapus data dengan menggunakan Data Control, ADODC, dan ADODB. (codenya basic/pemula)

Code-code dibawah ini hanya sebatas code-code dasar untuk simpan, cari, ubah dan hapus, tidak disertakan code-code validasi, penanganan error ataupun code untuk koneksinya.




1. DATA CONTROL
Yang perlu diperhatian adalah bahwa Data Control membutuhkan index untuk pencarian yang selanjutnya untuk melakukan edit dan hapus data

1. 'Simpan Data :  
2.   
3. Data1.Recordset.AddNew  
4. Data1.Recordset!namakolom1 = Text1.Text  
5. Data1.Recordset!namakolom2 = Text2.Text  
6. Data1.Recordset.Update  
7. Data1.Refresh  
8.   
9. 'Pencarian Data :  
10.   
11. Data1.Recordset.Index = "KodeIdx"  
12. Data1.Recordset.Seek "=", Textcari.Text  
13. If Not Data1.Recordset.NoMatch Then  
14.      Text1.Text = Data1.Recordset!namakolom1  
15.      Text2.Text = Data1.Recordset!namakolom2  
16. Else  
17.      MsgBox "Maaf, Data Tidak Ditemukan!"  
18. End if  
19.   
20. 'Edit Data :  
21.   
22. Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.  
23. Data1.Recordset.Edit  
24. Data1.Recordset!namakolom1=Text1.Text  
25. Data1.Recordset!namakolom2=Text2.Text  
26. Data1.Recordset.Update  
27. Data1.Refresh  
28.   
29. 'Hapus Data :  
30.   
31. Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.  
32. Data1.Recordset.Delete  
33. Data1.Refresh  

2. ADODC

1. 'Simpan Data :  
2. Adodc1.Recordset.AddNew  
3. Adodc1.Recordset!namakolom1 = Text1.Text  
4. Adodc1.Recordset!namakolom2 = Text2.Text  
5. Adodc1.Recordset.Update  
6. Adodc1.Refresh  
7.   
8.   
9. 'Pencarian Data :  
10.   
11.   
12. Adodc1.Recordset.Find "namakolom1='" + Text1.Text + "'", , adSearchForward, 1  
13. If Not Adodc1.Recordset.EOF Then  
14.      Text1.Text = Adodc1.Recordset!namakolom1  
15.      Text2.Text = Adodc1.Recordset!namakolom2  
16. Else  
17.      MsgBox "Maaf, Data Tidak Ditemukan!"  
18. End if  
19.   
20. 'Edit Data :  
21.   
22. Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.  
23.   
24. Adodc1.Recordset!namakolom1=Text1.Text  
25. Adodc1.Recordset!namakolom2=Text2.Text  
26. Adodc1.Recordset.Update  
27. Adodc1.Refresh  
28.   
29. 'Hapus Data :  
30.   
31. Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.  
32. Adodc1.Recordset.Delete  
33. Adodc1.Refresh  

3. ADODB
Sebelum melangkah lebih jauh sebaiknya Anda membaca terlebih dahulu bagaimana koneksi database dengan menggunakan ADODB disini

1. 'Simpan Data :  
2. ado.Execute "INSERT INTO [nama tabel] VALUES ('" + Text1.Text + "','" +  Text2.Text + "')"  
3.   
4. 'Pencarian Data  
5. Set Rs = New Adodb.Recordset  
6. Rs.Open "SELECT * FROM [nama table1] WHERE [nama kolom1]='" + TextCari.Text + "'", ado  
7. If Not rs.EOF Then  
8.      Text1.Text = rs("namakolom1")  
9.      Text2.Text = rs("namakolom2")  
10. Else  
11.      MsgBox "Maaf, Data Tidak Ditemukan!"  
12. End if  
13.   
14. 'Edit Data  
15.   
16. ado.Execute "UPDATE [nama tabel] Set [namakolom1]='" + Text1.Text + _  
17.                     "',[namakolom2]='" + Text2.Text + _  
18.                     "' WHERE [nama kolom1]='" + TextCari.Text + "'"  
19.   
20. Code diatas tidak memerlukan lagi kode pencarian seperti code edit untuk DATA dan Adodc  
21.   
22. 'Hapus Data  
23. ado.Execute "DELETE * FROM [nama tabel] WHERE [nama kolom1]='" + TextCari.Text + "'"  

Code diatas tidak memerlukan lagi kode pencarian seperti code hapus untuk DATA dan Adodc

---

Klik Like/share jika anda menyukai tulisan Share

    Syarat Tukar Link/Banner      Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.      Terdaftar      Terdapat meta tag search engine pada template.      Terindeks      Halaman blog muncul pada hasil pencarian Google...  

---

Ukuran object otomatis mengikuti ukuran form (Maximize/Minimize)

Di bawah ini adalah contoh coding-nya, teramat sangat sederhana.

Sebelumnya buka project baru, tambahkan sebuah form dan masukkan ke dalamnya sebuah pictureBox, dan 3 buah Command, kemudian cobalah masukkan coding dibawah ini :

1. Private Sub Form_Resize()  
2.     On Error Resume Next  
3.     'mengubah ukuran object  
4.     Picture1.Height = Form1.Height - 2500 '+ Picture1.Height  
5.     Picture1.Width = Form1.Width - 300 '+ Picture1.Height  
6.     Picture1.Top = 60  
7.     Picture1.Left = 30  
8.      
9.     'menggeser object ke kanan bawah  
10.     Command1.Top = Form1.Height - Command1.Height - 600  
11.     Command1.Left = Form1.Width - Command1.Width - 240  
12.      
13.     'menggeser object ke kiri bawah  
14.     Command2.Top = Form1.Height - Command2.Height - 600  
15.     Command2.Left = 120  
16.      
17.     'menggeser object ke tengah bawah  
18.     Command3.Top = Form1.Height - Command3.Height - 600  
19.     Command3.Left = (Form1.Width - Command1.Width) / 2  
20.   
21. End Sub  

*)
Intinya adalah mengubah nilai/value dari 'Height', 'Widht', 'Left' dan 'Top' pada event Form_Resize, mengikuti perubahan ukuran form-nya, sedangkan angka berwarna merah silakan diubah-ubah sesuai keinginan.

Selamat mencoba, apabila codenya kurang berkelas mohon dimaafkan, prinsip saya yang penting berhasil :D

---

Klik Like/share jika anda menyukai tulisan Share

    Syarat Tukar Link/Banner      Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.      Terdaftar      Terdapat meta tag search engine pada template.      Terindeks      Halaman blog muncul pada hasil pencarian Google...  

---

Design Form Manis

Command button yang biasa digunakan di VB6 keliatan jadul banget ya seperti blog ini. ha ha ha ...
Nah biar tidak jadul lagi, beberapa saat yang lalu saya menemukan button bagus nih, mau? download saja disini.(Sample Project)
Ada banyak style-nya, tinggal ubah-ubah saja di properties-nya, mudah dan simpel. Selamat Mencoba, nggak jelas boleh tanya ko'.
Warning : Tapi sayangnya loading saat design-nya cukup lama, tapi saat di-run baik-baik saja

Download
*Link sudah saya perbaiki*

Cara Mencari Cepat ADODC

Mencari cepat suatu record dengan menampilkan terlebih dahulu pillihan yang mungkin dimaksud kedalam sebuah listBox

Project : Standard EXE Component Tambahan :
ADODC (Microsoft ADO Data Control 6.0 (OLEDB))
Datagrid (Microsoft Datagrid Control 6.0 (OLEDB))
Controls :
list1 (listBox)
text1 (textbox)
cmdCari (Commandbutton)
lbsuggest (label)
Adodc1, Adodc2 (ADODC)
Datagrid1 (Datagrid)

Code :

1. Private Sub cmdcari_Click()  
2. With Adodc1  
3. .RecordSource = "SELECT Nama, Alamat FROM TbAlamat WHERE nama like '" + Text1.Text + "%'"  
4. .Refresh  
5. End With  
6. DataGrid1.Refresh  
7. End Sub  
8.   
9. Private Sub Form_Load()  
10.     Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" + _  
11.                               "Data Source=" + App.Path & "\data\db1.mdb;" + _  
12.                               "Persist Security Info=False"  
13.     Adodc1.RecordSource = "TbAlamat"  
14.     Adodc1.Refresh  
15.     DataGrid1.Refresh  
16.      
17.     Adodc2.ConnectionString = Adodc1.ConnectionString  
18.     Adodc2.RecordSource = "TbAlamat"  
19.     Adodc2.Refresh  
20.          
21.     List1.Top = lbsuggest.Top + lbsuggest.Height  
22.     List1.Left = Text1.Left  
23.     List1.Height = 0  
24.     List1.Width = Text1.Width  
25.     List1.Visible = False  
26.     lbsuggest.Visible = False  
27. End Sub  
28.   
29. Private Sub List1_Click()  
30. Text1.Text = List1.Text  
31. List1.Visible = False  
32. lbsuggest.Visible = False  
33. End Sub  
34.   
35. Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)  
36.     List1.Clear  
37.     List1.Visible = False  
38.     lbsuggest.Visible = False  
39.     n = 0  
40.     If Not Text1.Text = "" Then  
41.         List1.Clear  
42.         With Adodc2  
43.         .RecordSource = "SELECT nama FROM TbAlamat WHERE nama like '" + Text1.Text + "%'"  
44.         .Refresh  
45.             If Not .Recordset.EOF Then  
46.                 Do Until .Recordset.EOF  
47.                     n = n + 1  
48.                     List1.AddItem .Recordset(0)  
49.                     .Recordset.MoveNext  
50.                 Loop  
51.                 List1.Height = n * 225  
52.                 If List1.Height > 2250 Then List1.Height = 2250  
53.                 List1.Visible = True  
54.                 lbsuggest.Visible = True  
55.             End If  
56.         End With  
57.     End If  
58. End Sub  

Jika perlu penjelasan,silahkan tinggalkan komentar kalian.

---

Share