> Tous les forums > Forum Autres langages
 Langage de programmation BasicSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
pitayo
  Posté le 01/07/2008 @ 18:59 
Aller en bas de la page 
Astucien

Je ne sais pas si je suis sur le bon site. Je prends une chance.

Il y a plusieurs années (30 ans) j'avais appris à programmer en Basic. Malheureusement, j'ai tout oublié. `>A ce moment, j'avais fait un petit programme qui indiquait à mon fils luthier à quel endroit précis poser les fret sur un manche d'intrument à corde. Voici ce programme :

100 Input "Longueur de manche"; L

110 Input "Combien de frets"; F

120 For I = 1 to F

130 P=L*(2^ (1/12))^ -I

140 imprimer P, : pause .5

150 L=P

160 Next

170 REM La formule est : Fn=L(12√2)^-n

Si quelqu'un comprend quoi que ce soit dans ce charabia, saurait-il (elle) convertir ce langage de sorte que je pourrais l'ituliser en excel?

Publicité
Bérylion
 Posté le 02/07/2008 à 01:34 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien


Salut

à cette heure la je promets rien mais ça pourrait donner un truc du genre :

Sub test()

L = InputBox("Longueur de manche")
F% = InputBox("Nombre de frets")

Set usf = ThisWorkbook.VBProject.VBComponents.Add(3)

With usf
.Properties("Caption") = "Position des frets :"
.Properties("scrollbars") = 2
.Properties("ScrollHeight") = F * 16
For i% = 1 To F
Set lbl = usf.Designer.Controls.Add("forms.label.1")
With lbl
.Caption = " Position du fret n° " & i & "= " & L - (L / (2 ^ (i / 12)))
.Top = 15 * i: .Width = 165
End With
Next
End With

VBA.UserForms.Add(usf.Name).Show

ThisWorkbook.VBProject.VBComponents.Remove usf

End Sub



Modifié par Bérylion le 02/07/2008 01:35
pitayo
 Posté le 02/07/2008 à 07:17 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bérilion,

Merci de ta contribution. Après que j'ai mis ce post, il m'est venu à l'idée d'en mettre un autre ailleurs.

Va voir ici : https://forum.pcastuces.com/inserer_une_formule_dans_excel-f23s19703.htm?page=1&#2873221

Bérylion
 Posté le 02/07/2008 à 12:33 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

j'ai repris sur l'autre topic

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
35,95 €Compresseur portable autonome Xiaomi Mija à 35,95 €
Valable jusqu'au 30 Juillet

Amazon fait une promotion sur le compresseur portable autonome Xiaomi Mija qui passe à 35,95 € livré gratuitement. Ce compresseur à emporter facilement avec vous comporte un écran (où vous pourrez choisir la pression à atteindre en PSI ou BAR) une batterie de 2000 mA et vous permettra de gonfler vos jouets (41 pièces avec une charge), pneus de vélo, de trotinette, de moto (6 pneus avec une charge) et même de voiture (5 pneus avec une charge) facilement.

Le câble est accompagné d'un embout pour valve Schrader et un adapteur Presta et une aiguille sont fournis. Le compresseur se recharge via une prise Micro USB.


> Voir l'offre
77,99 €Kit de 16 Go (2 x 8 Go) de mémoire DDR4 PNY XLR8 3200 MHz à 77,99 €
Valable jusqu'au 28 Juillet

Cdiscount fait une promotion sur le kit de 16 Go (2x8 Go) de mémoire DDR4 PNY XLR8 3200 MHz CL16 qui passe à 77,99 € alors qu'on le trouve ailleurs à plus de 90 €.


> Voir l'offre
12,11 €Clé USB 3.0 Sandisk Ultra 64 Go à 12,11 €
Valable jusqu'au 28 Juillet

Amazon propose la clé USB Sandisk Ultra d'une capacité de 64 Go qui passe à 12,11 €. Cette clé USB 3.0 est compatible USB 2.0 et offre de bons débits d'environ 100 Mo/s en lecture et en écriture. Le connecteur est rétractable pour éviter qu'il prenne la poussière.


> Voir l'offre

Sujets relatifs
[info] Swift: Pourquoi Apple a créé un nouveau langage de programmation
Apprendre les bases du langage VBA sous Excel
[Langage C] Tests unitaires
programmation simple
mise à jour visual basic 6 de sp3 à sp6
Visual Basic & Base de données
meilleur langage outre que C++
Débuts en programmation...
Comment Récupérer un Tag sous Visual Basic 2010
Programmation mobile en C#
Plus de sujets relatifs à Langage de programmation Basic
 > Tous les forums > Forum Autres langages