[Alarms from sd card]

Hey, no problem. i'm going to trie to create some MB's where the alarms can be stored into and then read those using readoperands like with the datatable. 

[Alarms from sd card]

It is written in .Net

C# and VB.Net are .Net

They both compile to the same CLI.

I know that they are pretty much the same, but i want to implement a function to check for alarms in a existing vb.net project, and therefore i cant directly copy-paste  

[Alarms from sd card]

Hey,

I can't seem to get it copied to .net.  I will keep working at it but the example is quite big, so converting it al to .net costs quite some time.. 

Is it also possible to save the alarms to a datatable? because i think it is possible to read a unitronics datatable in .net. 

[Alarms from sd card]

Thanks, just downloaded the Lite version, it can't be opened in vb 2010 express but wil try opening it with my version of Studio 2013. 

I found some code somewhere else, but that version of card explorer lite has been written in C. Also, i couldn't find the dll in there, which is included in the .net version(SdcardExplorer.lite.dll)

[Alarms from sd card]

Yeey, that part works.  

Just curious btw, is there a .net version of the SD card Explorer example? 

[Log Alarm History to SD Card And Display the Log]

Hey, The example posted above is a C# example isn't it? 

I was wondering if there's also a .net example somewhere. 

[Keynotfound when transfering from .net app to Vision130]

Edit: Whoohoo, got it; at least for inserting 1 row at the time, now i will figure out how to insert multiple rows. I do already have some ideas of how to do that. 

[Keynotfound when transfering from .net app to Vision130]

Hmm, i cleared the MI needed(in my case i want to use MI150) but i still get the error.  

The datatable should be completely empty, it says 0 at all the INT columns and the string column is blank so i should have 250 empty rows in the datatable. 

[Keynotfound when transfering from .net app to Vision130]

Ah right. Thought so.  

Thanks, i will ask a collegue about the MI part. 

[Keynotfound when transfering from .net app to Vision130]

Hey, Thanks.

I think there a error though. 

 Dim rw() As ReadWriteRequest = New ReadWriteRequest((1) - 1) {}
        Dim Read As WriteOperands = New ReadOperands() 
        rw(0) = Read
        With Read

It says writeoperand AND readoperand so that gives a error. When i change the readoperand to writeoperand i get the ComDriveException "Values cannot be Null in a Write Operands request"

And if i switch it all to read: "'index' must be non-negative and less than the number of rows in table.

I checked the fields, removed fields and tested some things but the fields do have a value(default value = 0, but it also doesnt work if i enter a value like 24)  
 

 

I suspect that the error comes from the PLC. 

I havn't figured out how to program the plc to make it store the newest empty row in a MI, i think i will ask a collegue for help. 

Parameternaam: index "

[Keynotfound when transfering from .net app to Vision130]

Ah right.  That makes sense. 

Sorry, completely new to using operands and PLC's in general, just fresh out of college(well not even, learning a second degree in Business IT on the side)

[Keynotfound when transfering from .net app to Vision130]

Hey, I adjusted the code(see below) 

Right now, it compiles without error but it gives the error: "The number of Operands to read cannot be less than 1" on 

rw(0) = New ReadOperands
        plc.ReadWrite(rw)

The complete code:

  Dim rw() As ReadWriteRequest = New ReadWriteRequest((1) - 1) {}
        rw(0) = New ReadOperands
        plc.ReadWrite(rw)
        Dim startRowIndex = Convert.ToInt16(CType(CType(rw(0), ReadOperands).ResponseValues, Object())(0))

        table.Rows(startRowIndex).Cells(3).Fields(0).Value = DateTimePicker1.Text 'datum en tijd
        table.Rows(startRowIndex).Cells(2).Fields(0).Value = lblvoerbaknr.Text
        table.Rows(startRowIndex).Cells(0).Fields(0).Value = lblVoerzend.Text
        table.Rows(startRowIndex).Cells(1).Fields(0).Value = lblzendgewicht.Text
     
        ' Now you increment startRowIndex  by the number of rows you intend to write (in this example, only 1 row):
        startRowIndex = (startRowIndex + 1)
        ' Now you write the table (You can also use Update, which will only update the cells that you have altered)
        table.Write()
        ' or table.Update()
        ' Now we need to update the value of MI100 in the PLC.
        '30-1-15 ANDERS dan bron! aangepast naar .net en code lichtelijk veranderd! Broncode: 
        Dim Write As WriteOperands = New WriteOperands()
        rw(0) = Write
        With Write
            .NumberOfOperands = 1
            .OperandType = OperandTypes.MI
            .StartAddress = 100
            .NumberOfOperands = 1
            .Values = New Object() {startRowIndex}

        End With

        plc.ReadWrite(rw)

