0,0 → 1,271 |
VERSION 5.00 |
Begin VB.Form inpout32 |
Caption = "Form1" |
ClientHeight = 4710 |
ClientLeft = 915 |
ClientTop = 1410 |
ClientWidth = 4770 |
LinkTopic = "Form1" |
PaletteMode = 1 'UseZOrder |
ScaleHeight = 4710 |
ScaleWidth = 4770 |
Begin VB.Timer Timer2 |
Left = 2400 |
Top = 3480 |
End |
Begin VB.HScrollBar HScroll1 |
Height = 375 |
Left = 240 |
Max = 500 |
TabIndex = 17 |
Top = 3000 |
Value = 5 |
Width = 1695 |
End |
Begin VB.Timer Timer1 |
Left = 360 |
Top = 3480 |
End |
Begin VB.CommandButton Command11 |
Caption = "8" |
Height = 195 |
Left = 4320 |
TabIndex = 16 |
Top = 2280 |
Width = 135 |
End |
Begin VB.CommandButton Command10 |
Caption = "7" |
Height = 195 |
Left = 4080 |
TabIndex = 15 |
Top = 2280 |
Width = 135 |
End |
Begin VB.CommandButton Command9 |
Caption = "6" |
Height = 195 |
Left = 3840 |
TabIndex = 14 |
Top = 2280 |
Width = 135 |
End |
Begin VB.CommandButton Command8 |
Caption = "5" |
Height = 195 |
Left = 3600 |
TabIndex = 13 |
Top = 2280 |
Width = 135 |
End |
Begin VB.CommandButton Command7 |
Caption = "4" |
Height = 195 |
Left = 3240 |
TabIndex = 12 |
Top = 2280 |
Width = 135 |
End |
Begin VB.CommandButton Command6 |
Caption = "3" |
Height = 195 |
Left = 3000 |
TabIndex = 11 |
Top = 2280 |
Width = 135 |
End |
Begin VB.CommandButton Command5 |
Caption = "2" |
Height = 195 |
Left = 2760 |
TabIndex = 10 |
Top = 2280 |
Width = 135 |
End |
Begin VB.CommandButton Command4 |
Caption = "1" |
Height = 195 |
Left = 2520 |
TabIndex = 9 |
Top = 2280 |
Width = 135 |
End |
Begin VB.TextBox Text13 |
Height = 285 |
Left = 3240 |
TabIndex = 4 |
Top = 1680 |
Width = 495 |
End |
Begin VB.TextBox Text12 |
Height = 285 |
Left = 3240 |
TabIndex = 3 |
Top = 1200 |
Width = 495 |
End |
Begin VB.TextBox Text10 |
Height = 285 |
Left = 3240 |
TabIndex = 2 |
Top = 240 |
Width = 495 |
End |
Begin VB.TextBox Text11 |
Height = 285 |
Left = 3240 |
TabIndex = 1 |
Top = 720 |
Width = 495 |
End |
Begin VB.Timer Timer_input |
Left = 1680 |
Top = 120 |
End |
Begin VB.TextBox Text1 |
Height = 372 |
Left = 960 |
TabIndex = 0 |
Top = 120 |
Width = 615 |
End |
Begin VB.Label Label13 |
Caption = "13" |
Height = 375 |
Left = 3840 |
TabIndex = 8 |
Top = 1680 |
Width = 375 |
End |
Begin VB.Label Label3 |
Caption = "12" |
Height = 375 |
Left = 3840 |
TabIndex = 7 |
Top = 1200 |
Width = 375 |
End |
Begin VB.Label Label2 |
Caption = "10" |
Height = 375 |
Left = 3840 |
TabIndex = 6 |
Top = 240 |
Width = 375 |
End |
Begin VB.Label Label1 |
Caption = "11" |
Height = 255 |
Left = 3840 |
TabIndex = 5 |
Top = 720 |
Width = 255 |
End |
End |
Attribute VB_Name = "inpout32" |
Attribute VB_GlobalNameSpace = False |
Attribute VB_Creatable = False |
Attribute VB_PredeclaredId = True |
Attribute VB_Exposed = False |
Dim pocitadlo |
Dim stare_cislo |
|
Private Sub Command10_Click() |
out &H40 |
End Sub |
|
Private Sub Command11_Click() |
out &H80 |
End Sub |
|
Private Sub Command2_Click() |
out &HFF |
Timer1.Enabled = True |
End Sub |
|
Private Sub Command3_Click() |
out 3 |
Timer1.Enabled = True |
End Sub |
|
Private Sub Command4_Click() |
out &H1 |
End Sub |
|
Private Sub Command5_Click() |
out &H2 |
End Sub |
|
Private Sub Command6_Click() |
out &H4 |
End Sub |
|
Private Sub Command7_Click() |
out &H8 |
End Sub |
|
Private Sub Command8_Click() |
out &H10 |
End Sub |
|
Private Sub Command9_Click() |
out &H20 |
End Sub |
|
Private Sub Form_Load() |
Timer_input.Interval = 100 |
Timer_input.Enabled = True |
stare_cislo = HScroll1.Value |
End Sub |
|
Private Sub HScroll1_Change() |
If HScroll1.Value < stare_cislo Then |
Timer1.Interval = 1 |
Timer1.Enabled = True |
End If |
If HScroll1.Value > stare_cislo Then |
Timer2.Interval = 1 |
Timer2.Enabled = True |
End If |
stare_cislo = HScroll1.Value |
End Sub |
|
Private Sub Timer_input_Timer() |
Text1.Text = inp |
Text10.Text = inp10 |
Text11.Text = inp11 |
Text12.Text = inp12 |
Text13.Text = inp13 |
End Sub |
|
Private Sub Timer1_Timer() |
Select Case pocitadlo |
Case 1 |
Call Command8_Click |
Case 2 |
Call Command10_Click |
Case 3 |
Call Command9_Click |
Case 4 |
Call Command11_Click |
Timer1.Enabled = False |
pocitadlo = 0 |
End Select |
pocitadlo = pocitadlo + 1 |
End Sub |
|
Private Sub Timer2_Timer() |
Select Case pocitadlo |
Case 1 |
Call Command11_Click |
Case 2 |
Call Command9_Click |
Case 3 |
Call Command10_Click |
Case 4 |
Call Command8_Click |
Timer2.Enabled = False |
pocitadlo = 0 |
End Select |
pocitadlo = pocitadlo + 1 |
End Sub |