Tuesday 18 August 2015

VB6.0 :: Kumpulan Source Code Gratis Sistem Informasi Menggunakan Visual Basic 6.0


Kumpulan Source Code Gratis Sistem Informasi Menggunakan Visual Basic 6.0 sengaja manusia biasa share. Tapi sayang saya gak ingat dari mana saya dapatkan link kumpulan ini. Nah buat yang memang pengen ngedapatin monggo datangin aja link-link berikut siapa tau bisa membantu kalian yang sengan membuat sebuah aplikasi menggunakan visual basic 6.0.

1. Hotel

http://www.ziddu.com/download/8895846/Aplikasi_Pengelolaan_Hotel.rar.html

2. Jasa Bengkel

http://www.ziddu.com/download/8895847/AplikasiServiceKendaraan.rar.html

3. Penyewaan DVD

http://www.ziddu.com/download/8895848/Rental_DVD.rar.html

4. Koperasi

http://www.ziddu.com/download/8895959/Koperasi.rar.html

5. Program Stok Obat

http://www.ziddu.com/download/8895960/SistemPersediaanObat.rar.html

6. SMS Manager

http://www.ziddu.com/download/8895958/SMSManager.rar.html

7. Toko Komputer

http://www.ziddu.com/download/8896289/Retail_computer.rar.html

8. Koleksi SMS Gateway

http://www.ziddu.com/download/8930202/IndoprogSMS.zip.html

http://www.ziddu.com/download/8930203/xsmsgateway.zip.html

http://www.ziddu.com/download/8930204/Smart-SMS.zip.html

http://www.ziddu.com/download/8930205/smsgateway.zip.html

9. Program Penerimaan Mahasiswa Baru

http://www.ziddu.com/download/8896291/Penerimaan_Mahasiswa_Baru.zip.html

10. Program Penjualan Tiket Pesawat

http://www.ziddu.com/download/8896290/Penjualan_Tiket_Pesawat.rar.html

11. Rental video

http://www.ziddu.com/download/8896287/Rental_Video.rar.html

12. Program Rental DVD

http://www.ziddu.com/download/8896586/SISTEM_APLIKASI_RENTAL_DVD.zip.html

13. Program Pasien

http://www.ziddu.com/download/8896585/SISTEM_INFORMASI_PASIEN.zip.html

14. Program Rumah Sakit/ Puskesmas

http://www.ziddu.com/download/8896583/Rumah_Sakit.rar.html

15. Billing

http://www.ziddu.com/download/8896584/Visual_Basic_Billing.zip.html

16. Sistem Informasi Persediaan Barang

http://www.ziddu.com/download/8896582/SistemInformasiPersediaanBaran.rar.html

17. Sistem Informasi Persediaan Sepatu

http://www.ziddu.com/download/8896587/SistemInformasiPersediaanSepat.rar.html

18. Software Akuntansi menggunakan Excel

http://www.ziddu.com/download/8896654/software_aplikasi_akuntansi_ex.rar.html

19. Sistem Supermarket

http://www.ziddu.com/download/8896653/Supermarke1732534122004.zip.html

20. Bar Rest

http://www.ziddu.com/download/8896652/BarRest.rar.html

21. Bel Sekolah

http://www.ziddu.com/download/8584512/BelSekolah.zip.html

22. Aplikasi Karyawan PLN

http://www.ziddu.com/download/8584514/AplikasiKaryawanPLN.zip.html

23. Pendaftaran Sekolah

http://www.ziddu.com/download/8584513/PendaftaranSekolah.zip.html

24. Aplikasi Penjualan Koran

http://www.ziddu.com/download/8584546/SistemAplikasiPenjualanKoran.zip.html

25. Aplikasi Rumah Sakit

http://www.ziddu.com/download/8584515/SistemInformasiRumahSakit.zip.html

26. Aplikasi Gaji Karyawan

http://www.ziddu.com/download/8584511/Penggajian.rar.html

27. Aplikasi sidik Jari

http://www.ziddu.com/download/8930118/FingerPrintdtbase.ZIP.html

