Scribd
Upload
10 views

CALA D PROGRAMMING

A cala for comps

Uploaded by

blueprintjay98
Copyright
© © All Rights Reserved
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
10 views

CALA D PROGRAMMING

A cala for comps

Uploaded by

blueprintjay98
Copyright
© © All Rights Reserved
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 11

LEARNING AREA : COMPUTER SCIENCE

LEVEL: : A LEVEL

CALA TYPE : PRACTICAL

SYLLABUS TOPIC: : SYSTEM DEVELOPMENT LIFE CYCLE

COMPETENCES/SKILLS:

 Data collection
 Research and analysis
 Data presentation
 Programming skills

BACKGROUND

Technological advancements have reached all sectors and spheres of life. However, in most
schools there is continuous use manual systems and manual methods in data capturing,
manipulation and reporting. With reference to your school perform the following task that is in 2
parts Part A and Part B.

PART A

 Identify a manual system of data capturing at your school and investigate problems or
weaknesses of that identified system. [10]

PART B

 Propose a solution to the above identified problem and design a computerized system
Print the following screenshots
i. Data capture forms.
ii. Data structures (Design view and Datasheet view).
iii. Form displaying entered results.
iv. Code [15]
PART A
Identify a manual system of data capturing at your school and investigate problems or
weaknesses of that identified system.

Manual system: school tuckshop

Problem identification of the current system

The school tuckshop is facing a number of problems in their current tuckshop system. They are
facing problems in serving their customers, managing their stock and counting their stock in
which they are facing a lot of errors and slowness which is causing frustration to students. The
error counting sometimes causes problems in working out their profits, stock entry is tiresome
as it requires a lot of time to write down the amount of additional stock that has been put in
stock. The keeping of stock records on paper is biased and the record might go missing.

PART B
Input design
Login form

Sellers point form


Form for buying one item
Form for buying two or more items at the time
Output design
Code listing
Private Sub process_Click(sender As Object, e As EventArgs) Handles process.Click
If CheckBox1.Enabled = False Or CheckBox2.Enabled = False Or
CheckBox3.Enabled = False Or CheckBox4.Enabled = False Or CheckBox5.Enabled =
False Or CheckBox6.Enabled = False Or CheckBox7.Enabled = False Or
CheckBox8.Enabled = False Or CheckBox9.Enabled = False Or CheckBox10.Enabled =
False Then
MsgBox("Nothing Checked Yet", MsgBoxStyle.Critical)
End If

Dim hotprice As Decimal


Dim burgerprice As Decimal
Dim chipsprice As Decimal
Dim sausageprice As Decimal
Dim porkprice As Decimal
Dim megaprice As Decimal
Dim mintsprice As Decimal
Dim chocolateprice As Decimal
Dim cascadeprice As Decimal
Dim coatedprice As Decimal
Dim breadprice As Decimal
Dim bunsprice As Decimal
Dim laysprice As Decimal

If CheckBox1.Checked = True Then


txthot.Text = 1 * Val(txtqhot.Text)
hotprice = Val(txthot.Text) + Val(total_amount.Text)

Else
txthot.Text = 0

End If
If CheckBox2.Checked = True Then
txtburger.Text = 1.0 * Val(txtqbur.Text)
burgerprice = Val(txtburger.Text) + Val(total_amount.Text)

Else
txtburger.Text = 0
End If
If CheckBox3.Checked = True Then
txtchip.Text = 1.0 * Val(txtqchi.Text)
chipsprice = Val(txtchip.Text) + Val(total_amount.Text)

Else
txtchip.Text = 0
End If
If CheckBox4.Checked = True Then
txtsausage.Text = 0.5 * Val(txtqsaus.Text)
sausageprice = Val(txtsausage.Text) + Val(total_amount.Text)
Else
txtsausage.Text = 0
End If

If CheckBox5.Checked = True Then


txtpork.Text = 0.5 * Val(txtqpork.Text)
porkprice = Val(txtpork.Text) + Val(total_amount.Text)
Else
txtpork.Text = 0
End If

If CheckBox6.Checked = True Then


txtmega.Text = 0.5 * Val(txtqmega.Text)
megaprice = Val(txtmega.Text) + Val(total_amount.Text)
Else
txtmega.Text = 0
End If

If CheckBox7.Checked = True Then


txtcascade.Text = 0.7 * Val(txtqcasc.Text)
cascadeprice = Val(txtcascade.Text) + Val(total_amount.Text)
Else
txtcascade.Text = 0
End If

If CheckBox8.Checked = True Then


txtcoated.Text = 2.0 * Val(txtqcoat.Text)
coatedprice = Val(txtcoated.Text) + Val(total_amount.Text)
Else
txtcoated.Text = 0
End If

If CheckBox9.Checked = True Then


txtmints.Text = 0.1 * Val(txtqmega.Text)
mintsprice = Val(txtmints.Text) + Val(total_amount.Text)
Else
txtmints.Text = 0
End If
If CheckBox10.Checked = True Then
txtchoc.Text = 0.5 * Val(txtqchoc.Text)
chocolateprice = Val(txtchoc.Text) + Val(total_amount.Text)
Else
txtchoc.Text = 0
End If
If CheckBox11.Checked = True Then
txtbread.Text = 1.0 * Val(txtqbread.Text)
breadprice = Val(txtbread.Text) + Val(total_amount.Text)
Else
txtbread.Text = 0
End If
If CheckBox12.Checked = True Then
txtbuns.Text = 1.0 * Val(txtqbuns.Text)
bunsprice = Val(txtbuns.Text) + Val(total_amount.Text)
Else
txtbuns.Text = 0
End If
If CheckBox13.Checked = True Then
txtlays.Text = 0.5 * Val(txtqlays.Text)
laysprice = Val(txtlays.Text) + Val(total_amount.Text)
Else
txtlays.Text = 0
End If

total_amount.Text = Val(burgerprice + cascadeprice + chipsprice +


chocolateprice + hotprice + megaprice + mintsprice + porkprice + sausageprice +
coatedprice + breadprice + bunsprice + laysprice)
change.Text = Val(amount_given.Text) - Val(total_amount.Text)
If amount_given.Text = "" Then
MsgBox("please enter amount paid")
If change.Text <= -1 Then
MsgBox("Insufficient money")
End If
total_amount.Clear()
change.Clear()

End If

End Sub

Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles


PictureBox3.Click
Sellers_point.Show()
Me.Hide()

End Sub
End Class

You might also like