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

Cara Membuat animasi vb Bag.3

Drag dan drop jendela aplikasi umum di mana Anda dapat drag dan drop objek seperti file ke folder atau ke dalam recycle bin. Kemampuan ini dapat dengan mudah diprogram dalam visual basic. Pada contoh berikut, saya membuat simulasi menyeret benda-benda ke dalam recycle bin, kemudian turun api dan membakar mereka pergi.

Dalam program ini, saya meletakkan 6 gambar pada form, salah satu dari mereka adalah recycle bin, yang lain adalah recycle bin terbakar, satu lagi adalah api, dan tiga lebih gambar. Selain itu, mengatur dragmode milik semua gambar (termasuk api) yang akan diseret ke 1 (Otomatis) sehingga menyeret yang diaktifkan, dan mengatur properti terlihat dari recycle bin pembakaran untuk palsu saat start-up. Selain itu, label tag api seperti api di windows nya properti. Jika Anda ingin memiliki efek menyeret lebih baik, Anda perlu memuat sebuah ikon yang sesuai di bawah sifat dragIcon bagi mereka gambar yang akan diseret, sebaiknya ikon harus sama sebagai gambar sehingga ketika Anda tarik gambar, itu seperti Anda menyeret gambar bersama.

Prosedur acara penting dalam program ini adalah sebagai berikut:

  1. Private Sub Image4_DragDrop(Source As Control, X As Single, Y As Single)  
  2.   
  3. Source.Visible = False  
  4. If Source.Tag = "Fire" Then  
  5. Image4.Picture = Image5.Picture  
  6. End If  
  7.   
  8. End Sub  

Sumber mengacu pada gambar yang akan diseret. Menggunakan kode Source.Visible = False berarti akan hilang setelah diseret ke recycle bin (Image4). Jika sumber ialah neraka, maka recycle bin akan berubah menjadi recycle bin terbakar, yang dicapai dengan menggunakan kode Image4. gambar = Image5.Picture, di mana gambar 5 adalah recycle bin terbakar.



Animasi untuk gerakan lengkap

Sejauh ini contoh-contoh dari animasi yang ditampilkan dalam pelajaran 23 hanya melibatkan pergerakan gambar statis. Dalam pelajaran itu, Anda akan dapat membuat animasi yang benar mana menyelesaikan tindakan dalam siklus yang lengkap, misalnya, kupu-kupu mengepakkan sayapnya. Pada contoh berikut, saya menggunakan bingkai foto delapan kupu-kupu yang menampilkan kupu-kupu mengepakkan sayap pada tahapan yang berbeda.



Anda benar-benar dapat menyalin gambar di atas dan menggunakannya dalam program anda. Anda harus menempatkan semua gambar di atas tumpang tindih satu sama lain, membuat image1 terlihat saat semua gambar lainnya tak terlihat saat start-up. Selanjutnya, memasukkan tombol perintah dan label sebagai Animasikan. Klik pada tombol perintah dan kunci dalam laporan yang membuat gambar muncul dan menghilang berturut-turut dengan menggunakan sifat image.visible = = true dan image.visible palsu. Jika saya menggunakan ..... Kemudian dan elseif untuk mengontrol aliran program. Ketika Anda menjalankan program, Anda harus bisa mendapatkan animasi berikut.

  1. Private Sub Command1_Click()  
  2.   
  3. If Image1.Visible = True Then  
  4. Image1.Visible = False  
  5.  Image2.Visible = True  
  6. ElseIf Image2.Visible = True Then  
  7. Image2.Visible = False  
  8. Image3.Visible = True  
  9. ElseIf Image3.Visible = True Then  
  10. Image3.Visible = False  
  11. Image4.Visible = True  
  12. ElseIf Image4.Visible = True Then  
  13. Image4.Visible = False  
  14. Image5.Visible = True  
  15. ElseIf Image5.Visible = True Then  
  16. Image5.Visible = False  
  17. Image6.Visible = True  
  18. ElseIf Image6.Visible = True Then  
  19. Image6.Visible = False  
  20. Image7.Visible = True  
  21. ElseIf Image7.Visible = True Then  
  22. Image7.Visible = False  
  23. Image8.Visible = True  
  24. ElseIf Image8.Visible = True Then  
  25. Image8.Visible = False  
  26. Image1.Visible = True  
  27. End If  
  28.   
  29. End Sub  
