Click here to Skip to main content
15,912,400 members
Home / Discussions / Visual Basic
   

Visual Basic

 
GeneralRe: VB 2005 Case Programming Assignment 5 page 871 source code Pin
Yusuf7-Apr-09 12:48
Yusuf7-Apr-09 12:48 
GeneralRe: VB 2005 Case Programming Assignment 5 page 871 source code Pin
Luc Pattyn7-Apr-09 13:13
sitebuilderLuc Pattyn7-Apr-09 13:13 
GeneralRe: VB 2005 Case Programming Assignment 5 page 871 source code Pin
Yusuf7-Apr-09 13:24
Yusuf7-Apr-09 13:24 
GeneralRe: VB 2005 Case Programming Assignment 5 page 871 source code Pin
Luc Pattyn7-Apr-09 13:55
sitebuilderLuc Pattyn7-Apr-09 13:55 
AnswerRe: VB 2005 Case Programming Assignment 5 page 871 source code Pin
twiztid_sickz7-Apr-09 12:37
twiztid_sickz7-Apr-09 12:37 
GeneralRe: VB 2005 Case Programming Assignment 5 page 871 source code Pin
Luc Pattyn7-Apr-09 12:40
sitebuilderLuc Pattyn7-Apr-09 12:40 
GeneralRe: VB 2005 Case Programming Assignment 5 page 871 source code Pin
Yusuf7-Apr-09 12:43
Yusuf7-Apr-09 12:43 
GeneralRe: VB 2005 Case Programming Assignment 5 page 871 source code Pin
twiztid_sickz7-Apr-09 12:51
twiztid_sickz7-Apr-09 12:51 
Public Class frmSoftwarePackages


Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
Dim TotalCost As Decimal
Dim Price As Decimal
Dim Package As String
totalcost = Package * Price


Dim objStudent As Student
objStudent = Student
Dim ObjCustomer As Customer
ObjCustomer = Customer

Dim InputError As Boolean






If Me.txtCreditCard.MaxLength = False Then


MessageBox.Show("Enter your credit card number in the correct location")
Me.txtCreditCard.Clear()
Me.txtCreditCard.Focus()
InputError = True

ElseIf Me.txtCreditCard.TextLength < 16 Or _
Me.txtCreditCard.TextLength > 16 Then
MessageBox.Show("You Entered wrong amount of numbers in credit card box")
Me.txtCreditCard.Clear()
Me.txtCreditCard.Focus()
InputError = True

ElseIf Not IsNumeric(Me.txtCreditCard.Text) Then
MessageBox.Show("Enter Numbers Only")
Me.txtCreditCard.Clear()
Me.txtCreditCard.Focus()

ElseIf Me.cboPackage.SelectedIndex < 0 Then
MessageBox.Show("Please Select a Package")
Me.cboPackage.Focus()
InputError = True






End If















End Sub


Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
If Me.RadioButton1.Checked Then











End If

End Sub

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
Me.txtCreditCard.Clear()
Me.txtExp.Clear()
Me.cboPackage.SelectedIndex = -1
Me.RadioButton1.Checked = True


End Sub

Private Sub frmSoftwarePackages_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub



here is the other classes


Option Strict On
Public Class Customer



'Inherits Student Class
Inherits Student


'Class Variables
Private _SpeedUpInternet As Boolean
Private _AwritersWrite As Boolean
Private _DistancePersonnel As Boolean
Private _EmailPhoto As Boolean
Private _KeyboardLearner As Boolean



Dim objCustomer As Customer

Sub New(ByVal CreditCard As String, ByVal ExpDate As String, ByVal DecCost As Decimal, _
ByVal Discount As Decimal, ByVal Package As String, ByVal SpeedUpInternet As Boolean, ByVal AwritersWrite As Boolean, _
ByVal DistancePersonnel As Boolean, ByVal EmailPhoto As Boolean, ByVal KeyBoardLearner As Boolean)

MyBase.New(CreditCard, ExpDate, Package, DecCost, Discount)


