Visual Basic programming help

    The forums have been archived. Please read this thread for more information.

    • Visual Basic programming help

      Hi

      I don't know if anyone can help me but i'm doing this program in school and i'm so confused.

      It's supposed to upgrade the original cost by adding the upgrades then the discounts then VATCost,Delivery Cost etc

      So here is my coding:

      Source Code

      1. Private Sub cmdBegin_Click()
      2. Dim HardDisk As Integer
      3. Dim RAM As Integer
      4. Dim Monitor As Integer
      5. Dim Discount1 As Integer
      6. Dim Discount2 As Integer
      7. Dim DeliveryCost As Integer
      8. Dim VATCost As Integer
      9. Dim TotalCost As Integer
      10. Dim TotalCost2 As Integer
      13. Call Upgrades(HardDisk, RAM, Monitor)
      14. Call CalculateDiscount(Discount1, Discount2)
      15. Call Delivery(DeliveryCost)
      16. Call CalculateVAT(VATCost)
      17. Call calculatetotalcost(TotalCost, TotalCost2)
      18. Call displaytotalcost(TotalCost, TotalCost2)
      20. End Sub
      23. Private Sub Upgrades(ByVal HardDisk As Integer, RAM As Integer, Monitor As Integer)
      25. InputBox ("Do you want the 60gb HD")
      26. If Upgrade = yes Then
      27. TotalCost = 499 + 30
      28. MsgBox ("You have chosen the 60gb HD")
      29. End If
      31. InputBox ("Do you want the 1gb RAM Upgrade")
      32. If Upgrade = yes Then
      33. TotalCost = 499 + 30 + 50
      34. MsgBox ("You have chosen the 1gb Ram Upgrade")
      35. End If
      37. InputBox ("Do you want a 21 inch monitor")
      38. If Upgrade = yes Then
      39. TotalCost = 499 + 30 + 50 + 199
      40. MsgBox ("You have chosen the 21 inch monitor upgrade")
      41. End If
      43. End Sub
      45. Private Sub CalculateDiscount(ByVal Discount1 As Integer, Discount2 As Integer)
      47. InputBox ("How many computers do you want")
      49. If Discount1 >= 10 Or Discount1 <= 20 Then
      50. TotalCost = 0.05 * 499 + 30 + 50 + 199
      51. MsgBox ("You have chosen Discount1")
      52. Else
      54. If Discount2 >= 20 Or Discount2 <= 30 Then
      55. TotalCost2 = 0.1 * 499 + 30 + 50 + 199
      56. MsgBox ("You have chosen Discount2")
      57. End If
      58. End If
      59. End Sub
      61. Private Sub Delivery(ByVal DeliveryCost As Integer)
      63. If Discount1 Then
      64. TotalCost = 499 + 30 + 50 + 199 * 0.05 + 50
      65. End If
      67. If Discount2 Then
      68. TotalCost2 = 499 + 30 + 50 + 199 * 0.1 + 50
      69. End If
      71. End Sub
      73. Private Sub CalculateVAT(ByVal VATCost As Integer)
      74. If Discount1 Then
      75. TotalCost = 499 + 30 + 50 + 199 * 0.05 + 50 * 0.175
      76. End If
      78. If Discount2 Then
      79. TotalCost2 = 499 + 30 + 50 + 199 * 0.1 + 50 * 0.175
      80. End If
      82. End Sub
      84. Private Sub calculatetotalcost(ByVal TotalCost As Integer, TotalCost2 As Integer)
      85. 'calculates the total cost of the computers
      86. If Discount1 Then
      87. TotalCost = 499 + 30 + 50 + 199 * 0.05 + 50 * 0.175
      88. End If
      90. If Discount2 Then
      91. TotalCost2 = 499 + 30 + 50 + 199 * 0.1 + 50 * 0.175
      92. End If
      93. End Sub
      95. Private Sub displaystotalcost(ByVal TotalCost As Integer, TotalCost2 As Integer)
      96. If Discount1 Then
      97. txtTotalCost.Text = TotalCost
      98. End If
      99. Else
      100. If Discount2 Then
      101. txtTotalCost = TotalCost2
      102. End If
      104. End Sub
      Display All



      The form is in the attachments

      So i hope someone can help.

      Thanks

      Kuro
      Images

      • form.jpg

        35.62 kB, 454×266, viewed 139 times

    • Use the Val() functions for your numbers.

      Exemple:

      TextBoxt1.Text = Val(9999) + Val(9999)

      In your case in should be like this:

      TotalCost2 = Val(499) + Val(30) + Val(50) + Val(199) * Val(0.1) + Val(50) * Val(0.175)

      It should do the trick.

      Been a while since I didnt used VB6. I am now in VB.Net