28. Sistem Pakar

http://www.ziddu.com/download/8930117/expertsystem.rar.html

29. Penjualan Tunai Kredit

http://www.ziddu.com/download/8930120/735464501b4bce254493cf17c1d14f14.rar.html

30. Penjualan Toko Komputer

http://www.ziddu.com/download/8930116/penjualan.rar.html

31. Penjualan Toko Retail

http://www.ziddu.com/download/8930119/retail.zip.html

udah silahkan download...... jika link err.... monggo pm admin OK!!!!!!!!

ANTIVIRUS :: Bagaimana cara Kerja antivirus?


Advertisement
Program antivirus perangkat lunak penting untuk komputer Windows. Namun tak sedikit muncul pertanyaan mengenai kinerja dan kebutuhan mereka, dan akibatnya banyak menimbulkan pertanyaan pengguna:

Apakah antivirus menjamin komputer aman dari virus?, Bagaimana cara antivirus bekerja?..Apa yang Antivirus lakukan dalam komputer Saya? , Dan apakah perlu untuk melakukan scanning sistem secara teratur ?,, Apa antivirus terbaik?.
Untuk menemukan jawaban dari beberapa pertanyaan diatas, lanjutkan membaca artikel berikut ini.

Apakah antivirus menjamin komputer aman dari virus? - Banyak orang yang salah kaprah dan menganggap jika komputer yang dilengkapi antivirus bisa 100% aman.  Antivirus menggunakan sistem atau metode tertentu untuk menjaring virus, namun dari setiap metode pasti ada kelemahannya. Secara pasti, tak ada antivirus yang benar-benar 100% menjamin sebuah komputer bebas dari virus. Antivirus mendeteksi sebuah malmware berdasarkan signature tertentu dari sebuah program virus, mencocokkan dengan ciri-ciri yang tersimpan dalam database, atau mengenal virus dari perilaku yang dianggap cocok. Tak sedikit pula antivirus yang salah diagnosa, dan menganggap sebuah prgram baik-baik sebagai virus. Bahkan, program yang sebenarnya virus pun bisa lolos dari scan antivirus.

Namun, tidak memasang antivirus untuk komputer windows adalah tidak direkomendasikan. Artinya, sebuah program antivirus tetap sangat penting dibutuhkan. Ada antivirusnya saja masih bisa terinfeksi, apalagi tidak menggunakannya sama sekali.Yang terbaik adalah, tetap memasang antivirus, serta menghindari hal-hal yang beresiko tinggi terkena virus.

Cara kerja antivirus

On access scanning

Perangkat lunak antivirus berjalan di latar belakang komputer, memeriksa setiap file yang kita buka. Hal ini umumnya dikenal dengan background scanning, resident scanning, real-time protection, atau lainnya tergantung pada program antivirus Anda.

Ketika Anda klik dua kali file EXE, mungkin akan tampak seperti program biasa yang dijalankan. Namun antivirus  yang pertamakali yang memeriksa program, membandingkannya dengan virus yang sudah dikenal sebelumnya, seperti worm, dan jenis-jenis malware lain. Program antivirus juga melakukan metode " heuristik ", yaitu memeriksa program dari sudut perilaku yang mengindikasikan sebuah virus .

Program antivirus juga scaning jenis file lainnya yang mungkin dapat berisi virus. Sebagai contoh, sebuah file zip mungkin berisi virus terkompresi, atau dokumen Word juga bisa berisi virus berbahaya. File di-scan setiap kali akan digunakan/dibuka. Misalnya, jika Anda men-download file EXE , maka ia akan discan segera, bahkan sebelum Anda membukanya.

Menggunakan antivirus tanpa on -access scanning umumnya bukan ide yang baik, karena virus yang memanfaatkan celah keamanan dalam program tidak akan tertangkap oleh sistem scaning. Setelah virus menginfeksi sistem, maka akan jauh lebih sulit untuk dighapus. Sangat sulit untuk memastikan jika sebuah malware telah benar-benar dihapus oleh antivirus.

