Soyez le premier à donner votre avis sur cette source.
Vue 8 726 fois - Téléchargée 1 083 fois
' 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
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.