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?
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.
(29/06/2020, 18:46)ozanakkaya yazdı: [ -> ]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.
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
Merhaba, terazi olmadığı için kodu deneyemem,
SComm1.PortOpen = 5
kodunu
SComm1.PortOpen = True
şeklinde değiştirerek deneyiniz.
(30/06/2020, 10:01)ozanakkaya yazdı: [ -> ]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.