Jika Anda ingin menciptakan efek kupu-kupu mengepakkan sayap dan terbang pada saat yang sama, maka Anda bisa menggunakan sifat Kiri dan Top dari sebuah objek, seperti yang digunakan dalam contoh pelajaran 23. Berikut adalah contoh dari sebuah subrutin di mana kupu-kupu mengepakkan sayap akan dan bergerak ke atas pada waktu yang sama. Anda juga dapat menulis subrutin kupu-kupu yang bergerak ke kiri, ke kanan dan ke bawah.
  1. Sub move_up( )  
  2.   
  3. If Image1.Visible = True Then  
  4. Image1.Visible = False  
  5. Image2.Visible = True  
  6. Image2.Top = Image2.Top - 100  
  7.   
  8. ElseIf Image2.Visible = True Then  
  9. Image2.Visible = False  
  10. Image3.Visible = True  
  11. Image3.Top = Image3.Top - 100  
  12.   
  13. ElseIf Image3.Visible = True Then  
  14. Image3.Visible = False  
  15. Image4.Visible = True  
  16. Image4.Top = Image4.Top - 100  
  17. ElseIf Image4.Visible = True Then  
  18. Image4.Visible = False  
  19. Image5.Visible = True  
  20. Image5.Top = Image5.Top - 100  
  21. ElseIf Image5.Visible = True Then  
  22. Image5.Visible = False  
  23. Image6.Visible = True  
  24. Image6.Top = Image6.Top - 100  
  25.   
  26. ElseIf Image6.Visible = True Then  
  27. Image6.Visible = False  
  28. Image7.Visible = True  
  29. Image7.Top = Image7.Top - 100  
  30.   
  31. ElseIf Image7.Visible = True Then  
  32. Image7.Visible = False  
  33. Image8.Visible = True  
  34. Image8.Top = Image8.Top - 100  
  35. ElseIf Image8.Visible = True Then  
  36. Image8.Visible = False  
  37. Image1.Visible = True  
  38. Image1.Top = Image1.Top - 100  
  39. End If  
  40.   
  41. End Sub  

Klik Like/share jika anda menyukai tulisan Share

Penggunaan SQL dalam VB

Dalam bab sebelumnya, kita telah belajar untuk menggunakan Control datagrid untuk menampilkan data dari database di lingkungan Visual Basic 6. Namun, tidak memungkinkan pengguna untuk mencari dan memilih informasi yang mereka ingin lihat. Dalam rangka untuk mencari suatu informasi tertentu, kita perlu menggunakan query SQL. SQL singkatan dari Struktur Query Language. Menggunakan kata kunci SQL, kita dapat memilih informasi spesifik yang akan ditampilkan berdasarkan kriteria tertentu. Kata kunci SQL yang paling mendasar adalah SELECT, digunakan bersama dengan kata kunci DARI untuk memilih informasi dari satu atau lebih tabel dari database. Sintaksnya adalah:

SELECT fieldname1,fieldname2,.....,fieldnameN FROM TableName
fieldname1, fieldname2,...... fieldnameN adalah pos dari kolom dari tabel database. Anda dapat memilih jumlah fieldname dalam query. Jika Anda ingin memilih semua informasi, Anda dapat menggunakan sintaks berikut:

SELECT * FROM TableName

Dalam rangka untuk menggambarkan penggunaan query SQL, memungkinkan membuat database baru di Microsoft Access dengan nama file berikut ID, Judul, Penulis, year, ISBN, Penerbit, Harga dan menyimpan meja sebagai buku dan database sebagai books.mdb dalam folder yang ditunjuk.
Selanjutnya, kita akan mulai Visual Basic dan memasukkan kontrol ADO, datagrid dan tiga tombol perintah. Nama tombol perintah tiga sebagai cmdAuthor, cmdTitle dan cmdAll. Ubah keterangan mereka untuk Tampilan Penulis, Judul Ditampilkan Buku dan Tampilan Semua masing-masing. Anda juga dapat mengubah caption dari bentuk untuk Buku Saya. Penampakan desain ditunjukkan di bawah ini:
Form
Gbr1

Sekarang Anda perlu menghubungkan database ke kontrol data ADO. Namun, Anda perlu membuat satu perubahan. Pada halaman kotak dialog properti ADODC, klik pada tab RecordSource dan pilih 1-adCmdText bawah ketik perintah dan di bawah Komando (SQL) kunci Teks di SELECT * FROM book.
Form
Gbr2


