Кнопочная форма аналог программы "Самый умный" - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 3.778 из 5
Похожие ответы