| 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 |