sibi12
Messages postés337Date d'inscriptionjeudi 19 décembre 2002StatutMembreDernière intervention15 avril 2006 16 févr. 2004 à 15:16
heu....t'as poster koi la???
c'est un projet vb6 ca...il y a une clé retained...g demander un projet vb4
en fait suffirait de comparer le texte d'un vbp de vb4 et un de vb6 et supprimer les clé en trop ds le le vbp de vb6 pour qu'il fonctionne sous vb4....
cs_dpujol
Messages postés46Date d'inscriptionjeudi 31 juillet 2003StatutMembreDernière intervention14 juin 2009 15 févr. 2004 à 17:41
Cela ne marche pas, meme quad j'efface le retained. Une fois effacé cela me fait toujours la meme erreur : un truc du genre VB ne peut pas charger le projet.vbp car incompatible.
Merci quand même.
mythic_kruger
Messages postés241Date d'inscriptionjeudi 8 janvier 2004StatutMembreDernière intervention10 novembre 2005 15 févr. 2004 à 15:47
Oui il faut effacer la clé retained ;) . J' ai noté que threadmodel pose problème aussi, sur VB5.
cs_dpujol
Messages postés46Date d'inscriptionjeudi 31 juillet 2003StatutMembreDernière intervention14 juin 2009 15 févr. 2004 à 14:12
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "Logiciel de configuration !"
ClientHeight = 10095
ClientLeft = 45
ClientTop = 435
ClientWidth = 12105
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 10095
ScaleWidth = 12105
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command7
Caption = "Initialisation !"
Height = 255
Left = 9600
TabIndex = 93
Top = 120
Width = 2415
End
Begin TabDlg.SSTab SSTab1
Height = 9855
Left = 120
TabIndex = 0
Top = 120
Width = 11895
_ExtentX = 20981
_ExtentY = 17383
_Version = 393216
Tabs = 2
Tab = 1
TabHeight = 520
TabCaption(0) = "Configuration plaque et lampes !"
TabPicture(0) = "Form1.frx":0000
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "Text1"
Tab(0).Control(1)= "Text2"
Tab(0).Control(2)= "Text3"
Tab(0).Control(3)= "Text4"
Tab(0).Control(4)= "Text5"
Tab(0).Control(5)= "Command2"
Tab(0).Control(6)= "Command3"
Tab(0).Control(7)= "Text7"
Tab(0).Control(8)= "Text8"
Tab(0).Control(9)= "Text9"
Tab(0).Control(10)= "Text10"
Tab(0).Control(11)= "Text11"
Tab(0).Control(12)= "Text6"
Tab(0).Control(13)= "Command1"
Tab(0).Control(14)= "Text12"
Tab(0).Control(15)= "Text13"
Tab(0).Control(16)= "Frame10"
Tab(0).Control(17)= "Command5"
Tab(0).Control(18)= "Text19"
Tab(0).Control(19)= "Command4"
Tab(0).Control(20)= "CommonDialog2"
Tab(0).Control(21)= "Label1"
Tab(0).Control(22)= "Label2"
Tab(0).Control(23)= "Label4"
Tab(0).Control(24)= "Label5"
Tab(0).Control(25)= "Line1"
Tab(0).Control(26)= "Label6(0)"
Tab(0).Control(27)= "Label7"
Tab(0).Control(28)= "Label8"
Tab(0).Control(29)= "Label9"
Tab(0).Control(30)= "Label10"
Tab(0).Control(31)= "Label11"
Tab(0).Control(32)= "Line2"
Tab(0).Control(33)= "Label12"
Tab(0).Control(34)= "Label13"
Tab(0).Control(35)= "Label18"
Tab(0).Control(36)= "Label19"
Tab(0).Control(37)= "Label20"
Tab(0).Control(38)= "Label21"
Tab(0).Control(39)= "Label22"
Tab(0).Control(40)= "Label23"
Tab(0).Control(41)= "Label3"
Tab(0).ControlCount= 42
TabCaption(1) = "Configuration réflexion et chauffage !"
TabPicture(1) = "Form1.frx":001C
Tab(1).ControlEnabled= -1 'True
Tab(1).Control(0)= "Line3"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "Line4"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "Label1015"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "Label1014"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).Control(4)= "Label34"
Tab(1).Control(4).Enabled= 0 'False
Tab(1).Control(5)= "Label35"
Tab(1).Control(5).Enabled= 0 'False
Tab(1).Control(6)= "Frame3"
Tab(1).Control(6).Enabled= 0 'False
Tab(1).Control(7)= "Frame2"
Tab(1).Control(7).Enabled= 0 'False
Tab(1).Control(8)= "Frame1"
Tab(1).Control(8).Enabled= 0 'False
Tab(1).Control(9)= "Combo2"
Tab(1).Control(9).Enabled= 0 'False
Tab(1).Control(10)= "Combo1"
Tab(1).Control(10).Enabled= 0 'False
Tab(1).ControlCount= 11
Begin VB.ComboBox Combo1
Height = 315
Left = 7560
TabIndex = 68
Text = "Combo1"
Top = 600
Width = 2295
End
Begin VB.ComboBox Combo2
Height = 315
Left = 7560
TabIndex = 67
Text = "Combo2"
Top = 1200
Width = 2295
End
Begin VB.Frame Frame1
Caption = "Réflexion Spéculaire"
Height = 2295
Left = 1440
TabIndex = 62
Top = 1920
Width = 8655
Begin VB.TextBox Text101
Alignment = 2 'Center
Height = 375
Left = 6000
TabIndex = 73
Top = 360
Width = 2415
End
Begin VB.TextBox Text102
Alignment = 2 'Center
Height = 375
Left = 5160
TabIndex = 74
Text = "X min"
Top = 840
Width = 735
End
Begin VB.TextBox Text103
Alignment = 2 'Center
Height = 375
Left = 6000
TabIndex = 75
Text = "X Max"
Top = 840
Width = 735
End
Begin VB.TextBox Text104
Alignment = 2 'Center
Height = 375
Left = 6840
TabIndex = 76
Text = "Y min"
Top = 840
Width = 735
End
Begin VB.TextBox Text105
Alignment = 2 'Center
Height = 375
Left = 7680
TabIndex = 77
Text = "Y max"
Top = 840
Width = 735
End
Begin VB.TextBox Text106
Alignment = 2 'Center
Height = 375
Left = 6000
TabIndex = 78
Top = 1320
Width = 2415
End
Begin VB.CommandButton Command101
Caption = " Créer Desreflec.res !"
Height = 375
Left = 6000
TabIndex = 79
Top = 1800
Width = 2415
End
Begin VB.Label Label33
Caption = "Hauteur du réflecteur par rapport à la plaque ? (mm)"
Height = 375
Left = 120
TabIndex = 66
Top = 360
Width = 5175
End
Begin VB.Label Label32
Caption = "Borne du plan :"
Height = 375
Left = 120
TabIndex = 65
Top = 840
Width = 4455
End
Begin VB.Label Label31
Caption = "Coefficient de reflexion ? (0<r<1)"
Height = 375
Left = 120
TabIndex = 64
Top = 1320
Width = 5055
End
Begin VB.Label Label1017
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 63
Top = 1800
Width = 4935
End
End
Begin VB.Frame Frame2
Caption = "Réflexion Diffuse"
Height = 2775
Left = 1440
TabIndex = 56
Top = 1920
Width = 8655
Begin VB.TextBox Text107
Alignment = 2 'Center
Height = 375
Left = 6000
TabIndex = 80
Top = 360
Width = 2415
End
Begin VB.TextBox Text108
Alignment = 2 'Center
Height = 375
Left = 5160
TabIndex = 81
Text = "X min"
Top = 840
Width = 735
End
Begin VB.TextBox Text109
Alignment = 2 'Center
Height = 375
Left = 6000
TabIndex = 82
Text = "X max"
Top = 840
Width = 735
End
Begin VB.TextBox Text1010
Alignment = 2 'Center
Height = 405
Left = 6840
TabIndex = 83
Text = "Y min"
Top = 840
Width = 735
End
Begin VB.TextBox Text1011
Alignment = 2 'Center
Height = 405
Left = 7680
TabIndex = 84
Text = "Y max"
Top = 840
Width = 735
End
Begin VB.TextBox Text1012
Alignment = 2 'Center
Height = 405
Left = 6000
TabIndex = 85
Top = 1320
Width = 2415
End
Begin VB.TextBox Text1013
Alignment = 2 'Center
Height = 375
Left = 6000
TabIndex = 86
Top = 1800
Width = 2415
End
Begin VB.CommandButton Command102
Caption = "Créer Desreflec.res !"
Height = 375
Left = 6000
TabIndex = 87
Top = 2280
Width = 2415
End
Begin VB.Label Label6
Caption = "Hauteur du réflecteur par rapport à la plaque ? (mm)"
Height = 375
Index = 1
Left = 120
TabIndex = 61
Top = 360
Width = 5175
End
Begin VB.Label Label30
Caption = "Borne du plan :"
Height = 375
Left = 120
TabIndex = 60
Top = 840
Width = 4935
End
Begin VB.Label Label29
Caption = "Nombre de lancers ?"
Height = 375
Left = 120
TabIndex = 59
Top = 1320
Width = 5055
End
Begin VB.Label Label28
Caption = "Coefficient de reflexion ? (0<r<1)"
Height = 375
Left = 120
TabIndex = 58
Top = 1800
Width = 4815
End
Begin VB.Label Label1016
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 57
Top = 2280
Width = 4455
End
End
Begin VB.Frame Frame3
Caption = "Caractéristiques générales"
Height = 2895
Left = 1440
TabIndex = 50
Top = 4920
Width = 8655
Begin VB.TextBox Text1014
Alignment = 2 'Center
Height = 375
Left = 6000
TabIndex = 88
Top = 360
Width = 2415
End
Begin VB.TextBox Text1015
Alignment = 2 'Center
Height = 375
Left = 6000
TabIndex = 89
Top = 840
Width = 2415
End
Begin VB.TextBox Text1016
Alignment = 2 'Center
Height = 375
Left = 6000
TabIndex = 90
Top = 1320
Width = 2415
End
Begin VB.TextBox Text1017
Alignment = 2 'Center
Height = 405
Left = 6000
TabIndex = 91
Top = 1800
Width = 2415
End
Begin VB.CommandButton Command103
Caption = "Créer Chauffage.res !"
Height = 375
Left = 6000
TabIndex = 92
Top = 2400
Width = 2415
End
Begin VB.Label Label27
Caption = "Puissance des lampes ? (W)"
Height = 375
Left = 120
TabIndex = 55
Top = 360
Width = 4935
End
Begin VB.Label Label26
Caption = "Température de la feuille ? (°C)"
Height = 375
Left = 120
TabIndex = 54
Top = 840
Width = 5295
End
Begin VB.Label Label25
Caption = "Temps de chauffage ? (s)"
Height = 375
Left = 120
TabIndex = 53
Top = 1320
Width = 5295
End
Begin VB.Label Label24
Caption = "Temps de refroidissement ? (s)"
Height = 375
Left = 120
TabIndex = 52
Top = 1800
Width = 5295
End
Begin VB.Label Label1018
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 51
Top = 2400
Width = 5055
End
End
Begin VB.TextBox Text1
Alignment = 2 'Center
Height = 495
Left = -70320
TabIndex = 1
Top = 600
Width = 855
End
Begin VB.TextBox Text2
Alignment = 2 'Center
Height = 495
Left = -70320
TabIndex = 2
Text = "X"
Top = 1080
Width = 855
End
Begin VB.TextBox Text3
Alignment = 2 'Center
Height = 495
Left = -69360
TabIndex = 3
Text = "Y"
Top = 1080
Width = 855
End
Begin VB.TextBox Text4
Alignment = 2 'Center
Height = 495
Left = -70320
TabIndex = 4
Top = 1560
Width = 855
End
Begin VB.TextBox Text5
Alignment = 2 'Center
Height = 495
Left = -70320
TabIndex = 5
Text = "X"
Top = 2040
Width = 855
End
Begin VB.CommandButton Command2
Caption = "Créer Plaque.res !"
Height = 495
Left = -66360
TabIndex = 7
Top = 2520
Width = 1455
End
Begin VB.CommandButton Command3
Caption = "Choix du fichier des données physiques du polymère !"
Height = 495
Left = -67320
TabIndex = 24
Top = 600
Width = 2415
End
Begin VB.TextBox Text7
Alignment = 2 'Center
Height = 495
Left = -70320
TabIndex = 9
Top = 3720
Width = 855
End
Begin VB.TextBox Text8
Alignment = 2 'Center
Height = 495
Left = -70320
TabIndex = 10
Top = 4200
Width = 855
End
Begin VB.TextBox Text9
Alignment = 2 'Center
Height = 495
Left = -70320
TabIndex = 11
Top = 4680
Width = 855
End
Begin VB.TextBox Text10
Alignment = 2 'Center
Height = 735
Left = -70320
TabIndex = 12
Top = 5160
Width = 855
End
Begin VB.TextBox Text11
Alignment = 2 'Center
Height = 495
Left = -70320
TabIndex = 13
Top = 5880
Width = 855
End
Begin VB.TextBox Text6
Alignment = 2 'Center
Height = 480
Left = -70320
TabIndex = 8
Top = 3240
Width = 855
End
Begin VB.CommandButton Command1
Caption = "Créer Biblio.res ! "
Height = 495
Left = -66360
TabIndex = 14
Top = 5880
Width = 1455
End
Begin VB.TextBox Text12
Alignment = 2 'Center
Height = 495
Left = -70320
TabIndex = 15
Top = 6600
Width = 855
End
Begin VB.TextBox Text13
Alignment = 2 'Center
Height = 495
Left = -70320
TabIndex = 16
Top = 7080
Width = 855
End
Begin VB.Frame Frame10
Caption = "Aucune rangées de lampe !"
Enabled = 0 'False
Height = 2415
Left = -69240
TabIndex = 19
Top = 6600
Width = 4335
Begin VB.TextBox Text14
Alignment = 2 'Center
Height = 285
Left = 2760
TabIndex = 25
Top = 480
Width = 495
End
Begin VB.TextBox Text15
Alignment = 2 'Center
Height = 285
Left = 2760
TabIndex = 27
Top = 840
Width = 495
End
Begin VB.TextBox Text16
Alignment = 2 'Center
Height = 285
Left = 2760
TabIndex = 29
Text = "X"
Top = 1200
Width = 495
End
Begin VB.TextBox Text17
Alignment = 2 'Center
Height = 285
Left = 2760
TabIndex = 33
Top = 1560
Width = 495
End
Begin VB.TextBox Text18
Alignment = 2 'Center
Height = 285
Left = 3360
TabIndex = 31
Text = "Y"
Top = 1200
Width = 495
End
Begin VB.CommandButton Command6
Caption = "Valider la rangée !"
Height = 375
Left = 120
TabIndex = 35
Top = 1920
Width = 1695
End
Begin VB.Label Label14
Caption = "Nombre de lampes ?"
Height = 255
Left = 120
TabIndex = 23
Top = 480
Width = 2500
End
Begin VB.Label Label15
Caption = "Entraxe ?"
Height = 255
Left = 120
TabIndex = 22
Top = 840
Width = 2500
End
Begin VB.Label Label16
Caption = "Origine de x et y ?"
Height = 255
Left = 120
TabIndex = 21
Top = 1200
Width = 2500
End
Begin VB.Label Label17
Caption = "Angle en degré ?"
Height = 255
Left = 120
TabIndex = 20
Top = 1560
Width = 2500
End
End
Begin VB.CommandButton Command5
Caption = "Valider !"
Height = 375
Left = -70320
TabIndex = 17
Top = 7680
Width = 855
End
Begin VB.TextBox Text19
Alignment = 2 'Center
Height = 495
Left = -69360
TabIndex = 6
Text = "Y"
Top = 2040
Width = 855
End
Begin VB.CommandButton Command4
Caption = "Choix du fichier de définitions !"
Height = 495
Left = -67320
TabIndex = 18
Top = 3240
Width = 2415
End
Begin MSComDlg.CommonDialog CommonDialog2
Left = -63120
Top = 600
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Label Label35
Caption = "Type d'émetteurs ?"
Height = 255
Left = 1440
TabIndex = 72
Top = 720
Width = 3735
End
Begin VB.Label Label34
Caption = "Type de réflexion ?"
Height = 255
Left = 1440
TabIndex = 71
Top = 1200
Width = 3735
End
Begin VB.Label Label1014
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 7800
TabIndex = 70
Top = 600
Width = 2295
End
Begin VB.Label Label1015
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 7800
TabIndex = 69
Top = 1200
Width = 2415
End
Begin VB.Line Line4
X1 = 1440
X2 = 10080
Y1 = 1680
Y2 = 1680
End
Begin VB.Line Line3
X1 = 1440
X2 = 10080
Y1 = 4800
Y2 = 4800
End
Begin VB.Label Label1
Caption = "Epaisseur Z de la plaque ?"
Height = 255
Left = -73560
TabIndex = 49
Top = 720
Width = 3015
End
Begin VB.Label Label2
Caption = "Dimension X et Y ?"
Height = 255
Left = -73560
TabIndex = 48
Top = 1200
Width = 3015
End
Begin VB.Label Label4
Caption = "Nombre de noeuds suivants Z ?"
Height = 255
Left = -73560
TabIndex = 47
Top = 1680
Width = 3015
End
Begin VB.Label Label5
Caption = "Nombre de noeuds suivants X et Y ?"
Height = 255
Left = -73560
TabIndex = 46
Top = 2160
Width = 3015
End
Begin VB.Line Line1
X1 = -73560
X2 = -64920
Y1 = 3120
Y2 = 3120
End
Begin VB.Label Label6
Caption = "Diamètre de la lampe ou largeur ?"
Height = 255
Index = 0
Left = -73560
TabIndex = 45
Top = 3360
Width = 3015
End
Begin VB.Label Label7
Caption = "Longueur de la lampe ?"
Height = 255
Left = -73560
TabIndex = 44
Top = 3840
Width = 3015
End
Begin VB.Label Label8
Caption = "Température du filament de Tungstène ?"
Height = 255
Left = -73560
TabIndex = 43
Top = 4320
Width = 3015
End
Begin VB.Label Label9
Caption = "Emissivité ?"
Height = 255
Left = -73560
TabIndex = 42
Top = 4800
Width = 3015
End
Begin VB.Label Label10
Caption = "Nombre de Noeuds suivant la circonférence ou la largeur ?"
Height = 495
Left = -73560
TabIndex = 41
Top = 5280
Width = 3015
End
Begin VB.Label Label11
Caption = "Nombre de Noeuds suivant la longueur ?"
Height = 255
Left = -73560
TabIndex = 40
Top = 6000
Width = 3015
End
Begin VB.Line Line2
X1 = -73560
X2 = -64920
Y1 = 6480
Y2 = 6480
End
Begin VB.Label Label12
Caption = "Distance entre le four et la plaque ?"
Height = 255
Left = -73560
TabIndex = 39
Top = 6720
Width = 3015
End
Begin VB.Label Label13
Caption = "Nombre de rangées de lampe ?"
Height = 255
Left = -73560
TabIndex = 38
Top = 7200
Width = 3015
End
Begin VB.Label Label18
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = -69240
TabIndex = 37
Top = 9240
Width = 4335
End
Begin VB.Label Label19
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = -69360
TabIndex = 36
Top = 2640
Width = 2775
End
Begin VB.Label Label20
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = -69240
TabIndex = 34
Top = 6000
Width = 2895
End
Begin VB.Label Label21
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = -73560
TabIndex = 32
Top = 2640
Width = 3735
End
Begin VB.Label Label22
Alignment = 2 'Center
Caption = "Toutes les dimensions sont en mm."
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = -73560
TabIndex = 30
Top = 8880
Width = 3735
End
Begin VB.Label Label23
Alignment = 2 'Center
Caption = "Les températures sont en K."
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = -73560
TabIndex = 28
Top = 9240
Width = 3735
End
Begin VB.Label Label3
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = -69240
TabIndex = 26
Top = 4320
Width = 4335
End
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 240
Top = 120
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public chem
Public nbre
Public vr
Public lampe
Private Sub Combo1_Click()
Combo1.Enabled = False
a = Combo1.ListIndex
If a 0 Then Combo2.Enabled True Else Frame3.Visible = True
Set fso = CreateObject("scripting.filesystemobject")
Set typelampe = fso.createtextfile(App.Path + "/Typelampe.res")
If a = 0 Then typelampe.writeline "1" Else typelampe.writeline "2"
typelampe.Close
Label1014.Caption = "Typelampe.res est créé !"
End Sub
Private Sub command101_Click()
Set fso = CreateObject("scripting.filesystemobject")
Set desreflect = fso.createtextfile(App.Path + "/Desreflect.res")
desreflect.writeline Text101.Text
desreflect.writeline Text102.Text
desreflect.writeline Text103.Text
desreflect.writeline Text104.Text
desreflect.writeline Text105.Text
desreflect.writeline Text106.Text
desreflect.Close
Label1017.Caption = "Desreflec.res est créé !"
Frame1.Enabled = False
Frame3.Visible = True
End Sub
Private Sub command102_Click()
Set fso = CreateObject("scripting.filesystemobject")
Set desreflect = fso.createtextfile(App.Path + "/Desreflect.res")
desreflect.writeline Text107.Text
desreflect.writeline Text108.Text
desreflect.writeline Text109.Text
desreflect.writeline Text1010.Text
desreflect.writeline Text1011.Text
desreflect.writeline Text1012.Text
desreflect.writeline Text1013.Text
desreflect.Close
Label1016.Caption = "Resdeflec.res est créé !"
Frame2.Enabled = False
Frame3.Visible = True
End Sub
Private Sub command103_Click()
Set fso = CreateObject("scripting.filesystemobject")
Set chauffage = fso.createtextfile(App.Path + "/Chauffage.res")
chauffage.writeline Text1014.Text
chauffage.writeline Text1015.Text
chauffage.writeline Text1016.Text
chauffage.writeline Text1017.Text
chauffage.Close
Label1018.Caption = "Chauffage.res est créé !"
Frame3.Enabled = False
End Sub
Sub pro0()
Frame1.Visible = True
End Sub
Sub pro1()
Frame2.Visible = True
End Sub
Sub pro2()
Frame3.Visible = True
End Sub
Private Sub Combo2_Click()
Combo2.Enabled = False
b = Combo2.ListIndex
Set fso = CreateObject("scripting.filesystemobject")
Set reflexion = fso.createtextfile(App.Path + "/Reflexion.res")
If b 0 Then reflexion.writeline "1" Else If b 1 Then reflexion.writeline "2" Else If b = 2 Then reflexion.writeline "3"
reflexion.Close
Label1015.Caption = "Reflexion.res est créé !"
If b = 0 Then pro0
If b = 1 Then pro1
If b = 2 Then pro2
End Sub
Private Sub Command7_Click()
Unload Form1
Form1.Show
End Sub
Private Sub text102_GotFocus()
Text102.Text = ""
End Sub
Private Sub text103_GotFocus()
Text103.Text = ""
End Sub
Private Sub text104_GotFocus()
Text104.Text = ""
End Sub
Private Sub text105_GotFocus()
Text105.Text = ""
End Sub
Private Sub text108_GotFocus()
Text108.Text = ""
End Sub
Private Sub text109_GotFocus()
Text109.Text = ""
End Sub
Private Sub text1010_GotFocus()
Text1010.Text = ""
End Sub
Private Sub text1011_GotFocus()
Text1011.Text = ""
End Sub
Private Sub Command1_Click()
Set fso = CreateObject("scripting.filesystemobject")
Set biblio = fso.createtextfile(chem + "Biblio.res")
biblio.writeline Text6.Text
biblio.writeline Text7.Text
biblio.writeline Text8.Text
biblio.writeline Text9.Text
biblio.writeline Text10.Text
biblio.writeline Text11.Text
biblio.Close
Label20.Caption = "Le fichier biblio.res à été créé !"
Command1.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
Text10.Enabled = False
Text11.Enabled = False
End Sub
Private Sub Command2_Click()
Set fso = CreateObject("scripting.filesystemobject")
Set plaque = fso.createtextfile(chem + "Plaque.res")
plaque.writeline Text1.Text
plaque.writeline Text2.Text + " " + Text3.Text
plaque.writeline Text4.Text
plaque.writeline Text5.Text + " " + Text19.Text
plaque.Close
Label19.Caption = "Le fichier Plaque.res à été créé! "
Command2.Enabled = False
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text19.Enabled = False
End Sub
Private Sub Command3_Click()
CommonDialog1.CancelError = True
On Error GoTo fin
CommonDialog1.DialogTitle = "Choix du fichier des données physiques du polymère ?"
CommonDialog1.ShowOpen
fich = CommonDialog1.FileName
Set fso = CreateObject("scripting.filesystemobject")
Set fi = fso.getfile(fich)
fi.Copy chem + "Caract.res"
Label21.Caption = "Le fichier Caract.res à été créé !"
Command3.Enabled = False
fin:
Exit Sub
End Sub
Private Sub Command4_Click()
CommonDialog1.CancelError = True
On Error GoTo fin
CommonDialog1.DialogTitle = "Choix du fichier de définitions ?"
CommonDialog1.ShowOpen
fich = CommonDialog1.FileName
Set fso = CreateObject("scripting.filesystemobject")
Set fi = fso.getfile(fich)
fi.Copy chem + "Definition.don"
Label3.Caption = "Le fichier Definition.don à été créé !"
Command4.Enabled = False
fin:
Exit Sub
End Sub
Private Sub Command5_Click()
Set fso = CreateObject("scripting.filesystemobject")
Set confi = fso.createtextfile(chem + "Config.res")
confi.writeline Text12.Text
confi.writeline Text13.Text
confi.Close
Private Sub Text16_GotFocus()
Text16.Text = ""
End Sub
Private Sub Text2_GotFocus()
Text2.Text = ""
End Sub
Private Sub Text3_GotFocus()
Text3.Text = ""
End Sub
Private Sub Text18_GotFocus()
Text18.Text = ""
End Sub
Private Sub Text5_GotFocus()
Text5.Text = ""
End Sub
Private Sub Text19_GotFocus()
Text19.Text = ""
End Sub
sibi12
Messages postés337Date d'inscriptionjeudi 19 décembre 2002StatutMembreDernière intervention15 avril 2006 15 févr. 2004 à 12:38
Salut,
si tu post le .vbp(le texte que tu as dans notepad pas le fichier) d'un projet vb4 on peut peut-être t'aider...
en meme temps post un .frm au cas ou le format aurais changer aussi
cs_dpujol
Messages postés46Date d'inscriptionjeudi 31 juillet 2003StatutMembreDernière intervention14 juin 2009 15 févr. 2004 à 09:58
Hello,
Suarias tu par hazard comment faire pour ouvrir un projet VB6 avec VB4 ?
je te remercie.
16 févr. 2004 à 15:16
c'est un projet vb6 ca...il y a une clé retained...g demander un projet vb4
en fait suffirait de comparer le texte d'un vbp de vb4 et un de vb6 et supprimer les clé en trop ds le le vbp de vb6 pour qu'il fonctionne sous vb4....
15 févr. 2004 à 17:41
Merci quand même.
15 févr. 2004 à 15:47
15 févr. 2004 à 14:12
voici le VBP :
Type=Exe
Form=Form1.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\WINDOWS\System32\stdole2.tlb#OLE Automation
Object={BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0; TABCTL32.OCX
Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; COMDLG32.OCX
IconForm="Form1"
Startup="Form1"
ExeName32="Logiciel de configuration.exe"
Command32=""
Name="Projet1"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1
[MS Transaction Server]
AutoRefresh=1
ET VOICI POUR LE FRM1
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "Logiciel de configuration !"
ClientHeight = 10095
ClientLeft = 45
ClientTop = 435
ClientWidth = 12105
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 10095
ScaleWidth = 12105
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command7
Caption = "Initialisation !"
Height = 255
Left = 9600
TabIndex = 93
Top = 120
Width = 2415
End
Begin TabDlg.SSTab SSTab1
Height = 9855
Left = 120
TabIndex = 0
Top = 120
Width = 11895
_ExtentX = 20981
_ExtentY = 17383
_Version = 393216
Tabs = 2
Tab = 1
TabHeight = 520
TabCaption(0) = "Configuration plaque et lampes !"
TabPicture(0) = "Form1.frx":0000
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "Text1"
Tab(0).Control(1)= "Text2"
Tab(0).Control(2)= "Text3"
Tab(0).Control(3)= "Text4"
Tab(0).Control(4)= "Text5"
Tab(0).Control(5)= "Command2"
Tab(0).Control(6)= "Command3"
Tab(0).Control(7)= "Text7"
Tab(0).Control(8)= "Text8"
Tab(0).Control(9)= "Text9"
Tab(0).Control(10)= "Text10"
Tab(0).Control(11)= "Text11"
Tab(0).Control(12)= "Text6"
Tab(0).Control(13)= "Command1"
Tab(0).Control(14)= "Text12"
Tab(0).Control(15)= "Text13"
Tab(0).Control(16)= "Frame10"
Tab(0).Control(17)= "Command5"
Tab(0).Control(18)= "Text19"
Tab(0).Control(19)= "Command4"
Tab(0).Control(20)= "CommonDialog2"
Tab(0).Control(21)= "Label1"
Tab(0).Control(22)= "Label2"
Tab(0).Control(23)= "Label4"
Tab(0).Control(24)= "Label5"
Tab(0).Control(25)= "Line1"
Tab(0).Control(26)= "Label6(0)"
Tab(0).Control(27)= "Label7"
Tab(0).Control(28)= "Label8"
Tab(0).Control(29)= "Label9"
Tab(0).Control(30)= "Label10"
Tab(0).Control(31)= "Label11"
Tab(0).Control(32)= "Line2"
Tab(0).Control(33)= "Label12"
Tab(0).Control(34)= "Label13"
Tab(0).Control(35)= "Label18"
Tab(0).Control(36)= "Label19"
Tab(0).Control(37)= "Label20"
Tab(0).Control(38)= "Label21"
Tab(0).Control(39)= "Label22"
Tab(0).Control(40)= "Label23"
Tab(0).Control(41)= "Label3"
Tab(0).ControlCount= 42
TabCaption(1) = "Configuration réflexion et chauffage !"
TabPicture(1) = "Form1.frx":001C
Tab(1).ControlEnabled= -1 'True
Tab(1).Control(0)= "Line3"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "Line4"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "Label1015"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "Label1014"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).Control(4)= "Label34"
Tab(1).Control(4).Enabled= 0 'False
Tab(1).Control(5)= "Label35"
Tab(1).Control(5).Enabled= 0 'False
Tab(1).Control(6)= "Frame3"
Tab(1).Control(6).Enabled= 0 'False
Tab(1).Control(7)= "Frame2"
Tab(1).Control(7).Enabled= 0 'False
Tab(1).Control(8)= "Frame1"
Tab(1).Control(8).Enabled= 0 'False
Tab(1).Control(9)= "Combo2"
Tab(1).Control(9).Enabled= 0 'False
Tab(1).Control(10)= "Combo1"
Tab(1).Control(10).Enabled= 0 'False
Tab(1).ControlCount= 11
Begin VB.ComboBox Combo1
Height = 315
Left = 7560
TabIndex = 68
Text = "Combo1"
Top = 600
Width = 2295
End
Begin VB.ComboBox Combo2
Height = 315
Left = 7560
TabIndex = 67
Text = "Combo2"
Top = 1200
Width = 2295
End
Begin VB.Frame Frame1
Caption = "Réflexion Spéculaire"
Height = 2295
Left = 1440
TabIndex = 62
Top = 1920
Width = 8655
Begin VB.TextBox Text101
Alignment = 2 'Center
Height = 375
Left = 6000
TabIndex = 73
Top = 360
Width = 2415
End
Begin VB.TextBox Text102
Alignment = 2 'Center
Height = 375
Left = 5160
TabIndex = 74
Text = "X min"
Top = 840
Width = 735
End
Begin VB.TextBox Text103
Alignment = 2 'Center
Height = 375
Left = 6000
TabIndex = 75
Text = "X Max"
Top = 840
Width = 735
End
Begin VB.TextBox Text104
Alignment = 2 'Center
Height = 375
Left = 6840
TabIndex = 76
Text = "Y min"
Top = 840
Width = 735
End
Begin VB.TextBox Text105
Alignment = 2 'Center
Height = 375
Left = 7680
TabIndex = 77
Text = "Y max"
Top = 840
Width = 735
End
Begin VB.TextBox Text106
Alignment = 2 'Center
Height = 375
Left = 6000
TabIndex = 78
Top = 1320
Width = 2415
End
Begin VB.CommandButton Command101
Caption = " Créer Desreflec.res !"
Height = 375
Left = 6000
TabIndex = 79
Top = 1800
Width = 2415
End
Begin VB.Label Label33
Caption = "Hauteur du réflecteur par rapport à la plaque ? (mm)"
Height = 375
Left = 120
TabIndex = 66
Top = 360
Width = 5175
End
Begin VB.Label Label32
Caption = "Borne du plan :"
Height = 375
Left = 120
TabIndex = 65
Top = 840
Width = 4455
End
Begin VB.Label Label31
Caption = "Coefficient de reflexion ? (0<r<1)"
Height = 375
Left = 120
TabIndex = 64
Top = 1320
Width = 5055
End
Begin VB.Label Label1017
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 63
Top = 1800
Width = 4935
End
End
Begin VB.Frame Frame2
Caption = "Réflexion Diffuse"
Height = 2775
Left = 1440
TabIndex = 56
Top = 1920
Width = 8655
Begin VB.TextBox Text107
Alignment = 2 'Center
Height = 375
Left = 6000
TabIndex = 80
Top = 360
Width = 2415
End
Begin VB.TextBox Text108
Alignment = 2 'Center
Height = 375
Left = 5160
TabIndex = 81
Text = "X min"
Top = 840
Width = 735
End
Begin VB.TextBox Text109
Alignment = 2 'Center
Height = 375
Left = 6000
TabIndex = 82
Text = "X max"
Top = 840
Width = 735
End
Begin VB.TextBox Text1010
Alignment = 2 'Center
Height = 405
Left = 6840
TabIndex = 83
Text = "Y min"
Top = 840
Width = 735
End
Begin VB.TextBox Text1011
Alignment = 2 'Center
Height = 405
Left = 7680
TabIndex = 84
Text = "Y max"
Top = 840
Width = 735
End
Begin VB.TextBox Text1012
Alignment = 2 'Center
Height = 405
Left = 6000
TabIndex = 85
Top = 1320
Width = 2415
End
Begin VB.TextBox Text1013
Alignment = 2 'Center
Height = 375
Left = 6000
TabIndex = 86
Top = 1800
Width = 2415
End
Begin VB.CommandButton Command102
Caption = "Créer Desreflec.res !"
Height = 375
Left = 6000
TabIndex = 87
Top = 2280
Width = 2415
End
Begin VB.Label Label6
Caption = "Hauteur du réflecteur par rapport à la plaque ? (mm)"
Height = 375
Index = 1
Left = 120
TabIndex = 61
Top = 360
Width = 5175
End
Begin VB.Label Label30
Caption = "Borne du plan :"
Height = 375
Left = 120
TabIndex = 60
Top = 840
Width = 4935
End
Begin VB.Label Label29
Caption = "Nombre de lancers ?"
Height = 375
Left = 120
TabIndex = 59
Top = 1320
Width = 5055
End
Begin VB.Label Label28
Caption = "Coefficient de reflexion ? (0<r<1)"
Height = 375
Left = 120
TabIndex = 58
Top = 1800
Width = 4815
End
Begin VB.Label Label1016
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 57
Top = 2280
Width = 4455
End
End
Begin VB.Frame Frame3
Caption = "Caractéristiques générales"
Height = 2895
Left = 1440
TabIndex = 50
Top = 4920
Width = 8655
Begin VB.TextBox Text1014
Alignment = 2 'Center
Height = 375
Left = 6000
TabIndex = 88
Top = 360
Width = 2415
End
Begin VB.TextBox Text1015
Alignment = 2 'Center
Height = 375
Left = 6000
TabIndex = 89
Top = 840
Width = 2415
End
Begin VB.TextBox Text1016
Alignment = 2 'Center
Height = 375
Left = 6000
TabIndex = 90
Top = 1320
Width = 2415
End
Begin VB.TextBox Text1017
Alignment = 2 'Center
Height = 405
Left = 6000
TabIndex = 91
Top = 1800
Width = 2415
End
Begin VB.CommandButton Command103
Caption = "Créer Chauffage.res !"
Height = 375
Left = 6000
TabIndex = 92
Top = 2400
Width = 2415
End
Begin VB.Label Label27
Caption = "Puissance des lampes ? (W)"
Height = 375
Left = 120
TabIndex = 55
Top = 360
Width = 4935
End
Begin VB.Label Label26
Caption = "Température de la feuille ? (°C)"
Height = 375
Left = 120
TabIndex = 54
Top = 840
Width = 5295
End
Begin VB.Label Label25
Caption = "Temps de chauffage ? (s)"
Height = 375
Left = 120
TabIndex = 53
Top = 1320
Width = 5295
End
Begin VB.Label Label24
Caption = "Temps de refroidissement ? (s)"
Height = 375
Left = 120
TabIndex = 52
Top = 1800
Width = 5295
End
Begin VB.Label Label1018
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 51
Top = 2400
Width = 5055
End
End
Begin VB.TextBox Text1
Alignment = 2 'Center
Height = 495
Left = -70320
TabIndex = 1
Top = 600
Width = 855
End
Begin VB.TextBox Text2
Alignment = 2 'Center
Height = 495
Left = -70320
TabIndex = 2
Text = "X"
Top = 1080
Width = 855
End
Begin VB.TextBox Text3
Alignment = 2 'Center
Height = 495
Left = -69360
TabIndex = 3
Text = "Y"
Top = 1080
Width = 855
End
Begin VB.TextBox Text4
Alignment = 2 'Center
Height = 495
Left = -70320
TabIndex = 4
Top = 1560
Width = 855
End
Begin VB.TextBox Text5
Alignment = 2 'Center
Height = 495
Left = -70320
TabIndex = 5
Text = "X"
Top = 2040
Width = 855
End
Begin VB.CommandButton Command2
Caption = "Créer Plaque.res !"
Height = 495
Left = -66360
TabIndex = 7
Top = 2520
Width = 1455
End
Begin VB.CommandButton Command3
Caption = "Choix du fichier des données physiques du polymère !"
Height = 495
Left = -67320
TabIndex = 24
Top = 600
Width = 2415
End
Begin VB.TextBox Text7
Alignment = 2 'Center
Height = 495
Left = -70320
TabIndex = 9
Top = 3720
Width = 855
End
Begin VB.TextBox Text8
Alignment = 2 'Center
Height = 495
Left = -70320
TabIndex = 10
Top = 4200
Width = 855
End
Begin VB.TextBox Text9
Alignment = 2 'Center
Height = 495
Left = -70320
TabIndex = 11
Top = 4680
Width = 855
End
Begin VB.TextBox Text10
Alignment = 2 'Center
Height = 735
Left = -70320
TabIndex = 12
Top = 5160
Width = 855
End
Begin VB.TextBox Text11
Alignment = 2 'Center
Height = 495
Left = -70320
TabIndex = 13
Top = 5880
Width = 855
End
Begin VB.TextBox Text6
Alignment = 2 'Center
Height = 480
Left = -70320
TabIndex = 8
Top = 3240
Width = 855
End
Begin VB.CommandButton Command1
Caption = "Créer Biblio.res ! "
Height = 495
Left = -66360
TabIndex = 14
Top = 5880
Width = 1455
End
Begin VB.TextBox Text12
Alignment = 2 'Center
Height = 495
Left = -70320
TabIndex = 15
Top = 6600
Width = 855
End
Begin VB.TextBox Text13
Alignment = 2 'Center
Height = 495
Left = -70320
TabIndex = 16
Top = 7080
Width = 855
End
Begin VB.Frame Frame10
Caption = "Aucune rangées de lampe !"
Enabled = 0 'False
Height = 2415
Left = -69240
TabIndex = 19
Top = 6600
Width = 4335
Begin VB.TextBox Text14
Alignment = 2 'Center
Height = 285
Left = 2760
TabIndex = 25
Top = 480
Width = 495
End
Begin VB.TextBox Text15
Alignment = 2 'Center
Height = 285
Left = 2760
TabIndex = 27
Top = 840
Width = 495
End
Begin VB.TextBox Text16
Alignment = 2 'Center
Height = 285
Left = 2760
TabIndex = 29
Text = "X"
Top = 1200
Width = 495
End
Begin VB.TextBox Text17
Alignment = 2 'Center
Height = 285
Left = 2760
TabIndex = 33
Top = 1560
Width = 495
End
Begin VB.TextBox Text18
Alignment = 2 'Center
Height = 285
Left = 3360
TabIndex = 31
Text = "Y"
Top = 1200
Width = 495
End
Begin VB.CommandButton Command6
Caption = "Valider la rangée !"
Height = 375
Left = 120
TabIndex = 35
Top = 1920
Width = 1695
End
Begin VB.Label Label14
Caption = "Nombre de lampes ?"
Height = 255
Left = 120
TabIndex = 23
Top = 480
Width = 2500
End
Begin VB.Label Label15
Caption = "Entraxe ?"
Height = 255
Left = 120
TabIndex = 22
Top = 840
Width = 2500
End
Begin VB.Label Label16
Caption = "Origine de x et y ?"
Height = 255
Left = 120
TabIndex = 21
Top = 1200
Width = 2500
End
Begin VB.Label Label17
Caption = "Angle en degré ?"
Height = 255
Left = 120
TabIndex = 20
Top = 1560
Width = 2500
End
End
Begin VB.CommandButton Command5
Caption = "Valider !"
Height = 375
Left = -70320
TabIndex = 17
Top = 7680
Width = 855
End
Begin VB.TextBox Text19
Alignment = 2 'Center
Height = 495
Left = -69360
TabIndex = 6
Text = "Y"
Top = 2040
Width = 855
End
Begin VB.CommandButton Command4
Caption = "Choix du fichier de définitions !"
Height = 495
Left = -67320
TabIndex = 18
Top = 3240
Width = 2415
End
Begin MSComDlg.CommonDialog CommonDialog2
Left = -63120
Top = 600
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Label Label35
Caption = "Type d'émetteurs ?"
Height = 255
Left = 1440
TabIndex = 72
Top = 720
Width = 3735
End
Begin VB.Label Label34
Caption = "Type de réflexion ?"
Height = 255
Left = 1440
TabIndex = 71
Top = 1200
Width = 3735
End
Begin VB.Label Label1014
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 7800
TabIndex = 70
Top = 600
Width = 2295
End
Begin VB.Label Label1015
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 7800
TabIndex = 69
Top = 1200
Width = 2415
End
Begin VB.Line Line4
X1 = 1440
X2 = 10080
Y1 = 1680
Y2 = 1680
End
Begin VB.Line Line3
X1 = 1440
X2 = 10080
Y1 = 4800
Y2 = 4800
End
Begin VB.Label Label1
Caption = "Epaisseur Z de la plaque ?"
Height = 255
Left = -73560
TabIndex = 49
Top = 720
Width = 3015
End
Begin VB.Label Label2
Caption = "Dimension X et Y ?"
Height = 255
Left = -73560
TabIndex = 48
Top = 1200
Width = 3015
End
Begin VB.Label Label4
Caption = "Nombre de noeuds suivants Z ?"
Height = 255
Left = -73560
TabIndex = 47
Top = 1680
Width = 3015
End
Begin VB.Label Label5
Caption = "Nombre de noeuds suivants X et Y ?"
Height = 255
Left = -73560
TabIndex = 46
Top = 2160
Width = 3015
End
Begin VB.Line Line1
X1 = -73560
X2 = -64920
Y1 = 3120
Y2 = 3120
End
Begin VB.Label Label6
Caption = "Diamètre de la lampe ou largeur ?"
Height = 255
Index = 0
Left = -73560
TabIndex = 45
Top = 3360
Width = 3015
End
Begin VB.Label Label7
Caption = "Longueur de la lampe ?"
Height = 255
Left = -73560
TabIndex = 44
Top = 3840
Width = 3015
End
Begin VB.Label Label8
Caption = "Température du filament de Tungstène ?"
Height = 255
Left = -73560
TabIndex = 43
Top = 4320
Width = 3015
End
Begin VB.Label Label9
Caption = "Emissivité ?"
Height = 255
Left = -73560
TabIndex = 42
Top = 4800
Width = 3015
End
Begin VB.Label Label10
Caption = "Nombre de Noeuds suivant la circonférence ou la largeur ?"
Height = 495
Left = -73560
TabIndex = 41
Top = 5280
Width = 3015
End
Begin VB.Label Label11
Caption = "Nombre de Noeuds suivant la longueur ?"
Height = 255
Left = -73560
TabIndex = 40
Top = 6000
Width = 3015
End
Begin VB.Line Line2
X1 = -73560
X2 = -64920
Y1 = 6480
Y2 = 6480
End
Begin VB.Label Label12
Caption = "Distance entre le four et la plaque ?"
Height = 255
Left = -73560
TabIndex = 39
Top = 6720
Width = 3015
End
Begin VB.Label Label13
Caption = "Nombre de rangées de lampe ?"
Height = 255
Left = -73560
TabIndex = 38
Top = 7200
Width = 3015
End
Begin VB.Label Label18
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = -69240
TabIndex = 37
Top = 9240
Width = 4335
End
Begin VB.Label Label19
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = -69360
TabIndex = 36
Top = 2640
Width = 2775
End
Begin VB.Label Label20
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = -69240
TabIndex = 34
Top = 6000
Width = 2895
End
Begin VB.Label Label21
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = -73560
TabIndex = 32
Top = 2640
Width = 3735
End
Begin VB.Label Label22
Alignment = 2 'Center
Caption = "Toutes les dimensions sont en mm."
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = -73560
TabIndex = 30
Top = 8880
Width = 3735
End
Begin VB.Label Label23
Alignment = 2 'Center
Caption = "Les températures sont en K."
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = -73560
TabIndex = 28
Top = 9240
Width = 3735
End
Begin VB.Label Label3
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = -69240
TabIndex = 26
Top = 4320
Width = 4335
End
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 240
Top = 120
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public chem
Public nbre
Public vr
Public lampe
Private Sub Combo1_Click()
Combo1.Enabled = False
a = Combo1.ListIndex
If a 0 Then Combo2.Enabled True Else Frame3.Visible = True
Set fso = CreateObject("scripting.filesystemobject")
Set typelampe = fso.createtextfile(App.Path + "/Typelampe.res")
If a = 0 Then typelampe.writeline "1" Else typelampe.writeline "2"
typelampe.Close
Label1014.Caption = "Typelampe.res est créé !"
End Sub
Private Sub command101_Click()
Set fso = CreateObject("scripting.filesystemobject")
Set desreflect = fso.createtextfile(App.Path + "/Desreflect.res")
desreflect.writeline Text101.Text
desreflect.writeline Text102.Text
desreflect.writeline Text103.Text
desreflect.writeline Text104.Text
desreflect.writeline Text105.Text
desreflect.writeline Text106.Text
desreflect.Close
Label1017.Caption = "Desreflec.res est créé !"
Frame1.Enabled = False
Frame3.Visible = True
End Sub
Private Sub command102_Click()
Set fso = CreateObject("scripting.filesystemobject")
Set desreflect = fso.createtextfile(App.Path + "/Desreflect.res")
desreflect.writeline Text107.Text
desreflect.writeline Text108.Text
desreflect.writeline Text109.Text
desreflect.writeline Text1010.Text
desreflect.writeline Text1011.Text
desreflect.writeline Text1012.Text
desreflect.writeline Text1013.Text
desreflect.Close
Label1016.Caption = "Resdeflec.res est créé !"
Frame2.Enabled = False
Frame3.Visible = True
End Sub
Private Sub command103_Click()
Set fso = CreateObject("scripting.filesystemobject")
Set chauffage = fso.createtextfile(App.Path + "/Chauffage.res")
chauffage.writeline Text1014.Text
chauffage.writeline Text1015.Text
chauffage.writeline Text1016.Text
chauffage.writeline Text1017.Text
chauffage.Close
Label1018.Caption = "Chauffage.res est créé !"
Frame3.Enabled = False
End Sub
Sub pro0()
Frame1.Visible = True
End Sub
Sub pro1()
Frame2.Visible = True
End Sub
Sub pro2()
Frame3.Visible = True
End Sub
Private Sub Combo2_Click()
Combo2.Enabled = False
b = Combo2.ListIndex
Set fso = CreateObject("scripting.filesystemobject")
Set reflexion = fso.createtextfile(App.Path + "/Reflexion.res")
If b 0 Then reflexion.writeline "1" Else If b 1 Then reflexion.writeline "2" Else If b = 2 Then reflexion.writeline "3"
reflexion.Close
Label1015.Caption = "Reflexion.res est créé !"
If b = 0 Then pro0
If b = 1 Then pro1
If b = 2 Then pro2
End Sub
Private Sub Command7_Click()
Unload Form1
Form1.Show
End Sub
Private Sub text102_GotFocus()
Text102.Text = ""
End Sub
Private Sub text103_GotFocus()
Text103.Text = ""
End Sub
Private Sub text104_GotFocus()
Text104.Text = ""
End Sub
Private Sub text105_GotFocus()
Text105.Text = ""
End Sub
Private Sub text108_GotFocus()
Text108.Text = ""
End Sub
Private Sub text109_GotFocus()
Text109.Text = ""
End Sub
Private Sub text1010_GotFocus()
Text1010.Text = ""
End Sub
Private Sub text1011_GotFocus()
Text1011.Text = ""
End Sub
Private Sub Command1_Click()
Set fso = CreateObject("scripting.filesystemobject")
Set biblio = fso.createtextfile(chem + "Biblio.res")
biblio.writeline Text6.Text
biblio.writeline Text7.Text
biblio.writeline Text8.Text
biblio.writeline Text9.Text
biblio.writeline Text10.Text
biblio.writeline Text11.Text
biblio.Close
Label20.Caption = "Le fichier biblio.res à été créé !"
Command1.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
Text10.Enabled = False
Text11.Enabled = False
End Sub
Private Sub Command2_Click()
Set fso = CreateObject("scripting.filesystemobject")
Set plaque = fso.createtextfile(chem + "Plaque.res")
plaque.writeline Text1.Text
plaque.writeline Text2.Text + " " + Text3.Text
plaque.writeline Text4.Text
plaque.writeline Text5.Text + " " + Text19.Text
plaque.Close
Label19.Caption = "Le fichier Plaque.res à été créé! "
Command2.Enabled = False
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text19.Enabled = False
End Sub
Private Sub Command3_Click()
CommonDialog1.CancelError = True
On Error GoTo fin
CommonDialog1.DialogTitle = "Choix du fichier des données physiques du polymère ?"
CommonDialog1.ShowOpen
fich = CommonDialog1.FileName
Set fso = CreateObject("scripting.filesystemobject")
Set fi = fso.getfile(fich)
fi.Copy chem + "Caract.res"
Label21.Caption = "Le fichier Caract.res à été créé !"
Command3.Enabled = False
fin:
Exit Sub
End Sub
Private Sub Command4_Click()
CommonDialog1.CancelError = True
On Error GoTo fin
CommonDialog1.DialogTitle = "Choix du fichier de définitions ?"
CommonDialog1.ShowOpen
fich = CommonDialog1.FileName
Set fso = CreateObject("scripting.filesystemobject")
Set fi = fso.getfile(fich)
fi.Copy chem + "Definition.don"
Label3.Caption = "Le fichier Definition.don à été créé !"
Command4.Enabled = False
fin:
Exit Sub
End Sub
Private Sub Command5_Click()
Set fso = CreateObject("scripting.filesystemobject")
Set confi = fso.createtextfile(chem + "Config.res")
confi.writeline Text12.Text
confi.writeline Text13.Text
confi.Close
Frame10.Enabled = True
nbre = Val(Text13.Text)
vr = 0
reco:
vr = vr + 1
Frame10.Caption = "Rangée N°" + Str(vr)
Text12.Enabled = False
Text13.Enabled = False
Command5.Enabled = False
Text14.SetFocus
End Sub
Private Sub Command6_Click()
Open chem + "Config.res" For Append As #1
Print #1, Text14.Text
Print #1, Text15.Text
Print #1, Text16.Text + " " + Text18.Text
Print #1, Text17.Text
Close #1
lampe = lampe + Val(Text14.Text)
vr = vr + 1
If vr <= nbre Then
Frame10.Caption = "Rangée N°" + Str(vr)
Text14.Text = ""
Text15.Text = ""
Text16.Text = "X"
Text17.Text = ""
Text18.Text = "Y"
Text14.SetFocus
Else
Frame10.Caption = "Les rangées ont été décrites"
Text14.Text = ""
Text15.Text = ""
Text16.Text = ""
Text17.Text = ""
Text18.Text = ""
Frame10.Enabled = False
Set fso = CreateObject("scripting.filesystemobject")
Set nblampes = fso.createtextfile(chem + "Nb-lampe.res")
nblampes.writeline lampe
nblampes.Close
Command5.Enabled = False
Label18.Caption = "Les fichier Config.res et Nb-lampe.res ont été créé !"
End If
End Sub
Private Sub Form_Load()
Frame1.Visible = False
Frame2.Visible = False
'Frame3.Visible = False
Combo2.Enabled = False
Combo1.Clear
Combo1.Text = "Type émetteurs"
Combo1.AddItem "Philips"
Combo1.AddItem "TQS"
Combo1.AddItem "Elstein"
Combo2.Clear
Combo2.Text = "Type réflexion"
Combo2.AddItem "Spéculaire"
Combo2.AddItem "Diffuse"
Combo2.AddItem "Pas de réflexion"
chem = App.Path + ""
SSTab1.TabVisible(1) = True
End Sub
Private Sub Text16_GotFocus()
Text16.Text = ""
End Sub
Private Sub Text2_GotFocus()
Text2.Text = ""
End Sub
Private Sub Text3_GotFocus()
Text3.Text = ""
End Sub
Private Sub Text18_GotFocus()
Text18.Text = ""
End Sub
Private Sub Text5_GotFocus()
Text5.Text = ""
End Sub
Private Sub Text19_GotFocus()
Text19.Text = ""
End Sub
15 févr. 2004 à 12:38
si tu post le .vbp(le texte que tu as dans notepad pas le fichier) d'un projet vb4 on peut peut-être t'aider...
en meme temps post un .frm au cas ou le format aurais changer aussi
15 févr. 2004 à 09:58
Suarias tu par hazard comment faire pour ouvrir un projet VB6 avec VB4 ?
je te remercie.