Selanjutnya, klik pada perintah buttton cmdAuthor dan kunci dalam pernyataan berikut:

  1. Private Sub cmdAuthor_Click()  
  2. Adodc1.RecordSource = "SELECT Author FROM book"  
  3. Adodc1.Refresh  
  4. Adodc1.Caption = Adodc1.RecordSource  
  5.   
  6. End Sub  
dan untuk tombol perintah cmdTitle, key in
  1. Private Sub cmdTitle_Click()  
  2.   
  3. Adodc1.RecordSource = "SELECT Title FROM book"  
  4. Adodc1.Refresh  
  5. Adodc1.Caption = Adodc1.RecordSource  
  6.   
  7. End Sub  
Terakhir untuk cmdAll tombol perintah, key in
  1. Private Sub cmdAll_Click()  
  2.   
  3. Adodc1.RecordSource = "SELECT * FROM book"  
  4. Adodc1.Refresh  
  5. Adodc1.Caption = Adodc1.RecordSource  
  6.   
  7.   
  8. End Sub  
Sekarang, jalankan program dan ketika Anda klik pada tombol Display Author, hanya nama Author akan ditampilkan, seperti yang ditunjukkan di bawah ini:
Gbr3
dan ketika Anda klik pada tombol Display book, hanya judul buku akan ditampilkan, seperti yang ditunjukkan di bawah ini:
Gbr4
Terakhir, klik pada tombol Display All dan semua informasi akan ditampilkan.
Gbr5



Like This
Klik Like/share jika anda menyukai tulisan Share

Membuat Program FTP

FTP singkatan dari File Transfer Protocol .Protokol File Transfer adalah sebuah sistem untuk mentransfer file antara dua komputer yang terhubung dengan Internet.. Salah satu komputer dikenal sebagai server dan yang lain adalah klien. Program FTP sangat berguna untuk manajemen website. Webmaster dapat memperbarui halaman web dengan meng-upload file lokal ke server web dengan mudah, pada kecepatan jauh lebih cepat daripada web browser. Untuk pengguna PC biasa, program FTP juga dapat digunakan untuk men-download file dari situs FTP yang menawarkan banyak barang yang berguna seperti perangkat lunak gratis, permainan gratis, informasi produk, aplikasi, alat-alat, utilitas, driver, perbaikan dan banyak hal lagi .

Program FTP biasanya terdiri dari sebuah antarmuka yang menunjukkan direktori dari komputer lokal dan remote server. File dapat ditransfer hanya dengan mengklik panah yang relevan. Untuk login ke situs FTP, kita harus kunci dalam nama pengguna dan password, namun untuk domain publik, kita hanya perlu mengetikkan kata anonim sebagai nama pengguna dan Anda dapat meninggalkan password. Nama host FTP mengambil ftp.servername.com bentuk, misalnya, nama host situs FTP Microsoft adalah ftp.microsoft.com. Jika Anda perlu menggunakan program FTP, Anda dapat membeli satu atau Anda dapat men-download beberapa dari program yang tersedia gratis dari Internet. Namun, Anda juga dapat membuat program sendiri FTP Anda dengan Visual Basic. Visual Basic memungkinkan Anda untuk membangun program FTP sepenuhnya fungsional yang mungkin hanya sebagai baik sebagai program FTP komersial. Mesin di belakang itu adalah Microsoft Internet Transfer Control 6.0 di mana Anda harus memasukkan ke dalam formulir Anda sebelum Anda dapat membuat program FTP. Nama dari Internet transfer Inet Kontrol Microsoft 6.0.is dan jika Anda hanya dimasukkan ke dalam satu kontrol, namanya akan Inet1.

Inet1 terdiri dari tiga sifat penting yaitu Inet1.URL yang digunakan untuk mengidentifikasi host FTP, inet1.UserName yang digunakan untuk menerima username dan Inet1.Password yang digunakan untuk menerima password pengguna. Laporan untuk program untuk membaca nama host dari server, username dan password masuk ke textbox1, textbox2 dan Textbox3 oleh pengguna akan ditampilkan di bawah ini:

  1. Inet1.URL=Text1.Text  
  2. Inet1.UserName=Text2.Text  
  3. Inet1.Passoword=Text3.Text  

Setelah user memasukkan informasi di atas, program akan mencoba untuk terhubung ke server menggunakan perintah berikut, di mana Jalankan adalah metode dan DIR adalah perintah FTP yang akan membaca daftar file dari direktori tertentu dari komputer remote dan Anda perlu menggunakan metode getChunk untuk benar-benar mengambil informasi direktori.

