[es] - paralelni portovi i vb.net

Neretva
BG

Član broj: 60534
Poruke: 41
*.smin.sezampro.yu.

Profil

^{30.03.2006. u 21:31}

Na racunaru imam prikljucena cetiri BarCode printera(TTP-243).Vezani su na LPT portove.
Printer ima neki svoj interni jezik veoma slican Basicu. Da bi odstampao nesto na printeru neophodno je da mu posaljem niz naredbi u nekom *.bas fajlu. Ima li neko resenje (klasu ili nesto slicno) kojim mogu da pristupim , odnosno , posaljem nesto na LPT port? Radio sam sa RS232 portovima , postoj neka klasa (mislim da se tako i zove RS232) na Microsoftovom sajtu.
Ima li nesto slicno za paralelne portove?

^{30.03.2006. u 21:31}

Neretva
BG

Član broj: 60534
Poruke: 41
*.smin.sezampro.yu.

Profil

Re: paralelni portovi i vb.net

^{31.03.2006. u 23:06}

Kako sa paralelnim portovima tesko ide resih da predjem na RS232, sa kojima sam dosta radio ...
I evo problema:

OVO JE SAMO DEMO PROGRAM , KOJI BI TREBALO DA POSALJE NESTO COM1 A ZATIM TO PROCITA.
PROBLEM JE STO NISTA NE STIZE NA COMM1

DIM Comm1 As New RS232
Try
If Comm1.IsOpen = True Then
Comm1.Close()
End If

With Comm1
.Port = 1
.BaudRate = 9600
.DataBit = 8
.StopBit = Rs232.DataStopBit.StopBit_1
.Parity = Rs232.DataParity.Parity_None
.Timeout = 5000
End With

Comm1.Open()

Comm1.Dtr = True
Comm1.Rts = True

If Comm1.IsOpen = True Then
Comm1.ClearInputBuffer()
Comm1.Write("ABC") // OVDE SE SALJU NEKE KOMANDE NA PRINTER
MsgBox("PAUZA!")
Comm1.Read(3)
Dim str As String = Comm1.InputStreamString()

' OVDE PADA - IAKO SAM MU POSLAO SA WRITE("ABC") NA PORT
' NA PORTU NEMA NISTA. NA COM1 JE OKACEN TTP-243 BARCODE PRINTER.
' KORISTECI NEKI NJIHOV PROGRAM ZA STAMPANJE LABELA SVE RADI BESPREKORNO,
' ALI KADA PROBAM DA POSALJEM KOMANDU NA PORT COM1 NE SALJE NISTA. KADA
' PROMENIM PORT U KODU I STAVIM UMESTO COM1 COM3 - NA KOME JE MODEM, ONDA
' RADI BEZ PROBLEMA.

End If
Comm1.Close()

Catch ex As Exception

MsgBox(ex.Message )
' GRESKA KOJA SE JAVLJA JE OTPRILIKE: READ ERROR.TIMEOUT ERROR.
' TESTIRAO SAM I NA DRUGOM RACUNARU NA KOME NEMA MODEMA I NIJEDNOG DRUGOG
' UREDJAJA SEM BARCODE PRINTERA I OPET ISTA GRESKA.

End Try

AKO NEKO IMA BILO KAKVU IDEJU BIO BIH MU VEOMA ZAHVALAN. DANIMA SE VRTIM OKO OVIH PROBLEMA

_{[Ovu poruku je menjao Neretva dana 01.04.2006. u 09:22 GMT+1]}

^{31.03.2006. u 23:06}

Neretva
BG

Član broj: 60534
Poruke: 41
*.smin.sezampro.yu.

Profil

Re: portovi i vb.net

^{31.03.2006. u 23:06}

EVO RESENJA, NIJE ELEGANTNO ALI RADI

1. IZ PROGRAMA SE PRAVI FAJL(npr. PRINT.BAS) OTPRILIKE OVAKAV

SIZE 100 mm, 80 mm
GAP 3 mm,0
DENSITY 8
SPEED 2
DIRECTION 0
REFERENCE 0, 0
Cls
BARCODE 20, 20, "128", 56, 0, 0, 2, 1, "SIFRA ZA BAR KOD"
Text 20, 100, "1", 0, 1, 1, "TEXT KOJI SE STAMPA"
Print 1

(OVO JE INTERNI JEZIK ZA TSC TTP-243 BAR KODE STAMPAC)

2. PRAVI SE BAT FAJL (PRINT.BAT)
COPY C:\PROJEKTI\WP\PRINT.BAS COM1:
U OVOM SLUCAJU MISLIM DA MORA DA SE OTVORI COM1 (NEKA KLASA KAO RS232)
ili
COPY C:\PROJEKTI\WP\PRINT.BAS LPT1:

3. IZ PROGRAMA SE POZIVA SHELL KOJI POKRECE PRINT.BAS

NEVEROVATNO, ALI RADI OK, SVE SA ZABORAVLJENIM DOS-OM i COPY NAREDBMOM.

IPAK ME JAKO INTERESUJE KAKO OVO URADITI BEZ SHELA I BAT FAJLA, KORISTECI SAMO RS232 KLASU.
J

_{[Ovu poruku je menjao Neretva dana 01.04.2006. u 00:09 GMT+1]}

_{[Ovu poruku je menjao Neretva dana 03.04.2006. u 12:48 GMT+1]}

^{31.03.2006. u 23:06}