LordKusa

Base de datos

Jun 10th, 2018
109
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Dim Día As Integer
  2. Dim Edad As Integer
  3.  
  4. Private Sub Command1_Click()
  5.  
  6.     Día = Label4.Caption
  7.     Edad = Label3.Caption
  8.     Adodc1.Recordset.Delete
  9.     Adodc1.Recordset.AddNew
  10.     Label4.Caption = Día
  11.     Label3.Caption = Edad
  12.     Adodc1.Recordset.Update
  13.    
  14. End Sub
  15.  
  16. Private Sub Timer1_Timer()
  17.  
  18.     If Label3.Caption < 80 Then
  19.    
  20.         If Label4.Caption >= 365 Then
  21.        
  22.             Label3.Caption = Val(Label3.Caption) + 1
  23.            
  24.             Label4.Caption = 0
  25.        
  26.         Else
  27.        
  28.             Label4.Caption = Val(Label4.Caption) + 1
  29.    
  30.         End If
  31.        
  32.     Else
  33.        
  34.         Muerte
  35.        
  36.     End If
  37.    
  38. End Sub
  39.  
  40. Sub Muerte()
  41.  
  42.     Dim Msg, Style, Title, Help, Ctxt, Response, MyString
  43.     Msg = "La muerte se avecina, hay que usar una paradoja espacio-temporal"
  44.     Style = vbOKOnly + vbExclamation
  45.     Title = "El fin se acerca"
  46.     Response = MsgBox(Msg, Style, Title)
  47.  
  48. End Sub
RAW Paste Data