1
2
3
4
5
6
Class test
    Dim i As integer
    Public Sub setadata ( i As Integer )
        Me.i=i
    End Sub
End Class

1
2
3
4
5
6
7
Class test
    Dim i As integer
    Public Sub setadata ( i As Integer )
        Me.i=i;
    End Sub
End Class
 

1
2
3
4
5
6
7
Class test
    Dim i As integer
    Public Sub setadata ( i As Integer )
        Me.i=i
    End Sub
End Class
 

1
2
3
4
5
6
7
Class test
    Dim i As integer
    Public Sub setadata ( i As Integer )
        i=i
    End Sub
End Class
 

1
2
3
4
5
6
7
8
9
Module Module1
Sub Main( )
Dim x, y, z As Integer
x = 11 \ 2
y = 11 / 2
z = 11 Mod 2
Console.WriteLine ( "{ 0 }{ 1 }{ 2 }",x, y, z )
End Sub
End Module

1
2
3
4
5
6
7
8
9
Module Module1
Sub Main( )
Dim x, y, z As Integer
x = 11 \ 2
y = 11 / 2
z = 11 Mod 2
Console.WriteLine ( "{ 0 } { 1 } { 2 }" , x, y, z )
End Sub
End Module

1
2
3
4
5
6
7
8
9
Module Module1
Sub Main( )
Dim x, y, z As Integer
x = 11 \ 2
y = 11 / 2
z = 11 Mod 2
Console.WriteLine ( " { 0 } { 1 } { 2 }", x, y, z )
End Sub
End Module

1
2
3
4
5
6
Module Module1
Sub Main( )
dim true as Boolean = False
Console.WriteLine( true )
End Sub
End Module

1
2
3
4
5
6
7
8
9
Option Strict Off
Module Module1
Sub Main( )
Dim i As Integer
Dim b As Boolean
i = True
b = -10
Console.WriteLine ( " ", i, b )
End Sub
 ...

1
2
3
4
5
6
7
8
9
Option Strict Off
Module Module1
Sub Main( )
Dim i As Integer
Dim b As Boolean
i = True
b = -10
Console.WriteLine ("{ 0 }{ 1 }",i,b)
End Sub
 ...

1
2
3
4
5
6
7
8
9
Option Strict Off
Module Module1
Sub Main( )
Dim i As Integer
Dim b As Boolean
i = True
b = -10
Console.WriteLine ("{ 0 } { 1 }", i, b )
End Sub
 ...

1
2
3
4
5
6
7
8
9
Option Strict Off
Module Module1
Sub Main( )
Dim i As Integer
Dim b As Boolean
i = True
b = -10
Console.WriteLine ("{ 0 } { 1 } ", i, b)
End Sub
 ...

1
2
3
4
5
6
7
8
9
Option Strict Off
Module Module1
Sub Main( )
Dim i As Integer
Dim b As Boolean
i = True
b = -10
Console.WriteLine ( " { 0 } { 1 } ", i, b )
End Sub

1
2
3
4
5
6
7
Imports System
 
Public Class Test
        Public Shared Sub Main()
        Disp "Hello,World"      
        End Sub
End Class

1
2
3
4
5
6
7
8
9
public sub lead
 
 
//n=numero fasi
//i=numero fase corrente
//L=Lead Time ennesimo
//Ri=Ritardo iniziale
//Rf=Ritardo finale
//T=tempo di fase totale= Tempo * N.pezzi
 ...

1
2
3
4
5
6
7
8
9
//n=numero fasi
//i=numero fase corrente
//L=Lead Time ennesimo
//Ri=Ritardo iniziale
//Rf=Ritardo finale
//T=tempo di fase totale= Tempo * N.pezzi
 
 
dim n as integer
 ...

1
2
3
4
5
6
7
8
9
//n=numero fasi
//i=numero fase corrente
//L=Lead Time ennesimo
//Ri=Ritardo iniziale
//Rf=Ritardo finale
//T=tempo di fase totale= Tempo * N.pezzi
 
 
dim n as integer
 ...