Inet1.Execute, "DIR

Setelah menghubungkan ke server, Anda dapat memilih file dari komputer remote untuk men-download dengan menggunakan pernyataan di bawah ini:

Inet1.Execute,, "get" & ​​remotefile & localfile

mana remotefile adalah file dari situs remote dan localfile adalah file dari sistem lokal. Namun, sangat sering Anda perlu memberikan path lengkap dari file lokal, yang Anda dapat melakukannya dengan memodifikasi sintaks di atas dengan sintaks berikut:

Inet1.Execute,, "get" & ​​remotefile & localpath & remotefile

Pernyataan di atas akan memastikan bahwa file remote akan didownload ke lokasi yang ditentukan oleh localpath dan file download akan mengasumsikan nama sama dengan file remote. Sebagai contoh, jika file remote readme.txt dan localpath adalah C: \ temp, sehingga file yang didownload akan disimpan di C: \ temp \ readme.txt.
Dalam rangka untuk memantau status koneksi, Anda dapat menggunakan event StateChanged yang berhubungan dengan Inet1 bersama-sama dengan satu set konstanta negara yang tercantum dalam tabel berikut.
Constant Value Description

icHostResolvingHost

1

Kontrol untuk mencari alamat IP dari komputer host tertentu.

icHostResolved

2

Kontrol berhasil menemukan alamat IP dari komputer host tertentu.

icConnecting

3

Kontrol menghubungkan ke komputer host.

icConnected

4

Kontrol berhasil tersambung ke komputer host.

icRequesting

5

Kontrol mengirim permintaan ke komputer host.

icRequestSent

6

Kontrol berhasil mengirim permintaan.

icReceivingResponse

7

Kontrol tersebut menerima respon dari komputer host.

icResponseReceived

8

Kontrol berhasil menerima respon dari komputer host.

icDisconnecting

9

Kontrol ini memutuskan hubungan dari komputer host.

icDisconnected

10

Kontrol berhasil diputus dari komputer host.

icError

11

Terjadi kesalahan dalam mengkomunikasikan dengan komputer host.

icResponseCompleted

12

Permintaan telah selesai dan semua data telah diterima.
Dalam event StateChanged, Anda menggunakan Select Case ... End Select pernyataan untuk memberitahu pengguna mengenai berbagai negara sambungan. Prosedur ini ditunjukkan di bawah ini:
  1. Private Sub Inet1_StateChanged(ByVal State As Integer)  
  2.   
  3. Select Case State  
  4.   
  5. Case icError  
  6.   
  7. MsgBox Inet1.ResponseInfo, , "File failed to transfer"  
  8.   
  9. Case icResolvingHost  
  10.   
  11. Label6.Caption = "Resolving Host"  
  12.   
  13. Case icHostResolved  
  14.   
  15. Label6.Caption = "Host Resolved"  
  16.   
  17. Case icConnecting  
  18.   
  19. Label6.Caption = "Connecting Host"  
  20.   
  21. Case icConnected  
  22.   
  23. Label6.Caption = "Host connected"  
  24.   
  25. Case icReceivingResponse  
  26.   
  27. Label6.Caption = "Receiving Response"  
  28.   
  29. Case icResponseReceived  
  30.   
  31. Label6.Caption = "Got Response"  
  32.   
  33. Case icResponseCompleted  
  34.   
  35. Dim data1 As String  
  36.   
  37. Dim data2 As String  
  38.   
  39. MsgBox "Download Completed"        
  40.   
  41. End Select  
  42.   
  43. End Sub  
Program FTP yang saya telah menciptakan berisi formulir dan kotak dialog. Kotak dialog dapat ditambahkan dengan mengklik pada item Proyek pada menu bar dan kemudian memilih item Formulir Tambahkan pada daftar drop-down. Anda dapat memilih kotak dialog normal atau kotak dialog login. Fungsi dari kotak dialog untuk menerima alamat FTP, username dan password dan kemudian untuk menghubungkan ke server. Setelah berhasil login, kotak dialog akan disembunyikan dan form utama akan disajikan bagi pengguna untuk menelusuri direktori remote dan untuk memilih file tertentu untuk men-download.

Penampakan nya dialog login sbb:
Gbr1

