榆树 - 消息

---

消息是Elm架构中的一个组件。这些组件由视图生成，以响应用户与应用程序界面的交互。消息表示用户更改应用程序状态的请求。

句法

--Message Syntax
type Message = some_message1 |some_message2 ...|some_messageN

插图

以下示例是一个简单的计数器应用程序。当用户分别单击“添加”和“减去”按钮时，应用程序会将变量的值加 1 或减 1。

该应用程序将有 4 个组件。组件描述如下 -

信息

此示例的消息将是 -

type Message = Add | Subtract

模型

该模型代表应用程序的状态。在计数器应用中，模型定义如下；计数器的初始状态为零。

model = 0

看法

视图代表应用程序的视觉元素。该视图包含两个按钮 (+) 和 (-)。当用户分别单击 + 和 - 按钮时，视图会生成消息“添加”和“减去”。然后模型的修改值由视图显示。

view model =
-- invoke text function
h1[]
[   div[] [text "CounterApp from TutorialsPoint" ]
   ,button[onClick Subtract] [text "-"]
   ,div[][text (toString model)]
   ,button[onClick Add] [text "+"]
]

更新

该组件包含应该为视图生成的每条消息执行的代码。如下例所示 -

update msg model =
case msg of
Add -> model+1
Subtract -> model-1

把它们放在一起

步骤 1 - 创建文件夹MessagesApp 和文件 MessagesDemo.elm

步骤 2 - 在 elm 文件中添加以下代码 -

import Html exposing (..)
import Html.Events exposing(onClick)

model = 0 -- Defining the Model

--Defining the View

view model =
   h1[]
   [  div[] [text "CounterApp from TutorialsPoint" ]
      ,button[onClick Subtract] [text "-"]
      ,div[][text (toString model)]
      ,button[onClick Add] [text "+"]
   ]

--Defining the Messages

type Message = Add | Subtract

--Defining Update

update msg model =
case msg of
   Add -> model+1
   Subtract -> model-1

-- Define the main method
main =
   beginnerProgram
   {
      model=model
      ,view=view
      ,update=update
   }

步骤 3 - 在终端中执行elm make 命令。elm make 命令编译代码并从上面创建的 .elm 文件生成 HTML 文件。

C:\Users\dell\elm\MessagesApp> elm make .\MessageDemo.elm
Some new packages are needed. Here is the upgrade plan.

   Install:
      elm-lang/core 5.1.1
      elm-lang/html 2.0.0
      elm-lang/virtual-dom 2.0.4

Do you approve of this plan? [Y/n] y
Starting downloads...

   ΓùÅ elm-lang/html 2.0.0
   ΓùÅ elm-lang/virtual-dom 2.0.4

ΓùÅ elm-lang/core 5.1.1
Packages configured successfully!
Success! Compiled 38 modules.
Successfully generated index.html

步骤 4 - 打开index.html并验证工作情况，如下所示 -