Emboutissage des objets circulaires - calculs et formules

Soyez le premier à donner votre avis sur cette source.

Vue 8 381 fois - Téléchargée 996 fois

Description

Emboutissage des objets circulaires
19 MODELES PARAMETRABLE

Ce programme ecrit en Vbasic est à votre disposition ..
Vous pouvez modifier,offrir ou vendre

Si vous arrivez a monneyer, faite une contribution à www.vbfrance.com

En contrepartie j'ai besoin de me faire connaître comme
TRADUCTEUR en HONGROIS technique

giroweb@wanadoo.fr www.giroweb.fr.st

Source / Exemple :

' Le programme complet est dans "emboutissage. ZIP" avec des commentaires 
'en Français et en Hongrois
 
 ' Etienne Nagy juin 2003 - 90200 Giromagny France -  GiroWeb Microentreprise Chantal Nagy
    ' Nagy Istvàn 2003 junius  - 90200 Giromagny France -  GiroWeb Microentreprise Chantal Nagy
    '
    'Ce programme ecrit en Vbasic est à votre disposition
    'Vous pouvez modifier,offrir ou vendre
    'si vous arrivez a monneyer, faite une contribution à
    'VBfrance.com

    'En contrepartie j'ai besoin de me faire connaître
    'comme TRADUCTEUR en HONGROIS technique
    'Site internet en Hongrois
    'Veille technologique
    'Documents:Word,excel,access,Autocad,MOCN ..
    'Accompagnement - remplacement d'un technicien,
    'ou ingenieur pour une mission courte en Hongrie
    
    'giroweb@wanadoo.fr  www.giroweb.fr.st
                     
                        
                        
                        
                        
  ' Bouton de sortie - Gomb a kilépésre
                        
Private Sub end_Click()
End
End Sub

' Form_Load est Charger seulement au demarrage pour initialiser la présentation
' Form_Load csak az indulasnál leszz feltöltve és használva, az elsö értékek adataihoz

Private Sub Form_Load()
Dim i As Integer
       info = "Ce programme ecrit en Vbasic est à votre disposition .."
info = info & vbCrLf
info = info & "Vous pouvez modifier,offrir ou vendre"
info = info & vbCrLf
info = info & "si vous arrivez a monneyer, faite une contribution à"
info = info & vbCrLf
info = info & "VBfrance.com"
info = info & vbCrLf
info = info & ""
info = info & vbCrLf
info = info & "En contrepartie j'ai besoin de me faire connaître comme"
info = info & vbCrLf
info = info & "TRADUCTEUR en HONGROIS technique"
info = info & vbCrLf
info = info & "Site internet en Hongrois"
info = info & vbCrLf
info = info & "Veille technologique"
info = info & vbCrLf
info = info & "Documents:Word,excel,access,Autocad,MOCN .."
info = info & vbCrLf
info = info & "Accompagnement - remplacement d'un technicien,"
info = info & vbCrLf
info = info & "ou ingenieur pour une mission courte en Hongrie"
info = info & vbCrLf
info = info & " "
info = info & vbCrLf
 info = info & "giroweb@wanadoo.fr  www.giroweb.fr.st"
info = info & vbCrLf


info1 = "EMBOUTISSAGE DES OBJETS CIRCULAIRES"
info1 = info1 & vbCrLf
info1 = info1 & "19 MODELES PARAMETRABLE"
info1 = info1 & vbCrLf

'Forgásfelületü testek húzása
info2 = "FORGÁSFELÜLETÜ TESTEK HÚZÁSA"
info2 = info2 & vbCrLf
info2 = info2 & "19 PARAMÉTERES MODELEK"
info2 = info2 & vbCrLf
info2 = info2 & "Ingyenes a VB forráskod"
info2 = info2 & vbCrLf


For i = 1 To 19

Fichier1$ = "lemez" & i & "a" & ".jpg"
Fichier2$ = "f" & i & ".jpg"
dossier$ = App.Path
chemin1$ = Fichier1$
chemin2$ = Fichier2$
If i = 1 Then P1.Picture = LoadPicture(chemin1$): F1.Picture = LoadPicture(chemin2$)
If i = 2 Then P2.Picture = LoadPicture(chemin1$): F2.Picture = LoadPicture(chemin2$)
If i = 3 Then P3.Picture = LoadPicture(chemin1$): F3.Picture = LoadPicture(chemin2$)
If i = 4 Then P4.Picture = LoadPicture(chemin1$): F4.Picture = LoadPicture(chemin2$)
If i = 5 Then P5.Picture = LoadPicture(chemin1$): F5.Picture = LoadPicture(chemin2$)
If i = 6 Then P6.Picture = LoadPicture(chemin1$): F6.Picture = LoadPicture(chemin2$)
If i = 7 Then P7.Picture = LoadPicture(chemin1$): F7.Picture = LoadPicture(chemin2$)
If i = 8 Then P8.Picture = LoadPicture(chemin1$): F8.Picture = LoadPicture(chemin2$)
If i = 9 Then P9.Picture = LoadPicture(chemin1$): F9.Picture = LoadPicture(chemin2$)
If i = 10 Then P10.Picture = LoadPicture(chemin1$): F10.Picture = LoadPicture(chemin2$)
If i = 11 Then P11.Picture = LoadPicture(chemin1$): F11.Picture = LoadPicture(chemin2$)
If i = 12 Then P12.Picture = LoadPicture(chemin1$): F12.Picture = LoadPicture(chemin2$)
If i = 13 Then P13.Picture = LoadPicture(chemin1$): F13.Picture = LoadPicture(chemin2$)
If i = 14 Then P14.Picture = LoadPicture(chemin1$): F14.Picture = LoadPicture(chemin2$)
If i = 15 Then P15.Picture = LoadPicture(chemin1$): F15.Picture = LoadPicture(chemin2$)
If i = 16 Then P16.Picture = LoadPicture(chemin1$): F16.Picture = LoadPicture(chemin2$)
If i = 17 Then P17.Picture = LoadPicture(chemin1$): F17.Picture = LoadPicture(chemin2$)
If i = 18 Then P18.Picture = LoadPicture(chemin1$): F18.Picture = LoadPicture(chemin2$)
If i = 19 Then P19.Picture = LoadPicture(chemin1$): F19.Picture = LoadPicture(chemin2$)
 Next i
 balra$ = "flg.jpg"
 preced.Picture = LoadPicture(balra$) ' fleche à gauche  **** nyil balra
 
 jobbra$ = "fld.jpg"
 suiv.Picture = LoadPicture(jobbra$) 'fleche a droite  **** nyil jpbbra
 
