学剑桥英语几岁开始好:如何编制软件并运行
来源:百度文库 编辑:杭州交通信息网 时间: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?
在什么环境下?