微機(jī)原理課程設(shè)計(jì)報(bào)告書(shū)(完整版)
【正文】 l1(6).Caption = 1 And Label1(7).Caption = 5 And Label1(8).Caption = 1 And Label1(9).Caption = 0 And Label1(10).Caption = And Label1(11).Caption = ThenLabel1(6).Caption = 8: Label1(7).Caption = 2Label1(8).Caption = 5: Label1(9).Caption = 1Label1(10).Caption = : Label1(11).Caption = 2End IfEnd Sub Private Sub Command8_Click()counter1 = 0b = 0 = False = True = FalseLabel1(6).Caption = Label1(7).Caption = For i = 8 To 11 Label1(i).Caption = Next iEnd Sub Private Sub Command9_Click() = True = False = FalseFor i = 1 To 5 Label1(i).Caption = Next iLabel1(0).Caption = P.For j = 0 To 15Command1(j).Enabled = TrueNext jEnd Sub Private Sub Form_Load() = False = False End Sub Private Sub Timer1_Timer() If Label1(0).Caption = Then Label1(0).Caption = P. ElseIf Label1(0).Caption = P. Then Label1(0).Caption = End IfEnd Sub Private Sub Timer2_Timer()If Label1(0).Caption = And Label1(1).Caption = Then Label1(0).Caption = : Label1(1).Caption = ElseIf Label1(0).Caption = And Label1(1).Caption = Then Label1(0).Caption = : Label1(1).Caption = End IfFor j = 0 To 15Command1(j).Enabled = FalseNext jStatic counter As Integer counter = counter + 1 If counter = 14 Then = True = False For i = 0 To 5 Label1(i).Caption = Next i Label1(0).Caption = P. For j = 0 To 15 Command1(j).Enabled = True Next j End IfEnd Sub Private Sub Timer3_Timer()Label1(0).Caption = Label1(1).Caption = For Index = 0 To 15 Command1(Index).Enabled = FalseNext IndexEnd Sub Private Sub Timer4_Timer()If Label1(6).Caption = Then Label1(6).Caption = P.ElseIf Label1(6).Caption = P. Then Label1(6).Caption = End IfEnd Sub Private Sub Timer5_Timer()If Label1(6).Caption = And Label1(7).Caption = Then Label1(6).Caption = : Label1(7).Caption = ElseIf Label1(6).Caption = And Label1(7).Caption = Then Label1(6).Caption = : Label1(7).Caption = End IfFor i =
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1