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

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

Re: Gestion des Crédits 1.8.0 (Finale)

From Prime <prime@meta-science.fr>
Newsgroups fr.comp.sys.mac.programmation
Subject Re: Gestion des Crédits 1.8.0 (Finale)
Date 2025-01-26 16:16 +0000
Organization www.meta-science.fr
Message-ID <e7cc787c48e13385b6188b75fb40dda637d288c9@i2pn2.org> (permalink)
References (1 earlier) <92683406cfd09d93b3ffba301bad013218eac1d9@i2pn2.org> <vn2qnb$2qu38$5@dont-email.me> <6796583c$0$16846$426a74cc@news.free.fr> <9f641bb4a515a61de9a9097ff6d178a5e5c1fafe@i2pn2.org> <vn5mpg$3t4vk$6@dont-email.me>

Show all headers | View raw

Le dimanche 26 janvier 2025 à 17:10 , Laika, S'est exprimé : 

> Le 26/01/25 à 16:56, Prime a écrit :
>> 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
>> 
>> 
> Que des entrées de données et des appels à des routines standard, pas de 
> quoi faire faire un oeuf à une poule. Je programmais en assembleur c 
> pascal cobol dbase, c'était autrement performant, nous on bossait, on 
> produisait quelque chose -(

c'était pour répondre a ton affirmation : "on ne programme pas sur mac"

Mais bon que vaut les gesticulations d'un fou Label Rouge ?

J'ai commencé a écrire des programmes quand j'avais 12 ans et ce en Basic
et en suite en Assembleur sans Assembleur, tous les calcules des sauts
d'adresses a la Main et le codage Hexadécimal à la Main tout ça sur
papier sur un Z80, et pourtant je ne viens pas critiquer ceux qui font
des programmes comme tu le fait, d'ailleurs tu programme encore ou tu ne
programme plus ?

-- 
  \ /    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