1
2
3
4
5
6
7
8
 
//n=numero fasi
//i=numero fase corrente
//L=Lead Time ennesimo
//Ri=Ritardo iniziale
//Rf=Ritardo finale
//T=tempo di fase totale= Tempo * N.pezzi
 
 ...

1
2
3
4
5
6
7
8
 
//n=numero fasi
//i=numero fase corrente
//L=Lead Time ennesimo
//Ri=Ritardo iniziale
//Rf=Ritardo finale
//T=tempo di fase totale= Tempo * N.pezzi
 
 ...

1
2
3
4
5
6
7
8
9
SUM = 0
FOR X = 1 TO 100
IF X MOD 4 THEN
PRINT X,
SUM = SUM + 1
IF SUM = 3 THEN
PRINT
SUM = 0
END IF
 ...

1
2
3
4
5
6
7
8
9
Imports System.Collections
Module Module1
Sub Main ( )
Dim arr As New ArrayList
Dim c As Integer
arr.Add( "a"c )
arr.Add( 20 )
arr.Add( 2.5 )
arr.Add( "Rahul" )
 ...

1
2
3
4
5
6
7
8
9
using import IO
Public Class Form1  
  
 
    Private Sub navigateButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles navigateButton.Click  
  
        Me.mainWebBrowser.Navigate("http://www.gmail.com")  
  
    End Sub  
 ...

1
2
3
4
5
6
7
8
9
using import IO
Public Class Form1  
  
    ' Button to navigate to the webpage  
    Private Sub navigateButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles navigateButton.Click  
  
        Me.mainWebBrowser.Navigate("http://www.gmail.com")  
  
    End Sub  
 ...

1
2
3
4
5
6
7
8
9
Public Class Form1  
  
    ' Button to navigate to the webpage  
    Private Sub navigateButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles navigateButton.Click  
  
        Me.mainWebBrowser.Navigate("http://www.gmail.com")  
  
    End Sub  
  
 ...

1
2
3
4
5
6
7
8
9
Public Sub New ( )
MyBase.New ( )
InitializeComponent ( )
Dim ToolBar1 As New ToolBar
Dim toolBarButton1 As New ToolBarButton
Dim toolBarButton2 As New ToolBarButton
ToolBar1.Add ( toolBarButton1 )
ToolBar1.Add ( toolBarButton2 )
End Sub

1
2
3
4
5
6
7
8
9
Public Sub New ( )
MyBase.New ( )
InitializeComponent ( )
Dim ToolBar1 As New ToolBar
Dim toolBarButton1 As New ToolBarButton
Dim toolBarButton2 As New ToolBarButton
ToolBar1.Buttons ( toolBarButton1 )
ToolBar1.Buttons ( toolBarButton2 )
End Sub

1
2
3
4
5
6
7
8
Public Sub New ( )
MyBase.New ( )
InitializeComponent ( )
Dim ToolBar1 As New ToolBar
ToolBar1.Buttons.Add ( toolBarButton1 )
ToolBar1.Buttons.Add ( toolBarButton2 )
Controls.Add ( ToolBar1 )
End Sub

1
2
3
4
5
6
7
8
9
Public Sub New ( )
MyBase.New ( )
InitializeComponent ( )
Dim ToolBar1 As New ToolBar
Dim toolBarButton1 As New ToolBarButton
Dim toolBarButton2 As New ToolBarButton
ToolBar1.Buttons.Add ( toolBarButton1 )
ToolBar1.Buttons.Add ( toolBarButton2 )
Controls.Add ( ToolBar1 )

1
2
3
4
5
6
7
8
9
Option Strict Off
Module Module1
Sub Main( )
Dim i As Integer
Dim b As Boolean
i = True
b = -10
Console.WriteLine ( " { 0 } { 1 } ", i, b )
End Sub

1
2
3
4
5
6
7
8
9
Option Strict Off
Module Module1
Sub Main( )
Dim i As Integer
Dim b As Boolean
i = True
b = -10
Console.WriteLine ( " { 0 } { 1 } ", i, b )
End Sub