Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > fr.comp.sys.mac.programmation > #2725

Re: Gestion des Crédits 1.8.0 (Finale)

Show all headers | View raw

Le dimanche 26 janvier 2025 à 16:43 , kurtz le pirate, S'est exprimé : 

> On 25/01/2025 14:59, Laika wrote:
>
>> 
>> on ne programme pas sur mac, tu as installé ms-dos dans une machine 
>> virtuelle pour tes programmes ? Sinon comment fais-tu pour diffuser une 
>> version windows de tes trucs ?
>
>
> Laika, ça veut dire quoi "on ne programme pas sur mac" ?
>
>
>
>

Ceci ne serait pas des lignes d'un programme selon lui! :

if me.caption = "Ajouter Cette Automatisme" then
  Listbox1.AddRow
  
  dim dateetheurecell as date
  dateetheurecell = new date
  
  dateetheurecell.Year = Val(TextField3.text)
  dateetheurecell.Month = Val(TextField2.text)
  dateetheurecell.day = Val(TextField1.text)
  dateetheurecell.Hour = Val(TextField4.text)
  dateetheurecell.Minute = Val(TextField5.text)
  dateetheurecell.Second = Val(TextField6.text)
  
  
  
  Listbox1.cell(Listbox1.LastRowIndex,0) =
str(dateetheurecell.TotalSeconds,"00000000000000000000000")
  Listbox1.cell(Listbox1.LastRowIndex,1) = NomJourAbrégé(dateetheurecell)
+ " " + dateetheurecell.AbbreviatedDate + " - " + dateetheurecell.LongTime
  
  GénérerUnePremiereOpérationDateDeDebut.Visible = true
  GénérerUnePremiereOpérationDateDeDebut.ShowModal
  
  If ValeurGénérerUnePremiereOpérationDateDeDebut = "OUI" then
    Listbox1.cell(Listbox1.LastRowIndex,2) =
str(dateetheurecell,"00000000000000000000000")
    Listbox1.cell(Listbox1.LastRowIndex,3) =
NomJourAbrégé(dateetheurecell) + " " + dateetheurecell.AbbreviatedDate +
" - " + dateetheurecell.LongTime
  else
    Listbox1.cell(Listbox1.LastRowIndex,2) =
str(Window1.AutoProchaineOpération(dateetheurecell,
val(TextField8.text),PopupMenu1.SelectedRowIndex),"00000000000000000000000")
    Listbox1.cell(Listbox1.LastRowIndex,3) =
NomJourAbrégé(Window1.AutoProchaineOpération(dateetheurecell,
val(TextField8.text),PopupMenu1.SelectedRowIndex)) + " " + 
Window1.AutoProchaineOpération(dateetheurecell,
val(TextField8.text),PopupMenu1.SelectedRowIndex).AbbreviatedDate + " - "
+ Window1.AutoProchaineOpération(dateetheurecell,
val(TextField8.text),PopupMenu1.SelectedRowIndex).LongTime
  end if
  
  
  
  TextField7.text = str(val(TextField7.text.replace(",",".")), "-#0.00")
  Listbox1.cell(Listbox1.LastRowIndex,4) = str(val(TextField7.text),
"-#0.00")
  
  
  If RadioButton1.Value then
    Listbox1.cell(Listbox1.LastRowIndex,5) = "X"
  else
    Listbox1.cell(Listbox1.LastRowIndex,5) = ""
  end if
  Listbox1.cell(Listbox1.LastRowIndex,6) = str(val(TextField8.text), "0")
  Listbox1.cell(Listbox1.LastRowIndex,7) =
str(PopupMenu1.SelectedRowIndex)
  If CheckBox1.Value then
    Listbox1.cell(Listbox1.LastRowIndex,8) = "Suspendre"
    Listbox1.cell(Listbox1.LastRowIndex,3) = "Suspendu"
  else
    Listbox1.cell(Listbox1.LastRowIndex,8) = ""
  end if
  
  Listbox1.cell(Listbox1.LastRowIndex,9) =
