Class Project VB.net beginners Help

Question

This is a crazy easy project I have the form designed but I need help with the coding. The project is Liters to gallons converter Textbox1: liters for input Textbox2: pints read only for output Textbox3: gallons read only for output Labels for the above textboxes Compute button: btnCompute Reset button: btnReset Code the following methods: btnCompute_Click() and btnReset_Click() I have the form setup but I dont understand how to make the buttons compute the liters to gallons can anyone out there help?

Agent57C · Answer

if you're running vb.net 2003 it won't running on anything less than windows 2000

dnstar1 · Answer

I got it working finally but now I get a DLL error on windos 98 SE the program works great on XP home and Pro THanks for the Help

dnstar1 · Answer

Excelent Ill try that when I get home from work tonight thank you very much.

Agent57C · Answer

the reset button code will have to be under the btnReset sub procedure Private Sub btnReset_Click(ByVal sender As System.Object ByVal e As System.EventArgs) Handles btnReset.Click txtLiters.Text =  (other two buttons) End Sub

Agent57C · Answer

can you double click on the button in the design window so that windows writes the code for you? if not it would look something like this: Private Sub btnCompute_Click(ByVal sender As System.Object ByVal e As System.EventArgs) Handles btnComput.Click also i would change the Me.Textbox1.Name to Me.txtLiters.Name this can also be done in the design window by changing the name in the properties window you would just have to type txtLiters in the name property. the same should be done to Me.Textbox2.Name to Me.txtPints.Name Me.Textbox3.Name to Me.txtGallons.Name Me.Button1.Name to Me.btnCompute.Name Me.Button2.Name to Me.btnReset.Name for the liters input: Dim liters As Decimal 'liters input liters = txtLiters.Text to convert liters to pints 1 liter is 2.113 pints so: txtPints.Text = (liters)*2.113 to convert liters to gallons 1 liter is 0.264 pints you just have to format it like the pints example for the reset button you just have to initialize all text boxes with null strings so for liters it would look like: txtLiters.Text =  the other two buttons would be coded the same

dnstar1 · Answer

here is what i have so far ___________________________________________________________ Public Class Form1 Inherits System.Windows.Forms.Form #Region  Windows Form Designer generated code  Public Sub New() MyBase.New() 'This call is required by the Windows Form Designer. InitializeComponent() 'Add any initialization after the InitializeComponent() call End Sub 'Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub 'Required by the Windows Form Designer Private components As System.ComponentModel.IContainer 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. Friend WithEvents TextBox1 As System.Windows.Forms.TextBox Friend WithEvents TextBox2 As System.Windows.Forms.TextBox Friend WithEvents TextBox3 As System.Windows.Forms.TextBox Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button Private Sub InitializeComponent() Me.TextBox1 = New System.Windows.Forms.TextBox Me.TextBox2 = New System.Windows.Forms.TextBox Me.TextBox3 = New System.Windows.Forms.TextBox Me.Button1 = New System.Windows.Forms.Button Me.Button2 = New System.Windows.Forms.Button Me.SuspendLayout() ' 'TextBox1 ' Me.TextBox1.Location = New System.Drawing.Point(80 8) Me.TextBox1.Name = TextBox1 Me.TextBox1.Size = New System.Drawing.Size(128 20) Me.TextBox1.TabIndex = 0 Me.TextBox1.Text = Liters ' 'TextBox2 ' Me.TextBox2.Location = New System.Drawing.Point(80 40) Me.TextBox2.Name = TextBox2 Me.TextBox2.Size = New System.Drawing.Size(128 20) Me.TextBox2.TabIndex = 1 Me.TextBox2.Text = Pints ' 'TextBox3 ' Me.TextBox3.Location = New System.Drawing.Point(80 72) Me.TextBox3.Name = TextBox3 Me.TextBox3.Size = New System.Drawing.Size(128 20) Me.TextBox3.TabIndex = 2 Me.TextBox3.Text = Gallons ' 'Button1 ' Me.Button1.Location = New System.Drawing.Point(56 128) Me.Button1.Name = Button1 Me.Button1.TabIndex = 3 Me.Button1.Text = Compute ' 'Button2 ' Me.Button2.Location = New System.Drawing.Point(160 128) Me.Button2.Name = Button2 Me.Button2.TabIndex = 4 Me.Button2.Text = Reset ' 'Form1 ' Me.AutoScaleBaseSize = New System.Drawing.Size(5 13) Me.ClientSize = New System.Drawing.Size(292 266) Me.Controls.Add(Me.Button2) Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.TextBox3) Me.Controls.Add(Me.TextBox2) Me.Controls.Add(Me.TextBox1) Me.Name = Form1 Me.Text = Liters to Gallons Converter Me.ResumeLayout(False) End Sub #End Region Private Sub Form1_Load(ByVal sender As System.Object ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class