第1篇
一、实训背景
随着移动互联网的快速发展，安卓系统因其开源、免费的特点，已成为全球最受欢迎的移动操作系统。为了适应这一趋势，掌握安卓开发技术成为当代计算机专业学生的必备技能。本实训旨在通过实际操作，让学生深入了解安卓基本控件的使用方法，为后续的安卓应用开发打下坚实基础。
二、实训目标
1. 熟悉安卓开发环境搭建。
2. 掌握安卓基本控件的分类及功能。
3. 能够运用基本控件实现简单的用户界面设计。
4. 了解控件之间的布局关系及事件处理机制。
三、实训内容
1. 安卓开发环境搭建
实训开始前，首先需要搭建安卓开发环境。本实训采用Android Studio作为开发工具，其内置了Android SDK、JDK等开发所需工具。以下是搭建安卓开发环境的步骤：
（1）下载并安装Android Studio。
（2）打开Android Studio，创建新项目。
（3）选择项目名称、保存位置、模板等，完成项目创建。
2. 安卓基本控件
安卓基本控件是构成用户界面的基本元素，主要包括以下几类：
（1）文本控件：EditText、TextView
EditText：用于输入文本，如用户名、密码等。
TextView：用于显示文本，如标题、说明等。
（2）按钮控件：Button Button：用于响应用户点击事件，如登录、提交等。
（3）单选按钮控件：RadioButton
RadioButton：用于在一组选项中选择一个，如性别选择。
（4）复选框控件：CheckBox
CheckBox：用于在一组选项中选择多个，如兴趣爱好。
（5）开关控件：Switch
Switch：用于切换开关状态，如开启/关闭网络连接。
（6）列表控件：ListView
ListView：用于显示列表形式的界面，如联系人列表。
（7）网格控件：GridView
GridView：用于显示网格形式的界面，如商品展示。
（8）滚动视图控件：ScrollView
实验四 控件的属性、方法和事件的使用
实验目的：
1．掌握键盘编程的常用事件
2．掌握鼠标编程的常用事件
3．掌握文本文件的常用操作过程和函数
4．掌握有类型文件的常用操作过程和函数
实验内容：
1．识别鼠标是左键单击还是右键单击，并显示当前鼠标的位置。通过鼠标事件的过程参数来识别。
procedure TForm1.onmousedown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
p:Tpoint;
begin
getcursorpos(p);
if button=mbleft then
edit1.text:='左键'+'X: '+ format('%d',[p.x])+'Y: '+ format('%d',[p.y])
else
edit1.text:='右键'+'X: '+ format('%d',[p.x])+'Y: '+ format('%d',[p.y]);
end;
end.
2．设计一程序，实现识别用户当前在键盘上按下的键。
procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled:
Boolean);
begin
if Msg.CharCode=VK_TAB then
begin
showmessage('你按下了TAB键按下');
end;
if Msg.CharCode=VK_capital then
begin
showmessage('你按下了capslock键按下');
end;
if Msg.CharCode=VK_f1 then
begin
showmessage('f1键按下');
end;
实验十 常用控件
一. 实验目的
1. 掌握命令按钮、标签、文本框、单选钮、复选框等常用控件的属性、方法和事件。
2. 掌握滚动条、列表框、组合框和时钟控件的使用。
3. 了解鼠标和键盘事件及其事件过程的编写。
4. 综合应用所学的知识，编制具有可视化界面的应用程序。
二. 实验要求
通过实验范例的学习，掌握基本的常用控件，并根据实验内容要求编写完整的应用程序，学会单选框、复选钮、滚动条、列表框和滚动条等控件的使用。
三. 实验范例
1. 下图10-1是一个学生成绩计算程序，具有如下功能：
1) 文本框中只能输入0～9之间的数字字符。
2) 当焦点离开文本框时，能检查输入的成绩是否有效。若成绩不在0～100之间，则清除原数据，并将光标移到该文本框。
3) 若文本框左边的复选框未被选定，则文本框不可以输入成绩并且不参加计算总分和平均成绩。
图10-1 范例1程序运行界面
步骤一：利用复选框、文本框、标签、命令按钮根据要求设计界面。
步骤二：编写如下事件过程
Private Sub Form1_Load(……) Handles MyBase.Load
Me.KeyPreview = True '窗体优先处理键盘事件
CheckBox1.Checked = True
CheckBox2.Checked = True
CheckBox3.Checked = True
End Sub
Private Sub Form1_KeyPress(……) Handles Me.KeyPress '如果所按键不在0~9之间，则忽略
If e.KeyChar < "0" Or e.KeyChar > "9" Then e.Handled = True
End If
End Sub
Private Sub CheckBox1_CheckedChanged(……) Handles CheckBox1.CheckedChanged
实验1----常用控件及属性设置
一、实验目的：
1.熟悉的启动与关闭.
2.怎样建立一个新的Windows应用程序.(特别注意文件名和保存地址)
3.熟悉窗体和控件(标签框、文本框、按钮)的属性、方法和事件。
4.怎样建立多行文本、带滚动条的文本、只读文本和口令控件,并把口令文本的内容显示在另一个标签中。
5.怎样使用窗体的Load事件。
6.怎样使用代码设置窗体标题栏和按钮的文字信息。
7.怎样隐藏和显示按钮。
8.熟悉应用程序的开发步骤。
9.用不同的方法打开已保存的应用程序。
二 综合实验一：
（1）界面如图:
图1 设计窗口 运行后的效果
（2）要求:
1. TextBox1设置为单行文本，Text属性清空； TextBox2设置为口令文本，Text属性清空；TextBox3设置为多行的带双滚动条的文本，Text属性清空.
2. Button1的Text属性设置为“显示密码” 。
3. 使用窗体的Load事件设置Button1和Button2的文本属性，分别为： ”显示密码”和 “修改留言本中的文字字体” ；
4. 编写Button1的鼠标单击事件，在label4中显示TextBox1的内容，同时隐藏Button3。
5. 编写Button2的鼠标单击事件，修改TextBox3的font属性为："宋体", 14,
FontStyle.Bold ；同时显示Button3。
6．编写Button3的鼠标单击事件，清空3个文本框， 并将光标（焦点）重新置入textbox1 中； 7．编写Button4的鼠标单击事件，关闭应用程序
8．（选作）编写Button5的鼠标单击事件，隐藏当前窗体form1, 显示form2窗体。同理，编写form2窗体中button1 的鼠标单击事件，隐藏当前窗体form2,
显示返回form1窗体。