TousLes(val(Listbox1.Cell(Listbox1.LastRowIndex,6)),val(Listbox1.Cell(Listbox1.LastRowIndex,7)))
  
  TextField3.text  = ""
  TextField2.text = ""
  TextField1.text = ""
  TextField4.text = ""
  TextField5.text = ""
  TextField6.text = ""
  
  TextField3.Enabled = true
  TextField2.Enabled = true
  TextField1.Enabled = true
  TextField4.Enabled = true
  TextField5.Enabled = true
  TextField6.Enabled = true
  Button1.Enabled = true
  
  TextField7.text = ""
  
  RadioButton1.Value = false
  
  TextField8.text = "1"
  PopupMenu1.SelectedRowIndex = 0
  
  CheckBox1.Value = false
  
  ListBox1.SelectedRowIndex = -1
  
  dim i as integer
  for i=0 to ListBox1.RowCount-1
    ListBox1.CellAlignmentAt(i,1) = ListBox.Alignments.Center
    ListBox1.CellAlignmentAt(i,3) = ListBox.Alignments.Center
    
    ListBox1.CellAlignmentAt(i,4) = ListBox.Alignments.Right
  next
  
  'Listbox1.SelectedRowIndex = Listbox1.LastRowIndex
else
end if

if me.caption = "Modifier Cette Automatisme" then
  
  dim dateetheurecell as date
  dateetheurecell = new date
  
  dateetheurecell.Year = Val(TextField3.text)
  dateetheurecell.Month = Val(TextField2.text)
  dateetheurecell.day = Val(TextField1.text)
  dateetheurecell.Hour = Val(TextField4.text)
  dateetheurecell.Minute = Val(TextField5.text)
  dateetheurecell.Second = Val(TextField6.text)
  
  dim SautePeriode as Boolean
  if CheckBox1.value = false and
Listbox1.cell(Listbox1.SelectedRowIndex,8) = "Suspendre" then
    SautePeriode = true
    SautePeriodeAuto.Visible = true
    SautePeriodeAuto.ShowModal
    dim DateCourente,DateAVérifier as date
    DateCourente = new date
    DateAVérifier = new date
    DateAVérifier.TotalSeconds =
val(Listbox1.cell(Listbox1.SelectedRowIndex,2))
    if  SauteChangementPeriodeAuto = "Prochain Crénaux" then
      dim compteur as integer
      for compteur = 0 to 2000
        if DateAVérifier.TotalSeconds < DateCourente.TotalSeconds then
          Listbox1.cell(Listbox1.SelectedRowIndex,2) =
str(Window1.AutoProchaineOpération(DateAVérifier,
val(TextField8.text),PopupMenu1.SelectedRowIndex),"00000000000000000000000")
          DateAVérifier.TotalSeconds =
Window1.AutoProchaineOpération(DateAVérifier,
val(TextField8.text),PopupMenu1.SelectedRowIndex).TotalSeconds
        else
          Listbox1.cell(Listbox1.SelectedRowIndex,2) =
str(DateAVérifier.TotalSeconds,"00000000000000000000000")
          Listbox1.cell(Listbox1.SelectedRowIndex,3) =
NomJourAbrégé(DateAVérifier) + " " + DateAVérifier.AbbreviatedDate + " -
" + DateAVérifier.LongTime
          
          'Listbox1.cell(Listbox1.SelectedRowIndex,2) =
str(Window1.AutoProchaineOpération(DateAVérifier,
val(TextField8.text),PopupMenu1.SelectedRowIndex),"00000000000000000000000")
          'Listbox1.cell(Listbox1.SelectedRowIndex,3) =
Window1.AutoProchaineOpération(DateAVérifier,
val(TextField8.text),PopupMenu1.SelectedRowIndex).AbbreviatedDate + " - "
+ Window1.AutoProchaineOpération(DateAVérifier,
val(TextField8.text),PopupMenu1.SelectedRowIndex).LongTime
          exit
        end if
        'DateAVérifier.TotalSeconds =
val(Listbox1.cell(Listbox1.SelectedRowIndex,2))
      next
    else
      DateAVérifier.TotalSeconds =
val(Listbox1.cell(Listbox1.SelectedRowIndex,2))
      Listbox1.cell(Listbox1.SelectedRowIndex,2) =
str(DateAVérifier.TotalSeconds,"00000000000000000000000")
      Listbox1.cell(Listbox1.SelectedRowIndex,3) =
NomJourAbrégé(DateAVérifier) + " " + DateAVérifier.AbbreviatedDate + " -
" + DateAVérifier.LongTime
      'messagebox(Listbox1.cell(Listbox1.SelectedRowIndex,3))
    end if
  end if
  
  if SautePeriode = false and  CheckBox1.value = false   then
    
    If Listbox1.cell(Listbox1.SelectedRowIndex,6) <>
