Skip to main content

AccessTr.neT


Access Terazi Port Tanıma

atamsinatamsin
atamsinatamsin
5
411

Access Terazi Port Tanıma

Çözüldü #1
Merhaba arkadaşlar Access yaptığım çalışma ile bağlı elektron teraziden tartı bilgisini alabilmiyorum.
Örnek bu şekilde yaptım ama bi türlü terazi ile Access arasında bağlantı kuramıyorum.
Yardımınız için teşekkür edirem. comport 5 dir benim bilgisayarımda. Nerde yalnış yapıyorum?
.rar Comport Tem.rar (Dosya Boyutu: 1,75 MB | İndirme Sayısı: 2)
Cevapla
#2
Eklediğiniz klasörde "install_trial_scomm32x.exe" programını çalıştırdığınızda program files içerisinde SComm32 klasörü oluşturuluyor. İçerisindeki "SampleCode" arşivini çıkarın, klasör içerisine MSAccess Vba klasörü oluşturuyor. Bu klasördeki SComm_InCode veya SComm_OnForm isimli uygulamalarla doğru portu bulabilirsiniz. Ayrıca sizin dosyadaki eksik referans da bu exe ile yükleniyor.
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#3
(29/06/2020 18:46)ozanakkaya Adlı Kullanıcıdan Alıntı: Eklediğiniz klasörde "install_trial_scomm32x.exe" programını çalıştırdığınızda program files içerisinde SComm32 klasörü oluşturuluyor. İçerisindeki "SampleCode" arşivini çıkarın, klasör içerisine MSAccess Vba klasörü oluşturuyor. Bu klasördeki SComm_InCode veya SComm_OnForm isimli uygulamalarla doğru portu bulabilirsiniz. Ayrıca sizin dosyadaki eksik referans da bu exe ile yükleniyor.

Teşekkür ederim. siz sölediyiniz şekilde baktım doğru portu buldum port 5 open yazdı ama yine de teraziden tartını alamiyorum. Vusual Basic de kodu bu şekilde düzenleme yapıyorum. 

Visual Basic Code
Private Sub GelenBilgi_Click()
Text1 = ""
Text1.SetFocus
If SComm1.PortOpen Then Exit Sub
    
    On Error GoTo ErrHandler

    
      
SComm1.CommPort = 5    '// Use Any Com Port
SComm1.Settings = "9600,n,8,1"  '// Setup the Com Port
SComm1.PortOpen = 5  '// Open the Port
    
SComm1.Output = "Hello World"  '// Send some data
    
Do While SComm1.InBufferCount > 0
    Text1 = Text1 & SComm1.Input '// Receive Data
Loop
    
SComm1.PortOpen = False '// Close the port.
Komut1_Click
Exit Sub

ErrHandler:
MsgBox "Hata COMM-Port mevcut degil "
End Sub

Cevapla
#4
Merhaba, terazi olmadığı için kodu deneyemem, 

SComm1.PortOpen = 5

kodunu

SComm1.PortOpen = True

şeklinde değiştirerek deneyiniz.
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#5
(30/06/2020 10:01)ozanakkaya Adlı Kullanıcıdan Alıntı: Merhaba, terazi olmadığı için kodu deneyemem, 

SComm1.PortOpen = 5

kodunu

SComm1.PortOpen = True

şeklinde değiştirerek deneyiniz.
Teşekkür ederim denedim alınmadı. Sadece benim yapmak istediyim kantar progrpamıdır. Zamanınız oldugu zaman teamweaver açsam baka bilirmisiniz? Deneriz beraber payaşırız terazi var bende. İlgiliniz için teşekkür ederim.
Cevapla
#6
Tem Marka Nt Serisi Teraziden Comporttan Kg Bilgisi Alma
Terazi veya Tartı ile accesse anlık ağırlık bilgisi alma hakkında

Üstteki konuları inceleyin. Ayrıca özel mesaj gönderdim.
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da