bu kodlar ben baska bi arkdasa yaptırdım. port acıyor ve yazdırmak ıstedıgın dosyayı porta gonderıyor
zaten eltermınalları artık bultut uzerınden yazdırıyor. yanı bultut com olarak goruyor yazıcıyı bu kod ilede port acıp dosyayı porta gonderıyorsun
NETCFv2.wce5.armv4i termınalı yuklemelısın exe calısmaz ise yuklersın.
Imports System.IO
Public Class Form1
Private Sub btnDosyaSec_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDosyaSec.Click
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
txtDosyaAdi.Text = ofd.FileName
End If
End Sub
Function KarakterDonustur(ByVal str As String) As String
Dim find As String = "ĞğÜüŞşİıÖöÇç'"
Dim yerine As String = "GgUuSsIiOoCc "
Dim karakter As String = ""
Dim i As Integer
If Not str Is Nothing Then
For i = 0 To find.Length - 1
karakter = find.Substring(i, 1)
str = str.Replace(karakter, yerine.Substring(i, 1))
Next
End If
Return str
End Function
Private Sub btnYazdir_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnYazdir.Click
Dim dosyaAdi As String = txtDosyaAdi.Text.Trim
If Not File.Exists(dosyaAdi) Then
MsgBox("Dosya Bulunamadı")
Exit Sub
Else
Try
Cursor.Current = Cursors.WaitCursor
SerialPort1.BaudRate = 9600
SerialPort1.WriteTimeout = 600
SerialPort1.PortName = txtPort.Text
SerialPort1.Open()
Catch ex As Exception
MsgBox("Seri Port Açılamadı" + vbCrLf + "Port Ayarlarını Kontrol Ediniz")
Cursor.Current = Cursors.Default
Exit Sub
End Try
Dim metin As String
Dim fs As New FileStream(dosyaAdi, FileMode.Open, FileAccess.Read)
Dim sr As New StreamReader(fs, System.Text.Encoding.GetEncoding(1254))
sr.BaseStream.Seek(0, SeekOrigin.Begin)
metin = sr.ReadToEnd
sr.Close()
'SerialPort1.WriteLine(Chr(156))
'SerialPort1.WriteLine(Chr(156))
'SerialPort1.WriteLine(Chr(156))
'SerialPort1.WriteLine(Chr(156))
'SerialPort1.WriteLine(Chr(156))
'SerialPort1.WriteLine(Chr(156))
SerialPort1.Write(metin)
MsgBox("Yazdırma Tamamlandı")
Cursor.Current = Cursors.Default
SerialPort1.Close()
End If
End Sub
End Class