Fortran Coder

查看: 8538|回复: 3
打印 上一主题 下一主题

[绘图界面库] 自己制作的winteracter小教程

[复制链接]

66

帖子

16

主题

0

精华

专家

F 币
452 元
贡献
271 点
跳转到指定楼层
楼主
发表于 2016-8-22 12:08:25 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 大头鼹鼠 于 2016-9-8 16:58 编辑

                                                                                    利用winacter实现用户登录与软件操作
看本教程前请先学习 http://fcode.cn/guide-80-1.html 入门指导,本教程的主要目的是开发软件的登录窗口,某些设备中的软件在操作的时候是需要验证用户与密码的,这样可以追溯软件的操作。
在学习winteracter以及fortran中得到了《楚香饭》大力支持,在此表示由衷的谢意

1)首先利用winteracter创建登录窗口的对话框,因为是登录框,所以不需要给登录框添加标题和系统工具栏

2)创建字符串型的输入框,分别为用户用和密码的输入,同时创建登录按钮(IDOK)和取消按钮(IDF_CANCLE),然后将username和pasword对应的输入框中的文字清除,登录框可以可以加入一些图片或3D的按钮,大家可以尝试使其看起来很漂亮


3)创建主运算程序的对话框,三个输入框的类型的都是Real型的,添加运行按钮(IDRUN)和取消按钮(IDCANCEL),三个Real类型的框依次是IDF_real1,IDF_real2,IDF_real3



4)然后在VS中编译,并运算
4-1)输入的密码不正确

4-2)输入密码真确并显示计算结果


5)以下是文件的代码

[Fortran] 纯文本查看 复制代码
 PROGRAM PROGRESS
        !
              USE WINTERACTER
              USE RESID
        !
              IMPLICIT NONE
        !
        !  Number of iterations parameter
              TYPE(WIN_MESSAGE)  :: MESSAGE
              LOGICAL            :: QUIT=.FALSE.,login=.false.
              INTEGER            ::ITYPE
              CHARACTER(len=10)  ::USERNAME,PASSWORD  
              REAL               :: NUM1,NUM2,RES_NUM

        !  Initialise Winteracter 初始化窗口
        !
              CALL WInitialise()
        !
        !  The root window is not needed for this demonstration, so hide it.
        !
              CALL WindowOpen(HideWindow)
              
        
        
        
!       !登录窗口界面
!        
           CALL WDialogLoad(IDD_DIALOG001)
           CALL WDialogShow(itype=Modeless)
        DO WHILE(.NOT.LOGIN)   
           CALL WMessage(ITYPE,MESSAGE) 
            SELECT CASE (ITYPE)
              CASE (PushButton)    
                  SELECT CASE (MESSAGE%VALUE1)  
                  CASE (IDOK) 
                       CALL WDialogGetString(IDF_STRING1,USERNAME)      
                       CALL WDialogGetString(IDF_STRING2,PASSWORD) 
                          IF((PASSWORD=="admin").and.(USERNAME=="admin")) then  !判断密码是否正确,也可以将密码放入数组中,
                           !这样可以实现多用户登录                         
                          login=.TRUE.
                          ELSE
                           CALL WMessageBox(OKONLY,ExclamationIcon,CommonOK,'Username or Password is not correct,please try again','Caution')    !密码不正确的提示
                           login=.false.  !密码不对返回再次输入
                          end if      
                   CASE (IDF_CANCLE)   !不登录软件,直接退出   
                     stop     
                 END SELECT
            END SELECT
         END DO             
         CALL WDialogUnload()  !这个步骤很重要即登录窗口登录后,验证密码无误将登录窗口关闭
         
         
        !主程序窗口
    
            CALL WDialogLoad(IDD_DIALOG002)
            
            CALL WDialogShow(itype=Modeless)
    
       !****************************************************
        !****************************************************
100        DO WHILE(.NOT.QUIT)    
              CALL WMessage(ITYPE,MESSAGE)          
              SELECT CASE (ITYPE)
              CASE (PushButton)  
                  SELECT CASE (MESSAGE%VALUE1)  
                  CASE (IDRUN) 
                   CALL WDialogGetReal(IDF_real1,num1)    !**** 
                   CALL WDialogGetReal(IDF_real2,num2)    !这两个密令用来获取输入的数据
                   RES_NUM=num1+num2                      !将输入的数据相加
                    CALL WDialogPutReal(IDF_real3,RES_NUM) !将结果输出到结果框中
                    QUIT=.FALSE. 
                   CASE (IDCANCEL)
                    QUIT=.TRUE. 
                  END SELECT
              END SELECT
           END DO
              CALL WindowClose()
              STOP
            END PROGRAM PROGRESS

评分

参与人数 1F 币 +5 贡献 +5 收起 理由
978142355 + 5 + 5 很给力!

查看全部评分

分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

21

帖子

4

主题

0

精华

熟手

F 币
149 元
贡献
78 点

规矩勋章爱心勋章

沙发
发表于 2016-9-6 14:17:01 | 只看该作者
我喜欢这篇,以后看看

66

帖子

16

主题

0

精华

专家

F 币
452 元
贡献
271 点
板凳
 楼主| 发表于 2016-9-8 17:03:27 | 只看该作者
渡箭 发表于 2016-9-6 14:17
我喜欢这篇,以后看看

编写软件的时候一定要多看 winteracter的help理解它里面子程序的意思,可以事半功倍

1

帖子

0

主题

0

精华

新人

F 币
13 元
贡献
2 点
地板
发表于 2020-3-26 13:30:45 | 只看该作者
请问有winacter的下载资源么
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-11-1 07:19

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表