AccessTr.neT

Tam Versiyon: com port dan veri alma
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3
merhaba. arkadaşımın bu kantar programını yapabildin mi
bana da lazım elindekileri eklersen geliştirebiliriz.
malesef uğraşamadım.. bilgi yeterli değil yardımda aramadım..
aşağıda linkini vereceğim sitede bu konu ile ilgili ayrıntılı bilgiler mevcuttur. olay birazda elektronik bilgiye kaydığı için herkesin bu konuda bilgisi olmayabilir.

Elektronik Devreler Projeler 320volt.com
teşekkürler. biraz okudum fakat indikatörden veri geliyor. pic'e gerek olmadan Hyperterminal den bilgi alındığı gibi Access den de alınabilir diye düşünüyorum.

porta tartının indikatöründen bilgi girişi mevcut. sadece basic ile okutabilmek gerekiyor. ilk adım indikatörü acces e tanıtmak gerekiyor.
tartım yapılan bilgisayarda çalışıyor olsam çözerdik vakit olmuyor..

uğraştım yarım kaldı kodlar şu şekilde

Option Explicit

Dim PortOpen As Boolean

Public Function PortTest(COMPortNummer As Integer) As Boolean
MSComm1.CommPort = COMPortNummer

On Error Resume Next

MSComm1.PortOpen = True
If Err = 0 Then
PortTest = True
MSComm1.PortOpen = False
Else
PortTest = False
MSComm1.PortOpen = False
End If
End Function

Private Sub command1_Click()
Me.text1 = Me.text1 & Str(Time) & " +++ Text yollama denemesi" & vbCrLf

If PortOpen = False Then
MsgBox "Lütfen önce bir Port acin"
Me.text1 = Me.text1 & Str(Time) & _
" +++ Text gönderiminde hata, Port " & _
"acik degil" & vbCrLf & vbCrLf
Exit Sub
End If

If Me.text2 = "" Then
MsgBox "Text e ne oldu"
Me.text1 = Me.text1 & Str(Time) & " +++ Text eksik" & _
vbCrLf & vbCrLf
Exit Sub
End If

On Error Resume Next

MSComm1.Output = Me.text2 + vbCr

