VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H00000000&
   ClientHeight    =   8835
   ClientLeft      =   255
   ClientTop       =   540
   ClientWidth     =   9990
   Icon            =   "OSCILL~1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   8835
   ScaleWidth      =   9990
   StartUpPosition =   2  'CenterScreen
   Begin VB.Timer Timer1 
      Interval        =   100
      Left            =   9480
      Top             =   7320
   End
   Begin VB.CommandButton Esci 
      BackColor       =   &H000080FF&
      Caption         =   "ESCI "
      BeginProperty Font 
         Name            =   "Action Force"
         Size            =   15.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   -120
      MaskColor       =   &H000080FF&
      Style           =   1  'Graphical
      TabIndex        =   16
      Top             =   8280
      Width           =   10215
   End
   Begin VB.TextBox Periodo 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   120
      Locked          =   -1  'True
      TabIndex        =   14
      Text            =   "Da Calcolare"
      Top             =   6240
      Width           =   3855
   End
   Begin VB.TextBox frequenza 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      Left            =   120
      Locked          =   -1  'True
      TabIndex        =   13
      Text            =   "Da Calcolare"
      Top             =   7440
      Width           =   3855
   End
   Begin VB.TextBox t2 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      Left            =   120
      Locked          =   -1  'True
      TabIndex        =   12
      Text            =   "Da Calcolare"
      Top             =   5040
      Width           =   3855
   End
   Begin VB.TextBox t1 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   120
      Locked          =   -1  'True
      TabIndex        =   11
      Text            =   "Da Calcolare"
      Top             =   3840
      Width           =   3855
   End
   Begin VB.TextBox C1 
      Alignment       =   1  'Right Justify
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      Left            =   2760
      TabIndex        =   4
      Text            =   "Ins Valore"
      Top             =   1680
      Width           =   1215
   End
   Begin VB.TextBox R2 
      Alignment       =   1  'Right Justify
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      Left            =   1440
      TabIndex        =   3
      Text            =   "Ins Valore"
      Top             =   1680
      Width           =   1215
   End
   Begin VB.TextBox R1 
      Alignment       =   1  'Right Justify
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      Left            =   120
      TabIndex        =   2
      Text            =   "Ins Valore"
      Top             =   1680
      Width           =   1215
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H0000FF00&
      Caption         =   " CALCOLA "
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "Action Force"
         Size            =   15.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   120
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   2520
      Width           =   3855
   End
   Begin VB.Label Label8 
      Alignment       =   2  'Center
      BackColor       =   &H00000000&
      Caption         =   "Periodo T in msec"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   375
      Left            =   120
      TabIndex        =   15
      Top             =   5880
      Width           =   3855
   End
   Begin VB.Label Label7 
      Alignment       =   2  'Center
      BackColor       =   &H00000000&
      Caption         =   "Frequenza in Hz"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   375
      Left            =   120
      TabIndex        =   10
      Top             =   7080
      Width           =   3855
   End
   Begin VB.Label Label6 
      Alignment       =   2  'Center
      BackColor       =   &H00000000&
      Caption         =   "t2 in msec"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   375
      Left            =   120
      TabIndex        =   9
      Top             =   4680
      Width           =   3855
   End
   Begin VB.Label Label5 
      Alignment       =   2  'Center
      BackColor       =   &H00000000&
      Caption         =   "t1 in msec"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   375
      Left            =   120
      TabIndex        =   8
      Top             =   3480
      Width           =   3855
   End
   Begin VB.Label Label4 
      Alignment       =   2  'Center
      BackColor       =   &H00000000&
      Caption         =   "C in uF"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   255
      Left            =   2760
      TabIndex        =   7
      Top             =   1440
      Width           =   1215
   End
   Begin VB.Label Label3 
      Alignment       =   2  'Center
      BackColor       =   &H00000000&
      Caption         =   "R1 in Kohm"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   255
      Left            =   120
      TabIndex        =   6
      Top             =   1440
      Width           =   1215
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      BackColor       =   &H00000000&
      Caption         =   "R2 in Kohm"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   255
      Left            =   1440
      TabIndex        =   5
      Top             =   1440
      Width           =   1215
   End
   Begin VB.Image Image2 
      Height          =   1845
      Left            =   4440
      Picture         =   "OSCILL~1.frx":1CCA
      Top             =   6360
      Width           =   4605
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H00000000&
      Caption         =   "OSCILLATORE CON NE555"
      BeginProperty Font 
         Name            =   "Action Force"
         Size            =   36
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   615
      Left            =   0
      TabIndex        =   0
      Top             =   120
      Width           =   9975
   End
   Begin VB.Image Image1 
      Height          =   5730
      Left            =   3840
      Picture         =   "OSCILL~1.frx":1D900
      Top             =   720
      Width           =   6135
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim cont As Double
Private Sub C_Click()
C.Text = ""
End Sub

