Emboutissage des objets circulaires - calculs et formules
Soyez le premier à donner votre avis sur cette source.
Vue 8 726 fois - Téléchargée 1 083 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
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 HongroisCodes Sources
- emboutissage.frm
- emboutissage.vbp
- emboutissage.vbw
- f1.jpg
- f10.jpg
- f11.jpg
- f12.jpg
- f13.jpg
- f14.jpg
- f15.jpg
- f16.jpg
- f17.jpg
- f18.jpg
- f19.jpg
- f2.jpg
- f3.jpg
- f4.jpg
- f5.jpg
- f6.jpg
- f7.jpg
- f8.jpg
- f9.jpg
- fld.jpg
- flg.jpg
- fr.gif
- giroweb1.jpg
- giroweb2.jpg
- Hu.gif
- Hungary.gif
- lemez10a.jpg
- lemez11a.jpg
- lemez12a.jpg
- lemez13a.jpg
- lemez14a.jpg
- lemez15a.jpg
- lemez16a.jpg
- lemez17a.jpg
- lemez18a.jpg
- lemez19a.jpg
- lemez1a.jpg
- lemez2a.jpg
- lemez3a.jpg
- lemez4a.jpg
- lemez5a.jpg
- lemez6a.jpg
- lemez7a.jpg
- lemez8a.jpg
- lemez9a.jpg
A voir également
- Monneyer
- C# / .NET : Une classe permettant de calculer une formule du type "(x^2+x-6)/2^6" - CodeS - Guide
- Calcul alcoolémie formule - Guide
- Calcul de formule ✓ - Forum - Visual Basic 6
- Formule calcul different encombrement tuyauterie industrielle pdf - Guide
- Le calcul de l'énergie pour un objet à la vitesse de la lumière - Codes sources - C / C++ / C++.NET (Divers)
27 juil. 2004 à 01:41
4 juin 2003 à 13:28
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.