hi i am trying to currently make a program that has 3 text boxes, you enter the make and model of the car as well as montly rate for payments but i cant run the program with out getting an error, i dont have visual basic on this as i am on linux i do however have the form so here it is
can anyone see an error in the syntax there?Code:VERSION 5.00 Begin VB.Form lblrate Caption = "car hire" ClientHeight = 6885 ClientLeft = 60 ClientTop = 345 ClientWidth = 4680 LinkTopic = "Form1" ScaleHeight = 6885 ScaleWidth = 4680 StartUpPosition = 3 'Windows Default Begin VB.CommandButton cmdclear Caption = "Clear" Height = 615 Left = 3960 TabIndex = 13 Top = 1440 Width = 615 End Begin VB.CommandButton cmdok Caption = "OK" Height = 615 Left = 3960 TabIndex = 12 Top = 600 Width = 615 End Begin VB.TextBox list2 Height = 3135 Left = 2160 TabIndex = 8 Top = 3000 Width = 1215 End Begin VB.TextBox list1 Height = 3135 Left = 600 TabIndex = 7 Top = 3000 Width = 1215 End Begin VB.TextBox txtrate Height = 495 Left = 2280 TabIndex = 6 Top = 1800 Width = 1455 End Begin VB.TextBox txtmodel Height = 495 Left = 2280 TabIndex = 5 Top = 1200 Width = 1455 End Begin VB.TextBox txtmake Height = 495 Left = 2280 TabIndex = 4 Top = 600 Width = 1455 End Begin VB.Label lblfooter Height = 255 Left = 360 TabIndex = 11 Top = 6600 Width = 4095 End Begin VB.Label lblcharge Caption = "Charge (£)" Height = 255 Left = 2280 TabIndex = 10 Top = 2640 Width = 1095 End Begin VB.Label lbldays Caption = "Days" Height = 255 Left = 600 TabIndex = 9 Top = 2640 Width = 1095 End Begin VB.Label lblrate Caption = "Enter daily rate:" Height = 375 Left = 120 TabIndex = 3 Top = 1800 Width = 1695 End Begin VB.Label lblmodel Caption = "Enter model of car:" Height = 375 Left = 120 TabIndex = 2 Top = 1200 Width = 1695 End Begin VB.Label lblmake Caption = "Enter make of car:" Height = 375 Left = 120 TabIndex = 1 Top = 600 Width = 1695 End Begin VB.Label lbltitle Caption = "CHERAIR CAR HIRE COMPANY" Height = 375 Left = 120 TabIndex = 0 Top = 0 Width = 3975 End End Attribute VB_Name = "lblrate" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub cmdclear_Click() txtmake = "" txtmodel = "" txtrate = "" End Sub Private Sub cmdok_Click() If txtmake.Text = "ford" Then lblfooter.Caption = "YOU GET A FREE ROAD ATLAS WITH THIS HIRE" Dim counter As Integer For counter = 1 To 14 list1.AddItem (counter) list2.AddItem (Format(counter * Val(txtrate.Text), "currency")) Next End Sub Private Sub Form_Load() End Sub
thanks for reading and i hope you can help
Reply With Quote