com port dan veri alma

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.