Cara mudah mendesign form di VB

Ada saatnya dimana kalian perlu menata tata letak dari objek kalian, misalnya CommandButton, tepat berada di tengah-tengah Form. Atau adakalanya kalian ingin membuat beberapa objek berukuran sama. Tentu saja ini agak sulit dilakukan bila dilakukan dengan cara manual. Sebenarnya ada suatu fasilitas untuk membantu Anda melakukannya. Yaitu dengan cara Form Editor.

Pertama, Kalian perlu menampilkan toolbar Form Editor terlebih dahulu. Caranya mudah. Pada menu View > klik Toolbar > klik Form Editor.

Sebuah toolbar baru akan segera ditampilkan.

Saatnya mencoba! Tambahkan 3 buah TextBox secara sembarangan.

Pertama, kita buat ukuran ketiga TextBox tersebut menjadi sama, dan Text1 sebagai patokan. Sebelumnya, kita harus menyeleksi (baca: memilih) Text1, Text2, dan Text3. Caranya, sambil menekan tombol Ctrl, pilih Text1, Text2, dan Text3. (CATATAN: Objek yang terakhir Anda pilih akan menjadi patokan untuk mengubah ukuran atau posisi, jadi Text1 harus dipilih terakhir.)

Pada toolbar Form Editor, klik tanda panah pada tombol Make Same Size dan pilihlah Both.

Hasilnya akan seperti berikut:

Selanjutnya, kita akan membuat posisi ketiga TextBox ini menjadi sama. Pada toolbar Form Editor, klik tanda panah pada Align, lalu klik Lefts.

Hasilnya akan seperti berikut:

Anda juga dapat mengatur jarak spasi antar TextBox tersebut. Sebagai contoh: Klik Format > Vertical Spacing > Remove. Hasilnya akan menjadi seperti berikut ini:

Setelah itu, Anda dapat menambahnya kembali (klik Format > Vertical Spacing > Increase), menjadi seperti ini:

Anda juga dapat membuat ketiga TextBox ini tepat berada di tengah-tengah. Caranya mudah. Pada Form Editor, klik tanda panah pada Center, pilih Center Vertically.

Hasilnya akan tampak sebagai berikut:

Bisa juga ditambah dengan Center Horizontally.

Bagaimana? Praktis bukan? Daripada Kalian melakukannya secara manual dan mengira-ngiranya. :D

Yang suka Upload / Share File (DropBox)

Ada sedikit info buat kalian yang suka upload-upload file untuk di share ke umum.Disini ada tempat hosting yang bagus kok (menurut saya),knp bagus???
Soalnya tiap file yang mau kita share ke umum atau untuk di download untuk umum,kadang terganggu dengan adanya iklan2 yang muncul saat mau download.

Nah bagi yang ga mau terganggu dengan adanya iklan2 tsb,kalian bisa daftar di sini
Nama Hostingnya adalah DropBox

Daftarkan account kalian disana,untuk account free kalian dapatkan spase 2Gb.lumyan,satu akun 2Gb,kalo banyak account kan tinggal kaliin ajah tuh brp jadinya :D

Tahap-tahapnya :

1. Setelah kalian klik link diatas,maka kalian akan di anjurkan mendownload file dari dropbox.
2. Download lah file tsb (tidak akan berpengaruh apapun,apalagi virus)
3. Sambil nunggu download,daftarkan akun anda di dropbox melalui web tadi.
4. Setelah selesai install dan anda sudah memiliki akun,silahkan melakukan pengaturannya dan masukkan akun yang tadi telah anda daftarkan.
5. Dengan begitu,di dalam hardisk anda telah terdapat Folder bernama DROPBOX (lokasi standart di MyDokument)
6. Lalu tahap selanjutnya anda hanya perlu meng-copy file yang ingin anda upload ke dropbox,dengan cara meng-copy file tsb ke dalam folder "PUBLIC" yang berada di dalam folder DROPBOX tadi.
7. jika sudah,tunggulah sampai ada tanda / icon centang berwarna hijau.
8. Jika sudah selesai upload (icon centang hijau) anda klik kanan pada file tsb,dan pilih menu "Dropbox>>Copy Public Link"
9. Paste kan link yang telah kalian pilih ke blog atau web untuk di download...

Macam-macam ERROR dan penanggulangannya (Delphi)

Sekarang saya akan sedikit membahas permasalahan ERROR di delphi yang sudah sering kalian hadapi tentunya.
Berdasarkan dari pengalaman dan apa yang saya lihat dari sekitar,masalah error inipun cukup melelahkan para pembuat program,apalagi newbie yang masih agakkurang mendalami. . .pasti pada kebingungan saat mau “RUN” projectnya, eh tau-tau error

Kasus :
1. Saat kalian mau membuat listing melalui “event”maupun langsng double klik di objek,sering terjadi error.atau muncul pesan


Penanggulangannya :
>> Cek pada bagian “eventnya
kalian bisa lihat bahwa di event objek tsb,sudah terjadi operasi sebelumnya.
Hapus event tsb contoh diatas (Button1Click)Lalu setelah menghapus “event”, Kalian cari pada jendela listing di bagian “Header” yang menunjukan event dari objek tsb

Hapuslah “procedure yang telah terbentuk secara otomatis tsb.Udah deh,coba kalian ulangi membuat procedure dengan langkah sprt biasa . . .pasti bisa deh
2.Yang kedua disini sering pasti kalian mendapatkan pesan ERROR

Penanggulangannya :
>> Pada jendela listing,kalian scrool sampai paling akhir LISTINGnya. . .Di baris paling akhir harus terdapat “END.” (end titik)

