UNIVERSIDAD NACIONAL AUTONOMA DE MÉXICO
FACULTAD DE ESTUDIOS SUPERIORES CUAUTITLAN
LICENCIATURA: INGENIERIA EN TELECOMUNICACIONES, SISTEMAS Y ELECTRÓNICA
ASIGNATURA: Ingeniería de Software (111-36)
PROFESOR:
Mtro Alejandro Valdez Santamaria.
SEMESTRE:
2025-11
CONTENIDO TEMÁTICO
1. INTRODUCCIÓN AL DESARROLLO DE SISTEMAS
2. ANÁLISIS DE SISTEMAS
3. ANÁLISIS ESTRUCTURADO MODERNO
4. DISEÑO DE SISTEMAS
5. DISEÑO ESTRUCTURADO MODERNO
6. HERRAMIENTAS CASE
7. ELABORACIÓN DE PROTOTIPOS
8. ESPECIFICACIÓN DE PROGRAMAS
Gifs animados
Protector de Estrellas
Private Sub Command1_Click()
Dim art As String
Dim precio As String
Dim exi As String
art = InputBox("Agrege su nuevo producto", "Nuevo producto")
If art <> "" Then
lista.AddItem art
total.Caption = lista.ListCount
Else
MsgBox "No ingresaste ningun producto", , "PRECAUCION"
GoTo fin
End If
regresa:
precio = InputBox("Ingrese su precio", "Nuevo producto")
If precio <> "" Then
cost.AddItem precio
Else
MsgBox "No ingreso su precio", , "PRECAUCION"
GoTo regresa
End If
ret:
exi = InputBox("Ingresa las existencias", "NUEVO PRODUCTO")
If exi <> "" Then
exis.AddItem exi
Else
MsgBox "No ingreso las existencias", , "PRECAUCION"
GoTo ret
End If
fin:
End Sub
Private Sub Command2_Click()
Dim intresp As Integer
intresp = MsgBox("desea eliminar el registro seleccionado de la lista?", vbYesNo + vbQuestion + vbDefaultButton2, "Eliminar articulo")
If intresp = vbYes Then
cost.RemoveItem (lista.ListIndex)
exis.RemoveItem (lista.ListIndex)
lista.RemoveItem (lista.ListIndex)
total.Caption = lista.ListCount
Else
MsgBox "Se cancelo la opcion de eliminar", vbOKOnly + vbInformation, "Cancelar"
End If
End Sub
Private Sub Command3_Click()
Dim intresp As Integer
intresp = MsgBox("Desea guardar el registro?", vbYesNo + vbQuestion + vbDefaultButton2, "Guardar registro")
If intresp = vbYes Then
Kill (App.Path & "\Papeleria.txt")
Kill (App.Path & "\Papeleria$.txt")
Kill (App.Path & "\PapeleriaE.txt")
Dim I As Integer
Dim J As Integer
Dim X As Integer
Open App.Path & "\Papeleria.txt" For Append As #1
For I = o To lista.ListCount - 1
Print #1, lista.List(I)
Next
Close #1
Open App.Path & "\Papeleria$.txt" For Append As #1
For J = o To lista.ListCount - 1
Print #1, cost.List(J)
Next
Close #1
Open App.Path & "\PapeleriaE.txt" For Append As #1
For X = o To lista.ListCount - 1
Print #1, exis.List(X)
Next
Close #1
MsgBox "Se ha guardado existosamente ", , "GUARDAR"
Else
MsgBox "NO SE GUARDO EL REGISTRO ", , "CANCELACION"
End If
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Command5_Click()
Dim cont As Integer
cont = 1
If op = "" Then
MsgBox "No hay nada que buscar", , "PRECAUCION"
Else
Open App.Path & "\Papeleria.txt" For Append As 1
For I = 0 To lista.ListCount - 1
If op.Text = lista.List(I) Then
Label6.Visible = True
Label8.Visible = True
txt.Visible = True
precio.Visible = True
existencias.Visible = True
txt.Caption = lista.List(I)
precio.Caption = cost.List(I)
existencias.Caption = exis.List(I)
GoTo fin
Else
If cont = lista.ListCount Then txt.Caption = "No se encontro el archivo"
Label6.Visible = False
Label8.Visible = False
precio.Visible = False
existencias.Visible = False
End If
cont = cont + 1
Next
fin:
Close #1
End If
op.Text = ""
End Sub
Private Sub Form_Load()
Dim var As String
Open App.Path & "\Papeleria.txt" For Append As #1
Do While Not EOF(1)
Input #1, var
lista.AddItem var
Loop
Close #1
Open App.Path & "\Papeleria$.txt" For Append As #1
Do While Not EOF(1)
Input #1, var
cost.AddItem var
Loop
Close #1
Open App.Path & "\PapeleriaE.txt" For Append As #1
Do While Not EOF(1)
Input #1, var
exis.AddItem var
Loop
Close #1
Open App.Path & "\Papeleria.txt" For Input As #1
Do While Not EOF(1)
Input #1, var
lista.AddItem var
Loop
Close #1
Open App.Path & "\Papeleria$.txt" For Input As #1
Do While Not EOF(1)
Input #1, var
cost.AddItem var
Loop
Close #1
Open App.Path & "\PapeleriaE.txt" For Input As #1
Do While Not EOF(1)
Input #1, var
exis.AddItem var
Loop
Close #1
total.Caption = lista.ListCount
End Sub
GIFS ANIMADOS
Option Explicit
Private FrameCount As Long
Private Const LB_DIR As Long = &H18D
Private Const DDL_ARCHIVE As Long = &H20
Private Const DDL_EXCLUSIVE As Long = &H8000
Private Const DDL_FLAGS As Long = DDL_ARCHIVE Or DDL_EXCLUSIVE
Private TotalFrames As Long
Private RepeatTimes As Long
Private Sub Command1_Click()
Dim nFrames As Long
nFrames = LoadGif(App.Path + "\efecto-de-agua.gif", Image1)
If nFrames > 0 Then
FrameCount = 0
Timer1.Interval = CLng(Image1(0).Tag)
Timer1.Enabled = True
End If
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Dim i As Long
If FrameCount < TotalFrames Then
Image1(FrameCount).Visible = False
FrameCount = FrameCount + 1
Else
FrameCount = 0
For i = 1 To Image1.Count - 1
Image1(i).Visible = False
Next i
End If
Image1(FrameCount).Visible = True
Timer1.Interval = CLng(Image1(FrameCount).Tag)
End Sub
Private Function LoadGif( _
sFile As String, _
aImg As Variant) As Long
Dim hFile As Long
Dim sImgHeader As String
Dim sFileHeader As String
Dim sBuff As String
Dim sPicsBuff As String
Dim nImgCount As Long
Dim i As Long
Dim j As Long
Dim xOff As Long
Dim yOff As Long
Dim TimeWait As Long
Dim sGifMagic As String
If Dir$(sFile) = "" Or sFile = "" Then
MsgBox "File " & sFile & " not found", vbInformation
Exit Function
End If
sGifMagic = Chr$(0) & Chr$(33) & Chr$(249)
If aImg.Count > 1 Then
For i = 1 To aImg.Count - 1
Unload aImg(i)
Next i
End If
hFile = FreeFile
Open sFile For Binary Access Read As hFile
sBuff = String(LOF(hFile), Chr(0))
Get #hFile, , sBuff
Close #hFile
i = 1
nImgCount = 0
j = InStr(1, sBuff, sGifMagic) + 1
sFileHeader = Left(sBuff, j)
If Left$(sFileHeader, 3) <> "GIF" Then
MsgBox "This file is not a *.gif file", vbInformation
Exit Function
End If
LoadGif = True
i = j + 2
If Len(sFileHeader) >= 127 Then
RepeatTimes& = Asc(Mid(sFileHeader, 126, 1)) + _
(Asc(Mid(sFileHeader, 127, 1)) * 256&)
Else
RepeatTimes = 0
End If
hFile = FreeFile
Open "temp.gif" For Binary As hFile
Do
nImgCount = nImgCount + 1
j = InStr(i, sBuff, sGifMagic) + 3
If j > Len(sGifMagic) Then
sPicsBuff = String(Len(sFileHeader) + j - i, Chr$(0))
sPicsBuff = sFileHeader & Mid(sBuff, i - 1, j - i)
Put #hFile, 1, sPicsBuff
sImgHeader = Left(Mid(sBuff, i - 1, j - i), 16)
TimeWait = ((Asc(Mid(sImgHeader, 4, 1))) + _
(Asc(Mid(sImgHeader, 5, 1)) * 256&)) * 10&
If nImgCount > 1 Then
Load aImg(nImgCount - 1)
xOff = Asc(Mid(sImgHeader, 9, 1)) + _
(Asc(Mid(sImgHeader, 10, 1)) * 256&)
yOff = Asc(Mid(sImgHeader, 11, 1)) + _
(Asc(Mid(sImgHeader, 12, 1)) * 256&)
aImg(nImgCount - 1).Left = aImg(0).Left + _
(xOff * Screen.TwipsPerPixelX)
aImg(nImgCount - 1).Top = aImg(0).Top + _
(yOff * Screen.TwipsPerPixelY)
End If
aImg(nImgCount - 1).Tag = TimeWait
aImg(nImgCount - 1).Picture = LoadPicture("temp.gif")
i = j
End If
Loop Until j = 3
Close #hFile
Kill "temp.gif"
TotalFrames = aImg.Count - 1
LoadGif = TotalFrames
Exit Function
ErrHandler:
MsgBox "Error No. " & Err.Number & " when reading file", vbCritical
LoadGif = False
On Error GoTo 0
End Function
EJERCICIO A REALIZAR DIA 12 DE MARZO DEL 2015.
NAVEGADOR DE INTERNET.
Interfaz del Navegador.
Ejercicio 2
Interfaz
Codigo Fuente
Private Sub Combo1_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "Debes ingresar un texto para añadir un elemento", vbCritical
GoTo b
End If
Combo1.AddItem Text1.Text
List1.AddItem Text1.Text
Text1.Text = ""
b:
End Sub
Private Sub Command2_Click()
If List1.ListIndex = -1 Then
MsgBox "Debes seleccionar un elemento a la lista, si está vacia prueba Añadir", vbCritical
GoTo a
End If
List1.RemoveItem (List1.ListIndex)
Combo1.RemoveItem (Combo1.ListIndex)
a:
End Sub
Private Sub List1_Click()
Combo1.ListIndex = List1.ListIndex
End Sub
Ejercicio 3
Interfaz
Codigo Fuente
Private Sub HScroll1_Change()
Label2 = HScroll1.Value
End Sub
Private Sub VScroll1_Change()
Label4 = VScroll1.Value
End Sub
Ejercicio 4
Interfaz
Codigo Fuente
Dim FormLoad As Boolean
Const EnableAlarm = "ALARMA OFF"
Const AlarmEnabled = "ALARM ON"
Const StopAlarm = "Detener ALARMA"
Private Sub Command1_Click()
End
End Sub
Private Sub examinar_Click()
CommonDialog1.DialogTitle = "Selecciona un archivo de Musica mp3"
CommonDialog1.Filter = "Archivos de Musica MP3"
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
ruta.Text = CommonDialog1.FileName
WindowsMediaPlayer1.URL = ruta.Text
Else
ruta = "No se selecciono un sonido"
End If
End Sub
Private Sub Form_Load()
FormLoad = True
Alarmsettingwas = GetSetting(App.EXEName, "Alarma", "Configuración", Format(Now, "hh:mm:ss"))
alarma.Caption = Alarmsettingwas
mando(0).Value = Hour(Alarmsettingwas)
mando(1).Value = Minute(Alarmsettingwas)
mando(2).Value = Second(Alarmsettingwas)
interruptor.Caption = EnableAlarm
interruptor.BackColor = vbButtonFace
AlarmwasEnabled = GetSetting(App.EXEName, "Alarma", "Establecida", False)
If AlarmwasEnabled Then interruptor_Click
Timer1.Enabled = True
Timer2.Enabled = False
Timer3.Enabled = False
End Sub
Private Sub interruptor_Click()
Select Case interruptor.Caption
Case EnableAlarm
interruptor.Caption = AlarmEnabled
interruptor.BackColor = &HC0C0FF 'vbGreen
SaveSetting App.EXEName, "Alarma", "on", True
Case AlarmEnabled
interruptor.Caption = EnableAlarm
interruptor.BackColor = &HC0C0FF
Case StopAlarm
interruptor.Caption = EnableAlarm
interruptor.BackColor = vbButtonFace
WindowsMediaPlayer1.Close
Timer3.Enabled = False
End Select
End Sub
Private Sub mando_Change(Index As Integer)
alarma.Caption = Format(TimeSerial(mando(0).Value, mando(1).Value, mando(2).Value), "hh:mm:ss")
If Not FormLoad Then SaveSetting App.EXEName, "Alarm", "Setting", alarma.Caption
End Sub
Private Sub Timer1_Timer()
h = Hour(Now)
m = Minute(Now)
s = Second(Now)
hora.Caption = Format(TimeSerial(h, m, s), "hh.mm.ss")
zerotime = (mando(0).Value - h) * 60 * 60 + (mando(1).Value - m) * 60 + (mando(2).Value - s)
If zerotime < 0 Then
zerotime = zerotime + 24 * 60 * 60!
restante.Caption = Format(TimeSerial(mando(0).Value - h + 24, mando(1).Value - m, mando(2).Value - s), "hh:mm:ss")
Else
restante.Caption = Format(TimeSerial(mando(0).Value - h, mando(1).Value - m, mando(2).Value - s), "hh:mm:ss")
End If
Select Case zerotime
Case 0 To 1
If interruptor.Caption = AlarmEnabled Then
WindowsMediaPlayer1.URL = ruta.Text
Timer3.Enabled = True
interruptor.Caption = StopAlarm
End If
End Select
End Sub
Private Sub Timer3_Timer()
Static ff As Boolean
ff = Not ff
Select Case ff
Case True
interruptor.BackColor = vbRed
Case False
interruptor.BackColor = vbYellow
End Select
End Sub
Ejercicio 5
Interfaz
Codigo Fuente
Crear un módulo:
Sub DrawBarcode(ByVal bc_string As String, obj As Control)
Dim xpos!, y1!, y2!, dw%, th!, tw, new_string$
'define barcode patterns
Dim bc(90) As String
bc(1) = "1 1221" 'pre-amble
bc(2) = "1 1221" 'post-amble
bc(48) = "11 221" 'digits
bc(49) = "21 112"
bc(50) = "12 112"
bc(51) = "22 111"
bc(52) = "11 212"
bc(53) = "21 211"
bc(54) = "12 211"
bc(55) = "11 122"
bc(56) = "21 121"
bc(57) = "12 121"
'capital letters
bc(65) = "211 12" 'A
bc(66) = "121 12" 'B
bc(67) = "221 11" 'C
bc(68) = "112 12" 'D
bc(69) = "212 11" 'E
bc(70) = "122 11" 'F bc(71) = "111 22" 'G
bc(72) = "211 21" 'H
bc(73) = "121 21" 'I
bc(74) = "112 21" 'J
bc(75) = "2111 2" 'K
bc(76) = "1211 2" 'L
bc(77) = "2211 1" 'M
bc(78) = "1121 2" 'N
bc(79) = "2121 1" 'O
bc(80) = "1221 1" 'P
bc(81) = "1112 2" 'Q
bc(82) = "2112 1" 'R
bc(83) = "1212 1" 'S
bc(84) = "1122 1" 'T
bc(85) = "2 1112" 'U
bc(86) = "1 2112" 'V
bc(87) = "2 2111" 'W
bc(88) = "1 1212" 'X
bc(89) = "2 1211" 'Y
bc(90) = "1 2211" 'Z
'Misc
bc(32) = "1 2121" 'space
bc(35) = "" '# cannot do!
bc(36) = "1 1 1 11" '$
bc(37) = "11 1 1 1" '%
bc(43) = "1 11 1 1" '+ bc(45) = "1 1122" '-
bc(47) = "1 1 11 1" '/
bc(46) = "2 1121" '.
bc(64) = "" '@ cannot do!
bc(65) = "1 1221" '*
bc_string = UCase(bc_string)
'dimensions
obj.ScaleMode = 3 'pixels
obj.Cls
obj.Picture = Nothing
dw = CInt(obj.ScaleHeight / 40) 'space between bars
If dw < 1 Then dw = 1
'Debug.Print dw
th = obj.TextHeight(bc_string) 'text height
tw = obj.TextWidth(bc_string) 'text width
new_string = Chr$(1) & bc_string & Chr$(2) 'add pre-amble, post-amble
y1 = obj.ScaleTop
y2 = obj.ScaleTop + obj.ScaleHeight - 1.5 * th
obj.Width = 1.1 * Len(new_string) * (15 * dw) * obj.Width / obj.ScaleWidth
'draw each character in barcode string
xpos = obj.ScaleLeft
For n = 1 To Len(new_string)
c = Asc(Mid$(new_string, n, 1))
If c > 90 Then c = 0
bc_pattern$ = bc(c)
'draw each bar
For i = 1 To Len(bc_pattern$)
Select Case Mid$(bc_pattern$, i, 1)
Case " "
'space
obj.Line (xpos, y1)-(xpos + 1 * dw, y2), &HFFFFFF, BF
xpos = xpos + dw
Case "1"
'space
obj.Line (xpos, y1)-(xpos + 1 * dw, y2), &HFFFFFF, BF
xpos = xpos + dw
'line
obj.Line (xpos, y1)-(xpos + 1 * dw, y2), &H0&, BF
xpos = xpos + dw
Case "2"
'space obj.Line (xpos, y1)-(xpos + 1 * dw, y2), &HFFFFFF, BF
xpos = xpos + dw
'wide line
obj.Line (xpos, y1)-(xpos + 2 * dw, y2), &H0&, BF
xpos = xpos + 2 * dw
End Select
Next
Next
'1 more space
obj.Line (xpos, y1)-(xpos + 1 * dw, y2), &HFFFFFF, BF
xpos = xpos + dw
'final size and text
obj.Width = (xpos + dw) * obj.Width / obj.ScaleWidth
obj.CurrentX = (obj.ScaleWidth - tw) / 2
obj.CurrentY = y2 + 0.25 * th
obj.Print bc_string
'copy to clipboard
obj.Picture = obj.Image
Clipboard.Clear
Clipboard.SetData obj.Image, 2
End Sub
Demás programación:
Private Sub cmdExit_Click()
End
End Sub
Private Sub cmdPrint_Click()
Printer.PaintPicture Picture1, 5000, 5000
Printer.EndDoc
End Sub
Private Sub Form_Activate()
optSize(1) = 1
End Sub
Private Sub optSize_Click(Index As Integer)
Picture1.ScaleMode = 3
Select Case Index
Case 0
Picture1.Height = Picture1.Height * (1.4 * 40 / Picture1.ScaleHeight)
Picture1.FontSize = 8
Case 1
Picture1.Height = Picture1.Height * (2.4 * 40 / Picture1.ScaleHeight)
Picture1.FontSize = 10
Case 2
Picture1.Height = Picture1.Height * (3 * 40 / Picture1.ScaleHeight)
Picture1.FontSize = 14
End Select
Call Text1_Change
End Sub
Private Sub Text1_Change()
Call DrawBarcode(Text1, Picture1)
MinWidth = 2 * Text1.Left + Text1.Width
pw = 2 * Picture1.Left + Picture1.Width
fw = MinWidth
If pw > fw Then fw = pw
Form1.Width = fw
End Sub
BASE DE DATOS CON FOTOGRAFIA.
INTERFAZ.
CODIGO FUENTE.
Private Sub Avanzar_Click(Index As Integer)
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MovePrevious
End If
X = App.Path
Image1.Picture = LoadPicture(X & "\" & Label5.Caption)
End Sub
Private Sub Command1_Click()
Adodc1.Recordset.MoveFirst
X = App.Path
Image1.Picture = LoadPicture(X & "\" & Label5.Caption)
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.MoveLast
X = App.Path
Image1.Picture = LoadPicture(X & "\" & Label5.Caption)
End Sub
Private Sub Command3_Click()
If Command3.Caption = "nuevo" Then
Adodc1.Recordset.AddNew
Text5.Visible = True
Command3.Caption = "Guardar"
Else
Command3.Caption = "Nuevo"
Adodc1.Recordset.Update
Adodc1.Recordset.MoveLast
Text5.Visible = False
MsgBox "Se guardo Correctamente el nuevo regisdtro", vbInformation
End If
End Sub
Private Sub Command4_Click()
Adodc1.Recordset.Update
Adodc1.Recordset.MoveLast
Text5.Visible = False
MsgBox "Se guardo Correctamente el nuevo regisdtro", vbInformation
End Sub
Private Sub Command5_Click()
Abrir.ShowOpen
If Abrir.FileName <> "" Then
Image1.Picture = LoadPicture(Abrir.FileName)
Text5.Text = Abrir.FileTitle
Else
MsgBox "lol", vbCritical, "lel"
End If
End Sub
Private Sub Command6_Click()
Adodc1.Recordset.Update
End Sub
Private Sub Form_Load()
On Error Resume Next
X = App.Path
Image1.Picture = LoadPicture(X & "\" & Label5.Caption)
With Abrir
.Filter = "Archivo imagen|*.jpg"
.DialogTitle = "Ola ke ase"
End With
End Sub
Private Sub Regrezar_Click(Index As Integer)
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveNext
End If
X = App.Path
Image1.Picture = LoadPicture(X & "\" & Label5.Caption)
End Sub
INTERFAZ
CODIGO FUENTE
Dim flag As BooleanPrivate Sub Command1_Click()
If flag = False Then
Command1.Caption = "X"
flag = True
Label5.Caption = "Player O Turn"
Else
Command1.Caption = "O"
flag = False
Label5.Caption = "Player X Turn"
End If
Win
End Sub
Private Sub Command10_Click()
Command1.Caption = ""
Command2.Caption = ""
Command3.Caption = ""
Command4.Caption = ""
Command5.Caption = ""
Command6.Caption = ""
Command7.Caption = ""
Command8.Caption = ""
Command9.Caption = ""
End Sub
Private Sub Command11_Click()
Label3.Caption = ""
Label4.Caption = ""
End Sub
Private Sub Command2_Click()
If flag = False Then
Command2.Caption = "X"
flag = True
Label5.Caption = "Player O Turn"
Else
Command2.Caption = "O"
flag = False
Label5.Caption = "Player X Turn"
End If
Win
End Sub
Private Sub Command3_Click()
If flag = False Then
Command3.Caption = "X"
flag = True
Label5.Caption = "Player O Turn"
Else
Command3.Caption = "O"
flag = False
Label5.Caption = "Player X Turn"
End If
Win
End Sub
Private Sub Command4_Click()
If flag = False Then
Command4.Caption = "X"
flag = True
Label5.Caption = "Player O Turn"
Else
Command4.Caption = "O"
flag = False
Label5.Caption = "Player X Turn"
End If
Win
End Sub
Private Sub Command5_Click()
If flag = False Then
Command5.Caption = "X"
flag = True
Label5.Caption = "Player O Turn"
Else
Command5.Caption = "O"
flag = False
Label5.Caption = "Player X Turn"
End If
Win
End Sub
Private Sub Command6_Click()
If flag = False Then
Command6.Caption = "X"
flag = True
Label5.Caption = "Player O Turn"
Else
Command6.Caption = "O"
flag = False
Label5.Caption = "Player X Turn"
End If
Win
End Sub
Private Sub Command7_Click()
If flag = False Then
Command7.Caption = "X"
flag = True
Label5.Caption = "Player O Turn"
Else
Command7.Caption = "O"
flag = False
Label5.Caption = "Player X Turn"
End If
Win
End Sub
Private Sub Command8_Click()
If flag = False Then
Command8.Caption = "X"
flag = True
Label5.Caption = "Player O Turn"
Else
Command8.Caption = "O"
flag = False
Label5.Caption = "Player X Turn"
End If
Win
End Sub
Private Sub Command9_Click()
If flag = False Then
Command9.Caption = "X"
flag = True
Label5.Caption = "Player O Turn"
Else
Command9.Caption = "O"
flag = False
Label5.Caption = "Player X Turn"
End If
Win
End Sub
Private Sub Win()
If Command1.Caption = "X" And Command2.Caption = "X" And Command3.Caption = "X" Then
MsgBox ("Player X Win !!")
Label3.Caption = Val(Label3.Caption) + Val(1)
Command1.Caption = ""
Command2.Caption = ""
Command3.Caption = ""
Command4.Caption = ""
Command5.Caption = ""
Command6.Caption = ""
Command7.Caption = ""
Command8.Caption = ""
Command9.Caption = ""
End If
If Command1.Caption = "X" And Command4.Caption = "X" And Command7.Caption = "X" Then
MsgBox ("Player X Win !!")
Label3.Caption = Val(Label3.Caption) + Val(1)
Command1.Caption = ""
Command2.Caption = ""
Command3.Caption = ""
Command4.Caption = ""
Command5.Caption = ""
Command6.Caption = ""
Command7.Caption = ""
Command8.Caption = ""
Command9.Caption = ""
End If
If Command1.Caption = "X" And Command5.Caption = "X" And Command9.Caption = "X" Then
MsgBox ("Player X Win !!")
Label3.Caption = Val(Label3.Caption) + Val(1)
Command1.Caption = ""
Command2.Caption = ""
Command3.Caption = ""
Command4.Caption = ""
Command5.Caption = ""
Command6.Caption = ""
Command7.Caption = ""
Command8.Caption = ""
Command9.Caption = ""
End If
If Command2.Caption = "X" And Command5.Caption = "X" And Command8.Caption = "X" Then
MsgBox ("Player X Win !!")
Label3.Caption = Val(Label3.Caption) + Val(1)
Command1.Caption = ""
Command2.Caption = ""
Command3.Caption = ""
Command4.Caption = ""
Command5.Caption = ""
Command6.Caption = ""
Command7.Caption = ""
Command8.Caption = ""
Command9.Caption = ""
End If
If Command3.Caption = "X" And Command6.Caption = "X" And Command9.Caption = "X" Then
MsgBox ("Player X Win !!")
Label3.Caption = Val(Label3.Caption) + Val(1)
Command1.Caption = ""
Command2.Caption = ""
Command3.Caption = ""
Command4.Caption = ""
Command5.Caption = ""
Command6.Caption = ""
Command7.Caption = ""
Command8.Caption = ""
Command9.Caption = ""
End If
If Command4.Caption = "X" And Command5.Caption = "X" And Command6.Caption = "X" Then
MsgBox ("Player X Win !!")
Label3.Caption = Val(Label3.Caption) + Val(1)
Command1.Caption = ""
Command2.Caption = ""
Command3.Caption = ""
Command4.Caption = ""
Command5.Caption = ""
Command6.Caption = ""
Command7.Caption = ""
Command8.Caption = ""
Command9.Caption = ""
End If
If Command7.Caption = "X" And Command8.Caption = "X" And Command9.Caption = "X" Then
MsgBox ("Player X Win !!")
Label3.Caption = Val(Label3.Caption) + Val(1)
Command1.Caption = ""
Command2.Caption = ""
Command3.Caption = ""
Command4.Caption = ""
Command5.Caption = ""
Command6.Caption = ""
Command7.Caption = ""
Command8.Caption = ""
Command9.Caption = ""
End If
If Command3.Caption = "X" And Command5.Caption = "X" And Command7.Caption = "X" Then
MsgBox ("Player X Win !!")
Label3.Caption = Val(Label3.Caption) + Val(1)
Command1.Caption = ""
Command2.Caption = ""
Command3.Caption = ""
Command4.Caption = ""
Command5.Caption = ""
Command6.Caption = ""
Command7.Caption = ""
Command8.Caption = ""
Command9.Caption = ""
End If
If Command1.Caption = "O" And Command2.Caption = "O" And Command3.Caption = "O" Then
MsgBox ("Player O Win !!")
Label4.Caption = Val(Label4.Caption) + Val(1)
Command1.Caption = ""
Command2.Caption = ""
Command3.Caption = ""
Command4.Caption = ""
Command5.Caption = ""
Command6.Caption = ""
Command7.Caption = ""
Command8.Caption = ""
Command9.Caption = ""
End If
If Command1.Caption = "O" And Command4.Caption = "O" And Command7.Caption = "O" Then
MsgBox ("Player O Win !!")
Label4.Caption = Val(Label4.Caption) + Val(1)
Command1.Caption = ""
Command2.Caption = ""
Command3.Caption = ""
Command4.Caption = ""
Command5.Caption = ""
Command6.Caption = ""
Command7.Caption = ""
Command8.Caption = ""
Command9.Caption = ""
End If
If Command1.Caption = "O" And Command5.Caption = "O" And Command9.Caption = "O" Then
MsgBox ("Player O Win !!")
Label4.Caption = Val(Label4.Caption) + Val(1)
Command1.Caption = ""
Command2.Caption = ""
Command3.Caption = ""
Command4.Caption = ""
Command5.Caption = ""
Command6.Caption = ""
Command7.Caption = ""
Command8.Caption = ""
Command9.Caption = ""
End If
If Command2.Caption = "O" And Command5.Caption = "O" And Command8.Caption = "O" Then
MsgBox ("Player O Win !!")
Label4.Caption = Val(Label4.Caption) + Val(1)
Command1.Caption = ""
Command2.Caption = ""
Command3.Caption = ""
Command4.Caption = ""
Command5.Caption = ""
Command6.Caption = ""
Command7.Caption = ""
Command8.Caption = ""
Command9.Caption = ""
End If
If Command3.Caption = "O" And Command6.Caption = "O" And Command9.Caption = "O" Then
MsgBox ("Player O Win !!")
Label4.Caption = Val(Label4.Caption) + Val(1)
Command1.Caption = ""
Command2.Caption = ""
Command3.Caption = ""
Command4.Caption = ""
Command5.Caption = ""
Command6.Caption = ""
Command7.Caption = ""
Command8.Caption = ""
Command9.Caption = ""
End If
If Command4.Caption = "O" And Command5.Caption = "O" And Command6.Caption = "O" Then
MsgBox ("Player O Win !!")
Label4.Caption = Val(Label4.Caption) + Val(1)
Command1.Caption = ""
Command2.Caption = ""
Command3.Caption = ""
Command4.Caption = ""
Command5.Caption = ""
Command6.Caption = ""
Command7.Caption = ""
Command8.Caption = ""
Command9.Caption = ""
End If
If Command7.Caption = "O" And Command8.Caption = "O" And Command9.Caption = "O" Then
MsgBox ("Player O Win !!")
Label4.Caption = Val(Label4.Caption) + Val(1)
Command1.Caption = ""
Command2.Caption = ""
Command3.Caption = ""
Command4.Caption = ""
Command5.Caption = ""
Command6.Caption = ""
Command7.Caption = ""
Command8.Caption = ""
Command9.Caption = ""
End If
If Command3.Caption = "O" And Command5.Caption = "O" And Command7.Caption = "O" Then
MsgBox ("Player O Win !!")
Label4.Caption = Val(Label4.Caption) + Val(1)
Command1.Caption = ""
Command2.Caption = ""
Command3.Caption = ""
Command4.Caption = ""
Command5.Caption = ""
Command6.Caption = ""
Command7.Caption = ""
Command8.Caption = ""
Command9.Caption = ""
End If
End Sub
Private Sub Form_Load()
End Sub
POR LA PANDEMIA A PARTIR DE MARZO DE 2020.
IMPORTANTE PARA FINALIZAR EL SEMESTRE 2020-11
Buenas tardes Grupo 2308 de Ingenieria de Software (ITSE)
Le pido de favor que ya inicie con su proyecto final el cual debe de contener todo lo que se menciono varias veces en clase: (Inicio 1 de Mayo de 2020)
Logo
Slogan
Objetivos
VIsiòn
Misiòn
Analisis de requerimientos para el software que realizara.
Anàlisis FODA (FORTALEZAS, OPORTUNIDADES, DEBILIDADES, AMENAZAS)
Diagrama de Gant o Cronograma del desarrollo del mismo proyecto.
Diagrama Entidad Relaciòn
Diagramas de flujo de todos los procesos
Manual del Usiario
Manual de requerimientos (aqui se incluye El programa fuente, el ejecutabñe y todo lo demas)
Conclusiones
Eso finalizara la calificaciòn del semestre
Esto tendra que ser enviado a mas tardar el 22 de Mayo de 2020.
22 DE MAYO DE 2020.
Gracias. El Profesor Alejandro.
Realizar los ejercicios 4, 5 y todos los restantes que se encuentran al final de este blog.
Gracias.
Aqui tiene que hacer click para que pegue su URL de los programas que haya realizado en su casa de preferencia que vayan a ir entregando mediante subirlos a drive y compartirlos.
En lo que terminan de enviar estos programas, queda como Actividad de realizar las Unidades 4, 5, 6, 7 y 8 del temario en el cuaderno con bibliografia y/o cibergrafia.
Gifs animados
Protector de Estrellas
2. ANÁLISIS DE SISTEMAS
7. ELABORACIÓN DE PROTOTIPOS
8. ESPECIFICACIÓN DE PROGRAMAS
Aqui tiene que hacer click para que pegue su URL de los programas que haya realizado en su casa de preferencia que vayan a ir entregando mediante subirlos a drive y compartirlos.
En lo que terminan de enviar estos programas, queda como Actividad de realizar las Unidades 4, 5, 6, 7 y 8 del temario en el cuaderno con bibliografia y/o cibergrafia.
| |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Gifs animados
Protector de Estrellas
CONTENIDO TEMÁTICO
1. INTRODUCCIÓN AL DESARROLLO DE SISTEMAS
2. ANÁLISIS DE SISTEMAS
2.1. Pasos previos al análisis de sistemas.
2.2. Detección de necesidades.
2.3. Levantamiento de información.
2.4. Propuesta de desarrollo.
2.5. Documento de especificación funcional.
2.6. Elección del entorno de desarrollo.
3. ANÁLISIS ESTRUCTURADO MODERNO
3.1. Herramientas y metodología.
3.2. Diagramas de Flujo de Datos.
4. DISEÑO DE SISTEMAS
4.1. Conceptos de diseño de sistemas.
4.2. Metodología de diseño.
4.3. Herramientas.
5. DISEÑO ESTRUCTURADO MODERNO
5.1. Metodología.
5.2. Herramientas.
5.3. Ventajas y limitaciones.
5.4. Modelo entidad/relación
5.5. Diccionario de datos.
5.6. Especificación de procesos (minispecs).
5.7. Diagrama de transición de estados
5.8. Cartas de estructura
5.9. Partición por eventos.
5.10. Documentación.
6. HERRAMIENTAS CASE
6.1. Introducción a las herramientas CASE.
6.2. Taller de CASE.
7. ELABORACIÓN DE PROTOTIPOS
7.1. Prototipos no funcionales.
7.2. Prototipos funcionales.
7.3. Ventajas y riesgos de los prototipos.
8. ESPECIFICACIÓN DE PROGRAMAS
8.1. Diseño de pantallas.
8.2. Diseño de reportes.
8.3. Diseño de procesos.
8.4. Interfaz con el usuario.
8.5. Lectura óptica.
8.6. Código de barras.
8.7. Sistemas de información multimedia.