Program untuk dialog login:
  1. Option Explicit  
  2.   
  3.    
  4.   
  5. Private Sub OKButton_Click()  
  6.   
  7. Inet1.URL = Text1.Text  
  8.   
  9. Inet1.UserName = Text2.Text  
  10.   
  11. Inet1.Password = Text3.Text  
  12.   
  13. Inet1.Execute , "DIR"  
  14.   
  15. Form1.Show  
  16.   
  17. Dialog.Hide  
  18.   
  19. End Sub  
  20.   
  21.    
  22.   
  23. Private Sub Inet1_StateChanged(ByVal State As Integer)  
  24.   
  25. Select Case State  
  26.   
  27. Case icError  
  28.   
  29. MsgBox Inet1.ResponseInfo, , "File failed to transfer"  
  30.   
  31. Case icResolvingHost  
  32.   
  33. Label6.Caption = "Resolving Host"  
  34.   
  35. Case icHostResolved  
  36.   
  37. Label6.Caption = "Host Resolved"  
  38.   
  39. Case icConnecting  
  40.   
  41. Label6.Caption = "Connecting Host"  
  42.   
  43. Case icConnected  
  44.   
  45. Label6.Caption = "Host connected"  
  46.   
  47. Case icReceivingResponse  
  48.   
  49. Label6.Caption = "Receiving Response"  
  50.   
  51. Case icResponseReceived  
  52.   
  53. Label6.Caption = "Got Response"  
  54.   
  55. Case icResponseCompleted  
  56.   
  57. Dim data As String  
  58.   
  59. Dim data1 As String  
  60.   
  61.    
  62.   
  63. MsgBox "Transfer Completed"  
  64.   
  65.  Do         
  66.   
  67.             data1 = Inet1.GetChunk(1024, icString)  
  68.   
  69.             data = data & data1  
  70.   
  71.                      
  72.   
  73.             Loop While Len(data1) <> 0  
  74.   
  75.             Form1.Text6.Text = data  
  76.   
  77. End Select  
  78.   
  79. End Sub  
  80.   
  81. Private Sub CancelButton_Click()  
  82.   
  83. Text1.Text = ""  
  84.   
  85. Text2.Text = ""  
  86.   
  87. Text3.Text = ""  
  88.   
  89. End Sub  
  90. retrive
Pernyataan itu data1 = Inet1.GetChunk (1024, icString) adalah dengan menggunakan metode getChunk untuk mengambil informasi dari direktori remote dan kemudian menampilkan file dari direktori dalam Textbox6.

Setelah log in, bentuk utama akan ditampilkan seperti yang ditunjukkan pada Gambar berikut
Gbr2


Like This
Klik Like/share jika anda menyukai tulisan Share

Cara Membuat animasi vb Bag.2

Animasi menggunakan Timer
Semua contoh sebelumnya animasi yang telah Anda pelajari dalam pelajaran 23 dan pelajaran 24 hanya melibatkan animasi manual, yang berarti Anda harus terus mengklik tombol perintah tertentu atau menekan tombol untuk membuat sebuah objek bernyawa. Dalam rangka untuk membuatnya bergerak secara otomatis, Anda perlu menggunakan timer. Langkah pertama dalam membuat animasi otomatis untuk menyeret timer dari toolbox ke dalam formulir dan mengatur interval untuk nilai tertentu selain 0. Nilai 1 adalah 1 milidetik yang berarti nilai 1000 merupakan 1 detik. Nilai interval waktu akan menentukan kecepatan pada animasi.

Pada contoh berikut, saya menggunakan teknik yang sangat sederhana untuk menunjukkan animasi dengan menggunakan properti Visible = False dan Visible = true untuk menampilkan dan menyembunyikan dua gambar secara bergantian. Ketika Anda klik pada program ini, Anda harus melihat animasi berikut.
  1. Private Sub Timer1_Timer()  
  2.   
  3. If Image1.Visible = True Then  
  4. Image1.Visible = False  
  5. Image2.Visible = True  
  6. ElseIf Image2.Visible = True Then  
  7. Image2.Visible = False  
  8. Image1.Visible = True  
  9. End If  
  10.   
  11. End Sub  

