学剑桥英语几岁开始好:如何编制软件并运行

来源:百度文库 编辑:杭州交通信息网 时间:2024/03/29 13:01:47

编程其实并不难,难的是设计。可以先从简单的入手,比如说QBASIC,或VB,数据库编程也要会一些。
  常用的句法和关键字是要记住的。通过编一些简单的小程序可以帮助记忆和理解。当然还要看一些简单的例子,最好是有注释的。网络上好多网站都有介绍的,非常适合学习。
  等你编程有了一定了解,也会一些技巧的时候,就可以设计一些稍大型的程序了。大的程序无非就是小程序的[整合],要合理地做好这一点,是需要经验和智慧的。有好多教材会有介绍,通常计算机的书都挺贵的,就看你是否真的需要买了,网络有一些下载的,但没有针对性,不一定好用。

  以下为时钟的VB代码

  Dim m_intYear As Integer
  Dim m_intMonth As Integer
  Dim m_intDay As Integer
  Dim m_blnYear As Boolean
  Private Sub Combo1_Click()
  m_intYear = Val(Combo1.Text)
  addDayCombo
  m_intDay = 1
  Combo3.Text = m_intDay
  WhatDay
  End Sub
  Private Sub Combo2_Click()
  m_intMonth = Val(Combo2.Text)
  addDayCombo
  m_intDay = 1
  Combo3.Text = m_intDay
  WhatDay
  End Sub
  Private Sub Combo3_Click()
  m_int = Val(Combo3.Text)
  WhatDay
  End Sub
  Private Sub Form_Load()
  Y
  N
  Combo1.Text = Year(Now)
  m_intYear = Val(Combo1.Text)
  Combo2.Text = Month(Now)
  m_intMonth = Val(Combo2.Text)
  addDayCombo
  Combo3.Text = Day(Now)
  m_intDay = Val(Combo3.Text)
  WhatDay
  End Sub
  Private Sub addCombo31()
  Combo3.Clear
  For i = 1 To 31
  Combo3.AddItem i
  Next i
  End Sub
  Private Sub addcombo30()
  Combo3.Clear
  For i = 1 To 30
  Combo3.AddItem i
  Next i
  End Sub

  Private Sub addCombo28()
  Combo3.Clear
  For i = 1 To 28
  Combo3.AddItem i
  Next i
  End Sub
  Private Sub addCombo29()
  Combo3.Clear
  For i = 1 To 29
  Combo3.AddItem i
  Next i
  End Sub
  Private Sub Y()
  Combo2.Clear
  For i = 1 To 12
  Combo2.AddItem i
  Next i
  End Sub
  Private Sub N()
  Combo1.Clear
  For i = 1950 To 2050
  Combo1.AddItem i
  Next i
  End Sub
  Sub blnYear()
  If m_intYear Mod 4 = 0 And m_intYear Mod 100 <> 0 Or m_intYear Mod 400 = 0 Then
  m_blnYear = True
  Else
  m_blnYear = False
  End If
  End Sub
  Sub add2Month()
  Combo3.Clear
  blnYear
  If m_blnYear Then
  addCombo29
  Else
  addCombo28
  End If
  End Sub
  Sub addDayCombo()
  Select Case m_intMonth
  Case 1, 3, 5, 7, 8, 12
  addCombo31
  Case 4, 6, 9, 11
  addcombo30
  Case 2
  add2Month
  End Select
  End Sub
  Sub WhatDay()
  Dim intWeek As Integer
  intWeek = Weekday(DateSerial(m_intYear, m_intMonth, m_intDay), vbMonday)
  Select Case intWeek
  Case 1
  Label6.Caption = "星期一"
  Case 2
  Label6.Caption = "星期二"
  Case 3
  Label6.Caption = "星期三"
  Case 4
  Label6.Caption = "星期四"
  Case 5
  Label6.Caption = "星期五"
  Case 6
  Label6.Caption = "星期六"
  Case 7
  Label6.Caption = "星期日"
  End Select
  End Sub

程序编写好,编译运行后会在创建工程的文件夹里有一个Debug的文件夹,里面有个.exe文件,哪个就是可以运行的软件,双击就可以运行。如果想做成可以安装的软件,可以用cifree软件进行打包。

对于新手来说这将是一个很难以理解的过程,建议到书店购买编程书籍,初学者建议使用VB语言,也就是Visual Basic。大书店一般都有!

我是来灌水的,并围观

听说这个帖子有bug?

在什么环境下?