Usa VB para programar una computadora simple
El contenido de los dos archivos se envía más tarde. Usted crea dos archivos de texto y los nombra de acuerdo con esos dos archivos, abre el código correspondiente con el Bloc de notas y lo pega en él. para ejecutar project1. El archivo vbp se puede compilar en un archivo exe o ejecutar directamente.
Escribí una calculadora para ti con un código muy simple. Hay mucho código escrito a mano.
Dim mem1 As Long, mem2 As Long, mem3 As Long
Dim calc As Integer
Subcomando privado1_Click(Indexar como entero)
Texto1.Texto = Texto1.Texto e índice
Subcomando final
Subcomando privado2_Click(Índice como entero)
calc = Índice
mem1 = Text1.Text: Text1.Text = ""
End Sub
Subcomando privado3_Click(Índice como entero)
Seleccionar índice de casos
Caso 0
Texto1.Text = ""
mem1 = 0: mem2 = 0: mem3 = 0
Caso 1
Texto1.Texto = Texto1.Texto & "."
Caso 2
mem2 = Texto1.Texto: Texto1.Texto = ""
Seleccione Caso calc
Caso 0 '+
mem3 = mem1 + mem2
Caso 1 '-
mem3 = mem1 - mem2
Caso 2'*
mem3 = mem1 * mem2
Caso 3'/
mem3 = mem1 / mem2
End Select
Text1.Text = mem3
End Select
End Sub
El siguiente es el contenido completo del archivo de código de la calculadora - ----------------------------------
Porque Baidu sabía que podía no se puede cargar ni comprimir, no tuvo más remedio que comprimirlo. Se le ha enviado el código de texto del archivo del proyecto.
El siguiente es el contenido del archivo Project1.vbp
Type=Exe
Form=Form1.frm
Reference=* \G{ 00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\STDOLE2.TLB#OLE Automatización
Inicio="Form1"
Command32=" "
Nombre="Proyecto1"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName=" BaterStudio"
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing =0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP =0
StartMode=0
Unattended=0
Retenido=0
ThreadPerObject=0
MaxNumberOfThreads =1
[MS Transaction Server]
AutoRefresh=1
El siguiente es el contenido del archivo, incluida la información del botón en el archivo Form1.frm
VERSIÓN 5.00
Comenzar VB.Form Form1
Caption = "Form1"
ClientHeight = 5835
ClientLeft = 60
ClientTop = 345
ClientWidth = 4380
LinkTopic = "Form1"
ScaleHeight = 5835
ScaleWidth = 4380
StartUpPosition = 3 'Predeterminado de Windows
Comenzar VB.CommandButton Command3
Caption = "="
Alto = 615
Índice = 2
Izquierda = 1920
TabIndex = 17
Arriba = 4440
Ancho =
615
Fin
Inicio VB.CommandButton Command3
Título = "."
Alto = 615
Índice = 1
Izquierda = 1200
TabIndex = 16
Superior = 4440
Ancho = 615
Fin
Comenzar VB.CommandButton Command3
Título = "C"
Alto = 615
Índice = 0
Izquierda = 480
TabIndex = 15
Arriba = 4440
Ancho = 615
Fin
Comenzar VB.CommandButton Command2
Título = "÷"
Alto = 615
Índice = 3
Izquierda = 3360
TabIndex = 14
Superior = 3120
Ancho = 615
Fin
Comenzar VB.CommandButton Command2
Título = "×"
Alto = 615
Índice = 2
Izquierda = 3360
TabIndex = 13
Top = 2400
Ancho = 615
Fin
Comenzar VB.CommandButton Command2
Caption = "- "
Altura = 615
Índice = 1
Izquierda = 3360
TabIndex = 12
Arriba = 1680
p>
Ancho = 615
Fin
Inicio VB.CommandButton Command2
Título = "+"
Alto = 615
Índice = 0
Izquierda = 3360
TabIndex = 11
Superior = 960
Ancho = 615
Fin
Inicio VB.CommandButton Comando1
Título = "9"
Alto = 615
Índice = 9
Izquierda = 1920
TabIndex = 10
Arriba = 960
Ancho = 615
Fin
Comenzar VB.CommandButton Comando1
Título = "8"
Alto = 615
Índice = 8
Izquierda = 1200
TabIndex = 9
Arriba = 960
Ancho = 615
Fin
Inicio VB.CommandButton Comando1
Título = "7"
Alto = 615
Índice = 7
Izquierda = 480
TabIndex = 8
Superior = 960
Ancho = 615
Fin
Comenzar VB.CommandButton Comando1
Título = "6"
Alto = 615
Índice = 6
Izquierda = 1920
TabIndex = 7
Arriba
= 1680
Ancho = 615
Fin
Inicio VB.CommandButton Comando1
Título = "5"
Altura = 615
Índice = 5
Izquierda = 1200
TabIndex = 6
Arriba = 1680
Ancho = 615
Fin
Inicio VB.CommandButton Comando1
Título = "4"
Alto = 615
Índice = 4
Izquierda = 480
TabIndex = 5
Superior = 1680
Ancho = 615
Fin
Comienzo VB.CommandButton Comando1
Título = "3"
Alto = 615
Índice = 3
Izquierda = 1920
TabIndex = 4
Superior = 2400
Ancho = 615
Fin
Iniciar VB.CommandButton Comando1
Título = "2"
Alto = 615
Índice = 2
Izquierda = 1200
TabIndex = 3
Superior = 2400
Ancho = 615
Fin
Comenzar VB.CommandButton Comando1
Título = "1"
Alto = 615
Índice = 1
Izquierda = 480
TabIndex
= 2
Superior = 2400
Ancho = 615
Fin
Inicio VB.CommandButton Comando1
Título = "0"
Altura = 615
Índice = 0
Izquierda = 480
TabIndex = 1
Superior = 3120
Ancho = 615
Fin
Inicio VB.TextBox Texto1
Alto = 285
Izquierda = 480
TabIndex = 0
Arriba = 240
Ancho = 3495
Fin
Fin
Atributo VB_Name = "Form1"
Atributo VB_GlobalNameSpace = False
Atributo VB_Creatable = False
Atributo VB_PredeclaredId = True
Atributo VB_Exposed = False
Dim mem1 As Long, mem2 As Long, mem3 As Long
Atenuar cálculo como entero
Subcomando privado1_Click(Indexar como Entero)
Texto1.Texto = Texto1.Texto e índice
End Sub
Subcomando privado2_Click(Indexar como entero)
calc = Índice
mem1 = Texto1.Texto: Texto1.Text = ""
Fin Sub
Subcomando privado3_Click(Índice como entero)
Seleccionar índice de casos
Caso 0
Texto1.Text = ""
mem1 = 0: mem2 = 0: mem3 = 0
Caso 1
Texto1.Texto = Texto1.Texto & "."
Caso 2
mem2 = Texto1.Texto: Texto1.Texto = ""
Seleccionar Caso
calc
Caso 0 '+
mem3 = mem1 + mem2
Caso 1 '-
mem3 = mem1 - mem2
Caso 2 '*
mem3 = mem1 * mem2
Caso 3 '/
mem3 = mem1 / mem2
Finalizar selección
Text1.Text = mem3
Finalizar selección
Fin Sub