Contoh berikutnya menunjukkan siklus lengkap dari sebuah gerak seperti kupu-kupu mengepakkan sayapnya. Contoh sebelumnya hanya menampilkan animasi panduan sementara contoh ini akan menampilkan animasi otomatis setelah Anda memulai program atau dengan mengklik tombol perintah. Mirip dengan contoh di bawah 24,2 pelajaran, Anda harus memasukkan kelompok delapan gambar kupu-kupu mengepakkan sayapnya pada tahapan yang berbeda. Selanjutnya, masukkan timer ke dalam formulir dan mengatur interval untuk 10 atau nilai yang Anda suka. Ingatlah untuk membuat image1 terlihat saat gambar lainnya tak terlihat saat start-up. Akhirnya, menyisipkan tombol perintah, mengubah nama keterangan sebagai Menghidupkan dan kunci dalam pernyataan berikut dengan mengklik ganda pada tombol ini. Ingatlah bahwa Anda harus memasukkan pernyataan untuk menyembunyikan dan menampilkan gambar di bawah subrutin timer1_timer jika animasi akan bekerja. Mengklik pada tombol bernyawa membuat memulai timer berdetak dan acara akan berjalan setelah setiap selang waktu 10 milidetik atau apa pun interval yang Anda telah mengatur pada saat desain. Dalam pelajaran masa depan, saya akan menunjukkan Anda bagaimana untuk menyesuaikan interval saat runtime dengan menggunakan slider bar atau bar gulir.
Ketika Anda menjalankan program, Anda harus melihat animasi berikut ini:


  1. Private Sub Form_Load()  
  2. Image1.Visible = True  
  3. x = 0  
  4. End Sub  
  5.   
  6. Private Sub Command1_Click()  
  7. Timer1.Enabled = True  
  8. End Sub  
  9.   
  10. Private Sub Timer1_Timer()  
  11. If Image1.Visible = True Then  
  12. Image1.Visible = False  
  13. Image2.Visible = True  
  14.   
  15. ElseIf Image2.Visible = True Then  
  16. Image2.Visible = False  
  17. Image3.Visible = True  
  1. ElseIf Image3.Visible = True Then  
  2. Image3.Visible = False  
  3. Image4.Visible = True  
  4. ElseIf Image4.Visible = True Then  
  5. Image4.Visible = False  
  6. Image5.Visible = True  
  7. ElseIf Image5.Visible = True Then  
  8. Image5.Visible = False  
  9. Image6.Visible = True  
  10. ElseIf Image6.Visible = True Then  
  11. Image6.Visible = False  
  12. Image7.Visible = True  
  13. ElseIf Image7.Visible = True Then  
  14. Image7.Visible = False  
  15. Image8.Visible = True  
  16. ElseIf Image8.Visible = True Then  
  17. Image8.Visible = False  
  18. Image1.Visible = True  
  19. End If  
  20. End Sub  

Klik Like/share jika anda menyukai tulisan Share

Cara Membuat animasi vb Bag.1

Animasi selalu merupakan bagian yang menarik dan menarik dari pemrograman. Meskipun visual dasar tidak dirancang untuk menangani animasi muka, Anda masih dapat membuat beberapa efek animasi menarik jika Anda menaruh di beberapa berpikir keras. Ada banyak cara untuk membuat efek animasi di VB6, tapi untuk memulai kita akan fokus pada beberapa metode yang mudah.

Cara termudah untuk membuat animasi adalah untuk mengatur properti DILIHAT dari sekelompok gambar atau gambar atau teks dan label untuk benar atau salah dengan memicu serangkaian peristiwa seperti mengklik sebuah tombol. Mari kita periksa contoh berikut:

Ini adalah program yang menciptakan ilusi bergerak pesawat jet di empat arah, Utara, Selatan, Timur, Barat. Untuk melakukan hal ini, masukkan lima gambar dari gambar yang sama ke dalam formulir. Mengatur properti terlihat dari gambar di pusat untuk benar sedangkan sisanya diset false. Pada start-up, pengguna hanya akan dapat melihat gambar di tengah. Selanjutnya, memasukkan empat tombol perintah ke dalam formulir dan mengubah label Pindah Utara, Timur Pindah, Pindah Pindah Barat dan Selatan masing-masing. Double klik pada tombol bergerak ke utara dan kunci dalam prosedur berikut:

  1. Sub Command1_click( )  
  2.   
  3. Image1.Visible = False  
  4. Image3.Visible = True  
  5. Image2.Visible = False  
  6. Image4.Visible = False  
  7. Image5.Visible = False  
  8.   
  9. End Sub  
