WebSVN – svnkaklik – Blame – /programy/inpout32.frm

Rev	Author	Line No.	Line
6	kaklik	1	`VERSION 5.00`
		2	`Begin VB.Form inpout32`
		3	`Caption = "Form1"`
		4	`ClientHeight = 4710`
		5	`ClientLeft = 915`
		6	`ClientTop = 1410`
		7	`ClientWidth = 4770`
		8	`LinkTopic = "Form1"`
		9	`PaletteMode = 1 'UseZOrder`
		10	`ScaleHeight = 4710`
		11	`ScaleWidth = 4770`
		12	`Begin VB.Timer Timer2`
		13	`Left = 2400`
		14	`Top = 3480`
		15	`End`
		16	`Begin VB.HScrollBar HScroll1`
		17	`Height = 375`
		18	`Left = 240`
		19	`Max = 500`
		20	`TabIndex = 17`
		21	`Top = 3000`
		22	`Value = 5`
		23	`Width = 1695`
		24	`End`
		25	`Begin VB.Timer Timer1`
		26	`Left = 360`
		27	`Top = 3480`
		28	`End`
		29	`Begin VB.CommandButton Command11`
		30	`Caption = "8"`
		31	`Height = 195`
		32	`Left = 4320`
		33	`TabIndex = 16`
		34	`Top = 2280`
		35	`Width = 135`
		36	`End`
		37	`Begin VB.CommandButton Command10`
		38	`Caption = "7"`
		39	`Height = 195`
		40	`Left = 4080`
		41	`TabIndex = 15`
		42	`Top = 2280`
		43	`Width = 135`
		44	`End`
		45	`Begin VB.CommandButton Command9`
		46	`Caption = "6"`
		47	`Height = 195`
		48	`Left = 3840`
		49	`TabIndex = 14`
		50	`Top = 2280`
		51	`Width = 135`
		52	`End`
		53	`Begin VB.CommandButton Command8`
		54	`Caption = "5"`
		55	`Height = 195`
		56	`Left = 3600`
		57	`TabIndex = 13`
		58	`Top = 2280`
		59	`Width = 135`
		60	`End`
		61	`Begin VB.CommandButton Command7`
		62	`Caption = "4"`
		63	`Height = 195`
		64	`Left = 3240`
		65	`TabIndex = 12`
		66	`Top = 2280`
		67	`Width = 135`
		68	`End`
		69	`Begin VB.CommandButton Command6`
		70	`Caption = "3"`
		71	`Height = 195`
		72	`Left = 3000`
		73	`TabIndex = 11`
		74	`Top = 2280`
		75	`Width = 135`
		76	`End`
		77	`Begin VB.CommandButton Command5`
		78	`Caption = "2"`
		79	`Height = 195`
		80	`Left = 2760`
		81	`TabIndex = 10`
		82	`Top = 2280`
		83	`Width = 135`
		84	`End`
		85	`Begin VB.CommandButton Command4`
		86	`Caption = "1"`
		87	`Height = 195`
		88	`Left = 2520`
		89	`TabIndex = 9`
		90	`Top = 2280`
		91	`Width = 135`
		92	`End`
		93	`Begin VB.TextBox Text13`
		94	`Height = 285`
		95	`Left = 3240`
		96	`TabIndex = 4`
		97	`Top = 1680`
		98	`Width = 495`
		99	`End`
		100	`Begin VB.TextBox Text12`
		101	`Height = 285`
		102	`Left = 3240`
		103	`TabIndex = 3`
		104	`Top = 1200`
		105	`Width = 495`
		106	`End`
		107	`Begin VB.TextBox Text10`
		108	`Height = 285`
		109	`Left = 3240`
		110	`TabIndex = 2`
		111	`Top = 240`
		112	`Width = 495`
		113	`End`
		114	`Begin VB.TextBox Text11`
		115	`Height = 285`
		116	`Left = 3240`
		117	`TabIndex = 1`
		118	`Top = 720`
		119	`Width = 495`
		120	`End`
		121	`Begin VB.Timer Timer_input`
		122	`Left = 1680`
		123	`Top = 120`
		124	`End`
		125	`Begin VB.TextBox Text1`
		126	`Height = 372`
		127	`Left = 960`
		128	`TabIndex = 0`
		129	`Top = 120`
		130	`Width = 615`
		131	`End`
		132	`Begin VB.Label Label13`
		133	`Caption = "13"`
		134	`Height = 375`
		135	`Left = 3840`
		136	`TabIndex = 8`
		137	`Top = 1680`
		138	`Width = 375`
		139	`End`
		140	`Begin VB.Label Label3`
		141	`Caption = "12"`
		142	`Height = 375`
		143	`Left = 3840`
		144	`TabIndex = 7`
		145	`Top = 1200`
		146	`Width = 375`
		147	`End`
		148	`Begin VB.Label Label2`
		149	`Caption = "10"`
		150	`Height = 375`
		151	`Left = 3840`
		152	`TabIndex = 6`
		153	`Top = 240`
		154	`Width = 375`
		155	`End`
		156	`Begin VB.Label Label1`
		157	`Caption = "11"`
		158	`Height = 255`
		159	`Left = 3840`
		160	`TabIndex = 5`
		161	`Top = 720`
		162	`Width = 255`
		163	`End`
		164	`End`
		165	`Attribute VB_Name = "inpout32"`
		166	`Attribute VB_GlobalNameSpace = False`
		167	`Attribute VB_Creatable = False`
		168	`Attribute VB_PredeclaredId = True`
		169	`Attribute VB_Exposed = False`
		170	`Dim pocitadlo`
		171	`Dim stare_cislo`
		172
		173	`Private Sub Command10_Click()`
		174	`out &H40`
		175	`End Sub`
		176
		177	`Private Sub Command11_Click()`
		178	`out &H80`
		179	`End Sub`
		180
		181	`Private Sub Command2_Click()`
		182	`out &HFF`
		183	`Timer1.Enabled = True`
		184	`End Sub`
		185
		186	`Private Sub Command3_Click()`
		187	`out 3`
		188	`Timer1.Enabled = True`
		189	`End Sub`
		190
		191	`Private Sub Command4_Click()`
		192	`out &H1`
		193	`End Sub`
		194
		195	`Private Sub Command5_Click()`
		196	`out &H2`
		197	`End Sub`
		198
		199	`Private Sub Command6_Click()`
		200	`out &H4`
		201	`End Sub`
		202
		203	`Private Sub Command7_Click()`
		204	`out &H8`
		205	`End Sub`
		206
		207	`Private Sub Command8_Click()`
		208	`out &H10`
		209	`End Sub`
		210
		211	`Private Sub Command9_Click()`
		212	`out &H20`
		213	`End Sub`
		214
		215	`Private Sub Form_Load()`
		216	`Timer_input.Interval = 100`
		217	`Timer_input.Enabled = True`
		218	`stare_cislo = HScroll1.Value`
		219	`End Sub`
		220
		221	`Private Sub HScroll1_Change()`
		222	`If HScroll1.Value < stare_cislo Then`
		223	`Timer1.Interval = 1`
		224	`Timer1.Enabled = True`
		225	`End If`
		226	`If HScroll1.Value > stare_cislo Then`
		227	`Timer2.Interval = 1`
		228	`Timer2.Enabled = True`
		229	`End If`
		230	`stare_cislo = HScroll1.Value`
		231	`End Sub`
		232
		233	`Private Sub Timer_input_Timer()`
		234	`Text1.Text = inp`
		235	`Text10.Text = inp10`
		236	`Text11.Text = inp11`
		237	`Text12.Text = inp12`
		238	`Text13.Text = inp13`
		239	`End Sub`
		240
		241	`Private Sub Timer1_Timer()`
		242	`Select Case pocitadlo`
		243	`Case 1`
		244	`Call Command8_Click`
		245	`Case 2`
		246	`Call Command10_Click`
		247	`Case 3`
		248	`Call Command9_Click`
		249	`Case 4`
		250	`Call Command11_Click`
		251	`Timer1.Enabled = False`
		252	`pocitadlo = 0`
		253	`End Select`
		254	`pocitadlo = pocitadlo + 1`
		255	`End Sub`
		256
		257	`Private Sub Timer2_Timer()`
		258	`Select Case pocitadlo`
		259	`Case 1`
		260	`Call Command11_Click`
		261	`Case 2`
		262	`Call Command9_Click`
		263	`Case 3`
		264	`Call Command10_Click`
		265	`Case 4`
		266	`Call Command8_Click`
		267	`Timer2.Enabled = False`
		268	`pocitadlo = 0`
		269	`End Select`
		270	`pocitadlo = pocitadlo + 1`
		271	`End Sub`

Subversion Repositories svnkaklik

(root)/programy/inpout32.frm @ 301 – Rev