liaison v2, Visual Basic

liaison v2

'Rextester.Program.Main is the entry point for your code. Don't change it.
'Compiler version 11.0.50709.17929 for Microsoft (R) .NET Framework 4.5

Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text.RegularExpressions

Namespace Rextester
    Public Module Program
        Public Sub Main(args() As string)
            'Your code goes here
            Console.WriteLine("Hello, world!")
       dim x,y,z,l,m,n as byte
        console.writeline ("entrer 1 si translation sur x, sinon rentrer 0")
        x=console.readline()
        console.writeline ("entrer 1 si translation sur y, sinon rentrer 0")
        y=console.readline()
        console.writeline ("entrer 1 si translation sur z, sinon rentrer 0")
        z=console.readline()
        console.writeline ("entrer 1 si rotation sur x, sinon rentrer 0")
        l=console.readline()
        console.writeline ("entrer 1 si rotation sur y, sinon rentrer 0")
        m=console.readline()
        console.writeline ("entrer 1 si rotation sur z, sinon rentrer 0")
        n=console.readline() 
        
        if x+y+z+l+m+n=0 then
            console.writeline ("encastrement")
        elseif x+y+z=0 and l+m+n=1 then
            console.writeline ("pivot")
        elseif l+m+n=0 and x+y+z=1 then
            console.writeline ("glissiere")
        elseif l=x=1 or y=m=1 or z=n=1 then
            console.writeline ("pivot glissant")
        elseif l=m=1 or m=n=1 or n=l=1 then
            console.writeline ("rotule doigt")
        elseif x=y=n=1 
        
       
         
        End Sub
    End Module
End Namespace


run \| edit \| history \| help	0

λ

                                      .NET NoSQL database for rapid development