VERSION 5.00 Object = "{6BF52A50-394A-11D3-B153-00C04F79FAA6}#1.0#0"; "wmp.dll" Begin VB.Form Form5 BackColor = &H00C0FFFF& Caption = "Interpolation liniéare " ClientHeight = 3030 ClientLeft = 120 ClientTop = 450 ClientWidth = 4560 BeginProperty Font Name = "Arial Rounded MT Bold" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000000& LinkTopic = "Form5" ScaleHeight = 8430 ScaleWidth = 15120 StartUpPosition = 3 'Windows Default Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H0000FFFF& BorderStyle = 0 'None BeginProperty Font Name = "Arial Rounded MT Bold" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 390 Left = 1920 TabIndex = 21 Text = "22" Top = 4800 Width = 735 End Begin VB.TextBox VT Alignment = 2 'Center BackColor = &H0000FFFF& BorderStyle = 0 'None BeginProperty Font Name = "Arial Rounded MT Bold" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 390 Left = 1920 TabIndex = 19 Text = "200" Top = 3720 Width = 855 End Begin VB.TextBox C Alignment = 2 'Center BackColor = &H0000FFFF& BorderStyle = 0 'None BeginProperty Font Name = "Arial Rounded MT Bold" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 345 Left = 1920 TabIndex = 18 Text = "19" Top = 4440 Width = 735 End Begin VB.TextBox V Alignment = 2 'Center BackColor = &H0000FFFF& BorderStyle = 0 'None BeginProperty Font Name = "Arial Rounded MT Bold" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 435 Left = 3120 TabIndex = 15 Text = "-15" Top = 4440 Width = 735 End Begin VB.CommandButton Command1 Caption = "Retour " BeginProperty Font Name = "Arial Rounded MT Bold" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = -1 'True Strikethrough = 0 'False EndProperty Height = 510 Left = 12960 TabIndex = 2 Top = 7320 Width = 1455 End Begin VB.Label Label3 BackColor = &H00FFFFFF& Caption = "N60 G01 X" BeginProperty Font Name = "Arial Rounded MT Bold" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 360 TabIndex = 20 Top = 4800 Width = 5175 End Begin VB.Line Line2 X1 = 960 X2 = 480 Y1 = 480 Y2 = 480 End Begin VB.Line Line3 X1 = 960 X2 = 480 Y1 = 2160 Y2 = 2160 End Begin VB.Line Line1 X1 = 480 X2 = 480 Y1 = 480 Y2 = 2160 End Begin VB.Label Label21 BackStyle = 0 'Transparent Caption = "G99 ;" BeginProperty Font Name = "Arial Rounded MT Bold" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 4800 TabIndex = 17 Top = 4440 Width = 1095 End Begin VB.Label Label15 BackStyle = 0 'Transparent Caption = " N80 M05 M30 ;" BeginProperty Font Name = "Arial Rounded MT Bold" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 240 TabIndex = 16 Top = 5640 Width = 2535 End Begin VB.Label Label31 BackColor = &H00FFFFFF& Caption = " Z" BeginProperty Font Name = "Arial Rounded MT Bold" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 420 Left = 2640 TabIndex = 14 Top = 4440 Width = 1095 End Begin VB.Label Label18 BackStyle = 0 'Transparent Caption = " N70 G00 X35 Z10 ;" BeginProperty Font Name = "Arial Rounded MT Bold" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 360 TabIndex = 13 Top = 5280 Width = 2535 End Begin VB.Label Label17 BackColor = &H00FFFFFF& Caption = " F0.05" BeginProperty Font Name = "Arial Rounded MT Bold" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 420 Left = 3720 TabIndex = 12 Top = 4440 Width = 1815 End Begin VB.Label Label12 BackColor = &H00FFFFFF& Caption = " N50 G01 X " BeginProperty Font Name = "Arial Rounded MT Bold" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 420 Left = 360 TabIndex = 11 Top = 4440 Width = 2055 End Begin VB.Label Label11 BackStyle = 0 'Transparent Caption = " N40 G00 X19 Z2 ;" BeginProperty Font Name = "Arial Rounded MT Bold" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 270 Left = 360 TabIndex = 10 Top = 4200 Width = 3015 End Begin VB.Label Label10 BackColor = &H00FFFFFF& Caption = "N30 M04 S " BeginProperty Font Name = "Arial Rounded MT Bold" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 270 Left = 360 TabIndex = 9 Top = 3840 Width = 2535 End Begin VB.Label Label9 BackStyle = 0 'Transparent Caption = " N20 M06 T01 ; " BeginProperty Font Name = "Arial Rounded MT Bold" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 240 TabIndex = 8 Top = 3600 Width = 3735 End Begin VB.Label Label8 BackStyle = 0 'Transparent Caption = " N10 G21 ;" BeginProperty Font Name = "Arial Rounded MT Bold" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 360 TabIndex = 7 Top = 3360 Width = 2535 End Begin VB.Label Label7 BackStyle = 0 'Transparent Caption = " % O0001 ;" BeginProperty Font Name = "Arial Rounded MT Bold" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 240 TabIndex = 6 Top = 3120 Width = 2535 End Begin VB.Label Label6 BackStyle = 0 'Transparent Caption = " " ForeColor = &H8000000B& Height = 495 Left = 4680 TabIndex = 5 Top = 2400 Width = 1095 End Begin VB.Label Label4 BackStyle = 0 'Transparent Caption = " " ForeColor = &H8000000B& Height = 495 Left = 3840 TabIndex = 4 Top = 2400 Width = 615 End Begin VB.Label Label5 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = " séquence vidéo " BeginProperty Font Name = "Arial Rounded MT Bold" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = -1 'True Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 735 Left = 6720 TabIndex = 3 Top = 3120 Width = 1455 End Begin WMPLibCtl.WindowsMediaPlayer WindowsMediaPlayer1 Height = 4215 Left = 6720 TabIndex = 1 Top = 3000 Width = 8415 URL = "C:\Users\user\Downloads\video-1597332204.mp4" rate = 1 balance = 0 currentPosition = 0 defaultFrame = "" playCount = 1 autoStart = -1 'True currentMarker = 0 invokeURLs = -1 'True baseURL = "" volume = 50 mute = -1 'True uiMode = "full" stretchToFit = 0 'False windowlessVideo = 0 'False enabled = -1 'True enableContextMenu= -1 'True fullScreen = 0 'False SAMIStyle = "" SAMILang = "" SAMIFilename = "" captioningID = "" enableErrorDialogs= 0 'False _cx = 14843 _cy = 7435 End Begin VB.Label Label1 BackColor = &H0000FFFF& BackStyle = 0 'Transparent Caption = " G01 interpolation linéaire" BeginProperty Font Name = "Arial Rounded MT Bold" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = -1 'True Strikethrough = 0 'False EndProperty ForeColor = &H00000000& Height = 855 Left = 600 TabIndex = 0 Top = 840 Width = 4095 End End Attribute VB_Name = "Form5" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub A_Change() C = A End Sub Private Sub Command1_Click() Form4.Show End Sub Private Sub D_Change() P = (8000) / (3.14 * D) End Sub Private Sub s_Click() End Sub Private Sub Text8_Change() End Sub Private Sub P_Change() VT = P End Sub Private Sub Z_Change() V = Z End Sub