Private Sub C1_Click()
C1.Text = ""

End Sub

Private Sub Command1_Click()
Dim a, b, C, d As Double
a = Val(R1.Text)
b = Val(R2.Text)
C = Val(C1.Text)
d = 0.693
a = a * 1000
b = b * 1000
C = C * 0.000001
If a = 0 Then
a = 1 * 1000
R1.Text = "1"
End If
If b = 0 Then
b = 1 * 1000
R2.Text = "1"
End If
If C = 0 Then
C = 1 * 0.000001
C1.Text = "1"
End If
t1.Text = (d * (a + b) * C) * 1000
t2.Text = (d * b * C) * 1000
Periodo.Text = t1.Text * 1 + t2.Text
frequenza.Text = 1 / (d * C * (a + (2 * b)))


End Sub

Private Sub Esci_Click()
End

End Sub

Private Sub R1_Click()
R1.Text = ""
End Sub

Private Sub R2_Click()
R2.Text = ""


End Sub

Private Sub Timer1_Timer()
If R1.Text <> "Ins Valore" Then
If R2.Text <> "Ins Valore" Then
If C1.Text <> "Ins Valore" Then
Command1.Enabled = True
End If
End If
End If
If cont = 82 Then
cont = 0
Else
cont = cont + 1
End If
If cont = 1 Then
Form1.Caption = "O"
End If
If cont = 2 Then
Form1.Caption = "Os"
End If
If cont = 3 Then
Form1.Caption = "Osc"
End If
If cont = 4 Then
Form1.Caption = "Osci"
End If
If cont = 5 Then
Form1.Caption = "Oscil"
End If
If cont = 6 Then
Form1.Caption = "Oscill"
End If
If cont = 7 Then
Form1.Caption = "Oscilla"
End If
If cont = 8 Then
Form1.Caption = "Oscillat"
End If
If cont = 9 Then
Form1.Caption = "Oscillato"
End If
If cont = 10 Then
Form1.Caption = "Oscillator"
End If
If cont = 11 Then
Form1.Caption = "Oscillatore"
End If
If cont = 12 Then
Form1.Caption = "Oscillatore "
End If
If cont = 13 Then
Form1.Caption = "Oscillatore c"
End If
If cont = 14 Then
Form1.Caption = "Oscillatore co"
End If
If cont = 15 Then
Form1.Caption = "Oscillatore con"
End If
If cont = 16 Then
Form1.Caption = "Oscillatore con "
End If
If cont = 17 Then
Form1.Caption = "Oscillatore con N"
End If
If cont = 18 Then
Form1.Caption = "Oscillatore con NE"
End If
If cont = 19 Then
Form1.Caption = "Oscillatore con NE5"
End If
If cont = 20 Then
Form1.Caption = "Oscillatore con NE55"
End If
If cont = 21 Then
Form1.Caption = "Oscillatore con NE555"
End If
If cont = 22 Then
Form1.Caption = "Oscillatore con NE555 "
End If
If cont = 23 Then
Form1.Caption = "Oscillatore con NE555  B"
End If
If cont = 24 Then
Form1.Caption = "Oscillatore con NE555  By"
End If
If cont = 25 Then
Form1.Caption = "Oscillatore con NE555  By "
End If
If cont = 26 Then
Form1.Caption = "Oscillatore con NE555  By N"
End If
If cont = 27 Then
Form1.Caption = "Oscillatore con NE555  By Ni"
End If
If cont = 28 Then
Form1.Caption = "Oscillatore con NE555  By Nie"
End If
If cont = 29 Then
Form1.Caption = "Oscillatore con NE555  By Nies"
End If
If cont = 30 Then
Form1.Caption = "Oscillatore con NE555  By Niesp"
End If
If cont = 31 Then
Form1.Caption = "Oscillatore con NE555  By Niespo"
End If
If cont = 32 Then
Form1.Caption = "Oscillatore con NE555  By Niespol"
End If
If cont = 33 Then
Form1.Caption = "Oscillatore con NE555  By Niespolo"
End If
If cont = 34 Then
Form1.Caption = "Oscillatore con NE555  By Niespolo "
End If
If cont = 35 Then
Form1.Caption = "Oscillatore con NE555  By Niespolo V"
End If
If cont = 36 Then
Form1.Caption = "Oscillatore con NE555  By Niespolo Vi"
End If
If cont = 37 Then
Form1.Caption = "Oscillatore con NE555  By Niespolo Vin"
End If
If cont = 38 Then
Form1.Caption = "Oscillatore con NE555  By Niespolo Vinc"
End If
If cont = 39 Then
Form1.Caption = "Oscillatore con NE555  By Niespolo Vince"
End If
If cont = 40 Then
Form1.Caption = "Oscillatore con NE555  By Niespolo Vincen"
End If
If cont = 41 Then
Form1.Caption = "Oscillatore con NE555  By Niespolo Vincenz"
End If
If cont = 42 Then
Form1.Caption = "Oscillatore con NE555  By Niespolo Vincenzo"
End If
If cont = 43 Then
Form1.Caption = "Oscillatore con NE555  By Niespolo Vincenzo"
End If
If cont = 44 Then
Form1.Caption = " scillatore con NE555  By Niespolo Vincenzo"
End If
If cont = 45 Then
Form1.Caption = "  cillatore con NE555  By Niespolo Vincenzo"
End If
If cont = 46 Then
Form1.Caption = "   illatore con NE555  By Niespolo Vincenzo"
End If
If cont = 47 Then
Form1.Caption = "    llatore con NE555  By Niespolo Vincenzo"
End If
If cont = 48 Then
Form1.Caption = "     latore con NE555  By Niespolo Vincenzo"
End If
If cont = 49 Then
Form1.Caption = "      atore con NE555  By Niespolo Vincenzo"
End If
If cont = 50 Then
Form1.Caption = "       tore con NE555  By Niespolo Vincenzo"
End If
If cont = 51 Then
Form1.Caption = "        ore con NE555  By Niespolo Vincenzo"
End If
If cont = 52 Then
Form1.Caption = "         re con NE555  By Niespolo Vincenzo"
End If
If cont = 53 Then
Form1.Caption = "          e con NE555  By Niespolo Vincenzo"
End If
If cont = 54 Then
Form1.Caption = "            con NE555  By Niespolo Vincenzo"
End If
If cont = 55 Then
Form1.Caption = "            con NE555  By Niespolo Vincenzo"
End If
If cont = 56 Then
Form1.Caption = "             on NE555  By Niespolo Vincenzo"
End If
If cont = 57 Then
Form1.Caption = "              n NE555  By Niespolo Vincenzo"
End If
If cont = 58 Then
Form1.Caption = "                NE555  By Niespolo Vincenzo"
End If
If cont = 59 Then
Form1.Caption = "                 E555  By Niespolo Vincenzo"
End If
If cont = 60 Then
Form1.Caption = "                  555  By Niespolo Vincenzo"
End If
If cont = 61 Then
Form1.Caption = "                   55  By Niespolo Vincenzo"
End If
If cont = 62 Then
Form1.Caption = "                    5  By Niespolo Vincenzo"
End If
If cont = 63 Then
Form1.Caption = "                       By Niespolo Vincenzo"
End If
If cont = 64 Then
Form1.Caption = "                       By Niespolo Vincenzo"
End If
If cont = 65 Then
Form1.Caption = "                        y Niespolo Vincenzo"
End If
If cont = 66 Then
Form1.Caption = "                          Niespolo Vincenzo"
End If
If cont = 67 Then
Form1.Caption = "                          Niespolo Vincenzo"
End If
If cont = 68 Then
Form1.Caption = "                           iespolo Vincenzo"
End If
If cont = 69 Then
Form1.Caption = "                            espolo Vincenzo"
End If
If cont = 70 Then
Form1.Caption = "                             spolo Vincenzo"
End If
If cont = 71 Then
Form1.Caption = "                              polo Vincenzo"
End If
If cont = 72 Then
Form1.Caption = "                               olo Vincenzo"
End If
If cont = 73 Then
Form1.Caption = "                                lo Vincenzo"
End If
If cont = 74 Then
Form1.Caption = "                                 o Vincenzo"
End If
If cont = 75 Then
Form1.Caption = "                                   Vincenzo"
End If
If cont = 76 Then
Form1.Caption = "                                    incenzo"
End If
If cont = 77 Then
Form1.Caption = "                                     ncenzo"
End If
If cont = 78 Then
Form1.Caption = "                                      cenzo"
End If
If cont = 79 Then
Form1.Caption = "                                       enzo"
End If
If cont = 80 Then
Form1.Caption = "                                        nzo"
End If
If cont = 81 Then
Form1.Caption = "                                         zo"
End If
If cont = 81 Then
Form1.Caption = "                                          o"
End If
If cont = 82 Then
Form1.Caption = "                                           "
End If

End Sub