Dengan mengklik tombol bergerak ke utara, hanya gambar 3 ditampilkan. Ini akan memberikan ilusi bahwa pesawat jet telah bergerak ke utara. Kunci dalam prosedur yang sama dengan mengklik ganda tombol perintah lainnya. Anda juga dapat memasukkan tombol perintah penambahan dan label sebagai Reset dan kunci dalam kode berikut:
  1. Image1.Visible = True  
  2. Image3.Visible = False  
  3. Image2.Visible = False  
  4. Image4.Visible = False  
  5. Image5.Visible = False  

Mengklik pada tombol reset akan membuat gambar di tengah terlihat lagi sedangkan gambar lainnya menjadi tidak terlihat, ini akan memberikan kesan palsu bahwa pesawat jet telah pindah kembali ke posisi semula.
 
Anda juga dapat menjalankan perintah menggunakan textbox. Programnya adalah sebagai berikut:
  1. Private Sub Command1_Click()  
  2.   
  3. If Text1.Text = "n" Then  
  4. Image1.Visible = False  
  5. Image3.Visible = True  
  6. Image2.Visible = False  
  7. Image4.Visible = False  
  8. Image5.Visible = False  
  9.   
  10. ElseIf Text1.Text = "e" Then  
  11. Image1.Visible = False  
  12. Image4.Visible = True  
  13. Image2.Visible = False  
  14. Image3.Visible = False  
  15. Image5.Visible = False  
  16.   
  17. ElseIf Text1.Text = "w" Then  
  18. Image1.Visible = False  
  19. Image3.Visible = False  
  20. Image2.Visible = False  
  21. Image4.Visible = False  
  22. Image5.Visible = True  
  23.   
  24. ElseIf Text1.Text = "s" Then  
  25. Image1.Visible = False  
  26. Image3.Visible = False  
  27. Image2.Visible = True  
  28. Image4.Visible = False  
  29. Image5.Visible = False  
  30. End If  
  31.   
  32. End Sub  

Cara lain yang sederhana untuk mensimulasikan animasi di VB6 adalah dengan menggunakan sifat Kiri dan Top dari sebuah objek. Image.Left memberikan jarak gambar dalam twips dari perbatasan sebelah kiri layar, dan Image.Top memberikan jarak gambar dalam twips dari perbatasan atas layar, di mana 1 twip adalah setara dengan 1 / 1440 inci. Menggunakan pernyataan seperti Image.Left-100 akan memindahkan gambar 100 twips ke kiri, Image.Left 100 akan memindahkan gambar 100 twip menjauh dari kiri (atau 100 twips ke kanan), Image.Top-100 akan memindahkan gambar 100 twips ke atas dan Image.Top 100 akan memindahkan gambar 100 twips jauh dari perbatasan atas (atau 100 twips bawah) Berikut ini adalah sebuah program yang dapat memindahkan objek ke atas, bawah.. kiri, dan kanan setiap kali Anda mengklik pada tombol perintah yang relevan.

  1. Private Sub Command1_Click()  
  2. Image1.Top = Image1.Top + 100  
  3. End Sub  
  4.   
  5. Private Sub Command2_Click()  
  6. Image1.Top = Image1.Top - 100  
  7. End Sub  
  8.   
  9. Private Sub Command3_Click()  
  10. Image1.Left = Image1.Left + 100  
  11. End Sub  
  12.   
  13. Private Sub Command4_Click()  
  14. Image1.Left = Image1.Left - 100  
  15. End Sub  
Contoh keempat membiarkan pengguna memperbesar dan mengurangi suatu objekdengan mengubah tinggi dan lebar sifat objek. Hal ini sangat mirip dengan contoh sebelumnya. Laporan Image1.Height = Image1.Height + 100 dan Image1.Width =Image1.Width + 100 akan meningkatkan tinggi dan lebar dari sebuah objek dengan 100twips setiap kali pengguna mengklik pada tombol perintah yang relevan. Di sisi lain,Laporan Image1.Height = Image1.Height - 100 dan Image1.Width = Image1.Width -100 akan mengurangi tinggi dan lebar dari sebuah objek dengan 100 twips setiap kali klikpengguna pada tombol perintah yang relevan

  1. Private Sub Command1_Click()  
  2. Image1.Height = Image1.Height + 100  
  3. Image1.Width = Image1.Width + 100  
  4. End Sub  
  5.   
  6. Private Sub Command2_Click()  
  7.   
  8. Image1.Height = Image1.Height - 100  
  9. Image1.Width = Image1.Width - 100  
  10.   
  11. End Sub  
Anda dapat mencoba untuk menggabungkan kedua program di atas dan membuat dan memindahkan objek meningkat atau menurun dalam ukuran setiap kali pengguna mengklik tombol perintah.

