Visual Basic

Mycroft Holmes wrote:

Henry - I've seen smaller article than that

sub main()

dim tmp as string
dim dLaborCost as double

' read the line
tmp = GetPrice()

' cast the value of tmp to an double
dLaborCost = CDbl(tmp)

'......

end sub

private function GetPrice() as string

    GetPrice =  Console.ReadLine

end function

Module Module1

    Public Sub DoSomething(ByVal x As Integer, ByRef y As Double)

        x += 5
        y += 5

    End Sub

    Sub Main()
        Dim num As Integer = 5
        Dim anum As Double = 20.5

        Console.WriteLine("Before Method Call:")
        Console.WriteLine("Num = {0}", num.ToString)
        Console.WriteLine("Anum = {0}", anum.ToString)

        DoSomething(num, anum)

        Console.WriteLine("After Method Call:")
        Console.WriteLine("Num (After ByVal) = {0}", num.ToString)
        Console.WriteLine("Anum (After ByRef) = {0}", anum.ToString)

        Console.Read()

    End Sub

End Module

jeshra279 wrote:

Can You please tell me how to do this?

jeshra279 wrote:

Please provide me a line of code for this?

System.Xml.XmlTextWriter xtw = new System.Xml.XmlTextWriter("C:\\timestamp.xml",System.Text.Encoding.UTF8);

// XmlFormatting			
xtw.Formatting == Formatting.Indented;
xtw.Indentation = 4;

xtw.WriteStartDocument();

// write into a element as inner text
xtw.WriteStartElement("TimeStamp");
xtw.WriteString(DateTime.Now.ToOADate());
xtw.WriteEndElement();
			
// Write into a element as attribute
xtw.WriteStartElement("TimeStampAttribute");
xtw.WriteAttributeString("DateTime",DateTime.Now.ToOADate())
xtw.WriteEndElement();
			
xtw.WriteEndDocument();
xtw.Close();