关于C#打字练习程序的字符串对照功能的实现 10
(1)Form1窗体设计界面:打字练习。(2)程序运行时,“开始”按钮和“交卷”按钮不可用;先由用户设置“字符数”(最大值为100),当用户单击“确认”按钮时,“开始”按...
(1)Form1窗体设计界面:打字练习。(2)程序运行时,“开始”按钮和“交卷”按钮不可用;先由用户设置“字符数”(最大值为100),当用户单击“确认”按钮时,“开始”按钮可用;(3)用户单击“开始”按钮后,在窗体上方的文本框中随机生成一段字符串序列显示在窗体上方的只读文本框中,这段文本只能由大小写字母、数字、空格组成;同时,计时开始,倒计时1分30秒;“交卷”按钮可用;提示:可创建一个包含26个大写、小写字母、10个数字和空格的字符数组,然后使用循环程序形成随机字符串序列;
(3)用户对照随机字符串需要在下方的文本框中输入对应字符,若错误,以红色字体显示;当用户单击“交卷”按钮时,弹出对话框,显示结果(包含错误的字符数);
窗体设计: 展开
(3)用户对照随机字符串需要在下方的文本框中输入对应字符,若错误,以红色字体显示;当用户单击“交卷”按钮时,弹出对话框,显示结果(包含错误的字符数);
窗体设计: 展开
3个回答
展开全部
直接贴代码给你吧
procedure TForm1.btnSubmitClick(Sender: TObject);
var
v_strTmpOld,v_strTmpNew:string;
v_Index,v_ErrCnt:Integer;
begin
v_strTmpOld := Trim(RichEdit1.text); //获取只读文本框字符
v_strTmpNew := Trim(RichEdit2.Text); //获取输入文本框字符
v_ErrCnt := 0; //错误字符计数
//遍历只读文本框字符,一一进行字符串比较
for v_Index := 1 to Length(v_strTmpOld) do
begin
if Length(v_strTmpNew) >= v_Index then
begin
if v_strTmpNew[v_Index] <> v_strTmpOld[v_Index] then
begin
Inc(v_ErrCnt);
end;
end else
begin
Inc(v_ErrCnt);
end;
end;
if v_ErrCnt > 0 then
begin
RichEdit2.Font.Color := clRed;
ShowMessage('输入的字符有误,错误字符数:' + IntToStr(v_ErrCnt));
end else
begin
ShowMessage('提交成功');
end;
end;
procedure TForm1.btnSubmitClick(Sender: TObject);
var
v_strTmpOld,v_strTmpNew:string;
v_Index,v_ErrCnt:Integer;
begin
v_strTmpOld := Trim(RichEdit1.text); //获取只读文本框字符
v_strTmpNew := Trim(RichEdit2.Text); //获取输入文本框字符
v_ErrCnt := 0; //错误字符计数
//遍历只读文本框字符,一一进行字符串比较
for v_Index := 1 to Length(v_strTmpOld) do
begin
if Length(v_strTmpNew) >= v_Index then
begin
if v_strTmpNew[v_Index] <> v_strTmpOld[v_Index] then
begin
Inc(v_ErrCnt);
end;
end else
begin
Inc(v_ErrCnt);
end;
end;
if v_ErrCnt > 0 then
begin
RichEdit2.Font.Color := clRed;
ShowMessage('输入的字符有误,错误字符数:' + IntToStr(v_ErrCnt));
end else
begin
ShowMessage('提交成功');
end;
end;
追问
大概可以看得懂,但是用C#的语言要怎么写啊。。。。。procedure不是存储过程么。。。。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
很好实现。。。。文本框按键事件 处理即可
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询