農歷公歷轉換(六)

本論文在其他論文欄目，由論文格式網(wǎng)整理,轉載請注明來源www.donglienglish.cn,更多論文,請點論文格式范文查看
    tiAo = False
    jiSuan = False
'-----------------------------------------------
    Picture4.Visible = False
    Picture5.Visible = False
'---------------------------------------
'計算器變量初始化
    s_mem_B = False
    S_mem = 0
    chk = 0
    e = ""
    f = ""
    op = ""
    txtDisp.Text = "0"
    g = 1
    ShowNumFun Pt, wPw2(3), 1
    ShowNumARG Pt, wPw1(3), 20
'-----------------------------------------
fhSec3 = 0
color_index = 1
jS = 0
picScroll.ForeColor = vbRed
picScroll.FontSize = 8
Picture2.Visible = False
color1 = 1
flAge = False
shxing
'=========================================
Text1.Text = Year(Date)
Text2.Text = Month(Date)
Text3.Text = Day(Date)
        txt_Sub
        disPlay (Date)
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button = 1 Then
           Dim ReturnVal As Long
           x = ReleaseCapture()
           ReturnVal = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
    End If
End Sub
Private Sub Gz_Click()
    End
End Sub
Private Sub picScroll_Click()
   Picture2.Visible = True
       RunMain Picture2
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button = 1 Then
           Dim ReturnVal As Long
           x = ReleaseCapture()
           ReturnVal = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
    End If

End Sub
Private Sub Picture2_Click()
Picture2.Visible = False
      RunMain picScroll
End Sub
Private Sub Picture4_Click()
   Timer3.Enabled = True
   Timer4.Enabled = False
End Sub
Private Sub Picture5_Click()
Pt.Visible = False
Timer6.Enabled = True
Timer5.Enabled = False
Timer1.Enabled = True
Timer8.Enabled = False
End Sub
Private Sub Picture5_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
    Case 13
        cmdPM_Click
    Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57
        cmdNum_Click (KeyAscii - 48)
    Case 46
        cmdPt_Click
    Case 42
        cmdOp_Click (2)
    Case 43
        cmdOp_Click (0)
    Case 45
        cmdOp_Click (1)
    Case 47
        cmdOp_Click (3)
    Case Else
         KeyAscii = 0
End Select
End Sub
Private Sub Picture8_Click()
Picture8.Visible = False
End Sub
Private Sub Pt_Click()
Timer6.Enabled = True
Timer5.Enabled = False
Pt.Visible = False
Timer1.Enabled = True
Timer8.Enabled = False
End Sub
Private Sub Text1_Change()
    txt_Sub
    s_Disp
End Sub
Private Sub Text2_Change()
        txt_Sub
        If (Val(Text3.Text) > UpDown3.Max) Then
           Text3.Text = Str(UpDown3.Max)
        End If
        s_Disp
End Sub
Private Sub Text3_Change()
      s_Disp
End Sub
Private Sub Timer1_Timer()
   Dim textTime As String, h As Integer, m As Integer, s As Integer
   Dim hh As String, mm As String, ss As String, zIs As Integer
        fhHour = Hour(Now)
        fhMin = Minute(Now)
        fhSec = Second(Now)
        If (fhHour Mod 2) = 1 Then
          zIs = (fhHour + 1) / 2
        Else
          If fhHour = 0 Then
            zIs = 12
          Else
            zIs = fhHour / 2
          End If
        End If
    G_z.Caption = ziShi + Zhi(zIs - 1) + "時"
    If (fhHour < 10) Then
        fhHour1 = 0
        fhHour2 = fhHour
    Else
        fhHour1 = Int(fhHour / 10)
        fhHour2 = fhHour - fhHour1 * 10
    End If

    If (fhMin < 10) Then
        fhMin1 = 0
        fhMin2 = fhMin
    Else
        fhMin1 = Int(fhMin / 10)
        fhMin2 = fhMin - fhMin1 * 10
    End If
    If (fhSec < 10) Then
        fhSec1 = 0
        fhSec2 = fhSec
    Else

首頁上一頁 3 4 5 6 7 8 9 下一頁尾頁 6/10/10

相關論文


上一篇：遙控報警器開題報告	下一篇：基于混和建模理論的動力傳動系統(tǒng)..

Tags：農歷公歷轉換

【收藏】【返回頂部】