[Keynotfound when transfering from .net app to Vision130]

Aah, so i do have to do something with read and writeoperands. I read about it in the PLC .net documentation but thought it was for writing directly to the application.

 

Thanks. I will convert it to .net and see if it works. 

[Keynotfound when transfering from .net app to Vision130]

Okay... and how can i do that? I thought i already got the pc part working and just needed to change some things in the ladder to make it working like i wanted. 

Row 0 doesnt have to be renewed, all it has to do is add a extra entry to the plc datatable every time i send 1(or multiple) rows to the plc. 

[Keynotfound when transfering from .net app to Vision130]

Hello,

If i understand you correctly, i have to keep the pc software the same ( table.rows(0).cells(0).fields(0)) and write the ladder in such a way that when it sees that i want to add a entry to the table, it automatically writes it to a new line? 

Cool. thought it was just me because i couldn't find a solution in vb.net. 

[Keynotfound when transfering from .net app to Vision130]

Before you close this, i was doing some tests and noticed that it will overwrite row 0 in the plc every time i transfer data to it. 

Is it possible to have it automatically add a new row every time i want to transfer data to it?

[Keynotfound when transfering from .net app to Vision130]

facepalm.. turns out i had the table.write on the wrong place... 

I had it before the table.rows.  Now i can advance, add the other items as new rows in the table and at the date and time at which the row has to be executed. 

THANKS! 

[Keynotfound when transfering from .net app to Vision130]

No, SaveToUDT saves the file as UDT (it won't save the file to other formats).

You can use the Save function (rather than SaveToUDT)

 

This function accepts a filename and file type (an enum), which can be either XML, FDT or UDT. 

(If UDT is chosen, then SaveToUDT is being called).

 

 

As much as I remember, the PLC doesn't let you load an FDT file from the ladder (but rather than from the INFO), but in your case, you can save the file as FDT for later use (if you want to save the data, and load it few hours later and only then write it to PLC).

If you intend to write the data immediately then table.Write looks like a good choice.

Hmm, then saving to FDT isn't of much use(except the future reference). 

If i use the table.write() function, do i need to specify only the tablename in it or also the textbox.text values that will fill the table? Because if i use the code i got sofar it won't give me any errors but i have the feeling that it's not doing much either because visilogic shows no data in the datatable.

 

On the plus side, i resolved all the earlier errors.  

        Dim dt As Unitronics.DataTables.DataTables
        dt = New DataTables(plc, DataTablesReadOptions.StructureAndValues) ' You can also read just the structure. depending on your needs

        ' we are working with unitronics data tables, not the .net data tables. those are 2 different objects
        Dim table As Unitronics.DataTables.Table
        table = dt.Tables("verzenden")
        table.Write()

        ' alter the data on the tables, for example: (zelf al wat extra velden toegevoegd!)
        table.Rows(0).Cells(2).Fields(0).Value = lblvoerbaknr.Text
        table.Rows(0).Cells(0).Fields(0).Value = lblVoerzend.Text
        table.Rows(0).Cells(1).Fields(0).Value = lblzendgewicht.Text

[Keynotfound when transfering from .net app to Vision130]

Okay, savetoUDT(filepath .FDT) gives the same "cannot save into UDT from xml or FDT files" error

Will try the table.write() and mess around a bit.

[Keynotfound when transfering from .net app to Vision130]

 

Hi, you are correct. Because the file was originally created from the PLC and might contain several tables, we don't allow creating a UDT file.

You can save it as FDT (Use the Save function, which accepts path and file type).

 

If you want to directly write to the PLC, then why do you use a file?

 

You can do:

table = dt.Tables("verzenden")

table.Write();  (which will write the whole table back top the PLC).

 

Thanks. I will look into it, the using of a file is prefered, but just to make it easier to look back at the settings previously used. 

I believe a collegue of mine already has some experience with the Unitronics datatables so he can help me set up a checker so that tasks are executed at a by the user specified date and time. 

I'm also busy with some other things, but if it worked i'll report it to you.

[Keynotfound when transfering from .net app to Vision130]

Hi, I see that you write a file to the SD. Are you loading that file afterwards by ladder from the SD Card into the Data Table?

Hmm, i do indeed got a part where i write to SD, but i thought this code would write directly to the PLC.

This is how i have it right now.

When i use the part where it save's to the pc first i get a error at the first(bold) savetoUDT statement:

  

dt.SaveToUDT("C:\Voerkar\" & sDateTimePicker & ".udt") 

            ' We can now read the file to a bytes array voor het schrijven naar d eplc
            Dim fileContent As Byte()
            fileContent = System.IO.File.ReadAllBytes("c:\Voerkar\" & sDateTimePicker & ".udt")


            plc.SD.WriteFile(SD.SdFolder.EXCEL_EXCEL1, sDateTimePicker & ".udt", fileContent, Nothing)
        End If

Cannot save into UDT file format from XML or FDT file formats, or from Data Tables Structure that was read from PLC.

 

Communicating with a PLC is quite new for me so bear with me.

[Keynotfound when transfering from .net app to Vision130]

Thanks, that was indeed the problem, i named the table in the plc something else then i did in the code. Now that part works. I thought i did something wrong in the code but couldn't find it. 

Now it's up to the last part of the inserting to the datatable(i also have a other issue but i think that's related to this one so let's finish this first).

I don't get a error, yet when i use visiLogic to read the datatable in the PLC, the inserted data(some numbers) are not there, it's all "0"

[Keynotfound when transfering from .net app to Vision130]

Hey there,

I've been tweaking around a bit and i got the software i'm writing at the point that it does connect to the plc and reads things like the PLC name,

However: When i want to send data to the plc it gets a error: 

System.Collections.Generic.KeyNotFoundException was unhandled

  Message=De gegeven sleutel is niet aanwezig in het woordenboek.

  Source=mscorlib

  StackTrace:

       bij System.Collections.Generic.Dictionary`2.get_Item(TKey key)

       bij Unitronics.DataTables.Collections.DataTablesCollections`2.get_Item(TKey key)

       bij Voersysteem.Hoofdscherm.btnWrite_Click(Object sender, EventArgs e) in C:\Users\Marco\Documents\Visual Studio 2010\Projects\Voerkar v0.1\Voerkar v0.1\homescreen.vb:regel 445

       bij System.Windows.Forms.Control.OnClick(EventArgs e)

       bij System.Windows.Forms.Button.OnClick(EventArgs e)

       bij System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)

       bij System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)

       bij System.Windows.Forms.Control.WndProc(Message& m)

       bij System.Windows.Forms.ButtonBase.WndProc(Message& m)

       bij System.Windows.Forms.Button.WndProc(Message& m)

       bij System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)

       bij System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)

       bij System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)

       bij System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)

       bij System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData)

       bij System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)

       bij System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)

       bij Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()

       bij Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()

       bij Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)

       bij Voersysteem.My.MyApplication.Main(String[] Args) in 17d14f5c-a337-4978-8281-53493378c1071.vb:regel 81

       bij System.AppDomain._nExecuteAssembly(RuntimeAssembly assembly, String[] args)

       bij System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)

       bij Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()

       bij System.Threading.ThreadHelper.ThreadStart_Context(Object state)

       bij System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean ignoreSyncCtx)

       bij System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)

       bij System.Threading.ThreadHelper.ThreadStart()

  InnerException: 

 

 