Karena on-access scanning biasanya tidak diperlukan menjalankan sistem scan secara penuh. Jika Anda men-download virus ke komputer, maka program antivirus akan segera mengetahuinya. Anda tidak harus scanning secara manual sejak pertama .

Full system scan

Full system scan bisa berguna untuk beberapa hal. Sistem full scan sangat membantu bila komputer Anda baru kemasukan antivirus atau memastikan tidak ada virus yang tersimpan di komputer Anda. Kebanyakan program antivirus sudah memiliki jadwal scanning secara penuh, seringkali setiap minggu. Hal ini untuk memastikan bahwa file definisi virus terbaru yang digunakan untuk memindai sistem Anda untuk virus aktif .

Scan hardisk juga dapat membantu ketika sedang memperbaiki komputer. Jika Anda ingin memperbaiki komputer yang sudah terinfeksi, memasukkan hard drive di komputer lain dan lakukan scanning secara penuh ( jika tidak melakukan instal ulangWindows) akan berguna. Namun Anda tidak harus menjalankan scan secara lengkap, jika program antivirus sudah melakukan perlindungan scanning dibelakang layar otomatis, teratur dan menyeluruh.

Virus definitions

Antivirus bergantung dari kumpulan definisi virus untuk dapat mendeteksi sebuah malware. Itu sebabnya antivirus biasanya akan secara otomatis men-download file baru, file definisi virus terbaru, sekali sehari atau bahkan lebih sering lagi. File definisi virus berisi signatur virus dan malware lainnya yang baru saja telah ditemukan. Ketika program antivirus scanning file dan menemukan file yang cocok dengan potongan file yang dikenal sebagai malware, maka program program antivirus akan menghentikan file tersebut, dan memasukkannya ke dalam " karantina ". Tergantung dari pengaturan program antivirus Anda, secara otomatis file dihapus file atau masih memungkinkan untuk menjalankan, jika Anda yakin jika itu adalah false positif. False positif adalah file yang sebenarnya bukan malmware, tapi dideteksi menyimpan beberapa baris byte yang signaturenya cocok dengan virus.

Pembuat antivirus harus terus-menerus melakukan update, dengan mengisi database programnya dengan byte terbaru dari sebuah malware -  merilis update definisi untuk  memastikan sebuah malware bisa dijaring oleh program AV mereka. Laboratorium antivirus menggunakan berbagai alat untuk membongkar sebuah virus, menjalankannya dalam kotak pasir, dan merilis update baru tepat waktu, yang memastikan pengguna akan terlindungi dari bagian malmware jenis terbaru .

Heuristik

Program antivirus juga menggunakan metode analisa heuristik. Heuristik akan memungkinkan sebuah program antivirus bisa mengidentifikasi malmware jenis baru atau modifikasi malware baru, bahkan tanpa harus menyimpan file definisi virus. Metode ini menggunakan pendekatan dengan cara mengenali sebuah virus dari gerak-gerik sebuah file. Sebagai contoh, jika sebuah program antivirus menemukan program yang berjalan sedang mencoba untuk membuka setiap file EXE di komputer anda, menginfeksi dengan cara menulis salinan program asli ke dalamnya, maka program antivirus dapat mendeteksi program ini sebagai malmware jenis yang baru.

Tidak ada program antivirus yang sempurna. Teknik Heuristik bisa terlalu agresif, dan bisa menganggap sebuah program yang sah sebagai virus.

False Positif

Karena ada banyak software yang beredar, program antivirus terkadang mengatakan jika sebuah software mengandung virus, padahal sebenarnya software tersebut adalah aman-aman saja. Hal seperti ini dikenal dengan " false positif ". Bahkan Kadang-kadang antivirus berbuat kesalahan dengan mengidentifikasi sebuah file sistem Windows, program pihak ketiga, atau bahkan file program antivirus mereka sendiri sebagai virus. False positif ini bahkan dapat merusak sistem komputer pengguna. Inilah hal yang sangat tidak diinginkan dari hadirnya antivirus didalam komputer kita. Ada juga yang disebut dengan "false negativ", jika sebuah antivirus sebenarnya telah menemukan virus dalam sebuah sistem komputer, namun antivirus tersebut tidak menangkapnya sebagai virus. Sama saja dengan seorang SATPAM yang mengijinkan pencuri untuk masuk kedalam rumah.

