Springen naar inhoud


- - - - -
Solved

Connectie Met Weegschaal Via Usb

Excel USB Serieel

  • Log in a.u.b. om te beantwoorden
Er zijn 19 reacties in dit onderwerp

#1 pietereeckhout

pietereeckhout

    Starting Developer

  • Leden
  • 12 berichten
    Laatst bezocht 12 Mar 2013 19:29

Geplaatst op 05 March 2012 - 17:02


Beste

Kan me iemand op weg helpen met het volgende:

Ik heb een weegschaal met USB connectie en een knop om gegevens naar de computer door te sturen.

Ik zou dus graag de gegevens kunnen lezen die via de USB kabel verstuurd worden. Normaal moet je hier een licentie voor kopen (voor slechts 550 euro heb je dit en ik heb er zo meerdere nodig). Maar ik dacht, dit moet ik zelf kunnen schrijven.

Ik heb tamelijk veel ervaring met programmeren binnen excel, maar niet met connecties van USB/COM/Seriele poorten.

Dus als iemand mij hier de aanzet zou kunnen geven van hoe ik connecteer met een USB vanuit excel VBA, ik zou je dankbaar zijn.

Indien je het niet zou weten, mag je mij ook altijd uitleggen hoe je het doet met VB.net.

mvg
Pieter Eeckhout

#2 RedThread

RedThread

    Beheerder VBIB

  • Beheerder
  • 3429 berichten
    Laatst bezocht vandaag, 17:08
  • LocatieTongeren,Belgium.
Inzender

Geplaatst op 05 March 2012 - 17:10

Dag Pieter !

Wij hebben een tutorial sektie waar je alvast meer info kunt vinden : http://www.vbib.be/i...met-vbnet-2010/
Ook hebben we een aparte sektie voor : http://www.vbib.be/i...n-programmeren/
Ofwel gewoon even zoeken op onze site : http://www.vbib.be/i...h&fromMainBar=1

Ik zou zeggen kijk eens even naar die links maar dat laat natuurlijk niet na dat leden hier op je vraag kunnen replyen.

Greetzzz
RedThread

*** If you like youre solution or appriciate the crew's effort, please click on the facebook like or the Google +1 button ***

 

- Any fool can know, the point is to understand -


email : RedThread@vbib.be | MSN : Red_Thread@Hotmail.com

Huisregels - Tutorials - VS 2013 Express - Keybinding Posters - Code Tags gebruiken - LessThenDot - MSDN


#3 ingrid

ingrid

    Moderator

  • Moderators
  • 439 berichten
    Laatst bezocht 22 Jan 2014 14:32

Geplaatst op 05 March 2012 - 17:56

Hallo Pieter,

Ik neem aan dat als je de usb kabel connect dat je dan een extra drive krijgt? Met daarop bestanden? Die kan je dan volgens mij uitlezen?

groetjes,
Ingrid

#4 pietereeckhout

pietereeckhout

    Starting Developer

  • Leden
  • 12 berichten
    Laatst bezocht 12 Mar 2013 19:29

Geplaatst op 05 March 2012 - 19:34

Neen, dat heb ik niet, het is eigenlijk een RS232 aansluiting naar USB (ik heb wel de driver kunnen installeren, die was gewoon ter beschikking op de site, het gaat om een Sartorius weegschaal)

@RedThread: Ik heb geprobeerd om te 'zoeken' op deze site, maar je moet minstens 4 chars hebben om te kunnen zoeken en aangezien usb er maar 3 zijn ging dit niet. Het is alvast niet mijn gewente om klakkeloos dingen te vragen op een forum zonder eerst zelf deftig wat opzoekwerk te verrichten.

En Bedankt voor de links, ik ga ze eens bekijken!

Edit: http://www.vbib.be/i...met-vbnet-2010/ Met volgende tutorial zal ik denk ik al veel zijn! Maar ik kan pas morgen terug proberen als ik op mijn werk ben. Andere suggesties of ervaringen met dergelijke projecten mogen altijd gedeeld worden!

#5 pietereeckhout

pietereeckhout

    Starting Developer

  • Leden
  • 12 berichten
    Laatst bezocht 12 Mar 2013 19:29

Geplaatst op 06 March 2012 - 09:31

Ik heb dus het bovenstaande geprobeerd.

Ik kan connectie maken, maar ik kan geen gegevens ontvangen van de weegschaal. Ik merk wel (aan de weegschaal) dat de weegschaal 'iets' probeerd door te sturen.

Kan me iemand code geven om gewoon alles te ontvangen van wat er door de usb kabel komt.

#6 RedThread

RedThread

    Beheerder VBIB

  • Beheerder
  • 3429 berichten
    Laatst bezocht vandaag, 17:08
  • LocatieTongeren,Belgium.
