Hatake-Kakashi Level 0
Posting : 19 Gold Medal : 238 Bergabung Sejak : 29.12.10
| Subyek: [Share] Semua tentang project Visual Basic 6 Wed Dec 29 2010, 07:28 | |
| Hai all..! kali ini ane share tentang bagaimana cara membuat software/program dengan visual basic 6 ok langsung aja ya.... 1. Membuat software Text to Hex Convert pertama buka VB6 lalu pilih dengan type VB nya Standard EXE tools yang di perlukan : 1. TextBox dengan nama TEXT1 2. 3 Command button beri caption command buttonya [*] Command1 beri caption "Convert" tanpa kutip [*] Command2 beri caption "About" [*] Command3 beri caption "Close" buat command3 beri NAME "cmdTutup" tanpa kutip klik kanan, view code Spoiler Code buat Form 1 : - Spoiler:
'Tutorial membuat TEXT to HeX Convert 'Original code by SCR34M | Indonesian Techno 'pengaturan saat commandbutton akan convert TEXT to HEx
Private Sub Command1_Click() Text1.Text = Replace(Text1.Text, "0", "30") Text1.Text = Replace(Text1.Text, "1", "31") Text1.Text = Replace(Text1.Text, "2", "32") Text1.Text = Replace(Text1.Text, "3", "33") Text1.Text = Replace(Text1.Text, "4", "34") Text1.Text = Replace(Text1.Text, "5", "35") Text1.Text = Replace(Text1.Text, "6", "36") Text1.Text = Replace(Text1.Text, "7", "37") Text1.Text = Replace(Text1.Text, "8", "38") Text1.Text = Replace(Text1.Text, "9", "39") Text1.Text = Replace(Text1.Text, "a", "61") Text1.Text = Replace(Text1.Text, "b", "62") Text1.Text = Replace(Text1.Text, "c", "63") Text1.Text = Replace(Text1.Text, "d", "64") Text1.Text = Replace(Text1.Text, "e", "65") Text1.Text = Replace(Text1.Text, "f", "66") Text1.Text = Replace(Text1.Text, "g", "67") Text1.Text = Replace(Text1.Text, "h", "68") Text1.Text = Replace(Text1.Text, "i", "69") Text1.Text = Replace(Text1.Text, "j", "6a") Text1.Text = Replace(Text1.Text, "k", "6b") Text1.Text = Replace(Text1.Text, "l", "6c") Text1.Text = Replace(Text1.Text, "m", "6d") Text1.Text = Replace(Text1.Text, "n", "6e") Text1.Text = Replace(Text1.Text, "o", "6f") Text1.Text = Replace(Text1.Text, "p", "70") Text1.Text = Replace(Text1.Text, "q", "71") Text1.Text = Replace(Text1.Text, "r", "72") Text1.Text = Replace(Text1.Text, "s", "73") Text1.Text = Replace(Text1.Text, "t", "74") Text1.Text = Replace(Text1.Text, "u", "75") Text1.Text = Replace(Text1.Text, "v", "76") Text1.Text = Replace(Text1.Text, "w", "77") Text1.Text = Replace(Text1.Text, "x", "78") Text1.Text = Replace(Text1.Text, "y", "79") Text1.Text = Replace(Text1.Text, "z", "7a") Text1.Text = Replace(Text1.Text, "A", "41") Text1.Text = Replace(Text1.Text, "B", "42") Text1.Text = Replace(Text1.Text, "C", "43") Text1.Text = Replace(Text1.Text, "D", "44") Text1.Text = Replace(Text1.Text, "E", "45") Text1.Text = Replace(Text1.Text, "F", "46") Text1.Text = Replace(Text1.Text, "G", "47") Text1.Text = Replace(Text1.Text, "H", "48") Text1.Text = Replace(Text1.Text, "I", "49") Text1.Text = Replace(Text1.Text, "J", "4a") Text1.Text = Replace(Text1.Text, "K", "4b") Text1.Text = Replace(Text1.Text, "L", "4c") Text1.Text = Replace(Text1.Text, "M", "4d") Text1.Text = Replace(Text1.Text, "N", "4e") Text1.Text = Replace(Text1.Text, "O", "4f") Text1.Text = Replace(Text1.Text, "P", "50") Text1.Text = Replace(Text1.Text, "Q", "51") Text1.Text = Replace(Text1.Text, "R", "52") Text1.Text = Replace(Text1.Text, "S", "53") Text1.Text = Replace(Text1.Text, "T", "54") Text1.Text = Replace(Text1.Text, "U", "55") Text1.Text = Replace(Text1.Text, "V", "56") Text1.Text = Replace(Text1.Text, "W", "57") Text1.Text = Replace(Text1.Text, "X", "58") Text1.Text = Replace(Text1.Text, "Y", "59") Text1.Text = Replace(Text1.Text, "Z", "5a") End Sub
Private Sub Form_Load() 'Kata sambutan saat Project dibuka MsgBox "Copyright By SCR34M | Indonesian Techno", vbInformation, "Welcome" End Sub
nah form1 selesai skrg membuat form about bagaimana caranya.? Answer (Ikuti langkah ini) seperti yg saya bilang sediakan command2 untuk frmabout dengan caption "About". skrg kita buat formnya dengan cara : klik menu project di bar --> add form --> pilih form nah tinggal kamu moderasi dengan sesuka hati. selanjutnya balik ke command2 isikan code Spoiler Code buat command 2 : - Spoiler:
form2.show
selesai. terakhir adalah membuat command tutup sangat mudah kok. klik command3 yang ber caption "Close/Tutup" dengan Name "cmdTutup" dan beri kode berikut Spoiler Code buat command3 : - Spoiler:
Unload me
selesai tinggal make EXE. masih bingung Download Source Codenya Disini ========================================================================== 2. Membuat Color Picker hello semua kali ini saya akan memberi ilmu dari yg saya ketahui tentang mata pelajaran kuliah saya. ok langsung ya Memuat color picker sangat simple sediakan toolsnya : 1. Commond Dialog dengan cara klik menu project --> Component --> Microsoft Commond Dialog bla bla bla bla 2. 1 label 3. 1 Command Button isikan code berikut ke form1 udah tau kan..? 'Tutorial membuat Color Picker 'Copyright by SCR34M | Indonesian Techno 'Go go go Indonesian Techno
Private Sub Command1_Click() CommonDialog1.flags = 50 CommonDialog1.Color = Form1.BackColor CommonDialog1.Color = Label1.BackColor CommonDialog1.Color = Label1.BackColor CommonDialog1.ShowColor Antivirus.BackColor = CommonDialog1.Color Label1.BackColor = CommonDialog1.Color Label1.BackColor = CommonDialog1.Color End SubSelesai tinggal Make dengan EXE itu saya Copas dari SCR34M dari Indonesian Techno ========================================================================= 3. Membuat project gambar melayang ini adalah karya kk Crozzbone yg di share di idt oleh kk scr34m di IDT. mungkin kalian masih inget kan N3 antivirus yg di buat oleh kk crozzbone..??? liat di aboutnya klik tombol "Click here" maka akan ada gambar melayang. langsung gan kali ni saya akan share gimana cara membuat gambar melayang di project kalian tapi pertama-tama saya berterima kasih kepada kk Crozzbone Da Lucifer udah tau gimana cara membuatnya THX ya kk ok langsung : yg di butuhkan 1. Command1 2. Image 3. gambar yg mau di buat melayang sebenarnya susah klo dikasih tau tutornya lebih baik kasih source codenya aja ya nie download Source Codenya [You must be registered and logged in to see this link.]Semua itu saya copas dari [You must be registered and logged in to see this link.]yg di share oleh kk scr34m bila berguna berilah saya ++++ ingat No Junk. ingin bertanya..? pakailah kata-kata yg sopan | |
|