Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]
Groups > fr.comp.sys.mac.programmation > #2728
| From | Laika <nestorlambda@not-for-mail.invalid> |
|---|---|
| Newsgroups | fr.comp.sys.mac.programmation |
| Subject | Re: Gestion des Crédits 1.8.0 (Finale) |
| Date | 2025-01-26 17:10 +0100 |
| Organization | A noiseless patient Spider |
| Message-ID | <vn5mpg$3t4vk$6@dont-email.me> (permalink) |
| References | <4a96c3c37dfc90e74f15e34cbc73a3a201c8af2b@i2pn2.org> <92683406cfd09d93b3ffba301bad013218eac1d9@i2pn2.org> <vn2qnb$2qu38$5@dont-email.me> <6796583c$0$16846$426a74cc@news.free.fr> <9f641bb4a515a61de9a9097ff6d178a5e5c1fafe@i2pn2.org> |
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 -(
--
Back to fr.comp.sys.mac.programmation | Previous | Next — Previous in thread | Next in thread | Find similar
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