str(val(TextField8.text), "0") or
Listbox1.cell(Listbox1.SelectedRowIndex,7) <>
str(PopupMenu1.SelectedRowIndex)  then
      'ValeurChangementPeriodeAuto = "Maintenant"
      ChangementPeriodeAuto.Visible = true
      ChangementPeriodeAuto.ShowModal
      If ValeurChangementPeriodeAuto = "Maintenant" then
        dim datemaintenant as date
        datemaintenant = new date
        Listbox1.cell(Listbox1.SelectedRowIndex,2) =
str(Window1.AutoProchaineOpération(datemaintenant,
val(TextField8.text),PopupMenu1.SelectedRowIndex),"00000000000000000000000")
        Listbox1.cell(Listbox1.SelectedRowIndex,3) = 
NomJourAbrégé(Window1.AutoProchaineOpération(datemaintenant,
val(TextField8.text),PopupMenu1.SelectedRowIndex)) + " " +
Window1.AutoProchaineOpération(datemaintenant,
val(TextField8.text),PopupMenu1.SelectedRowIndex).AbbreviatedDate + " - "
+ Window1.AutoProchaineOpération(datemaintenant,
val(TextField8.text),PopupMenu1.SelectedRowIndex).LongTime
      end if
    else
      
      'Listbox1.cell(Listbox1.SelectedRowIndex,2) =
str(Window1.AutoProchaineOpération(dateetheurecell,
val(TextField8.text),PopupMenu1.SelectedRowIndex),"00000000000000000000000")
      'Listbox1.cell(Listbox1.SelectedRowIndex,3) =
Window1.AutoProchaineOpération(dateetheurecell,
val(TextField8.text),PopupMenu1.SelectedRowIndex).AbbreviatedDate + " - "
+ Window1.AutoProchaineOpération(dateetheurecell,
val(TextField8.text),PopupMenu1.SelectedRowIndex).LongTime
    end if
  end if
  
  
  Listbox1.cell(Listbox1.SelectedRowIndex,6) = str(val(TextField8.text),
"0")
  Listbox1.cell(Listbox1.SelectedRowIndex,7) =
str(PopupMenu1.SelectedRowIndex)
  
  
  
  TextField7.text = str(val(TextField7.text.replace(",",".")), "-#0.00")
  Listbox1.cell(Listbox1.SelectedRowIndex,4) = str(val(TextField7.text),
"-#0.00")
  
  If CheckBox1.Value then
    Listbox1.cell(Listbox1.SelectedRowIndex,8) = "Suspendre"
    Listbox1.cell(Listbox1.SelectedRowIndex,3) = "Suspendu"
  else
    Listbox1.cell(Listbox1.SelectedRowIndex,8) = ""
  end if
  
  
  If RadioButton1.Value then
    Listbox1.cell(Listbox1.SelectedRowIndex,5) = "X"
  else
    Listbox1.cell(Listbox1.SelectedRowIndex,5) = ""
  end if
  
  Listbox1.cell(Listbox1.SelectedRowIndex,9) =
TousLes(val(Listbox1.Cell(Listbox1.SelectedRowIndex,6)),val(Listbox1.Cell(Listbox1.SelectedRowIndex,7)))
  
  dim i as integer
  for i=0 to ListBox1.RowCount-1
    ListBox1.CellAlignmentAt(i,1) = ListBox.Alignments.Center
    ListBox1.CellAlignmentAt(i,3) = ListBox.Alignments.Center
    
    ListBox1.CellAlignmentAt(i,4) = ListBox.Alignments.Right
  next
end if

if me.caption = "Nouvel Automatisme" then
  TextField3.text  = ""
  TextField2.text = ""
  TextField1.text = ""
  TextField4.text = ""
  TextField5.text = ""
  TextField6.text = ""
  
  TextField3.Enabled = true
  TextField2.Enabled = true
  TextField1.Enabled = true
  TextField4.Enabled = true
  TextField5.Enabled = true
  TextField6.Enabled = true
  Button1.Enabled = true
  
  TextField7.text = ""
  
  RadioButton1.Value = false
  
  TextField8.text = "1"
  PopupMenu1.SelectedRowIndex = 0
  
  CheckBox1.Value = false
  
  ListBox1.SelectedRowIndex = -1
