Jump to content
Sign in to follow this  
iha hachi

Addition model in IDRISI SELVA By programming .net

Recommended Posts

Hi!

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.

 

2016_01_20_18_01_11.jpg

 

 

 

 Then make like the following  form 

 

 

2016_01_20_18_02_40.jpg

 

 

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 & " ..."
        Next

        Label1.Text = "Finiched " & i.ToString


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

 

any question i'm here ^_^

 

2016_01_20_18_22_28.jpg

  • Like 2

Share this post


Link to post
Share on other sites

veri useful your topic, maybe anyone have the change to applied and practice skill in Idrisi, regards 

  • Like 1

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

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