Inzender

Geplaatst op 06 March 2012 - 10:07

Pascal / swets / vozzie lijken me de aangewezen personen om je daarmee te helpen Pieter.
Misschien even een pm sturen om te vragen of ze je willen assisteren.

misschien kan dit je nog helpen, kan het hier zelf niet testen natuurlijk : http://www.codeworks.../VBNetRs232.htm

*** If you like youre solution or appriciate the crew's effort, please click on the facebook like or the Google +1 button ***

 

- Any fool can know, the point is to understand -


email : RedThread@vbib.be | MSN : Red_Thread@Hotmail.com

Huisregels - Tutorials - VS 2013 Express - Keybinding Posters - Code Tags gebruiken - LessThenDot - MSDN


#7 pietereeckhout

pietereeckhout

    Starting Developer

  • Leden
  • 12 berichten
    Laatst bezocht 12 Mar 2013 19:29

Geplaatst op 06 March 2012 - 12:21

Ok bedankt Redthread, ik kan dus (wel met wat moeite) ontvangen wat de weegschaal uitstuurt hiermee, blijkbaar is de gegevensstring gecodeerd dus ik denk niet dat ik die code ga kunnen kraken.

Ik moet hiervoor volgende instellingen gebruiken:

Baudrate: 1200
COMpoort: 10 (in de code)
RTS aanvinken en DTR uitvinken

Als status line: CTS

En automatically receive bytes aanvinken.

bytes to read: 44 (of 42?)

En dan kreeg ik als ik op RX duwde en op de knop op de weegschaal om door te sturen soms de Received data. Soms gaf hij ook fouten en ging het niet.

#8 RedThread

RedThread

    Beheerder VBIB

  • Beheerder
  • 3429 berichten
    Laatst bezocht vandaag, 17:08
  • LocatieTongeren,Belgium.
Inzender

Geplaatst op 06 March 2012 - 12:37

Kun je de mensen die de hardware verkocht hebben niet om support vragen ?

Ik heb ook eens wat software moeten schrijven voor een labelprinter, na contact met de supportdienst kreeg ik een pdf met alle commando's en info die ik nodig had. Was nergens te downloaden op hun site...

Maar het verwondert me niet dat ze hun technologie afschermen als ze er 500€ voor vragen :)

Kun je misschien wat code van je voorlopige oplossing posten, zo hebben andere leden ook iets aan jouw bevindingen.

Greetzzz

*** If you like youre solution or appriciate the crew's effort, please click on the facebook like or the Google +1 button ***

 

- Any fool can know, the point is to understand -


email : RedThread@vbib.be | MSN : Red_Thread@Hotmail.com

Huisregels - Tutorials - VS 2013 Express - Keybinding Posters - Code Tags gebruiken - LessThenDot - MSDN


#9 pietereeckhout

pietereeckhout

    Starting Developer

  • Leden
  • 12 berichten
    Laatst bezocht 12 Mar 2013 19:29

Geplaatst op 06 March 2012 - 16:05

Ik heb gewoon de programmacode van http://www.codeworks.../VBNetRs232.htm gedownload en daarmee kon ik al 'direct' zien wat er uit mijn weegschaal komt.

Met volgende info kan je eenvoudig de bovenstaande code analyseren: http://www.me.umn.ed...ial-port-vb.pdf

#10 pietereeckhout

pietereeckhout

    Starting Developer

  • Leden
  • 12 berichten
    Laatst bezocht 12 Mar 2013 19:29

Geplaatst op 06 March 2012 - 16:34

Ok goed, blijkbaar zijn de gegevens toch niet gecodeerd.

Met behulp van http://en.sourceforg...aterm-4.73.exe/ en de juiste instellingen kan ik perfect het gewicht van de weegschaal lezen met mijn PC.

Dus nu weet ik dat de gegevens niet gecodeerd van mijn weegschaal komen. Dus zelf een programma schrijven die het gewicht uit de weegschaal haalt is dus mogelijk. FEEST :)

Volgende instellingen heb ik moeten gebruiken:

(Port : COM10)
Baud Rate: 1200
Data: 7 bit
Parity: ODD
Stop: 1bit
Flow control: none

#11 RedThread

RedThread

    Beheerder VBIB

  • Beheerder
  • 3429 berichten
    Laatst bezocht vandaag, 17:08
  • LocatieTongeren,Belgium.
Inzender

Geplaatst op 06 March 2012 - 16:40

Goed nieuws dus Pieter, je hebt jezelf en/of je baas een veelvoud van die 550€ uitgespaart !
Nu is het inderdaad een kwestie van je programma schrijven.

