gen_fsm例子：code_lock

关键字: gen_fsm code_lock 改了一下代码，可以run了：

1. • %% code_lock.erl
   • -module(code_lock).
     
   • -behaviour(gen_fsm).
     
   •   
     
   • -export([start/1, button/1]).
     
   • -export([locked/2, open/2]).
     
   • -export([init/1, handle_event/3, handle_sync_event/4, handle_info/3, code_change/4, terminate/3]).
     
   •   
     
   • start(Code) ->
     
   •   gen_fsm:start_link({local, code_lock}, code_lock, Code, []).
     
   •   
     
   • button(Digit) ->
     
   •   gen_fsm:send_event(code_lock, {button, Digit}).
     
   •   
     
   • locked({button, Digit}, {SoFar, Code}) ->
     
   •   io:format("Now the code you input is: ~w~n", [SoFar ++ [Digit]]),
     
   •   case SoFar ++ [Digit] of
     
   •     Code ->
     
   •       io:format("Open!~n"),
     
   •       {next_state, open, {[], Code}, 3000};
     
   •     Incomplete when length(Incomplete) < length(Code) ->
     
   •       {next_state, locked, {Incomplete, Code}};
     
   •     _Wrong ->
     
   •       io:format("Wrong Code! Start Again!~n"),
     
   •       {next_state, locked, {[], Code}}
     
   •   end.
     
   •   
     
   • open(timeout, State) ->
     
   •   io:format("Lock!~n"),
     
   •   {next_state, locked, State}.
     
   •   
     
   • init(Code) ->
     
   •   {ok, locked, {[], Code}}.
     
   •   
     
   • handle_event(_A, _B, _C) ->
     
   •   {next_state, ok, ok}.
     
   •   
     
   • handle_sync_event(_A, _B, _C, _D) ->
     
   •   {reply, ok, ok, ok}.
     
   •   
     
   • handle_info(_A, _B, _C) ->
     
   •   {next_state, ok, ok}.
     
   •   
     
   • code_change(_A, _B, _C, _D) ->
     
   •   {ok, ok, ok}.
     
   •   
     
   • terminate(_A, _B, _C) ->
     
   •   ok.

编译运行：

1. • D:\erl\code>erl
     
   • Eshell V5.6.3 (abort with ^G)
     
   • 1> c(code_lock).
     
   • {ok,code_lock}
     
   • 2> code_lock:start([1,2,3]).
     
   • {ok,<0.36.0>}
     
   • 3> code_lock:button(1).
     
   • Now the code you input is: [1]
     
   • ok
     
   • 4> code_lock:button(2).
     
   • Now the code you input is: [1,2]
     
   • ok
     
   • 5> code_lock:button(3).
     
   • Now the code you input is: [1,2,3]
     
   • ok
     
   •   
     
   • 6>
     
   • 6> code_lock:button(1).
     
   • Now the code you input is: [1]
     
   • ok
     
   • 7> code_lock:button(2).
     
   • Now the code you input is: [1,2]
     
   • ok
     
   • 8> code_lock:button(2).
     
   • Now the code you input is: [1,2,2]
     
   • ok
     
   • Wrong Start
     
   • 9>

<script>window._bd_share_config={"common":{"bdSnsKey":{},"bdText":"","bdMini":"2","bdMiniList":false,"bdPic":"","bdStyle":"0","bdSize":"16"},"share":{}};with(document)0[(getElementsByTagName('head')[0]||body).appendChild(createElement('script')).src='http://bdimg.share.baidu.com/static/api/js/share.js?v=89860593.js?cdnversion='+~(-new Date()/36e5)];</script>

阅读(1112) | 评论(0) | 转发(0) |

0

上一篇：erlang客户端程序学习（三）

下一篇：erlang的运算符

相关热门文章

• 输错密码？这个 sudo 会“嘲讽...
• MCU进阶-kurento-之五: kurent...
• 记第一次lua和C互相调用的例子...
• PHP扩展memcached长连接实践...
• 【Android体系】Android基础知...

• linux 常见服务端口
• xmanager 2.0 for linux配置
• 【ROOTFS搭建】busybox的httpd...
• openwrt中luci学习笔记
• 什么是shell

• linux dhcp peizhi roc
• 关于Unix文件的软链接
• 求教这个命令什么意思，我是新...
• sed -e "/grep/d" 是什么意思...
• 谁能够帮我解决LINUX 2.6 10...

给主人留下些什么吧！~~

评论热议