Dim owd_enum As java.util.Enumeration ?

Försöker koma åt en temperatur givare från Dallas semiconductors via 1-wire.

men jag får fel på "java.util.Enumeration" Någon som vet?

<code>
Public Class Form1

Dim adapter As com.dalsemi.onewire.adapter.DSPortAdapter

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim owd_enum As java.util.Enumeration
Dim owd As com.dalsemi.onewire.container.OneWireContainer

Try
' get exclusive use of 1-Wire network
adapter.beginExclusive(True)

' clear any previous search restrictions
adapter.setSearchAllDevices()
adapter.targetAllFamilies()
adapter.setSpeed(com.dalsemi.onewire.adapter.DSPortAdapter.SPEED_REGULAR)

' enumerate through all the 1-Wire devices found (with Java-style enumeration)
'owd_enum = adapter.getAllDeviceContainers
TextBox1.AppendText(Environment.NewLine() & "1-Wire List:" & Environment.NewLine())
TextBox1.AppendText("==========================" & Environment.NewLine())

' enumerate through all the 1-Wire devices found (with Java-style enumeration)
'
While owd_enum.hasMoreElements()
' retrieve OneWireContainer
owd = owd_enum.nextElement()
' retrieve OneWireAddress
TextBox1.AppendText(Environment.NewLine())
TextBox1.AppendText("Address = " & owd.getAddressAsString & Environment.NewLine())
TextBox1.AppendText("Description = " & owd.getDescription & Environment.NewLine())
End While
' end exclusive use of 1-Wire net adapter
adapter.endExclusive()
Catch ex As Exception
TextBox1.AppendText(Environment.NewLine() & Environment.NewLine() & "Error: " & ex.ToString)
End Try


End Sub


End Class

</code>

Du försöker använda en Java-klass från VB.net. Du måste byta ut java.util.Enumeration till någon motsvarande .net-klass.

-

Lustigt? Det är en stor elektronik tillverkare som säger detta. I deras SDK åter finns det exempel jag postat i första inlägget. Tycker det är skumt...

Vilket är felet du får?

'java.util.Enumeration' is not defined.

Läste på fäljade länk ...
http://www.webtropy.com/articles/type.asp?o=java.util
att "java.util reference for C# and VB.NET" och då är frågan hur får man igång detta?

har du referens till den dll där java.util... finns?

annars, finns deras SDK att tillgå så vi kan hjälpa till och tolka det?

Sajt: http://www.maxim-ic.com/products/ibutton/software/windowsdk/index.cfm

SDK : http://files.dalsemi.com/auto_id/licensed/1-wiresdkver400_beta2.zip

du har nog tittat i fel dokumentation:

EDIT: tog bort misslyckad länk...

Hur skulle man kunna skriva detta i VB? Behöver hjälp´....

<code>
DSPortAdapter adapter = OneWireAccessProvider.getDefaultAdapter();
</code>

<code>
for (Enumeration adapter_enum = OneWireAccessProvider.enumerateAllAdapters();
adapter_enum.hasMoreElements(); )
{

adapter = ( DSPortAdapter ) adapter_enum.nextElement();

System.out.print("Adapter: " + adapter.getAdapterName() + " with ports: ");

for (Enumeration port_enum = adapter.getPortNames();
port_enum.hasMoreElements(); )
{
port = ( String ) port_enum.nextElement();

System.out.print(port + " ");
}

System.out.println();
}



</code>

Lustigt är att den där java uppräkningen återfinns på flera sidor på internet men ingen berättar hur man gör för att få till det.... blir galen.

Men värst av allt "Enumeration" ... 'Enumeration' is not defined.


<code>
Dim adapter As com.dalsemi.onewire.adapter.DSPortAdapter
Dim port As String

Dim adapter_enum As Enumeration = OneWireAccessProvider.enumerateAllAdapters()

While adapter_enum.hasMoreElements()

adapter = DirectCast(adapter_enum.nextElement(), adapter)

Dim port_enum As Enumeration = adapter.getPortNames()
While port_enum.hasMoreElements()
port = DirectCast(port_enum.nextElement(), String)
End While

End While</code>

Vad har du laddat ner? Du bör väl köra med Maxims 1-Wire SDK for Windows, från http://www.maxim-ic.com/products/ibutton/software/windowsdk/

Det är det jag gjort...

java.util.Enumeration löses genom att lägga till vjslib.dll

Men det fungerar inte iallafall. Kan inte öppna ....

Öppna vad? vilken kodrad?

Nu fungerar det. Man måste ändra "adapter" så att man kan ställa in typ och port.

Bra att det funkar. Presentera gärna ditt projekt i elektronikforumet, tycker själv 1-Wire är en intressant teknik och har utvecklat en del grejer med det.