Comment lancer le programme

Signaler
Messages postés
8
Date d'inscription
jeudi 27 septembre 2007
Statut
Membre
Dernière intervention
22 octobre 2007
-
Messages postés
8
Date d'inscription
jeudi 27 septembre 2007
Statut
Membre
Dernière intervention
22 octobre 2007
-
bonjour, nous avons créer un programme sur visual basic, mais je n'arrive pas à l'éxecuter.
comment faire, existe t'il un programme plus simple que visual basic.
Aidez moi SVP.

Voic le programme il n'est pas long:

10 Print "POTEAUX RECTANGULAIRES"
20 Rem ENTREES DES DONNEES
30 Input #"EFFORT NORMAL=", N
40 Input #"LONGUEUR DE FLAMBEMENT=", LF
50 Input #"FeE=", FE
60 Input #"Fc28=", FC
70 Input #"Connaissez vous les dimensions de la section (O/N)", R$
80 If Left$(R$, 1) = "0" Then GoTo 2010
1000 Rem PREDIMENSIONNEMENT SECTION BETON
1010 A = 6 * LF / 35 / Sqr(3)
1020 A = Int(A * 30 + 0.5) / 100
1030 B = 1.93 * N / (A - 0.02) / FC + 0.02
1040 B = Int(B * 30 - 0.5) / 100
1050 A1 = A1060 If B <A1 Then B A
1070 Print "GABARIT:"; A; "*"; B
1080 GoTo 3010
2000 Rem ENTREE DIMENSIONS POTEAU
2010 Print "GABARIT="
2020 Input #"PLUS PETITE DIMENSION=", A
2030 Input #"PLUS GRANDE DIMENSION=", B
3000 Rem CALCUL DES ACIERS
3010 L = 6 * LF / A / Sqr(3)
3020 SR = (A - 0.02) * (B - 0.02)
3030 S = A * B
3040 If L > 100 Then Print "SECTION BETON TROP FAIBLE": GoTo 2010
3050 AL = 0.85 / (1 + 0.2 * (L / 35) ^ 2)
3060 If L > 50 Then AL = (50 / L) ^ 2 * 0.6
3070 AC = (N / AL - SR * FC / 1.35) * 1.15 / FE * 10000
3080 AI = 8 * (A + B)
3090 If AI < 5 / 500 Then AI = 5 / 500
3100 [AS] = S / 20 * 10000
3110 If AC < AI Then AC = AI
4000 Rem RESULTAT SECTION D'ACIER
4010 If AC > [AS] Then Print "SECTION TROP FAIBLE": GoTo 2010
4020 AC = Int(AC * 10 + 0.5) / 10
4030 Print "SECTION D'ACIER"; AC
4040 End

MERCI D'AVANCE
Ne rien jeter sur la voie bublic

2 réponses

Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
37
Ca ressemble pas trop à un programme en Visual Basic tout ça.

C'est plutot un programme en vieux basic style GWBasic, HPBasic ou Basica

---- Sevyc64  (alias Casy) ---- # LE PARTAGE EST NOTRE FORCE #   
Messages postés
8
Date d'inscription
jeudi 27 septembre 2007
Statut
Membre
Dernière intervention
22 octobre 2007

Connais tu un programme plus simple qui pourrait executer ce petit programme, stp.
On m'avez envoyer un logiciel en basic;mais je ne l'ai pas gardé, et je ne me souviens plus de son nom, je regrette car il aurait peut être marché dessus.
Merci de ton aide
Ne rien jeter sur la voie bublic