Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 'calcul pour ajouter un nombre X (1) a la date reel Dim madatege As Date = Now mtb_datege.Text = CStr(DateAdd(DateInterval.Day, Val(txt_NbjGe.Text), madatege)) ' Cacul pour ajouter un nombre X (2) a la date reel Dim madateCr As Date = Now mtb_date1.Text = CStr(DateAdd(DateInterval.Day, Val(txt_NbjGe.Text) + Val(txt_NbjCr.Text), madateCr)) 'Calcul pour ajouter un nombre X (3) a la date reel Dim madateFl As Date = Now mtb_date2.Text = CStr(DateAdd(DateInterval.Day, Val(txt_NbjGe.Text) + Val(txt_NbjCr.Text) + Val(txt_NbjourFl.Text), madateFl)) 'calcul pour ajouter un nombre X (4) a la date reel Dim madater As Date = Now mtb_Dateri.Text = CStr(DateAdd(DateInterval.Day, Val(txt_NbjGe.Text) + Val(txt_NbjCr.Text) + Val(txt_NbjourFl.Text) + Val(txt_NbjR.Text), madater)) End Sub
private stade as string Private Sub readfile() Dim nfile As Integer Dim thisdate As Date Dim indicateur As Byte Dim find As Boolean Dim j As Integer nfile = FreeFile() 'n is next file number if you have many file FileOpen(nfile, "E:\ReadFile\MESCACTUS.TXT", OpenMode.Input) 'dans le fichier mescactus j'ai 4 dates indicateur = 1 find = False Do While Not EOF(nfile) thisdate = CDate(LineInput(nfile)) j = DateDiff(DateInterval.Day, Now, thisdate) If j >= 0 Then If Not find Then Select Case indicateur Case 1 : stade = "germination" Case 2 : stade = "croissance" Case 3 : stade = "floraison" Case 4 : stade = "rincage" End Select find = True End If End If indicateur = indicateur + 1 Loop FileClose(nfile) End Sub
Private Sub btn_Enregistrer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Enregistrer.Click SaveFileDialog.FileName = txt_NomCactus.Text SaveFileDialog.Filter = "Fichiers can|*.can" SaveFileDialog.InitialDirectory = "" If SaveFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then Dim sw As New System.IO.StreamWriter(SaveFileDialog.FileName) sw.WriteLine(mtb_date.Text) sw.WriteLine(mtb_date1.Text) sw.WriteLine(mtb_date2.Text) sw.WriteLine(mtb_Daterin.Text) sw.WriteLine(txt_NbjGer.Text) sw.WriteLine(txt_NbjCroiss.Text) sw.WriteLine(txt_NbjourFlo.Text) sw.WriteLine(txt_NbjRin.Text) sw.WriteLine(txt_Nomcactus.Text) sw.Flush() End If
Private Sub btn_New_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_New.Click OpenFileDialog.FileName = "" OpenFileDialog.Filter = "Fichiers can(*.can)|*.can" If OpenFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then Dim sr As New System.IO.StreamReader(OpenFileDialog.FileName) txt_date.Text = sr.ReadLine txt_date1.Text = sr.ReadLine txt_date2.Text = sr.ReadLine txt_Daterin.Text = sr.ReadLine txt_NbjGer.Text = sr.ReadLine txt_NbjCroiss.Text = sr.ReadLine txt_NbjourFlo.Text = sr.ReadLine txt_NbjRin.Text = sr.ReadLine txt_Nomcactus.Text = sr.ReadLine sr.Close() End If 'Change le titre de la form par le nom du cactus Me.Text = txt_Nomcactus.Text End Sub