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
Selected Poetry of Rumi ~ doy mod 119
vb string search short
hckhckhhkck
VBA
loop 1
Visual-Basic
Exercico 4
HafizTutoring.csproj
Web application
If Function returns not Nothing for DateTime