Class Project VB.net beginners Help

dnstar1

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?

6 Replies

Know the answer? Post it — somebody with the same question will find it here.

Agent57C21y ago
if you're running vb.net 2003 it won't running on anything less than windows 2000
dnstar121y ago
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
dnstar121y ago
Excelent Ill try that when I get home from work tonight thank you very much.
Agent57C21y ago
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
Agent57C21y ago
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
dnstar121y ago
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