Imports System

Public Module Module1

    Public Sub Main()

        Dim ddl, x, y, z, l, m, n As Integer

​

​

        Console.WriteLine("La liaison mecanique")

        Console.WriteLine("Le nombre de degre de liberte = ")

        ddl = Console.ReadLine()

​

        Console.WriteLine("Translation selon x (1 ou 0) = ")

        x = Console.ReadLine()

        Console.WriteLine("Translation selon y (1 ou 0) = ")

        y = Console.ReadLine()

        Console.WriteLine("Translation selon z (1 ou 0) = ")

        z = Console.ReadLine()

        Console.WriteLine("Rotation selon l (1 ou 0) = ")

        l = Console.ReadLine()

        Console.WriteLine("Rotation selon m (1 ou 0) = ")

        m = Console.ReadLine()

        Console.WriteLine("Rotation selon n (1 ou 0) = ")

        n = Console.ReadLine()

​

        If ddl = 0 Then Console.WriteLine(" Cas d' encastrement ")

​

        If ddl = 1 Then

            If (x + y + z = 0) And (m = 1 Or n = 1 Or l = 1) Then Console.WriteLine("Liaison pivot")

            If (x = 1 Or y = 1 Or z = 1) And (m + n + l = 0) Then Console.WriteLine("Liaison glissiere")

​

​

        ElseIf ddl = 2 Then

            If (x = 1 Or y = 1 Or z = 1) And (m = 1 Or n = 1 Or l = 1) Then Console.WriteLine("Liaison pivot glissant")

            If (x + y + z = 0) And (m + n + l = 2) Then Console.WriteLine("Liaison rotule a doigt")

​

​

        ElseIf ddl = 3 Then

            If (x + y + z = 2) And (m + n + l = 1) Then Console.WriteLine("Liaison appui plan")

            If (x + y + z = 0) And (m + n + l = 3) Then Console.WriteLine("Liaison rotule")

​

​

        ElseIf ddl = 4 Then

            If (x + y + z = 1) And (m + n + l = 3) Then Console.WriteLine("Liaison lineaire annulaire")

            If (x + y + z = 2) And (m + n + l = 2) Then Console.WriteLine("Liaison lineaire rectiligne")

​

​

        ElseIf ddl = 5 Then

            If (x + y + z = 2) And (m + n + l = 3) Then Console.WriteLine("Liaison ponctuelle")

        Else Console.WriteLine("Cas indefini")

        End If

​

        Console.ReadLine()

    End Sub

End Module