end if


-- 
  \ /    Croire c'est le contraire de savoir,
-- o --  si j'y crois, je ne sais pas,
  / \    si je sais, pas la peine d'y croire.
--> Je crois pas, car je sais que c'est faux malgré tout...

"Les grands esprits discutent des idées ; les esprits moyens discutent
des événements ; les petits esprits discutent des gens." (Eleanor Roosevelt)

Ma Fiche Mon Site Voyance (MSV) : <https://miniurl.be/r-5lsx>

Dossier DropBox pour voir des documents : <https://urlz.fr/rK5L>

Le Troll(19) : <https://miniurl.be/r-5rzl>

Comme le forgerons qui bat le fer pour obtenir une Épée, j'obtient
toujours un résultat final, même si ça met des années, je sais que ce que
je fait ce n'est pas pour rien./ (C)

Loi 636 :

Il est mal que le mal fasse du mal au bien.
Il est bien que le mal fasse du mal au mal.
Il est bien que le bien fasse du bien au bien.
Il est bien que le mal fasse du bien au bien.
Il est mal que le mal fasse du bien au mal.
Il est mal que le bien fasse du bien au mal.

Il est bien que le mal s’entre-tue.

Back to fr.comp.sys.mac.programmation | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

Gestion des Crédits 1.8.0 (En développement) Prime <prime@meta-science.fr> - 2025-01-24 09:52 +0000
  Re: Gestion des Crédits 1.8.0 (Finale) Prime <prime@meta-science.fr> - 2025-01-24 14:51 +0000
    Re: Gestion des Crédits 1.8.0 (Finale) Laika <nestorlambda@not-for-mail.invalid> - 2025-01-25 14:59 +0100
      Re: Gestion des Crédits 1.8.0 (Finale) Prime <prime@meta-science.fr> - 2025-01-25 20:41 +0000
      Re: Gestion des Crédits 1.8.0 (Finale) kurtz le pirate <kurtzlepirate@free.fr> - 2025-01-26 16:43 +0100
        Re: Gestion des Crédits 1.8.0 (Finale) Prime <prime@meta-science.fr> - 2025-01-26 15:56 +0000
          Re: Gestion des Crédits 1.8.0 (Finale) Laika <nestorlambda@not-for-mail.invalid> - 2025-01-26 17:10 +0100
            Re: Gestion des Crédits 1.8.0 (Finale) Prime <prime@meta-science.fr> - 2025-01-26 16:16 +0000
            Re: Gestion des Crédits 1.8.0 (Finale) kurtz le pirate <kurtzlepirate@free.fr> - 2025-01-26 19:21 +0100
              Re: Gestion des Crédits 1.8.0 (Finale) Laika <nestorlambda@not-for-mail.invalid> - 2025-01-26 21:06 +0100
                Re: Gestion des Crédits 1.8.0 (Finale) Prime <prime@meta-science.fr> - 2025-01-26 20:38 +0000
          Re: Gestion des Crédits 1.8.0 (Finale) Laika <nestorlambda@not-for-mail.invalid> - 2025-01-26 21:33 +0100
            de plus il me semble Re: Gestion des Crédits 1.8.0 (Finale) Prime <prime@meta-science.fr> - 2025-01-26 20:50 +0000
              Re: de plus il me semble Re: Gestion des Crédits 1.8.0 (Finale) Laika <nestorlambda@not-for-mail.invalid> - 2025-01-27 00:31 +0100
            Re: Gestion des Crédits 1.8.0 (Finale) Prime <prime@meta-science.fr> - 2025-01-26 21:32 +0000
              Re: Gestion des Crédits 1.8.0 (Finale) Prime <prime@meta-science.fr> - 2025-01-26 22:06 +0000
                Re: Gestion des Crédits 1.8.0 (Finale) Laika <nestorlambda@not-for-mail.invalid> - 2025-01-27 01:49 +0100
              Re: Gestion des Crédits 1.8.0 (Finale) Laika <nestorlambda@not-for-mail.invalid> - 2025-01-27 01:48 +0100
        Re: Gestion des Crédits 1.8.0 (Finale) DV <dv@reply-to.not.invalid> - 2025-01-26 16:06 +0000
    Re: Gestion des Crédits 1.8.1 (Finale) Prime <prime@meta-science.fr> - 2025-01-25 16:58 +0000
      Le Nom est Trompeur (Re: Gestion des Crédits 1.8.1 (Finale) Prime <prime@meta-science.fr> - 2025-01-25 22:29 +0000
      Re: Gestion des Crédits 1.8.1 (Finale) Prime <prime@meta-science.fr> - 2025-01-26 12:07 +0000
        Re: Gestion des Crédits 1.8.1 (Finale) Laika <nestorlambda@not-for-mail.invalid> - 2025-01-26 17:06 +0100
          Re: Gestion des Crédits 1.8.1 (Finale) Benoît L. <benoit@leraillez.com.invalid> - 2025-01-26 17:33 +0000
            Re: Gestion des Crédits 1.8.1 (Finale) Prime <prime@meta-science.fr> - 2025-01-26 18:59 +0000
              Re: Gestion des voyelles Laika <nestorlambda@not-for-mail.invalid> - 2025-01-26 21:00 +0100
                Re: Gestion des voyelles Prime <prime@meta-science.fr> - 2025-01-26 20:36 +0000
              Re: Gestion des Crédits 1.8.2 (Finale) Prime <prime@meta-science.fr> - 2025-01-27 12:23 +0000
                Re: Gestion des Crédits 1.8.2 (Finale) Prime <prime@meta-science.fr> - 2025-01-27 16:37 +0000
                Gestion des Crédits 1.8.3 (Finale) Prime <prime@meta-science.fr> - 2025-01-29 14:44 +0000
                Re: Gestion des Crédits 1.8.3 (Finale) Prime <prime@meta-science.fr> - 2025-01-29 14:49 +0000
                Re: Gestion des Crédits 1.8.3 (Finale) DuboisP <patrickr.dubois.don't.spam@free.fr.invalid> - 2025-01-29 17:10 +0100
                Re: Gestion des Crédits 1.8.3 (Finale) Prime <prime@meta-science.fr> - 2025-01-29 16:20 +0000
                Re: Gestion des Crédits 1.8.3 (Finale) Prime <prime@meta-science.fr> - 2025-01-29 20:44 +0000
                Re: Gestion des Crédits 1.8.3 (Finale) "Benoît L." <benoit@leraillez.com.invalid> - 2025-01-29 21:07 +0000
                Re: Gestion des Crédits 1.8.3 (Finale) Ray_Net <Ray_Net@picarre.be.invalid> - 2025-01-29 22:06 +0100
                Re: Gestion des Crédits 1.8.3 (Finale) "Benoît L." <benoit@leraillez.com.invalid> - 2025-01-29 21:13 +0000
                Re: Gestion des Crédits 1.8.3 (Finale) Prime <prime@meta-science.fr> - 2025-01-29 21:25 +0000
                Re: Gestion des Crédits 1.8.3 (Finale) Duzz' <jsuis@jreste.invalid> - 2025-01-29 23:34 +0000
                Re: Gestion des Crédits 1.8.3 (Finale) Duzz' <jsuis@jreste.invalid> - 2025-01-29 23:40 +0000
                Re: Gestion des Crédits 1.8.3 (Finale) "M.V." <mv@gmail.com.invalid> - 2025-01-30 10:52 +0000
                Re: Gestion des Crédits 1.8.3 (Finale) Duzz' <jsuis@jreste.invalid> - 2025-01-30 10:55 +0000
                Re: Gestion des Crédits 1.8.3 (Finale) Prime <prime@meta-science.fr> - 2025-01-31 13:42 +0000
                Niveaux de citations ridicules (was: Gestion des Crédits 1.8.3 (Finale)) "M.V." <mv@gmail.com.invalid> - 2025-01-31 15:28 +0000
                Re: Gestion des Crédits 1.8.3 (Finale) Prime <prime@meta-science.fr> - 2025-01-31 15:29 +0000
    Re: Gestion des Crédits 1.8.0 (Finale) JACQUOUILLE14 <yojj.jean@free.fr> - 2025-01-26 09:17 +0100
      Re: Gestion des Crédits 1.8.0 (Finale) Prime <prime@meta-science.fr> - 2025-01-26 12:10 +0000
  Re: Gestion des Crédits 1.8.0 (En développement) Laika <nestorlambda@not-for-mail.invalid> - 2025-01-25 15:01 +0100
    Re: Gestion des Crédits 1.8.0 (En développement) Prime <prime@meta-science.fr> - 2025-01-25 20:47 +0000

csiph-web