girologo$ = "giroweb2.jpg"
Picture1.Picture = LoadPicture(girologo$) ' Logo GiroWeb
 
 hulogo$ = "Hungary.gif"
 Picture4.Picture = LoadPicture(hulogo$) ' drapeau Hu **** Zàszlo Hu
 
 frlogo$ = "fr.gif"
Picture3.Picture = LoadPicture(frlogo$)  'drapeau Fr  *****  Zàszlo FR




sp_fermer_images     ' s/prg pour fermer tous les images et champs
                     ' allprog. teszi a képeket és tereket láthatatlanná

Dim numero As Integer   'Dimensionnement du variable "numero" comme "entier" ***  változo mindt "kerekszám"
numero = 1

                    'A képernyön beirjuk a "num" szövegtérbe a "numero" értékét
num.Text = numero   'A l'ecran on inscrit dans le champ texte "num" la valeur contenue dans "numero"

P1.Visible = True   'Images "P1" et "F1" seront visible ** Láthatová a "P1" és "F1" es nevü képeket
F1.Visible = True

d1.Visible = True   'Champ "d1"  visible ** Lathatova a "d1" nevü tér
d1.Text = 150       'Le texte du champ d1 = 150 ***  "d1" szövegtér = 150
d1.Left = 2800      'Position du texte "d1" depuis la gauche 2800 points *** Balrol 2800 pontra igazitva a "d1" szöveg
d1.Top = 850        'Position du texte "d1" depuis le haut 850 points *** Fentröl 850 pontra igazitva a "d1" szöveg

d2.Visible = True   'idem "d2" etc.. stb...
d2.Text = 200
d2.Left = 3100
d2.Top = 200

h.Visible = True
h.Text = 150
h.Left = 4450
h.Top = 2250

f.Visible = True
f.Text = 15
f.Left = 240
f.Top = 1800

calc1                   '"calc1" nevü alprogram az 1 es számitási mód-hoz
                        'sous programme nommé "calc1" pour les calculs du cas numero 1
End Sub

Private Function sp_fermer_images()
'ez a funkcio bezárja a képeket
' cette fonction ferme les images

P1.Visible = False
P2.Visible = False
P3.Visible = False
P4.Visible = False
P5.Visible = False
P6.Visible = False
P7.Visible = False
P8.Visible = False
P9.Visible = False
P10.Visible = False
P11.Visible = False
P12.Visible = False
P13.Visible = False
P14.Visible = False
P15.Visible = False
P16.Visible = False
P17.Visible = False
P18.Visible = False
P19.Visible = False

F1.Visible = False
F2.Visible = False
F3.Visible = False
F4.Visible = False
F5.Visible = False
F6.Visible = False
F7.Visible = False
F8.Visible = False
F9.Visible = False
F10.Visible = False
F11.Visible = False
F12.Visible = False
F13.Visible = False
F14.Visible = False
F15.Visible = False
F16.Visible = False
F17.Visible = False
F18.Visible = False
F19.Visible = False

h.Visible = False
h1.Visible = False
h2.Visible = False
'h3.Visible = False
d1.Visible = False
d2.Visible = False
d3.Visible = False
f.Visible = False
r1.Visible = False

End Function

Private Function sp_ouvrir_images()   ' funkció ami kinyissa a "num" számú képet
                                        'fonction qui ouvre l'image numero "num"

sp_fermer_images '******** d'abord on exécute la fonction qui ferme les images
                 '******** elöször bezárjuk a képeket


'puis on cherche le cas suivant le numero choisi de 1 à 19
'ezután keresi a számszerinti esetet 1 töl 19 ig
 
'    ************************* 1
If num.Text = 1 Then
D = " "
P1.Visible = True
F1.Visible = True

d1.Visible = True
d1.Text = 150
d1.Left = 2800
d1.Top = 850

d2.Visible = True
d2.Text = 200
d2.Left = 3100
d2.Top = 200

h.Visible = True
h.Text = 150
h.Left = 4450
h.Top = 2250

f.Visible = True
f.Text = 15
f.Left = 240
f.Top = 1800
calc1                   '"calc1" nevü alprogram az 1 es számitási mód-hoz
                        'sous programme nommé "calc1" pour les calculs du cas numero 1
End If

' Le programme complet est dans le emboutissage. ZIP en
'Français et en Hongrois

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
1
Date d'inscription
lundi 26 juillet 2004
Statut
Membre
Dernière intervention
27 juillet 2004

tres bien fait ..merci
Messages postés
1079
Date d'inscription
jeudi 14 novembre 2002
Statut
Membre
Dernière intervention
1 janvier 2012

Adök Blikaztz Ditû
Y'a des problèmes pour tester chez moi - vbp, et .frm

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.