Re: [Programmer-VB] Barcoding di VB

Tue, 15 Nov 2005 21:42:32 -0800

Saya ada contoh program untuk barcode. Setahu saya ini akan lebih bagus menggunakan printer yang memang khusus untuk barcode (ie : zebra. kenapa merknya zebra, karena dia belang-2 seperti barcode, hehehe... )

Saya ada contoh script mudah menggunakan bartender, seperti berikut :

Private Sub CetakBarcode()
    'Declare object variables

    Dim btApp As BarTender.Application
   
    Dim btFormat As BarTender.Format
   
    
   
    Dim btDb As BarTender.Database
   
    'Start the Bar Tender application
   
    Set btApp = CreateObject("BarTender.Application")
   
  
    'Open the  format file
   
    Set btFormat = btApp.Formats.Open(App.Path & "\Sover3-a.btw")
   
    'Print the label format.
    Verify = MsgBox("Automatically print the label ?", vbYesNo + vbQuestion, "Confirm...")
    If Verify = vbYes Then
        btFormat.PrintOut
        btApp.Quit
    Else
        btApp.Visible = True
       
    End If
End Sub


Salam,


Vavai

Darsana wrote:
konek ke MySql tanpa ODBC , bisa langsung menggunakan VB API. Ada satu file yg mesti dicopy ke folder SYSTEM. Saya ada file yang dimaksud. Utk bikin barcode , saya ada..cuman saya cari2 dulu apa filenya masih ada.....bila diperlukan silahkan ke JAPRI.
 
cara konek dari VB ke MYSQL :
1. Copy file yang saya kirimkan ke path Windows System
2. Pada project, tambahkan components dari file yang telah tercopy pada point 1 diatas
3. Coding koneksi sbb :
 
Function konekDB() as boolean
    dim MyDB As MYSQL_CONNECTION
    MyDB.OpenConnection "localhost", "root", "nyoman4008", "retail", 3306
    If MyDB.State = MY_CONN_OPEN Then
       konekDB=true
    Else
       konekDB = False
    End If
End Sub
 
selamat mencoba........................
 
 
salam,
darsana
----- Original Message -----
From: Radian
Sent: Tuesday, November 15, 2005 2:59 AM
Subject: [Programmer-VB] Barcoding di VB

Salam kenal,
saya anggota baru lho..^_^
n saya lagi bikin program kantor utk printing barcode,
 
mo nanya :
1. gmn cara nampilin barcode d VB juga konversi dari text/number menjadi Barcode tsb.
saya pk MyODBC and MySql 
2. bwat connect VB ke Mysql,bisa gak kl langsung ke Mysql tanpa perantara MyODBC?
3. Trus gmana bwat print preview juga print dialognya biar nyambung k database (mysql)?
4. terakhir bwat ngesave database yg udah d query+manggilnya lagi(open file)
 
Thanx B4...mohon pencerahannya...



Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]



SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



Kirim email ke