Heuristik juga lebih memiliki kelemahan meningkatkan tingkat false positif. Sebuah antivirus mungkin memperhatikan,  bahwa program berperilaku mirip dengan program berbahaya dan mengidentifikasinya sebagai virus.

Meskipun demikian, kejadian salah tangkap (false positif)  ini cukup langka dalam penggunaan AV yang normal. Jika antivirus Anda menemukan sebuah file berbahaya, maka umumnya Anda akan percaya. Jika Anda tidak yakin apakah file tersebut sebenarnya virus, Anda dapat mencoba meng-upload file yang dicurigai tersebut ke VirusTotal (yang dimiliki oleh Google). VirusTotal akan scanning file dengan menggunakan berbagai macam produk antivirus yang berbeda, dan akan memberitahu Anda tentang hasilnya menurut masing-masing AV.

Rate deteksi

Program antivirus yang berbeda memiliki cara mendeteksi virus yang berbeda pula, atau juga bisa menggunakan dua metode sekaligus yaitu definisi virus dan heuristik. Beberapa perusahaan antivirus mungkin memiliki heuristik yang lebih efektif , dan menggunakan definisi virus lebih banyak dari pesaing mereka, sehingga menghasilkan tingkat deteksi yang lebih baik dan akurat.

Beberapa organisasi melakukan tes rutin semua program antivirus yang ada, dan membandingkannya antara satu sama lain. av-comparatives.org secara teratur merilis studi yang membandingkan kondisi saat ini tentang tingkat deteksi antivirus. Tingkat deteksi cenderung berfluktuasi dari waktu ke waktu - tidak ada satu produk terbaik yang secara konsisten berada diatas. Jika Anda benar-benar ingin melihat seberapa efektifnya sebuah program antivirus dan yang terbaik di luar sana, maka studi tingkat deteksi adalah tempat yang sesuai untuk dikunjungi.

Menguji sebuah Program Antivirus

Jika Anda ingin menguji apakah sebuah program antivirus dapat bekerja dengan benar, maka Anda dapat menggunakan file tes EICAR. File EICAR (www.eicar.org/85-0-Download.html) adalah cara standar untuk menguji sebuah program antivirus. Program ini tidak berbahaya, tetapi program berperilaku seolah-olah itu seperti virus yang sebenarnya. Hal ini memungkinkan Anda untuk dapat menguji respon program antivirus tanpa menggunakan virus betulan.

Program antivirus adalah software yang rumit, dan jika ditulis pada kertas akan menghasilkan sebuah buku yang tebal. Tapi mudah-mudahan artikel ini bisa memperkenalkan kepada Anda, apa dan bagaimana sebuah program antivirus.

VB :: Source Code Antivirus Sederhana Seperti SmadAV


Kali ini saya akan membahas bagaimana cara membuat antivirus sederhana dengan visual basic. Kalau harus memasukkan code-codenya pasti anda bingung, nah kali ini Agus membantu anda membuat antivirus dengan visual basic dengan membagikan projectnya atau langsung formnya..
Kalau anda teliti dengan seksama pasti anda berhasil.
dan klau bsa di buat menjadi file Exe, anda baru bisa di sebut dengan PROGRAMER.
 

Tanpa Basa Basi lagi nih Agus langsung membagikan souce code nya.
download aja di bawah ini.

VB.NET :: Source Code Antivirus VB.NET 2008



Source code ini saya beri nama Sproject Antivirus

Bahan-Bahan yang perlu di siapkan
Visual Basic .Net (2008)
Sedikit pengetahuan tentang VB.Net
Kopi untuk menemani koding 
Fitur Source code Antivirus 

Scan Fast 
Eichar Detected
Hidden Scan
Junk Scan
Malware Scan

