主题饭的主题餐厅-

版面設計流程先新增8個Label、6個TextBox、4個RadioBox、3個CheckBox、2個Button、1個ListBox、1個GroupBox，之後開始設計程式，至於內容有好吃的飯，因為學校外面有一家餐廳的菜單上有，由於特別，所以有此設計相關內容。設計解析2.再來是測試高級的飯10份+好吃的飯10份，購買者為南台的學生，由於南台學生可愛活潑，店家給9折優惠，最後總金額為1620。設計解析3.這次定了20份高級的飯，由於老闆常看見伯伯三餐都在他們店裡出現，所以被定為老顧客名單打了他95折優惠，總金額為1900。設計解析4.這是伯伯買了20份高級的飯，因為婆婆也餓了，伯伯幫她點了好吃的飯，店家看見伯伯又來彭場，還是給他95折優惠，算出來因該是1976元，正因為是大於2000元，所以真正的金額為1768元，老闆太高興給他85折。加飯CheckBox1CheckBox2CheckBox3優待RadioBox1RadioBox2RadioBox3RadioBox4按鍵Button1Button2表單ListBox1屬性設定單位TextBox1TextBox2TextBox3TextBox4TextBox5TextBox6文字Label1、Label2Label3、Label4Label5、Label6Label7、Label8程式設計Public

Class

Form1Dim

total,

acctotal

As

IntegerPrivate

Sub

Form1_Load(ByVal

sender

As

System.Object,

ByVal

e

AsSystem.EventArgs)

Handles

MyBase.LoadLabel6.Text="$"&

total

&"元“

Label7.Text="累計：$"&

acctotal

&"元“

Label6.Font=New

Font("新細明體",24)Label6.ForeColor

=

Color.Redtotal

=

0acctotal

=

0End

SubPrivate

Sub

Button1_Click(ByVal

sender

As

System.Object,

ByVal

e

AsSystem.EventArgs)

Handles

Button1.Clicktotal

=

Val(TBoxprice1.Text)

*

Val(TBoxqty1.Text)

+

Val(TBoxprice2.Text)

*Val(TBoxqty2.Text)

+

Val(TBoxprice3.Text)

*

Val(TBoxqty3.Text)If

total

>

2000

Then

RadioButton3.Checked

=

TrueIf

RadioButton1.Checked=True

Then

total=total

*

0.95If

RadioButton2.Checked=True

Then

total=total

*

0.9If

RadioButton3.Checked=True

Then

total=total

*

0.85If

RadioButton4.Checked=True

Then

total=total

*

1Label6.Text="$"&

total

&"元"acctotal

=

acctotal

+

totalLabel7.Text="累計：$"&

acctotal

&"元“ListBox1.Items.Add(total

&"-->"&"高級的飯"&

TBoxprice1.Text

&

"*"&TBoxqty1.Text

&"好吃的飯"&

TBoxprice2.Text

&

"*"&

TBoxqty2.Text

&"難吃的飯"&

TBoxprice3.Text

&

"*"&

TBoxqty3.Text)End

SubPrivate

Sub

Button2_Click(ByVal

sender

As

System.Object,

ByVal

e

AsHandles

Button2.ClickSystem.EventArgs)TBoxqty1.Text

=

0TBoxqty2.Text

=

0TBoxqty3.Text

=

0total

=

0Label6.Text="$"&

total

&"元"End

SubPrivate

Sub

ListBox1_MouseUp(ByVal

sender

As

System.Object,ByVal

e

As

System.EventArgs)

Handles

ListBox1.MouseUpacctotal

=

acctotal

-

(Val(ListBox1.SelectedItem))ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)Label7.Text="累計：$"&

acctotal

&"元"End

SubEnd

Class實際照片心得這次是第一次接觸VisualBasic的程式設計，剛開始什麼都不太會，幾乎都要透過老師ㄧ一講解才能明白這些指令是做什麼用的，每次教的東西都不大一樣，學的