Passing The Result Of An Array-Valued Function From A Fortran95?
May 25, 2011
I am interested in developing a multi-language program that will have a main .NET GUI but will perform calculations by calling procedures from a Fortran95 dynamic link library file. Right now I am just playing around with a very simple project in order to get the interoperability between the .NET framework and a Fortran95 (*.dll) file working correctly. So far, I've been able to pass the Fortran95 (*.dll) file an array from VB, sum all the elements of the array using an intrinsic Fortran function, and pass the scalar result back to the .NET framework with no problem. However, if I try passing Fortran the exact same array, construct the transpose of that array using another intrinsic Fortran function, and try passing the transposed array back to the .NET framework I keep throwing an exception. I am not a programming wiz, but it appears that when Fortran stores an array in memory, the .NET framework doesn't know how to read that. I am looking for some guidance on how to pass an array from the Fortran95 (*.dll) file back to the .NET framework.
cmd.CommandText = "SELECT * FROM [strfg].[dbo].[Myfunc] (@MyParam)" Dim myparam As New SqlParameter("@MyParam", a) cmd.Parameters.Add(myparam)
The function (runnig on SQL server) returns a table with four columns, one row.How do I call this function from Visual Basic? cmd.ExecuteScalar() is obviously not correct. In c++ I use a recordset. What is the equivalent in vb? Does anyone have a short example?
I am trying to execute a stored procedure which has table valued parameters along with other parameters. The only parameters I need to pass values for are latitude/longitude range and dates. For the others, I need to pass null. After a lot of searching and a lot of trial and error, I came up with the following:
Dim empty As IEnumerable = Enumerable.Empty(Of SqlDataRecord)()
I then pass empty for the table valued parameters. This works for the first two tvp's, but on the third one, I get this error:
There are no records in the SqlDataRecord enumeration. Tho send a table-valued parameter with no rows, use a null referece for the value instead.
how to make this work? I do not have control over the database or the stored procedure, so I can't change that. The code that calls the stored procedure is:
I am creating a dll with all the functions and subroutines that I use all the time and I decided to create a function that I can pass different types of array to so the function obviously (or not) would have an array of type object. Now I no you can pass any type into an object type but when I pass an integer array into an object array I get an error.
value of type '1-dimensional array of integer' cannot be converted to '1-dimensional array of object' because 'integer' is not a reference type.
Shared Function CompareArray(ByVal FirstArray() As Object, ByVal SecondArray() As Object, Optional ByRef ErrorMessage As String = "") As Boolean Dim IntArrayOne() As Integer = {1,2,3,4,5} Dim IntArrayTwo() As Integer = {1,2,3,5,6} Dim IsSame As Boolean = False IsSame = CompareArray(IntArrayOne(), IntArrayTwo())
pass an array to a function, like the code below shows
Private Sub SomeFunction(ByVal PassedArray() As String) For i As Integer = 0 To PassedArray.Count - 1 Debug.WriteLine(PassedArray(i))
[code]....
But is there a way to pass a constant array to a function in VB .Net, for instance in PHP you could write
function SomeFunction($array) { for($i=0;$i<count($array);$i++) {
[code]....
So to reiterate: Is there any way to pass a constant array directly to a function in VB .Net? Is there any benefit in doing so? I imagine a few bytes of memory could be spared.
PS.SomeFunction({"some", "array", "member"}) ' this obviously gives a syntax error
I am trying to use a simple quicksort routine for a multidimensional array but cannot figure out the syntax. I am stumped because it works fine in VB6 but no luck in .Net
Array Declaration: Dim sArrIn(25000, 3) As String 'sort key (pkg, kitting, zip), kitting, data Function Call:
I am currently writing a scalar valued function and I'm having a few issue with the returned result. I have narrowed the problem down to a calculation that convert the difference between two dates as a percentage/decimal. No matter what I try the return value is always a whole number set @earnedpremium = (@premium * @pretripearnings) + ((@premium - (@premium * @pretripearnings)) * cast((datediff(day, @outdate, @experiencedate) / datediff(day, @outdate, @returndate))as decimal(5,2))) The cast section needs to return the percentage, I know the rest is working fine through some elimination and testing.
I'm a beginner when it comes to Visual Basic coding and I need some help with an error I'm getting. I'm trying to pass a structure array to a function to figure out a student's grade. I'm getting the error that 'QuizOne' is not a member of System.Array. Here is my code:
I'm program to handle ftp multiple file transfers. What I had in mind was to create an array for each type of file I need to process. There are 8 file types each needs to be transferred to a unique host.
' Each array contains in order: FILENAME|SOURCE PATH|DESTINATION PATH|HOST|USERNAME|PASSWORD Dim arrA() As String = {"*a*.dat", "/destpath1/", "host1", "id", "pass"}
I need to pass an uint8 array from C++ DLL to VB6 application but I receive always following error: "subscript out of range" if I try to work with the array 'pabyData' in my VB6 procedure. The C procedure is: typedef void (__stdcall *FUNCPTR2SendData) (const uint8_t* pabyData, uint16_t wDataLength); void SendData(const uint8_t* pabyData, uint16_twDataLength) { FUNCPTR2SendData vbFunc; vbFunc = (FUNCPTR2SendData) ptCBFPointers->p2NewDirectDataSMSEvnt; // ptCBFPointers are call back pointers, where is saved the call back address of VB6 functions vbFunc(pabyData, wDataLength); } The VB6 procedure is: Public Sub SendData(ByRef pabyData() As Byte, ByVal wDataLength As Integer
An in-line table valued function in SSMS takes about 6 seconds to return 11088 records. The same function in VB .Net 4.0 using TableAdapters.InputTableAdapter.GetData (Created with data set designer) takes about 15 minutes complete.Both are executed from the same workstation.Why does this discrepancy exist?
I am encountering the following issue So i have a device that sends stuff at the serial port, i then parse it and put it into an array of bytes like that:
Dim HCI_Command_Rcvd_Byte() As Byte All good till here What i wanna do is make an array and put this result every time the serial port gives me a new result, for example:
[Code]...
Basically what i wanna do is let the port parse the messages, fill in the array with the result at an empty spot in this array and then i will have a separate thread that will look in into this array in each non empty space and after it looks into the non empty space it will use or discard the info and also mark this space as empty (after it checked)
I'm currently working with a client's VB.Net code, which was developed for them by a small development shop a few years ago and which they purchased and have been maintaining and uprgrading since. This client's primary developer is out on indefinite (likely permanent) medical leave and I'm now filling in until they bring in a full timer (as I'm a contractor here). My current task is to add some functionality to a the VB.Net code they purchased. I'm finding practices and techniques in the code that absolutely baffle me and can't make the code do what I want. I'm starting to wonder if it's me and was hoping to get some thoughts on the code I've encountered.
For example: Setting a variable to accept the result of a function by calling the function with many parameters, clearing the parameters in the function, setting them to some value, calling another function with those new values, then never using the values returned by the functions. I'll add a code snippet in the first comment since this is already getting long.
I have a 2d array of data that I have performed the sum of the individual column of the 2d array. I want to send the results to a datagridview and also will like to have the result as a 1d or 2d array.
Below is sample of my code
Dim Array1(,) as double Array1(0, 0) = 5 Array1(0, 1) = 7
I am having trouble with using sumifs excel function in vb.net. I can use sum function with "cells" but I could not get result from sumifs function with "columns".
It is giving "OleAut reported a type mismatch." error.
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim oExcel As Object
I have a problem with Asc() function as a blow picture,I will explain each step as I do.First I convert some values to ASCII code and store in value variable, then retrieve 3rd position of variable (4th line of the picture.)
and use Asc() function to find result which it show 63. (like 5th and 6th line).But I try to manually use Chr() function, the result become 2nd and 3rd line.So for the Asc("ˆ") func. result should be 63 or 136?
I am using the following code in my project. I want to find the number of days by given the last date and now.[code] for example, when BorrowDate is "01/Jul/2011" then the result is 7 days which it should be 10 to now.
I have something that I want to do and what looks very simple, but I cannot get it to work. I want to build a function that gets as input a xdocument and some other strings. It should have a return that contains a filtered part of the xdocument in a way that I can use it as input for a new Linq function. This is what I mean:
Private Function fncGetFilteredDecendantsOfNode(ByVal xdocDoc As XDocument, _
I am working on a project that requires me to hop into to separate DB's. So I have figured that I need to have multiple functions inside of my VB page. The only problem I am having,is I am not to sure how to get this all accomplished. So far I have figured out the overall structure, just need to implement that structure.
Here is my idea: The main Function would call two other functions. We can Call them Sub Function 1 and Sub Function 2. So, the main Function takes the saved sessions information for the E-mail address and dumps in into Sub Function 1. It needs to open up a new connection to the db/stored procedure and RUN the following procedure and then return the result. Here is the stored procedure and what I think is correct.
CREATE PROCEDURE WEB_User (@EMAIL_ADDRESS varchar(80) = [EMAIL_ADDRESS]) AS SELECT MEMBER_NUMBER FROM WEB_LOGIN WHERE EMAIL_ADDRESS = @EMAIL_ADDRESS
So my question is, what is the function suppose to look like? how do I send the session information to the procedure? and finally, how do I return the stored procedure results and push back into the main function so it can be carried into sub function 2?
This is just an efficiency question really.. I'm interested to know if there is a more efficient or logical way that people use to handle this sort of scenario.
In my asp.net application I am running a script to generate a new project my code at the top level looks like this:
Dim ok As Boolean = True ok = createFolderStructure() If ok Then ok = createMDB()
[Code]....
I create a boolean and each function returns a boolean result, the next function in this chain will only run if the previous one was successful. I do this because an asp.net application will continue to run through the page life cycle unless there is an unhandled exception and I don't want my whole application to be screwed up if something in the chain goes wrong (there is a lot of copying and deleting of files etc.. in this example).
I need to hash a number (about 22 digits) and the result length must be less than 12 characters. It can be a number or a mix of characters, and must be unique. (The number entered will be unique too). For example, if the number entered is 000000000000000000001, the result should be something like 2s5As5A62s. I looked at the typical, like MD5, SHA-1, etc., but they give high length results.