Ik zou zeggen, als het eens af is post een paar screenshots >> http://www.vbib.be/i...s-your-program/
Veel succes !!

Greetzzz
RedThread

*** If you like youre solution or appriciate the crew's effort, please click on the facebook like or the Google +1 button ***

 

- Any fool can know, the point is to understand -


email : RedThread@vbib.be | MSN : Red_Thread@Hotmail.com

Huisregels - Tutorials - VS 2013 Express - Keybinding Posters - Code Tags gebruiken - LessThenDot - MSDN


#12 pietereeckhout

pietereeckhout

    Starting Developer

  • Leden
  • 12 berichten
    Laatst bezocht 12 Mar 2013 19:29

Geplaatst op 06 March 2012 - 17:05

Ik gebruik volgdende code:

Visual Basic Code:
Public Class Form1
	Private SartoriusPort As New SerialPort
	Private combuffer As Byte()
	Private Delegate Sub updateformdelegate()
	Private updateformdelegate1 As updateformdelegate
	Private Sub sartoriusport_datareceived(ByVal sender As Object, ByVal e As SerialDataReceivedEventArgs)
		updateformdelegate1 = New updateformdelegate(AddressOf updatedisplay)
		Dim n As Integer = SartoriusPort.BytesToRead
		combuffer = New Byte(n - 1) {}
		SartoriusPort.Read(combuffer, 0, n)
		Me.Invoke(updateformdelegate1)
	End Sub
	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		CommPortSetup()
		AddHandler SartoriusPort.DataReceived, AddressOf sartoriusport_datareceived
	End Sub
	Private Sub updatedisplay()
		Label2.Text = CStr(combuffer(0))
	End Sub
	Private Sub CommPortSetup()
		With SartoriusPort
			.PortName = "COM10"
			.BaudRate = 1200
			.DataBits = 7
			.Parity = Parity.Odd
			.StopBits = StopBits.One
			Try
				SartoriusPort.Open()
			Catch ex As Exception
				MessageBox.Show(ex.Message)
			End Try
		End With
	End Sub
End Class


Maar ik krijg nog geen resultaat in mijn label.
Ik ben wel zeker dat ik connectie heb met mijn weegschaal.

Weet iemand wat ik verkeerd doe?

Ik krijg volgende dingen:
A first chance exception of type 'System.unauthorizedaccesexcetion' occurred in system.dll
A first chance exception of type 'System.invalidoperationexception' occurred in system.dll
A first chance exception of type 'System.argumentexception' occurred in system.dll

#13 pietereeckhout

pietereeckhout

    Starting Developer

  • Leden
  • 12 berichten
    Laatst bezocht 12 Mar 2013 19:29

Geplaatst op 07 March 2012 - 09:35

@RedThread: zou ik niet beter een nieuw onderwerp maken in VB.net 2010 of kan je dit verplaatsen naar VB.net 2010 (of naar Elektronica en programmeren)?

#14 pascalbianca

pascalbianca

    Webmaster/Admin

  • Webmaster
  • 4084 berichten
    Laatst bezocht vandaag, 14:27
  • LocatieSusteren, Nederland, Midden Limburg.
Inzender

Geplaatst op 07 March 2012 - 12:16

Ik kan het hier niet testen uiteraard aangezien ik die weegschaal niet heb, maar

Visual Basic Code:
Private Sub updatedisplay()
Label2.Text = CStr(combuffer(0))
End Sub

updatedisplay roep je nergens aan ,dus zal hij die label niet vullen.

Wat is het gezegde in Ontwikkeling van software.: Er zijn vele wegen die naar Rome leiden, de kunst is de goede te vinden.
email : pascalbianca@vbib.be
of email : webmaster@vbib.be
MSN.:: pmhaschuffelers@hotmail.com
Volg ook mijn Raspberry Pi Blog.:: link


Geplaatste afbeelding


Huisregels - Tutorials - VS 2012 Express - Keybinding Posters - Code Tags gebruiken - LessThenDot - MSDN


*** If you like you're solution or appriciate the crew's effort, please click on the facebook like or the Google + button ***


#15 pietereeckhout

pietereeckhout

    Starting Developer

  • Leden
  • 12 berichten
    Laatst bezocht 12 Mar 2013 19:29

Geplaatst op 07 March 2012 - 12:49

Hier wordt het aangeroepen: Visual Basic Code:
updateformdelegate1 = New updateformdelegate(AddressOf updatedisplay)

Ik denk eerder dat er iets verkeerd is aan:

Visual Basic Code:
Private Sub sartoriusport_datareceived(ByVal sender As Object, ByVal e As SerialDataReceivedEventArgs)
  updateformdelegate1 = New updateformdelegate(AddressOf updatedisplay)