Klik Like/share jika anda menyukai tulisan Share

Download Aplikasi Penjualan

  1. Aplikasi penjualan itu sudah biasa...

    ya tapi gpp deh disini di share ajahaplikasinya,kali ini aplikasinya lumayan bagus dan tampilannya juga. Siapa tau bisa buat inspirasi kalian dalam membuat interface aplikasi..

    untuk download nya klik aja langsung ...

    lumayan,, buat referensi ..

    Fitur :
    Daftar Barang
    Daftar Pemasok
    Daftar Penjualan
    Manage Karyawan
    Manage Pembelian
    Backup & Restore DB

    Laporan
    - Pembelian
    - Barang
    - Penjualan


    Download Disini

     
    password : bismillah

Cara Membuat Web Browser VB



Dalam rangka untuk menciptakan web browser, Anda harus menekan tombol Ctrl + T untuk membuka jendela komponen dan pilih Kontrol Microsoft Internet. Setelah Anda memilih kontrol, Anda akan melihat mengontrol muncul di toolbox sebagai dunia kecil. Untuk menyisipkan Control Microsoft Internet ke dalam bentuk, hanya tarik dunia menjadi bentuk dan persegi panjang putih akan muncul dalam bentuk. Anda dapat mengubah ukuran kontrol ini seperti yang Anda inginkan. Kontrol ini diberi nama default WebBrowser1.

Untuk desain antarmuka, Anda harus memasukkan satu kotak combo yang akan digunakan untuk menampilkan URL. Selain itu, Anda harus memasukkan beberapa gambar yang akan berfungsi sebagai tombol perintah bagi pengguna untuk menavigasi internet, mereka adalah perintah Pergi, Kembali perintah, perintah Teruskan, perintah Refresh dan perintah Home. Anda sebenarnya dapat dimasukkan ke dalam tombol-tombol perintah, bukan gambar, tapi menggunakan gambar pasti akan meningkatkan tampilan browser.

Prosedur untuk semua perintah relatif mudah untuk menulis. Ada banyak metode, peristiwa, dan sifat yang terkait dengan web browser tetapi Anda perlu tahu hanya beberapa dari mereka untuk datang dengan browser Internet fungsional
Metode menavigasi adalah untuk mengunjungi situs Web yang ditetapkan oleh Uniform Resource Locator (URL). Sintaksnya adalah WebBrowser1.Navigate ("URL"). Dalam program ini, saya ingin memuat halaman web www.indrawan21.tk saat start-up, jadi aku ketik URL-nya.


  1. Private Sub Form_Load ()  
  2.   
  3. WebBrowser1.Navigate ("http:// www.indrawan21.tk&nbsp;")  
  4.   
  5. End Sub  

Dalam rangka untuk menunjukkan URL dalam kotak kombo dan juga untuk menampilkan judul halaman pada bentuk keterangan setelah halaman benar-benar download, saya menggunakan pernyataan berikut:

  1. Private Sub  
  2.   
  3. WebBrowser1_DocumentComplete (ByVal pDisp Sebagai Obyek, URL Sebagai Varian)  
  4. Combo1.Text = URL  
  5. Form1.Caption = WebBrowser1.LocationName  
  6. URL Combo1.AddItem  
  7.   
  8. End Sub  

Prosedur berikut akan memberitahu pengguna untuk menunggu ketika halaman sedang loading.

  1. Private Sub  
  2.   
  3. WebBrowser1_DownloadBegin ()  
  4. Combo1.Text = "memuat halaman, silakan tunggu"  
  5.   
  6. End Sub  

Klik Like/share jika anda menyukai tulisan Share

Download Angry Birds Season 2 2011 HD Full



Sudah tau Angry Birds kan?  nah sekarang saya share nich versi lain dari Angry Birds, yaitu Angry Birds Seasons 2 2011 Full Version. Tentu saja isi dan misinya berbeda dari Angry Birds Season yang dulu. Angry Birds Seasons 2 2011 ini terdiri dari 8 seasons yang total misinya lebih dari 435 misi. Mau coba?
Download here MEDIAFIRE LINK :
Download (28 MB)

System Requirements :
Operating System: Windows XP / Vista / Windows 7
Processor: 2GHzRAM : 512 MB
Video: 3D-graphics card compatible with DirectX, 128 MB
Sound Card: Sound device compatible with DirectX 9.0c
Free space on hard disk: 45.2 MB