[R] Modifier un élément d'une liste

[silvere]

Titre pas très adapter mais bon je savais pas quoi mettre

Mon pbr est la partie verte :

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Dim $memo[101]
Dim $heure[101]
Dim $min[101]
Global $nombredememo, $anne, $mois, $jours, $heure, $min, $date, $memo
$memoactuel = 1
$nombredememo = 1

#region ### START Koda GUI section ### Form=C:\Users\Silvere\Desktop\Form1.kxf
Global $Form1 = GUICreate("Form1", 516, 245, 215, 170)
Global $Button1 = GUICtrlCreateButton("<", 8, 16, 97, 169)
GUICtrlSetFont(-1, 90, 400, 0, "MS Sans Serif")
Global $Group1 = GUICtrlCreateGroup("Informations", 128, 8, 265, 177)
Global $Label1 = GUICtrlCreateLabel("Memo :", 144, 64, 48, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
Global $Label2 = GUICtrlCreateLabel("Heure :", 144, 120, 47, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
Global $Input_memo = GUICtrlCreateInput("", 200, 64, 169, 21)
Global $Input_heure = GUICtrlCreateInput("", 200, 120, 25, 21)
Global $Input_min = GUICtrlCreateInput("", 248, 120, 25, 21)
Global $Label3 = GUICtrlCreateLabel("h", 232, 120, 13, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Button3 = GUICtrlCreateButton("Nouveau", 128, 200, 81, 33)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
Global $Button4 = GUICtrlCreateButton("Minimiser", 221, 200, 81, 33)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
Global $Button5 = GUICtrlCreateButton("Supprimer", 312, 200, 81, 33)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
Global $Button2 = GUICtrlCreateButton(">", 416, 16, 97, 169)
GUICtrlSetFont(-1, 90, 400, 0, "MS Sans Serif")
Global $Label4 = GUICtrlCreateLabel($memoactuel & "/" & $nombredememo, 450, 208, 60, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            If $memoactuel > 1 Then
                $memo[$memoactuel] = GUICtrlRead($Input_memo)
                $heure[$memoactuel] = GUICtrlRead($Input_heure)
                $min[$memoactuel] = GUICtrlRead($Input_min)
                $memoactuel = $memoactuel - 1
                GUICtrlSetData($Input_heure, $heure[$memoactuel])
                GUICtrlSetData($Input_min, $min[$memoactuel])
                GUICtrlSetData($Label4, $memoactuel & "/" & $nombredememo)
                GUICtrlSetData($Input_memo, $memo[$memoactuel])
            EndIf
        Case $Button2
            If $memoactuel < $nombredememo Then
                $memo[$memoactuel] = GUICtrlRead($Input_memo)
                $heure[$memoactuel] = GUICtrlRead($Input_heure)
                $min[$memoactuel] = GUICtrlRead($Input_min)
                $memoactuel = $memoactuel + 1
                GUICtrlSetData($Input_heure, $heure[$memoactuel])
                GUICtrlSetData($Input_min, $min[$memoactuel])
                GUICtrlSetData($Label4, $memoactuel & "/" & $nombredememo)
                GUICtrlSetData($Input_memo, $memo[$memoactuel])
            EndIf
        Case $Button3
            If $nombredememo <> 100 Then
                $nombredememo = $nombredememo + 1
                GUICtrlSetData($Label4, $memoactuel & "/" & $nombredememo)
            Else
                MsgBox(64, "Information", "Vous oublier beaucoup de chose vous :p")
            EndIf
        Case $Button4
        Case $Button5
            If $memoactuel = $nombredememo Then
                $memo[$memoactuel] = ""
                $heure[$memoactuel] = ""
                $min[$memoactuel] = ""
                $memoactuel = $memoactuel - 1
                $nombredememo = $nombredememo - 1
                GUICtrlSetData($Label4, $memoactuel & "/" & $nombredememo)
            Else
[color=#408000]             MsgBox(64, "Information", "Vous ne pouvez que supprimer le dernier memo car je sais pas comment faire pour les autres")
                ;je pense que sa commence comme sa :
                ;For $i = $memoactuel To $nombredememo
                ; on renome toute les variables $min, $memo et $heure qui sont au dessus de $memoactuel
                ;Next
                ;mais je sais pas faire[/color]
            EndIf

    EndSwitch
WEnd

[Tlem]

Pour le titre, vous auriez pu faire mieux quand même !!!
Genre :
Supprimer un élément d'un tableau.
ou
Supprimer un élément d'une liste

Ensuite en ce qui concerne la question, il vous suffit de supprimer l'élément du tableau, mais avant cela, je vois plusieurs problèmes principaux à votre programme :
1 - Les informations ne sont stockées qu'en mémoire, donc si le programme est fermé ... plus de mémos.

2 - Au démarrage du programme, si vous cliquez sur 'Supprimer' trois fois => plantage

3 - 'Minimiser' ... Marche pas

4 - Les heures de saisie ... Marche pas

Alors je suis conscient que votre programme en est au début, mais avant de vous casser la tête sur certains points délicats, réglez déjà les problèmes plus simples.

[silvere]

Je voulais faire du plus complexe au moins complexe mais bon je vais inverser.

[silvere]

Je ferais l'option qui enregistre a la fin

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Dim $memo[101]
Dim $heure[101]
Dim $min[101]
Global $nombredememo, $anne, $mois, $jours, $heure, $min, $date, $memo
$memoactuel = 1
$nombredememo = 1

#region ### START Koda GUI section ### Form=C:\Users\Silvere\Desktop\Form1.kxf
Opt("TrayMenuMode", 1)
Global $Form1 = GUICreate("Form1", 516, 245, 215, 170)
Global $Button1 = GUICtrlCreateButton("<", 8, 16, 97, 169)
GUICtrlSetFont(-1, 90, 400, 0, "MS Sans Serif")
Global $Group1 = GUICtrlCreateGroup("Informations", 128, 8, 265, 177)
Global $Label1 = GUICtrlCreateLabel("Memo :", 144, 64, 48, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
Global $Label2 = GUICtrlCreateLabel("Heure :", 144, 120, 47, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
Global $Input_memo = GUICtrlCreateInput("", 200, 64, 169, 21)
Global $Input_heure = GUICtrlCreateInput("", 200, 120, 25, 21)
Global $Input_min = GUICtrlCreateInput("", 248, 120, 25, 21)
Global $Label3 = GUICtrlCreateLabel("h", 232, 120, 13, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Button3 = GUICtrlCreateButton("Nouveau", 128, 200, 81, 33)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
Global $Button4 = GUICtrlCreateButton("Minimiser", 221, 200, 81, 33)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
Global $Button5 = GUICtrlCreateButton("Supprimer", 312, 200, 81, 33)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
Global $Button2 = GUICtrlCreateButton(">", 416, 16, 97, 169)
GUICtrlSetFont(-1, 90, 400, 0, "MS Sans Serif")
Global $Label4 = GUICtrlCreateLabel($memoactuel & "/" & $nombredememo, 450, 208, 60, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
TraySetIcon("", -1)
TraySetClick("1")
TrayCreateItem("")
$Trayitem1 = TrayCreateItem("Restorer")
TrayCreateItem("")
$Trayitem2 = TrayCreateItem("Quitter")
#endregion ### END Koda GUI section ###

While 1
    $msg = TrayGetMsg()
    $nMsg = GUIGetMsg()
    Select
        Case $nMsg = $GUI_EVENT_CLOSE
            Exit
        Case $nMsg = $Button1
            If $memoactuel > 1 Then
                $memo[$memoactuel] = GUICtrlRead($Input_memo)
                $heure[$memoactuel] = GUICtrlRead($Input_heure)
                $min[$memoactuel] = GUICtrlRead($Input_min)
                $memoactuel = $memoactuel - 1
                GUICtrlSetData($Input_heure, $heure[$memoactuel])
                GUICtrlSetData($Input_min, $min[$memoactuel])
                GUICtrlSetData($Label4, $memoactuel & "/" & $nombredememo)
                GUICtrlSetData($Input_memo, $memo[$memoactuel])
            EndIf
        Case $nMsg = $Button2
            If $memoactuel < $nombredememo Then
                $memo[$memoactuel] = GUICtrlRead($Input_memo)
                $heure[$memoactuel] = GUICtrlRead($Input_heure)
                $min[$memoactuel] = GUICtrlRead($Input_min)
                $memoactuel = $memoactuel + 1
                GUICtrlSetData($Input_heure, $heure[$memoactuel])
                GUICtrlSetData($Input_min, $min[$memoactuel])
                GUICtrlSetData($Label4, $memoactuel & "/" & $nombredememo)
                GUICtrlSetData($Input_memo, $memo[$memoactuel])
            EndIf
        Case $nMsg = $Button3
            If $nombredememo < 100 Then
                $nombredememo = $nombredememo + 1
                GUICtrlSetData($Label4, $memoactuel & "/" & $nombredememo)
            Else
                MsgBox(64, "Information", "Vous oublier beaucoup de chose vous :p")
            EndIf
        Case $nMsg = $Button4
            GUISetState(@SW_HIDE, $Form1)
        Case $nMsg = $Button5
            If $memoactuel = $nombredememo Then
                If $nombredememo > 1 Then
                    $memo[$memoactuel] = ""
                    $heure[$memoactuel] = ""
                    $min[$memoactuel] = ""
                    $memoactuel = $memoactuel - 1
                    $nombredememo = $nombredememo - 1
                    GUICtrlSetData($Label4, $memoactuel & "/" & $nombredememo)
                EndIf
            Else
                [color=#008000]MsgBox(64, "Information", "Vous ne pouvez que supprimer le dernier memo car je sais pas comment faire pour les autres")
                ;je pense que sa commence comme sa :
                ;For $i = $memoactuel To $nombredememo
                ; on renome toute les variables $min, $memo et $heure qui sont au dessus de $memoactuel en - 1
                ;Next
                ;mais je sais pas faire[/color]
            EndIf
        Case $msg = $Trayitem1
            GUISetState(@SW_SHOW, $Form1)
        Case $msg = $Trayitem2
            Exit
    EndSelect
WEnd
 

Edit : Je vien de penser a sa :
Mais sa marche pas

Code : Tout sélectionner

                For $i = $memoactuel To $nombredememo
                    $min[$i] = $min[$i - 1]
                    $heure[$i] = $heure[$i - 1]
                    $memo[$i] = $memo[$i - 1]
                Next

[silvere]

j'ai confondu les + est les - ... excusez-moi sa marche maintenant