The code where the error occur's:

    

 If Not plc Is Nothing Then
            Dim dt As Unitronics.DataTables.DataTables
            dt = New DataTables(plc, DataTablesReadOptions.StructureAndValues) ' You can also read just the structure. depending on your needs

            ' we are working with unitronics data tables, not the .net data tables. those are 2 different objects
            Dim table As Unitronics.DataTables.Table
            table = dt.Tables("verzenden")

            ' alter the data on the tables, for example:
            table.Rows(0).Cells(0).Fields(0).Value = lblvoerzend1.Text
            table.Rows(0).Cells(1).Fields(0).Value = lblzendgewicht1.Text
            table.Rows(0).Cells(2).Fields(0).Value = lblvoerbaknr.Text

            
            dt.SaveToUDT("C:\Voerkar\" & sDateTimePicker & ".udt")

            ' We can now read the file to a bytes array voor het schrijven naar d eplc
            Dim fileContent As Byte()
            fileContent = System.IO.File.ReadAllBytes("c:\Voerkar\" & sDateTimePicker & ".udt")

            plc.SD.WriteFile(SD.SdFolder.EXCEL_EXCEL1, sDateTimePicker & ".udt", fileContent, Nothing)
        End If

To be precise: Where the code wants to transfer the data(3 numeric items, for example 10, 20 and 2) to the datatable at table = dt.Tables("verzenden")

 

 

[Alarms from sd card]

 Dim path As String = "c:\voerkar\" & sDateTimePicker & ".udt"


        ' Create or overwrite the file. 
        Dim fs As FileStream = File.Create(path)
        fs.Close()

Using that code it does create the file, but it wont open in unitronics because it apparently is corrupted. Will work on that.

[Alarms from sd card]

Thanks  

I've been busy lately and picking it up again today. I noticed that the savetoudt part doesn't work if you don't use a already created file as filepath(so if c:\Temp\Test.udt doesn't exist, it gives a file doesnt exist error).

I'm going to work on fixing that right now, will let you know the results for further reference(and for others)