Red de conocimiento informático - Descarga de software - Usa VB para programar una computadora simple

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