Karena source code di atas hanya sebuah sample atau pembelajaran tentang cara membuat antivirus sederhana dari vb.net jadi mohon jika ingin mengembangkan/edit cantumkan nama CaSoft atau Artikel Beta . terimakasih

Link download 
Download

VB.NET :: MEMBUAT ANTIVIRUS MENGGUNAKAN VB.NET

hari ini saya akan memberi penjelasan bagimana membuat antivirus sendiri menggunakan microsoft vb.net, dan saya sudah menyediakan link download untuk file antivirus-nya disini
langkah pertama anda harus meng-extract file zip-nya, kemudian buka micosoft visual basic yang anda miliki, jika anda belum memiliki software microsoft visual basic, anda dapat men-downloadnya disini, dan jika diminta product key atau licensi codenya anda dapat men-downloadnya disini.
dan berikut beberapa screenshot antivirus yang telah saya kembangkan sebelumnya.





setelah anda mendownload filenya, buka microsoft visual basic anda lalu klik file > Open Project, pilih lokasi dimana anda meng-extract file tersebut, kemudian pilih file yang berjenis Microsoft Visual Studio Solution. sekarang tinggal memodifikasi antivirus tersebut sesuai keinginan anda. jika anda tidak ingin menggunakan antivirus tadi, dan ingin membuat yang lain, anda dapat mencontoh source code antivirus diatas.

Sunday 16 August 2015

Cara Install Windows 10 dengan Media Creation Tools

Hai sobat jufrikablog kali ini saya akan berbagi sedikit tutorial yang mungkin akan menjadi hal yang bermanfaat bagi sobat semua , yaitu Cara Install Windows 10 dengan Media Creation Tools . Bagaimana caranya? simak baik baik
1. Baca Tutorial ini :D
2. Download Media Creation Tools di link di bawa ini sesuai arsitektur laptop kamu.
    32 BIT | 64 BIT
3. Setelah selesai maka jalankan media creation tools nya( memerlukan administrator)
  
4. jika tipe windowskamu termasuk yang mendapatkan lisensi gratis upgrade maka tinggal pilih upgrade now. jika ingin membuat instalasi untuk pc lain maka pili opsi kedua di bawah nya :D .( disini saya menggunakan upgrade now karena saya menggunakan windows 8.1 update 1 )

ngin membuat media instalasi Windows 10 untuk PC berbeda

Baca selengkapnya di Yujikop.com: http://yujikop.com/instal-windows-10-menggunakan-media-creation-tool/
ingin membuat media instalasi Windows 10 untuk PC berbeda atau untuk instal ulang nanti, pilih Create installation media for another PC.

Baca selengkapnya di Yujikop.com: http://yujikop.com/instal-windows-10-menggunakan-media-creation-tool/
5.biarkan windows anda berjalan sendiri nya dan PASTIKAN KONEKSI INTERNET ANDA ADA dan BATRAI LAPTOP ANDA TERCAS UNTUK MEMILIH OPSI Upgrade this PC now.  ,karena proses upgrade akan memakan waktu yang cukup lama.
6. Tunggu dan liat hasilnya seperti ini kawan :D.

Friday 7 August 2015

VB6.0 :: membuat ID Card + Barcode dengan VB6


