Please note, this is a STATIC archive of website www.tutorialspoint.com from 11 May 2019, cach3.com does not collect or store any user information, there is no "phishing" involved.
Class GeneratePassword
Shared Function Main() As Integer
Dim passwordlength As String
Dim s As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789?!"
Dim r As Random
Dim i As Integer
Console.WriteLine("-- Passwort-Generator --")
Console.WriteLine("Choose the Password length")
passwordlength = Console.ReadLine()
Dim passwordChars() As Char = New Char(passwordLength - 1) {}
Dim charIndex As Integer
For i As Integer = 0 To passwordLength - 1
charIndex = r.Next(s.Length)
passwordChars(i) = s(charIndex)
Next
Dim password As New String(passwordChars)
End Function
End Class
Imports System
Imports System.IO
Public Module VBModule
Sub Main()
'Dim Directory As New IO.DirectoryInfo("C:\")
'Dim allFiles As IO.FileInfo() = Directory.GetFiles("*.txt")
Dim oShell
Set oShell = CreateObject("WScript.Shell")
Dim LogFile As IO.FileInfo
oShell.CurrentDirectory = "C:\Users\ps87462\Documents\"
For Each LogFile In Directory.GetFiles("C:\Users\ps87462\Documents\*.txt")
Console.WriteLine(LogFile.FullName)
Next
'For Each singleFile In allFiles
' Console.WriteLine(singleFile.FullName)
'Next
End Sub
End Module
Module VBModule
Sub Main()
MyProfile()
End Sub
Private Sub MyProfile
Dim num1 As Integer
Dim num2 As Integer
Dim mon As String
num1 = 9
num2 = 9
mon="MARCH"
Dim today As System.DateTime
Console.WriteLine("Hello master Wroyce!")
Console.WriteLine("How are you? are you still bored?")
if today.Today.Month.toString().equals("3") AND today.Today.Day.toString().equals("18") then
mon ="MAR"
Console.WriteLine("Your Birthday is: {0} ,{1},{2},{3}", getMonth(mon),calculate(num1,num2),today.Today.Day.ToString(),today.Today.Year.ToString())
Console.WriteLine("Happy B-day master Wroyce! Have a niceday and more blessing to come. Godbless you!")
ElseIf today.Month.toString() IsNot "3" then
if Convert.toInt32(today.Now.Month) = 1 then
mon ="JAN"
Elseif Convert.toInt32(today.Now.Month) =2 then
mon ="FEB"
Elseif Convert.toInt32(today.Now.Month) =4 then
mon ="APR"
Elseif Convert.toInt32(today.Now.Month)=5 then
mon ="MAY"
Elseif Convert.toInt32(today.Now.Month)=6 then
mon ="JUN"
Elseif Convert.toInt32(today.Now.Month)=7 then
mon ="JUL"
Elseif Convert.toInt32(today.Now.Month)=8 then
mon ="AUG"
Elseif Convert.toInt32(today.Now.Month)=9 then
mon ="SEP"
Elseif Convert.toInt32(today.Now.Month)=10 then
mon ="OCT"
Elseif Convert.toInt32(today.Now.Month)=11 then
mon ="NOV"
Else
mon ="DEC"
End if
Console.WriteLine("Today it`s not your birthday. This month is {0},{1},{2} ",getMonth(mon),today.Now.Day.ToString(), today.Today.Year.ToString())
Console.WriteLine("You have {0} remaining days before your birthday come. You have much time to prepare.", getRemainingDays)
Console.WriteLine("Are you feeling excited? can you tell me about your ideas? what goals you need to accomplish this year")
Console.WriteLine("You looking happy today! are you thinking someone?")
Console.WriteLine("Remaining Hours {0}", getRemainingHour)
End if
End Sub
Private Function calculate(ByVal num1 As Integer ,ByVal num2 As Integer) As Integer
Dim results As Integer
results = num1 + num2
return results
End Function
Private Function getMonth(ByVal mon As String) As String
if mon isNot "MAR" AND mon.equals("JAN") OR mon.equals("FEB") then
mon = mon+"UARY"
return mon
Elseif mon.equals("MAR") then
mon = mon+"CH"
return mon
End if
return mon
End Function
Private Function getRemainingDays As Integer
Dim current As System.DateTime
Dim iDate As String = "03/18/2019"
Dim oDate As DateTime = Convert.ToDateTime(iDate)
Dim remaining As TimeSpan = oDate - current.Today
return remaining.Days
End Function
Private Function getRemainingHour As Integer
Dim timeOut As String
timeOut = "4:30:00 PM"
Dim addTime As Double
addTime = 8.00
Dim current As System.DateTime
Console.WriteLine("PH Time:{0} Time Out:{1}",current.Today.Now.AddHours(addTime),timeOut)
Dim strTimeOut As DateTime = Convert.ToDateTime(timeOut)
Dim phTime As System.DateTime = current.Today.Now.AddHours(addTime)
Dim hourIntervals As TimeSpan = strTimeOut - phTime
return hourIntervals.Hours
End Function
End Module
Module VBModule
Sub Main()
Console.WriteLine("Hello, world!")
dim n as integer
console.writeline("enter no:")
console.readline()
select case n
case 1
Console.writeline("Sunday")
case 2
Console.writeline("Monday")
case 3: Console.writeline("Tuesday")
case 4: console.writeline("Wednesday")
case 5: console.writeline("Thursday")
case 6: console.writeline("Friday")
case 7: console.writeline("Saturday")
case else
Console.writeline("Week has only 7 days")
end select
end sub
end Module
Module Module1
Private Property ItNumInput As String
Sub Main()
'TASK 1: AUCTION SETUP'
'Declaration' Dim ItNum(10), Rprice(10), bid(10), min10, InputInt, bidder(10), BuID(10), NewItNum, NewBuID, ItemSelect As Integer Dim descrip(10), descripInput As String Dim ExistingBuID As Boolean
Dim TotFees, newBid, totZeroBid, TotunmetReserve, TotItSold, totbid(10) As Integer Dim sold(10) As String
'Initialisation' For c = 1 To 10 bid(c) = 0 Next min10 = 1 NewItNum = 0 NewBuID = 8000 ExistingBuID = False
'Seller inputs item details' While (min10 < 11) Console.Write("ENTER THE DETAILS FOR A NEW ITEM No: ") Console.WriteLine(min10)
Console.WriteLine("Description") descripInput = Console.ReadLine() descrip(min10) = descripInput
Console.WriteLine("Reserve Price:") InputInt = Console.ReadLine() Rprice(min10) = InputInt NewItNum = NewItNum + 1 ItNum(min10) = NewItNum
Console.Write("Item placed for auction. Your Item Number is: ") Console.WriteLine(NewItNum) Console.WriteLine(" ") min10 = min10 + 1 End While
Module VBModule
Sub Main()
Dim scores(6) As Integer
Dim count As Integer
For count = 1 To 6 ' Ignoring element 0
Console.WriteLine("Please enter test score for student " & count)
scores(count) = Console.Readline
Next
Console.Writeline()
Console.WriteLine("The entered scores are:")
For count = 1 To 6
Console.Writeline("Student " & count & " = " & scores (count))
Next
Console.Writeline("*** End of scores ***")
Console.Readline()
End Sub
End Module
Imports System.Data.OleDb
Public Class Form1
Dim provider As String
Dim dataFile As String
Dim connString As String
Dim myConnection As OleDbConnection = New OleDbConnection
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
dataFile = "C:\Users\saravanan\Downloads.accdb"
connString = provider & dataFile
myConnection.ConnectionString = connString
myConnection.Open()
Dim str As String
str = "Insert into Items([InvoiceID],[Item],[Cost],[Quantity]) Values (?,?,?,?,)"
Dim cmd As OleDbCommand = New OleDbCommand(str, myConnection)
cmd.Parameters.Add(New OleDbParameter("InvoiceID", CType(TextBox1.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Item", CType(TextBox2.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Cost", CType(TextBox3.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Quantity", CType(TextBox4.Text, String)))
Try
cmd.ExecuteNonQuery()
cmd.Dispose()
myConnection.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class
Module VBModule
Sub Main()
Console.WriteLine("Hello, world!")
Console.WriteLine(Roundup(1448.374,2))
End Sub
'CreatedBy: Dhaneshwar
'CreatedAt: 20-Feb-18
'LastModBy: Dhaneshwar
'LastModAt: 21-Jan-19
'Desc: RoundUp function - developed using online editor. Uncomment Console lines for debugging.
'LastComment:Fixed a problem in the procedure
Public Function Roundup(ByVal number As Double, ByVal Num_Digits As Integer) As Double
Dim isNegative As Boolean = false
IF number < 0
isNegative = true
number = -1 * number
END IF
Dim numberStr As String = number.ToString()
Console.WriteLine(numberStr)
Dim decPointIndex as Integer = numberStr.IndexOf(".")
Console.WriteLine(decPointIndex)
IF decPointIndex >= 0
Dim whole As Integer = Math.Truncate(number)
Console.WriteLine(whole)
Dim decimalPartStr As String = numberStr.Substring(decPointIndex + 1)
Console.WriteLine(decimalPartStr)
IF decimalPartStr.Length > Num_Digits
Dim decimalPartForGivenNum_Digits As String = decimalPartStr.Substring(0, Num_Digits)
Console.WriteLine(decimalPartForGivenNum_Digits)
Dim decimalPartAfterGivenNum_Digits As String = decimalPartStr.Substring(Num_Digits)
Console.WriteLine(decimalPartAfterGivenNum_Digits)
Dim decimalPartAfterGivenNum_DigitsInt As Long = CLng(decimalPartAfterGivenNum_Digits)
Console.WriteLine(decimalPartAfterGivenNum_DigitsInt)
Dim addValueForRoundUp As Double = 0.00
IF decimalPartAfterGivenNum_DigitsInt > 4
addValueForRoundUp = 0.1 ^ Num_Digits
Console.WriteLine(addValueForRoundUp)
END IF
Dim ForDecimalPoint As Double = 0.1 ^ Num_Digits
Dim numberAfterRoundUp As Double = whole + (CLng(decimalPartForGivenNum_Digits) * ForDecimalPoint) + addValueForRoundUp
Console.WriteLine(numberAfterRoundUp)
number = numberAfterRoundUp
END IF
END IF
IF isNegative
number = -1 * number
END IF
Return number
End Function
End Module