If Err <> 0 Then
MsgBox "Text hatasiz olarak yollanamadi!"
Me.text1 = Me.text1 & Str(Time) & " +++ Text " & _
"hatasiz yollandi" & vbCrLf & vbCrLf
Else
Me.text1 = Me.text1 & Str(Time) & _
" +++ """ + Me.text2 & """ yollandi" & _
vbCrLf & vbCrLf
End If
End Sub

Private Sub Command2_Click()
Dim Portzaehler As Integer

Me.text1 = Me.text1 & Str(Time) & _
" +++ Mevcut olan COM-Ports taraniyor" & vbCrLf

Me.combo1.Clear

For Portzaehler = 1 To 16
If PortTest(Portzaehler) Then
Me.combo1.AddItem "COM" & Str(Portzaehler)
End If
Next

If Me.combo1.ListCount = 0 Then
Me.combo1.AddItem "Mevcut Comport bulunamadi"
Me.text1 = Me.text1 & Str(Time) & _
" +++ Comport mevcut degil" & _
vbCrLf & vbCrLf
Else
Me.text1 = Me.text1 & Str(Time) & _
" +++" & Str(Me.combo1.ListCount) & _
" Comport(s) mevcut" & vbCrLf & vbCrLf
End If

Me.combo1.ListIndex = 0
End Sub

Private Sub Command3_Click()
Dim CPort As Byte
Dim Settings As String

Me.text1 = Me.text1 & Str(Time) & _
" +++ Acma denemesi COM-Port icin" _
& vbCrLf

If PortOpen = True Then
MsgBox "Su anda acik durumda bir Port var lütfen " & _
"önce acik olani kapatiniz!"
Me.text1 = Me.text1 & Str(Time) & _
" +++ COM-Port acilamadi " & _
"halen acik olan bir Port mevcut" _
& vbCrLf & vbCrLf
Exit Sub
End If

CPort = Val(Mid(Me.combo1.List(Me.combo1.ListIndex), 4, _
Len(Me.combo1.List(Me.combo1.ListIndex))))

If CPort = 0 Then
MsgBox "Hata COMM-Port mevcut degil "

Me.text1 = Me.text1 & Str(Time) & _
" +++ COM-Port acilamadi " & vbCrLf & vbCrLf
Else
MSComm1.CommPort = CPort
Settings = Me.Combo2.List(Me.Combo2.ListIndex)
Select Case Me.Combo4.ListIndex
Case 0: Settings = Settings & ",E"
Case 1: Settings = Settings & ",M"
Case 2: Settings = Settings & ",N"
Case 3: Settings = Settings & ",O"
Case 4: Settings = Settings & ",S"
End Select

Settings = Settings & "," & _
Me.Combo3.List(Me.Combo3.ListIndex)

Settings = Settings & "," & _
Me.Combo5.List(Me.Combo5.ListIndex)

MSComm1.Settings = Settings

On Error Resume Next

MSComm1.PortOpen = True

If Err <> 0 Then
MsgBox "Hata COM-Ports " & _
"mevcut degil yada ayarlarda hata var?"

Me.text1 = Me.text1 & Str(Time) & _
" +++ COM-Port acilamadi" _
& vbCrLf & vbCrLf
Else
MSComm1.RThreshold = 1
MSComm1.SThreshold = 1
MSComm1.InputLen = 0
Me.text1 = Me.text1 & _
Str(Time) & " +++ COM-Port acilmistir" _
& vbCrLf & vbCrLf
PortOpen = True
End If
End If
End Sub

Private Sub Command4_Click()
Me.text1 = Me.text1 & Str(Time) & _
" +++ COM-Port kapama denemesi" & vbCrLf

If PortOpen = False Then
MsgBox "Acik olan COMM-Port yok, kapatmaya gerek yok "


Me.text1 = Me.text1 & Str(Time) & _
" +++ COM-Port kapatilamadi " & vbCrLf & vbCrLf
Else
On Error Resume Next

MSComm1.PortOpen = False
If Err <> 0 Then
MsgBox "Port kapatimi sirasinda hata olustu"
Me.text1 = Me.text1 & _
Str(Time) & " +++ COM-Port kapatilamadi " & _
vbCrLf & vbCrLf
Else
Me.text1 = Me.text1 & Str(Time) & " +++ COM-Port " & _
"kapali" & vbCrLf & vbCrLf
PortOpen = False
End If
End If
End Sub

Private Sub Form_Load()
Me.combo1.Clear
Me.combo1.AddItem "Comm Port yok!!!"
Me.combo1.ListIndex = 0
Me.Combo2.AddItem "4800"
Me.Combo2.AddItem "9600"
Me.Combo2.AddItem "19200"
Me.Combo2.AddItem "38400"
Me.Combo2.AddItem "57600"
Me.Combo2.AddItem "115200"
Me.Combo2.ListIndex = 4
Me.Combo3.AddItem "4"
Me.Combo3.AddItem "5"
Me.Combo3.AddItem "6"
Me.Combo3.AddItem "7"
Me.Combo3.AddItem "8"
Me.Combo3.ListIndex = 4
Me.Combo4.AddItem "Dosdogru"
Me.Combo4.AddItem "Dosdogru degil"
Me.Combo4.AddItem "BOs"
Me.Combo4.AddItem "Secili"
Me.Combo4.AddItem "Bosluk"
Me.Combo4.ListIndex = 2
Me.Combo5.AddItem "1"
Me.Combo5.AddItem "1.5"
Me.Combo5.AddItem "2"
Me.Combo5.ListIndex = 0

PortOpen = False

Me.text1 = Str(Time) & _
" +++ Program basliyor. Hosgeldiniz." & _
vbCrLf & vbCrLf
End Sub

Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comOverrun: MsgBox "Bilgi kaybolusu!"
Case comRxOver: MsgBox "Bilgi kaybolusu!"
Case comEvReceive: Me.text3 = Me.text3 + MSComm1.Input
End Select
End Sub
Label veya textbox gibi kontrollerin içeriyini picture boxta görmek
TextBox’a Satyr Eklemek
Karakter deyerleri
VB menü elemany Format tanytymy
Dosya iylemleri 2. Bölüm
Özellik Eklemek
Formu Kaydyrma
Slider – Cetvel
Add-Ins Mönüsü
Sql TABLO ByLGyLERyNyN SIRALANMIy OLARAK LySTELENMESy:

Bir AvrasyaSoft Hizmetidir. Since 2007
Murat Çetin
dediğiniz gibi bu tartı makinasına bağlı bilgisayarda biraz vakit geçirmeden bu tür programlarla uğraşmak gerçekten zor ezbere birşey yapılamaz yani. ben bile bir müşterime barkod programı yazacaksam elindeki barkod ürünlerini alıp makinama tanıtıp öyle yazarım.
kantar programı arıyorum

access ten port okuyarak çıktı alıcam

varsa yardımlarınızı rica edyorum

elimizde endikatör var.
Sayfalar: 1 2 3