En Chevere Mi So'

5.3.2 COSTOS DE SOFTWARE:

En nuestro proyecto aplicaremos un programa que permita estudiar la biblia de forma interactiva.

El programa no requiere de requisitos, así que estimamos que solo se invertirán $20.

5.3.3 OTROS COSTOS:

Pensamos muy concretamente que uno de los pocos gastos que se dará a la hora de la fabricación del software y la instalación del sistema se encontrará en la forma de distribuir el programa.

6.1 DISEÑO DE PANTALLAS:

A continuación presentaremos como está estructurado nuestro sistema, que no es más que una base de datos con algunas seguridades.

6.1.1 DISEÑO DE PANTALLA DE PRESENTACION:

2. DISEÑO DE PANTALLA DE CAPTURAS:

3. DISEÑO DE PANTALLA DE CONSULTA:

Tudiar

6.2 PROGRAMACIÓN:

Esta programación fue hecha con el fin de poder ayudar a estudiar la biblia de forma interactiva.

6.2.1. CÓDIGO FUENTE:

El código fuente se dividirá en las siguientes partes:

‘Cálculos Matemáticos.

Dim D As Double

Dim F As Double

Dim u As Double

Dim x As Double

Dim s As Double

Dim C As Double

Dim L As Single

Dim r As Single

Dim q As Double

Dim w As Double

Dim E As Double

Dim t As Double

Dim y As Double

u = aa.Text

x = bb.Text

s = cc.Text

C = dd.Text

D = u + x + s + C

F = D / 4

ee.Text = F

u = 0

x = 0

s = 0

C = 0

D = 0

F = 0

‘ Código de nuevos registros:

BASEDATOS

base.Errors.Clear

'On Error GoTo Error

base.Execute "INSERT INTO DATOS_PERSONALES" & "(cedula,apellido,nombre,sexo,edad,telefono,grado) VALUES " & " ('" & cedula & " ','" & apellido & " ','" & nombre & " ','" & sexo & " ','" & edad & " ','" &telefono& " ','" & grado & " ') ; "

BASEDATOS

base.Errors.Clear

base.Execute "INSERT INTO Tabla1" & "(aa,bb,cc,dd,ee,ff,gg,hh,ii,jj,kk,ll,mm,nn,ññ,oo,pp,qq,rr,ss,tt,uu,vv,ww,xx,yy,zz,aaa,bbb,ccc,ddd,eee,fff,ggg,hhh,iii,jjj,kkk,lll,mmm,nnn,ñññ,ooo,ppp,qqq,rrr,ced) VALUES " & " ('" &aa& " ','" &bb& " ','" & cc & " ','" &dd& " ','" &ee& " ','" &ff& " ','" &gg& " ','" &hh& " ','" & ii & " ','" &jj& " ','" &kk& " ','" & ll & " ','" & mm & " ','" &nn& " ','" &ññ& " ','" &oo& " ','" &pp& " ','" &qq& " ','" &rr& " ','" &ss& " ','" &tt& " ','" &uu& " ','" &vv& " ','" &ww& " ','" & xx & " ','" &yy& " ','" &zz& " ','" &aaa& " ','" &bbb& " ','" & ccc & " ','" &ddd& " ','" &eee& "','" &fff& " ','" &ggg& " ','" &hhh& " ','" & iii & " ','" &jjj& "','" &kkk& " ','" &lll& " ','" & mmm & " ','" &nnn& " ','" &ñññ& " ','" &ooo& " ','" &ppp& " ','" &qqq& " ','" &rrr& " ','" &ced& "') ; "

MsgBox "El Registro a sido grabado con exito", vbInformation

cedula = ""

apellido = ""

nombre = ""

sexo = ""

edad = ""

telefono = ""

grado = ""

aa = ""

bb = ""

cc = ""

dd = ""

ee = ""

ff = ""

gg = ""

hh = ""

ii = ""

jj = ""

kk = ""

ll = ""

mm = ""

nn = ""

ññ = ""

oo = ""

pp = ""

qq = ""

rr = ""

ss = ""

tt = ""

uu = ""

vv = ""

ww = ""

xx = ""

yy = ""

zz = ""

aaa = ""

bbb = ""

ccc = ""

ddd = ""

eee = ""

fff = ""

ggg = ""

hhh = ""

iii = ""

jjj = ""

kkk = ""

lll = ""

mmm = ""

nnn = ""

ñññ = ""

ooo = ""

ppp = ""

qqq = ""

rrr = ""

Código de búsqueda:

Dim r As ADODB.Recordset

Dim I As Integer

Dim y As Integer

Set r = New ADODB.Recordset

BASEDATOS

r.Open "DATOS_PERSONALES", base, adOpenKeyset, adLockOptimistic, adCmdTable

For I = 1 To r.RecordCount

If Combo1 = r!cedulaThen

apellido.Text = r!apellido

nombre.Text = r!nombre

sexo.Text = r!sexo

edad.Text = r!edad

telefono.Text = r!telefono

grado.Text = r!grado

End If

r.MoveNext

...