Jump to content

Addition model in IDRISI SELVA By programming .net

iha hachi

Recommended Posts


I've started to make a model in software IDRISI SELVA, I’ve installed VS2012.

 I've made a model automated   to realize multi maps.

For example, I’m using model ShapeIdr and I’ll developed.

First must use library Idrisi32.dll.






 Then make like the following  form 






and copy past the following code for importing library Idrisi32.dll

Imports idrisi32
Dim x As New idrisi32.IdrisiAPIServer
Private Sub SelectFolder_Click(sender As Object, e As EventArgs) Handles SelectFolder.Click
        Dim WrkPath As String
        WrkPath = x.GetWorkingDir
        FolderBrowserDialog1.SelectedPath = WrkPath
        If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox2.Text = FolderBrowserDialog1.SelectedPath

        End If

End Sub
this code for select folder name or path.



then copy this code for run procssing in IDRISI Selva

Private Sub ButtonOK_Click(sender As Object, e As EventArgs) Handles ButtonOK.Click

        Dim CmdStr, WrkPath As String
        Dim i As Integer = 0

        WrkPath = x.GetWorkingDir

        For Each File As String In IO.Directory.GetFiles(TextBox2.Text, "*.vlx", IO.SearchOption.AllDirectories)
            Dim Extension As String = IO.Path.GetExtension(File)
            Dim Name As String = IO.Path.GetFileNameWithoutExtension(File)

            CmdStr = "2*1*" + TextBox3.Text + "\" + Name + ".vlx*" + TextBox3.Text + "\" + Name + ".shp"
            x.RunModule("ShapeIdr", CmdStr, True, "", "qual", "", "", 1)
            i = i + 1
            Label1.Text = "Working " & i.ToString & " ..."

        Label1.Text = "Finiched " & i.ToString

End Sub
finally you can run your application :) in IDRISI SELVA


any question i'm here ^_^



  • Like 2
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Create New...

Important Information

By using this site, you agree to our Terms of Use.



If you enjoy our contents, support us by Disable ads Blocker or add GIS-area to your ads blocker whitelist