Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
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
ss
VB checking whether a date is between 2 dates
pepe
Exercico 5
CAI Visual Basic - Ej Gastos Chofer
I know all the veebeez!
exercicio A
If Function returns not Nothing for DateTime
3.1
CAI Visual Basic - Libreria Funciones