Setiap orang per orang atau pun instansi menginginkan setiap dana yang dikeluarkan memiliki nilai yang sangat minimal, oleh karena itu tidak jarang terjebak dengan kualitas yang tidak begitu memuaskan.
Sama halnya dengan pemilihan Kartu Karyawan banyak sekali pilihan dari yang biasa saja hingga yang sangat mewah. Pada blog ini saya hanya ingin berbagi, untuk tiap perusahaan pun dapat membuat ID Card dengan kreasi dari departemen IT nya sendiri. Berikut yang harus disediakan untuk tambahan pembuatan ID Card, selain Printer untuk mencetak dan aplikasinya
Kertas Inkjet, ketebalan atau pun merk bisa ditentukan sendiri
Plastik Laminating, dapat disesuaikan dengan kebutuhan
Pada bagian ini, saya akan berbagi tentang aplikasinya yang dibuat dengan menggunakan VB6
Berikut form yang harus disiapkan:
Keterangan Form:
ControlProperties NameProperties Caption
FrameFrame1
LabelLabel1Masukan ID
TextBoxText1
CommonDialogCmdDialog
CommandButtonCmdPrintPrint
LabelLblEmployee2Nama Karyawan
LabelLblPosition2Divisi
LabelLblNIK2NIKK
LabelLblCompanyNama Perusahaan
LabelLblAttentionPerhatian
LabelLbl1Kartu karyan ini………………….
LabelLbl2Kartu karyan ini dipelihara………………….
LabelLbl3Mentaati Peraturan ……
LabelLbl4Employee Signature
LabelLbl5HRD Anda
LabelLbl6Personalia
PictureBoxPictBack2
PictureBoxPictBar6
PictureBoxPicture4
ImagePictID2
Berikut bahasa program yang harus ada pada form (atau cukup copy seluruh):Dim sNameFile As String
Private Sub cmdPrint_Click()
cmdPrint.Visible = False
Frame1.Visible = False
Me.PrintForm
cmdPrint.Visible = True
Frame1.Visible = True
End Sub
Private Sub Text1_LostFocus()
lblNIK2.Caption = Text1.Text
With PictBar6
.ScaleMode = 3
.Height = .Height * (1.4 * 40 / .ScaleHeight)
.FontSize = 8
End With
Call DrawBarcode(Text1.Text, PictBar6)
With Me
sNameFile = Text1.Text
FileSave PictBar6
.PictBar6.Picture = LoadPicture(App.Path & “\” & Text1.Text & “.bmp”)
.PictBar6.Left = ((.PictBack2.Width – .PictBar6.Width) / 2) + 200
End With
End Sub
Sub FileSave(Picbox As PictureBox)
‘This Procedure Saves the Bars to desired Format
Dim sName, retVal, retSave
Screen.MousePointer = 11
On Error GoTo ErrHandler
If LastSave “” Then
CmdDialog.InitDir = App.Path & “\”
Else
CmdDialog.InitDir = App.Path & “\”
End If
CmdDialog.FileName = sNameFile & “.bmp”
CmdDialog.CancelError = True
CDialog.Flags = cdlOFNOverwritePrompt + cdlOFNNoReadOnlyReturn
CmdDialog.Filter = “Bitmaps (*.bmp)|*.bmp|Gif (*.gif)|*.gif|Transparent Gif (*.gif)|*.gif”
LastSave = CmdDialog.InitDir
CmdDialog.ShowSave
‘retrive the Folder Name
retSave = InStrRev(CmdDialog.FileName, “\”)
LastSave = Mid(CmdDialog.FileName, 1, retSave)
DoEvents
Picbox.Picture = Picbox.Image
CmdDialog.FilterIndex = 1
Select Case CmdDialog.FilterIndex
Case 1: ‘if BITMAP is selected
SavePicture Picbox.Picture, CmdDialog.FileName
Case 2: ‘if GIF is selected
‘Set ObjGifImg = New GIF
ObjGifImg.SaveGIF Picbox.Image, CmdDialog.FileName, Picbox.hDC, False, Picbox.Point(0, 0)
Set ObjGifImg = Nothing
Case 2: ‘if Transperent GIF is selected
‘Set ObjGifImg = New GIF
ObjGifImg.SaveGIF Picbox.Image, CmdDialog.FileName, Picbox.hDC, True, Picbox.Point(0, 0)
Set ObjGifImg = Nothing
End Select
Screen.MousePointer = 0
Exit Sub
ErrHandler:
If Err.Number = 32755 Then ‘ Handle the Cancel error
Screen.MousePointer = 0
Exit Sub
Else
If Err.Number 0 Then MsgBox “Error saving file: ” & Err.Number & ” – ” & Err.Description
Screen.MousePointer = 0
End If
End Sub
Tambahkan modul ini dengan Name: mdl39‘—————————————————————————————
‘ Fixes : The Bar39 had a small bug in printing ‘*’,
‘ which is essential for Barcode Readers.
‘—————————————————————————————
Sub DrawBarcode(ByVal bc_string As String, obj As Object)
Dim xpos!, Y1!, Y2!, dw%, Th!, tw, new_string$
If bc_string = “” Then obj.Cls: Exit Sub
‘define barcode patterns
Dim bc(90) As String
bc(1) = “1 1221″ ‘pre-amble
bc(2) = “1 1221″ ‘post-amble
bc(48) = “11 221″ ‘digits
bc(49) = “21 112″
bc(50) = “12 112″
bc(51) = “22 111″
bc(52) = “11 212″
bc(53) = “21 211″
bc(54) = “12 211″
bc(55) = “11 122″
bc(56) = “21 121″
bc(57) = “12 121″
‘capital letters
bc(65) = “211 12″ ‘A
bc(66) = “121 12″ ‘B
bc(67) = “221 11″ ‘C
bc(68) = “112 12″ ‘D
bc(69) = “212 11″ ‘E
bc(70) = “122 11″ ‘F
bc(71) = “111 22″ ‘G
bc(72) = “211 21″ ‘H
bc(73) = “121 21″ ‘I
bc(74) = “112 21″ ‘J
bc(75) = “2111 2″ ‘K
bc(76) = “1211 2″ ‘L
bc(77) = “2211 1″ ‘M
bc(78) = “1121 2″ ‘N
bc(79) = “2121 1″ ‘O
bc(80) = “1221 1″ ‘P
bc(81) = “1112 2″ ‘Q
bc(82) = “2112 1″ ‘R
bc(83) = “1212 1″ ‘S
bc(84) = “1122 1″ ‘T
bc(85) = “2 1112″ ‘U
bc(86) = “1 2112″ ‘V
bc(87) = “2 2111″ ‘W
bc(88) = “1 1212″ ‘X
bc(89) = “2 1211″ ‘Y
bc(90) = “1 2211″ ‘Z
‘Misc
bc(32) = “1 2121″ ‘space
bc(35) = “” ‘# cannot do!
bc(36) = “1 1 1 11″ ‘$
bc(37) = “11 1 1 1″ ‘%
bc(43) = “1 11 1 1″ ‘+
bc(45) = “1 1122″ ‘-
bc(47) = “1 1 11 1″ ‘/
bc(46) = “2 1121″ ‘.
bc(64) = “” ‘@ cannot do!
‘A Fix made by changing 65 to 42.
bc(42) = “1 1221″ ‘*
bc_string = UCase(bc_string)
‘dimensions
obj.ScaleMode = 3 ‘pixels
obj.Cls
obj.Picture = Nothing
dw = CInt(obj.ScaleHeight / 40) ‘space between bars
If dw 90 Then C = 0
bc_pattern$ = bc(C)
‘draw each bar
For i = 1 To Len(bc_pattern$)
Select Case Mid$(bc_pattern$, i, 1)
Case ” ”
‘space
obj.Line (xpos, Y1)-(xpos + 1 * dw, Y2), &HFFFFFF, BF
xpos = xpos + dw
Case “1”
‘space
obj.Line (xpos, Y1)-(xpos + 1 * dw, Y2), &HFFFFFF, BF
xpos = xpos + dw
‘line
obj.Line (xpos, Y1)-(xpos + 1 * dw, Y2), &H0&, BF
xpos = xpos + dw
Case “2”
‘space
obj.Line (xpos, Y1)-(xpos + 1 * dw, Y2), &HFFFFFF, BF
xpos = xpos + dw
‘wide line
obj.Line (xpos, Y1)-(xpos + 2 * dw, Y2), &H0&, BF
xpos = xpos + 2 * dw
End Select
Next
Next
‘1 more space
obj.Line (xpos, Y1)-(xpos + 1 * dw, Y2), &HFFFFFF, BF
xpos = xpos + dw
‘final size and text
obj.Width = (xpos + dw) * obj.Width / obj.ScaleWidth
obj.CurrentX = (obj.ScaleWidth – tw) / 2
obj.CurrentY = Y2 + 0.25 * Th
obj.Print bc_string
End Sub

Silakan unduh di sini