Er zijn 19 reacties in dit onderwerp

[pietereeckhout]

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

[RedThread]

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

[ingrid]

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

[pietereeckhout]

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!

[pietereeckhout]

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.

[RedThread]

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

[pietereeckhout]

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.

[RedThread]

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

[pietereeckhout]

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

[pietereeckhout]

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

[RedThread]

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

[pietereeckhout]

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

[pietereeckhout]

@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)?

[pascalbianca]

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.

[pietereeckhout]

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 ...?

[pascalbianca]

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

[pietereeckhout]

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

[pascalbianca]

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.

[pietereeckhout]

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

 MaxiCOM.zip   357.66K   0 downloads

[pascalbianca]

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