How to Accept Number Or String in Vb.Net (Visual Basic)




Module m1
Sub Main()
Dim a as integer
Dim s as String
Console.Write("Enter A Number : ")
a=console.readline()
Console.Write("Enter a String : ")
s=console.readLine()
Console.WriteLine("You Enter the Number is : " & a)
Console.WriteLine("You Enter the String is : " & s)
End Sub
End Module




Comments

Post a Comment

Popular posts from this blog

How to make an Automated Refreshing Web Browser Using VB.NET

Image
Public Class webbrowser     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click         Timer1.Enabled = False     End Sub     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click         Timer1.Enabled = True     End Sub     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick         If WebBrowser1.Visible Then             WebBrowser1.Refresh()         End If         If WebBrowser2.Visible Then             WebBrowser2.Refresh()         End If     End Sub     Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged         If WebBrowser1.Visible Then      ...
Read more

How to make a text to speech program in vb.net

Image
Imports System.Drawing.Font  Imports System.Drawing.FontFamily Imports System.Drawing.FontConverter  Imports System.Speech.Synthesis  Imports System.Collections.ObjectModel  Public Class Text_To_Speech  Private p_objSynth As New SpeechSynthesizer  Dim w As Integer = Screen.PrimaryScreen.Bounds.Width  Dim h As Integer = Screen.PrimaryScreen.Bounds.Height  Private Sub BindCombo()  ComboBox2.DrawMode = DrawMode.OwnerDrawFixed  ComboBox2.Font = New Font("Microsoft Sans Serif, 11.25pt", 11.25)  ComboBox2.ItemHeight = 20  Dim objFontFamily As FontFamily  Dim objFontCollection As System.Drawing.Text.FontCollection  Dim tempFont As Font objFontCollection = New System.Drawing.Text.InstalledFontCollection() For Each objFontFamily In objFontCollection.Families ComboBox2.Items.Add(objFontFamily.Name)  Next  End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load ...
Read more