>> Jika langkah diatas bukan permasalahannya,(sudah terdapat END.), maka kalian cek lagi ke bagian listing “Procedure” yang terakhir(paling bawah).Cek apakah sudah terdapat cukup penutup listing (end;)

atau mungkin “end;”nya kurang. . .jika belum ada maka tambahkan “end;” tsb,jika sudah ada “end;” kemungkinan “end;” nya kurang.Coba kalian tambahkan lagi…

3. Muncul pesan ERROR saat mau run project,dan yang disorot bagian listing percabangan IF

Pemecahanya :
>>Kalian lihat pada syntax if btnsimpan.caption :=
Pada format penulisan IF telah kalian ketahui,pada “kondisi penulisan tidak memakai : (titik dua).
seharusnya if btnsimpan.caption = ‘&SIMPAN’
tanpa “ : “
4. Selanjutnya ERROR yang sering di temui itu adalah

Pemecahannya:
>> Kalian lihat pesan errornya “Missing Operator or semicolon”
Pesan tsb menandakan bahwa ada baris listing yang belum di tutup,pada delphi tiap baris listing diharuskan di tutuo dengan “ ; “ (titik koma)
Ga usah repot-repot cari sumber masalahnya,karena biasanya kasus ini berada tepat diatas baris yang di sorot merah
Lihat pada contoh diatas,tepat diatas baris merah,listingnya belum di tutup dengan ; (titik koma),maka tambahkanlah penutup baris listing tsb.

---

Cukup sampai disini ajah dulu yah penjelasan ttg ERROR di delphi,jika ada ERROR lainnya yang belum saya bahas.silahkan tinggalkan komentar kalian di bawah.

SEMOGA BERMANFAAT

Mencetak dan Mengambil Data Dari Excel

Bagaimana cara menceta dan mengambil data dari Excel…?
Dengan excel kita dapat mengelola berbagai macam database, kita dapat membaca data dari file
teks,
mdb,
dBASE
dan database lain,
Dalam pelajaran ini saya ingin menulis database ke file teks di data.txt, setelah itu saya membaca data.txt dan menunjukkan dalam sel lembar kerja di Excel.

1. Sub BacaTulis()   
2. ‘deklarasikan variabels   
3. Dim NewSheet As Worksheet   
4. Dim tmpStr As String   
5. Dim no As Integer   
6. Dim x As Integer   
7. ‘Write to txt file  
8. Open “c:\data.txt” For Output As 1   
9. Print #1, “Data”   
10. Print #1, “1″   
11. Print #1, “2″   
12. Print #1, “3″   
13. Print #1, “4″   
14. Print #1, “5″   
15. Print #1, “6″   
16. Close  
17. ‘Membaca dari file txt   
18. x = 1   
19. Set NewSheet = ThisWorkbook.Sheets.Add(Type:=xlWorksheet)   
20. NewSheet.Select   
21. Open “c:\data.txt” For Input As #1   
22. Do While Not EOF(1)   
23. Line Input #1, tmpStr   
24. NewSheet.[A1].Offset(x, 0).Value = tmpStr   
25. x = x + 1   
26. Loop   
27. Close #1   
28. NewSheet.Name = “datatxt“  
29. End Sub  

---

Share

Image sebagai background form di Delphi

Menggunakan Image sebagai Background form???

Banyak yang bertanya,bagaimana caranya memakai gambar sebagai background form delphi???
Dsini ada sedikit informasi buat kalian yang mungkin mempunyai  pertanyaan yang sama dalam hati
Background disini dimaksudkan adalah sebagai latar belakang dari sebuah form,di delphi memang tidak disediakan setting di propertiesnya untuk mengganti backgrond form.Tapi ada beberapa baris listing yang bisa mewujudkan keinginan kalian. . .

Sayartnya file image harus ada satu lokasi dengan project atau aplikasi tsb,dan format file disini bukannya .jpg tetapi file harus berformat *.bmp , nah gimana???sejauh ini udah bisa di fahami??
Untuk membuatnya copy listing ini di code editor delphi.

1. procedure TForm1.FormCreate(Sender: TObject);   
2. var MyBitmap: TBitmap;   
3. begin   
4. MyBitmap:=TBitmap.Create;   
5. MyBitmap.LoadFromFile('bg.bmp');   
6. Form1.Brush.Bitmap:=MyBitmap;   
7. end;  

Keterangannya :
1. baris pertama :
var
mybitmap:tbitmap;
mendeklarasikan MyBitmap sebagai variable file image(bmp)
2. Baris selanjutnya (setelah begin) :
  MyBitmap:=TBitmap.Create;
Memanggil variable atau membuat variable MyBitmap sebagai file image.
  MyBitmap.LoadFromFile('bg.bmp');
Membaca file image yang bernama bg.bmp difolder project
  Form1.Brush.Bitmap:=MyBitmap;
Disini tahap akhirnya,mentranform latar belakang form dengan menggunakan image tsb.
Saya rasa cukup untuk penjelasan dari listingnya,untuk lanjutnya silahkan di coba langsung

Semoga bermanfaat

Dikerjain Game (video)

Ada ada ajah kelakuan orang2,isengin pernah sy isengin orang. . . Tapi "Ga gene juga kaleee.. .." (sketsa style) :p
Liat aksinya saat dikerjain ama game di komputernya :D

Caia-caia versi ovj

Waaahh. . . ada ada ajah kelakuan mahkluk-mahkluk di ovj,setelah briptu norman merilis caia-caia nya,kini gantian briptu sule n andre yang ber-caia caia ria. . . cekidot deh langsung di buffer ajah videonya :p