Кнопочная форма аналог программы "Самый умный" - VB
Формулировка задачи:
Доброго времени суток, нужна Ваша помощь.
Задача:
Написать программу (можно не кнопочную, просто я более такого способа рационального не нашел) которая была бы аналогом программы "Самый умный" но не всю а именно финал, где есть табло (форма с кнопками) и они обозначены нейтральным цветом и вот сама проблема возникла:
1.Сделать кнопку которая покажет на время цвета кнопок так сказать для запоминания;
2. ну это скорее не проблема а как вариант сделать кнопку исчезающую после нажатия, а под ней label определенного цвета или кнопку принимающую цвет.
Если кто сможет сказать как проще буду признателен)
Решение задачи: «Кнопочная форма аналог программы "Самый умный"»
textual
Листинг программы
VERSION 5.00 Begin VB.Form Form29 Caption = "Form29" ClientHeight = 6315 ClientLeft = 120 ClientTop = 450 ClientWidth = 8205 LinkTopic = "Form1" ScaleHeight = 6315 ScaleWidth = 8205 StartUpPosition = 3 'Windows Default Begin VB.CommandButton Command36 Caption = "36" Height = 735 Left = 6720 TabIndex = 35 Top = 5040 Width = 1095 End Begin VB.CommandButton Command35 Caption = "35" Height = 735 Left = 5400 TabIndex = 34 Top = 5040 Width = 1095 End Begin VB.CommandButton Command34 Caption = "34" Height = 735 Left = 4080 TabIndex = 33 Top = 5040 Width = 1095 End Begin VB.CommandButton Command33 Caption = "33" Height = 735 Left = 2760 TabIndex = 32 Top = 5040 Width = 1095 End Begin VB.CommandButton Command32 Caption = "32" Height = 735 Left = 1440 TabIndex = 31 Top = 5040 Width = 1095 End Begin VB.CommandButton Command31 Caption = "31" Height = 735 Left = 120 TabIndex = 30 Top = 5040 Width = 1095 End Begin VB.CommandButton Command30 Caption = "30" Height = 735 Left = 6720 TabIndex = 29 Top = 4080 Width = 1095 End Begin VB.CommandButton Command29 Caption = "29" Height = 735 Left = 5400 TabIndex = 28 Top = 4080 Width = 1095 End Begin VB.CommandButton Command28 Caption = "28" Height = 735 Left = 4080 TabIndex = 27 Top = 4080 Width = 1095 End Begin VB.CommandButton Command27 Caption = "27" Height = 735 Left = 2760 TabIndex = 26 Top = 4080 Width = 1095 End Begin VB.CommandButton Command26 Caption = "26" Height = 735 Left = 1440 TabIndex = 25 Top = 4080 Width = 1095 End Begin VB.CommandButton Command25 Caption = "25" Height = 735 Left = 120 TabIndex = 24 Top = 4080 Width = 1095 End Begin VB.CommandButton Command24 Caption = "24" Height = 735 Left = 6720 TabIndex = 23 Top = 3120 Width = 1095 End Begin VB.CommandButton Command23 Caption = "23" Height = 735 Left = 5400 TabIndex = 22 Top = 3120 Width = 1095 End Begin VB.CommandButton Command22 Caption = "22" Height = 735 Left = 4080 TabIndex = 21 Top = 3120 Width = 1095 End Begin VB.CommandButton Command21 Caption = "21" Height = 735 Left = 2760 TabIndex = 20 Top = 3120 Width = 1095 End Begin VB.CommandButton Command20 Caption = "20" Height = 735 Left = 1440 TabIndex = 19 Top = 3120 Width = 1095 End Begin VB.CommandButton Command19 Caption = "19" Height = 735 Left = 120 TabIndex = 18 Top = 3120 Width = 1095 End Begin VB.CommandButton Command18 Caption = "18" Height = 735 Left = 6720 TabIndex = 17 Top = 2160 Width = 1095 End Begin VB.CommandButton Command17 Caption = "17" Height = 735 Left = 5400 TabIndex = 16 Top = 2160 Width = 1095 End Begin VB.CommandButton Command16 Caption = "16" Height = 735 Left = 4080 TabIndex = 15 Top = 2160 Width = 1095 End Begin VB.CommandButton Command15 Caption = "15" Height = 735 Left = 2760 TabIndex = 14 Top = 2160 Width = 1095 End Begin VB.CommandButton Command14 Caption = "14" Height = 735 Left = 1440 TabIndex = 13 Top = 2160 Width = 1095 End Begin VB.CommandButton Command13 Caption = "13" Height = 735 Left = 120 TabIndex = 12 Top = 2160 Width = 1095 End Begin VB.CommandButton Command12 Caption = "12" Height = 735 Left = 6720 TabIndex = 11 Top = 1200 Width = 1095 End Begin VB.CommandButton Command11 Caption = "11" Height = 735 Left = 5400 TabIndex = 10 Top = 1200 Width = 1095 End Begin VB.CommandButton Command10 Caption = "10" Height = 735 Left = 4080 TabIndex = 9 Top = 1200 Width = 1095 End Begin VB.CommandButton Command9 Caption = "9" Height = 735 Left = 2760 TabIndex = 8 Top = 1200 Width = 1095 End Begin VB.CommandButton Command8 Caption = "8" Height = 735 Left = 1440 TabIndex = 7 Top = 1200 Width = 1095 End Begin VB.CommandButton Command7 Caption = "7" Height = 735 Left = 120 TabIndex = 6 Top = 1200 Width = 1095 End Begin VB.CommandButton Command6 Caption = "6" Height = 735 Left = 6720 TabIndex = 5 Top = 240 Width = 1095 End Begin VB.CommandButton Command5 Caption = "5" Height = 735 Left = 5400 TabIndex = 4 Top = 240 Width = 1095 End Begin VB.CommandButton Command4 Caption = "4" Height = 735 Left = 4080 TabIndex = 3 Top = 240 Width = 1095 End Begin VB.CommandButton Command3 Caption = "3" Height = 735 Left = 2760 TabIndex = 2 Top = 240 Width = 1095 End Begin VB.CommandButton Command2 Caption = "2" Height = 700 Left = 1440 TabIndex = 1 Top = 240 Width = 1095 End Begin VB.CommandButton Command1 Caption = "1" Height = 735 Left = 120 TabIndex = 0 Top = 240 Width = 1095 End End Attribute VB_Name = "Form29" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Private Sub Command1_Click() End Sub Private Sub Command2_Click() End Sub Private Sub Command3_Click() End Sub Private Sub Command4_Click() End Sub Private Sub Command5_Click() End Sub Private Sub Command6_Click() End Sub Private Sub Command7_Click() End Sub Private Sub Command8_Click() End Sub Private Sub Command9_Click() End Sub Private Sub Command10_Click() End Sub Private Sub Command11_Click() End Sub Private Sub Command12_Click() End Sub Private Sub Command13_Click() End Sub Private Sub Command14_Click() End Sub Private Sub Command15_Click() End Sub Private Sub Command16_Click() End Sub Private Sub Command17_Click() End Sub Private Sub Command18_Click() End Sub Private Sub Command19_Click() End Sub Private Sub Command20_Click() End Sub Private Sub Command21_Click() End Sub Private Sub Command22_Click() End Sub Private Sub Command23_Click() End Sub Private Sub Command24_Click() End Sub Private Sub Command25_Click() End Sub Private Sub Command26_Click() End Sub Private Sub Command27_Click() End Sub Private Sub Command28_Click() End Sub Private Sub Command29_Click() End Sub Private Sub Command30_Click() End Sub Private Sub Command31_Click() End Sub Private Sub Command32_Click() End Sub Private Sub Command33_Click() End Sub Private Sub Command34_Click() End Sub Private Sub Command35_Click() End Sub Private Sub Command36_Click() End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д