Dim n As Integer = SartoriusPort.BytesToRead
  combuffer = New Byte(n - 1) {}
  SartoriusPort.Read(combuffer, 0, n)
Me.Invoke(updateformdelegate1)
End Sub
Maar wat ...?

#16 pascalbianca

pascalbianca

    Webmaster/Admin

  • Webmaster
  • 4084 berichten
    Laatst bezocht vandaag, 14:27
  • LocatieSusteren, Nederland, Midden Limburg.
Inzender

Geplaatst op 07 March 2012 - 13:05

Merk ook op dat je label2 gebruikt, heb je ook nog een label 1 staan die je niet aanspreekt in je code?

Wat is het gezegde in Ontwikkeling van software.: Er zijn vele wegen die naar Rome leiden, de kunst is de goede te vinden.
email : pascalbianca@vbib.be
of email : webmaster@vbib.be
MSN.:: pmhaschuffelers@hotmail.com
Volg ook mijn Raspberry Pi Blog.:: link


Geplaatste afbeelding


Huisregels - Tutorials - VS 2012 Express - Keybinding Posters - Code Tags gebruiken - LessThenDot - MSDN


*** If you like you're solution or appriciate the crew's effort, please click on the facebook like or the Google + button ***


#17 pietereeckhout

pietereeckhout

    Starting Developer

  • Leden
  • 12 berichten
    Laatst bezocht 12 Mar 2013 19:29

Geplaatst op 07 March 2012 - 15:50

Ik heb geprobeerd met een messagebox en ik krijg ook geen messagebox met de gegevens in.

#18 pascalbianca

pascalbianca

    Webmaster/Admin

  • Webmaster
  • 4084 berichten
    Laatst bezocht vandaag, 14:27
  • LocatieSusteren, Nederland, Midden Limburg.
Inzender

Geplaatst op 07 March 2012 - 17:24

Dus in je code heb je messagebox geplaatst ipv van die label2?
Ik heb je code hier in VB geplaatst maar als ik ga kijken verwijst deze regel
Visual Basic Code:
updateformdelegate1 = New updateformdelegate(AddressOf updatedisplay)

naar dit stukje
Visual Basic Code:
Private Sub updatedisplay()
	Label2.Text = CStr(combuffer(0))
	End Sub

Dus houd het in of die combinatie moet anders want dan krijgt label2 gewoon geen waarde, maar vreemd dat het niet label1 moet zijn of je combuffer heeft geen waarde.

Wat is het gezegde in Ontwikkeling van software.: Er zijn vele wegen die naar Rome leiden, de kunst is de goede te vinden.
email : pascalbianca@vbib.be
of email : webmaster@vbib.be
MSN.:: pmhaschuffelers@hotmail.com
Volg ook mijn Raspberry Pi Blog.:: link


Geplaatste afbeelding


Huisregels - Tutorials - VS 2012 Express - Keybinding Posters - Code Tags gebruiken - LessThenDot - MSDN


*** If you like you're solution or appriciate the crew's effort, please click on the facebook like or the Google + button ***


#19 pietereeckhout

pietereeckhout

    Starting Developer

  • Leden
  • 12 berichten
    Laatst bezocht 12 Mar 2013 19:29

Geplaatst op 27 February 2013 - 20:38

Hallo


Ja ik weet ik ben een tijdje weggeweest, ik had het te druk met andere dingen.

Het is mij ondertussen gelukt om gegevens uit de weegschaal te halen!

http://www.innovatic...OM.htm#Download

oftewel

Bijlage  MaxiCOM.zip   357.66K   2 downloads

#20 pascalbianca

pascalbianca

    Webmaster/Admin

  • Webmaster
  • 4084 berichten
    Laatst bezocht vandaag, 14:27
  • LocatieSusteren, Nederland, Midden Limburg.
Inzender

Geplaatst op 01 March 2013 - 23:25

Beter laat als nooit.
Fijn dat je dit alsnog met ons wilde delen :)

Wat is het gezegde in Ontwikkeling van software.: Er zijn vele wegen die naar Rome leiden, de kunst is de goede te vinden.
email : pascalbianca@vbib.be
of email : webmaster@vbib.be
MSN.:: pmhaschuffelers@hotmail.com
Volg ook mijn Raspberry Pi Blog.:: link


Geplaatste afbeelding


Huisregels - Tutorials - VS 2012 Express - Keybinding Posters - Code Tags gebruiken - LessThenDot - MSDN


*** If you like you're solution or appriciate the crew's effort, please click on the facebook like or the Google + button ***






Ook met taq Solved, Excel, USB, Serieel voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[Solved] Untitled 1

Hosting provided by Combell
Met dank aan Jürgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
vbib.be - vbnet.be - vbdotnet.be - visualbasic.be