Er einhver með kóða fyrir VB donut Shoppe verkefnið?

VB Donut Shoppe verkefniskóði:

``` Visual basic

Valkostur skýr

Eyðublað fyrir almenna bekk 1

Private Sub Form1_Load(sender As Object, e As EventArgs) sér um MyBase.Load

'Frumstilla kleinuhringjabúðabirgðabreytur

Dimm kleinuhringir_á_lager Sem heiltala =100

Dimmt kleinuhringur_verð sem tvöfalt =2,50

'Sýna fjölda birgða í lblInventoryCount merkimiðanum

lblInventoryCount.Text =kleinuhringir_á lager

'Sýndu kleinuhringiverðið í lblDonutPrice miðanum

lblDonutPrice.Text =donut_price

End Sub

Private Sub btnBuyDonut_Click(sender As Object, e As EventArgs) Meðhöndlar btnBuyDonut.Click

„Fækkaðu kleinuhringjum á lager um einn

kleinuhringir_á lager =kleinur_á lager - 1

'Uppfærðu lblInventoryCount merkimiðann með uppfærðri birgðatölu

lblInventoryCount.Text =kleinuhringir_á lager

„Athugaðu hvort viðskiptavinurinn eigi nægan pening til að kaupa kleinuhring

Ef txtbxMoneyGiven.Text>=donut_price Þá

'Sýndu skilaboð sem upplýsa viðskiptavininn um að kaupin hafi tekist

MessageBox.Show("Njóttu kleinuhringjunnar!", "Tókst að kaupa")

'Reiknaðu og sýndu breytinguna sem þú skuldar viðskiptavinum

Dimm change_owed As Double =Val(txtbxMoneyGiven.Text) - donut_price

lblChangeOwed.Text =FormatCurrency(change_owed)

Annað

„Sýndu skilaboð sem upplýsa viðskiptavininn um að hann eigi ekki nægan pening

MessageBox.Show("Því miður, þú átt ekki nóg til að kaupa kleinuhring.", "Ófullnægjandi fjármunir")

End If

End Sub

Lokanámskeið

```

Þessi kóði gerir ráð fyrir tilvist nokkurra stjórna á eyðublaðinu þínu, svo sem merki sem heita `lblInventoryCount` og `lblDonutPrice`, textareit sem heitir `txtbxMoneyGiven` til að slá inn peningana sem viðskiptavinurinn gefur, og hnappur sem heitir `btnBuyDonut` til að hefja kleinuhringkaupin . Þú gætir þurft að breyta kóðanum þannig að hann passi við raunveruleg nöfn stjórntækjanna og uppsetningu eyðublaðsins.