_SpeedUpInternet = SpeedUpInternet
_AwritersWrite = AwritersWrite
_DistancePersonnel = DistancePersonnel
_EmailPhoto = EmailPhoto
_KeyboardLearner = KeyBoardLearner



End Sub




Public Class Student

'Class variables
Protected _StrCreditCard As String
Protected _StrExpDate As String
Protected _StrPackage As String
Protected _DecCost As Decimal
Protected _Discount As Decimal


Dim objStudent As Student

Sub New(ByVal StrCreditCard As String, ByVal StrExpDate As String, ByVal StrPackage As String, _
ByVal DecCost As Decimal, ByVal Discount As Decimal)

' Assigns arguments to class variables
_StrCreditCard = StrCreditCard
_StrExpDate = StrExpDate
_StrPackage = StrPackage
_DecCost = DecCost
_Discount = Discount


End Sub

Overridable Function ComputeTotal() As Decimal

'Calculate Cost
_DecCost = _StrPackage * _Discount


End Function

Dim decCost As Decimal

Const cdecSpeedUpInternet As Decimal = CDec(334.95)
Const cdecAwritersWriter As Decimal = CDec(578.9)
Const cdecDistancePersonnel As Decimal = CDec(872.45)
Const cdecEmailPhotoManager As Decimal = CDec(129.95)
Const cdecKeyboardLearner As Decimal = CDec(79.95)






End Class



I have no idea what im doing as u can tell
GeneralRe: VB 2005 Case Programming Assignment 5 page 871 source code Pin
Yusuf7-Apr-09 12:55
Yusuf7-Apr-09 12:55 
GeneralRe: VB 2005 Case Programming Assignment 5 page 871 source code Pin
Jon_Boy8-Apr-09 4:49
Jon_Boy8-Apr-09 4:49 
AnswerRe: VB 2005 Case Programming Assignment 5 page 871 source code Pin
Christian Graus7-Apr-09 13:08
protectorChristian Graus7-Apr-09 13:08 
QuestionWhy not work as Guest [modified] Pin
ivo757-Apr-09 9:22
ivo757-Apr-09 9:22 
AnswerRe: Why not work as Guest Pin
Eddy Vluggen7-Apr-09 9:41
professionalEddy Vluggen7-Apr-09 9:41 
GeneralRe: Why not work as Guest Pin
ivo757-Apr-09 9:53
ivo757-Apr-09 9:53 
AnswerRe: Why not work as Guest Pin
Eddy Vluggen7-Apr-09 11:30
professionalEddy Vluggen7-Apr-09 11:30 
JokeRe: Why not work as Guest Pin
Yusuf7-Apr-09 12:52
Yusuf7-Apr-09 12:52 
GeneralRe: Why not work as Guest Pin
Eddy Vluggen7-Apr-09 15:07
professionalEddy Vluggen7-Apr-09 15:07 
AnswerRe: Why not work as Guest Pin
Dave Kreskowiak7-Apr-09 10:47
mveDave Kreskowiak7-Apr-09 10:47 
QuestionCharacter Set Question Pin
sunil goyalG7-Apr-09 5:43
sunil goyalG7-Apr-09 5:43 
AnswerRe: Character Set Question Pin
Dave Kreskowiak7-Apr-09 7:13
mveDave Kreskowiak7-Apr-09 7:13 
Questionthe speed of my program is low Pin
en.Mahdi7-Apr-09 3:32
en.Mahdi7-Apr-09 3:32 
AnswerRe: the speed of my program is low Pin
Dave Kreskowiak7-Apr-09 3:52
mveDave Kreskowiak7-Apr-09 3:52 
AnswerRe: the speed of my program is low Pin
Eddy Vluggen7-Apr-09 3:54
professionalEddy Vluggen7-Apr-09 3:54 
AnswerRe: the speed of my program is low Pin
Luc Pattyn7-Apr-09 4:35
sitebuilderLuc Pattyn7-Apr-09 4:35 
Questionhow to identify parent form name from a user control Pin
arun_pk7-Apr-09 1:19
arun_pk7-Apr-09 1:19 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.