× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > 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 poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
399,99 €Ecran 27 pouces LG Ultragear 27GL83A-B (IPS, WQHD, 144 Hz, HDR10, G-sync/FreeSync) à 399,99 €
Valable jusqu'au 14 Août

Amazon fait une promotion sur l'écran LG Ultragear 27GL83A-B qui passe à 399,99 € au lieu de 445 € ailleurs. Cet écran possède une dalle 27 pouces WQHD (2560x1440) à 144 Hz, un temps de réponse de 1 ms. Il est compatible Nvidia G-SYNC et Adaptive Sync


> Voir l'offre
149,99 €Ecran 24 pouces ViewSonic VX2458-C-MHD (incurvé, FullHD, 144Hz, 1ms) à 149,99 €
Valable jusqu'au 12 Août

Darty fait une promotion sur l'écran 24 pouces ViewSonic VX2458-C-MHD qui passe à 149,99 €. On le trouve ailleurs à partir de 170 €. Cet écran dédié aux joueurs dispose d'une dalle incurvée FullHD 1 ms à 144 Hz, un filtre lumière bleue et de la technologie anti scintillement Flicker Free. Il est compatible FreeSync, GSync et a des entrées HDMI, DP et DVI. Il intègre des haut-parleurs. 


> Voir l'offre
89,99 €SSD Silicon Power A55 1 To à 89,99 €
Valable jusqu'au 12 Août

Amazon fait une promotion sur le SSD Silicon Power A55 1 To qui passe à 89,99 € livré gratuitement. Ce SSD à mémoire TLC possède un cache SLC et offre des taux de transfert de 550 Mo/s en lecture et 450 Mo/s en écriture. 


> 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