Tiny File Manager

Back Back Up Advanced Editor

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   375
      Left            =   3840
      TabIndex        =   20
      Top             =   2400
      Width           =   735
   End
   Begin VB.ComboBox GateTypeList 
      DataField       =   "AND"
      Height          =   315
      Left            =   120
      TabIndex        =   19
      Text            =   "AND"
      Top             =   120
      Width           =   855
   End
   Begin VB.TextBox Gtnum 
      Height          =   375
      Left            =   240
      TabIndex        =   18
      Text            =   "1"
      Top             =   1920
      Width           =   375
   End
   Begin VB.CommandButton GetEtat 
      Caption         =   "etat"
      Height          =   375
      Left            =   3720
      TabIndex        =   16
      Top             =   600
      Width           =   735
   End
   Begin VB.TextBox Grnum 
      Height          =   375
      Left            =   3000
      TabIndex        =   14
      Text            =   "1"
      Top             =   600
      Width           =   495
   End
   Begin VB.CommandButton SetEtat 
      Caption         =   "Set"
      Height          =   375
      Left            =   1920
      TabIndex        =   13
      Top             =   1920
      Width           =   615
   End
   Begin VB.TextBox Ptetat 
      Height          =   375
      Left            =   1320
      TabIndex        =   11
      Text            =   "0"
      Top             =   1920
      Width           =   495
   End
   Begin VB.TextBox Pinnum 
      Height          =   375
      Left            =   840
      TabIndex        =   9
      Text            =   "1"
      Top             =   1920
      Width           =   375
   End
   Begin VB.CommandButton SetParent 
      Caption         =   "Set"
      Height          =   375
      Left            =   1920
      TabIndex        =   8
      Top             =   1080
      Width           =   615
   End
   Begin VB.TextBox Panum 
      Height          =   375
      Left            =   1440
      TabIndex        =   7
      Text            =   "0"
      Top             =   1080
      Width           =   375
   End
   Begin VB.TextBox Pnum 
      Height          =   375
      Left            =   720
      TabIndex        =   5
      Text            =   "0"
      Top             =   1080
      Width           =   375
   End
   Begin VB.TextBox Gnum 
      Height          =   375
      Left            =   240
      TabIndex        =   2
      Text            =   "1"
      Top             =   1080
      Width           =   375
   End
   Begin VB.CommandButton newGate 
      Caption         =   "new"
      Height          =   375
      Left            =   1920
      TabIndex        =   1
      Top             =   120
      Width           =   615
   End
   Begin VB.TextBox Gentrees 
      Height          =   375
      Left            =   1080
      TabIndex        =   0
      Text            =   "2"
      Top             =   120
      Width           =   615
   End
   Begin VB.Label Label7 
      Caption         =   "pin"
      Height          =   255
      Left            =   960
      TabIndex        =   17
      Top             =   1680
      Width           =   255
   End
   Begin VB.Label Label6 
      Caption         =   "num"
      Height          =   255
      Left            =   3000
      TabIndex        =   15
      Top             =   360
      Width           =   495
   End
   Begin VB.Label Label5 
      Caption         =   "etat"
      Height          =   255
      Left            =   1440
      TabIndex        =   12
      Top             =   1680
      Width           =   375
   End
   Begin VB.Label Label4 
      Caption         =   "G"
      Height          =   255
      Left            =   240
      TabIndex        =   10
      Top             =   1680
      Width           =   615
   End
   Begin VB.Label Label3 
      Caption         =   "Pa"
      Height          =   255
      Left            =   1440
      TabIndex        =   6
      Top             =   840
      Width           =   255
   End
   Begin VB.Label Label2 
      Caption         =   "pin"
      Height          =   255
      Left            =   840
      TabIndex        =   4
      Top             =   840
      Width           =   255
   End
   Begin VB.Label Label1 
      Caption         =   "G"
      Height          =   255
      Left            =   240
      TabIndex        =   3
      Top             =   840
      Width           =   375
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

' Cette form n'est jamais affichee, mais elle permet de
' changer les etats, creer une porte, un lien.. sans passer par
' l'interface graphique.. Ne sert absolument pas dans le projet,
' c'est juste pour info

Private Sub Command1_Click()
SchemaFrm.Show
End Sub

Private Sub Form_Load()
GateTypeList.AddItem ("AND")
GateTypeList.AddItem ("OR")
GateTypeList.AddItem ("XOR")
GateTypeList.AddItem ("NOT")

End Sub

Private Sub GetEtat_Click()

MsgBox Gates(Grnum.Text).GetEtat()

End Sub

Private Sub newGate_Click()

NBGates = NBGates + 1
ReDim Preserve Gates(NBGates - 1)

Set Gates(NBGates - 1) = New Gate

tmp = Gates(NBGates - 1).SetParametres(GateTypeList.Text, Gentrees.Text, NBGates - 1)

MsgBox "porte " & GateTypeList.Text & " a " & Gentrees.Text & " entrees crees sous le num : " & (NBGates - 1)

End Sub

Private Sub SetEtat_Click()

tmp = Gates(Gtnum.Text + 1 - 1).SetEntreeParPin(Pinnum.Text, Ptetat.Text)
ReDraw SchemaFrm.Schema
'MsgBox "porte " & Gnum.Text & " pin " & Pnum.Text & " a pour etat : " & Ptetat.Text

End Sub

Private Sub SetParent_Click()

tmp = Gates(Gnum.Text).SetParent(Pnum.Text, Panum.Text)
MsgBox "porte " & Gnum.Text & " pin " & Pnum.Text & " a pour parent : " & Panum.Text

End Sub