none
resoudre un petit porjet RRS feed

  • Discussion générale

  • Merci de m'aider a corriger ce problème , je sais qu'il est facile mais je n'ai pas pu le faire , voici l'image de l'exercice


    http://img156.imageshack.us/img156/6030/imgbnp.jpg

    Merci pour votre aide :D.

    samedi 22 janvier 2011 15:30

Toutes les réponses

  • Bonjour chester_lp005

    Vous nous demandé de faire votre devoir quoi :) bien essayé!
    personnellement je suis près a vous aidez mais pas a le faire a votre place.

    Vous bloquez sur quoi exactement ?


    Cordialement, Troxsa
    samedi 22 janvier 2011 16:44
  • Merci pour votre reponse

    ce n'est qu'un Travaux Dirigés ni devoir ni examin :D .

    a propos , je suis débutant ,  je sais comment faire l'interface et je sais comment faire dll je sais creé plutot de bouton calculer mais les autres ca marche pas , si vous voulez m'aidez ca serais super .

    Merci ;) .

    samedi 22 janvier 2011 17:02
  • chester_lp005,

    Pour créer une DLL c'est pas plus dur qu'un projet en soit, il faut creer un projet de base, genre un winform, une fois que le projet de base est créer il faut encore une fois y ajouté un projet de type Bibliothèque de classe, pour l’intégré au projet de base (winform) il faut faire l'import de la Bibliothèque dans le projet courant, il ne reste plus cas faire le développement de la classe. voir ce site qui vous parle d'une intro a la Bibliothèque de classe.

     

    A bientot

     


    Cordialement, Troxsa
    samedi 22 janvier 2011 17:13
  • merci encore une fois

    je sais créer et j l'ai créé la dll et je sais le faire marcher , je veux le code , le programme que je dois mettre dans la classlibrary pour faire fonctionner mon TD :

    Mille merci Troxsa

    samedi 22 janvier 2011 17:30
  • Donc ce qui est demandé dans ce projet est qu'il soit créer dans un fichier texte simple, donc au format txt
    Disons que ce fichier aura le meme format que les fichier csv mais au format txt (c'est la meme chose lol)

    La structure du fichier :
    une ligne par utilisateur séparée par des virgules ou des points virgules, et un seul fichier pour toute la base utilisateur, cela sera plus facile.

    Exemple de fichier :
    Matricule;Nom;Prénom

    Le rôle :
    Chargé le fichier en mémoire au démarrage de l'application

     

    La question est savez vous faire la lecture d'un fichier texte ?
    Savez vous chargé un fichier en mémoire ?

     


    Cordialement, Troxsa
    samedi 22 janvier 2011 20:15
  • Bonjour voici mon code que je peux développer , bon je n'ai pas utiliser une DLL mais notre prof nous demande de le faire a  partir d'une dll

    mon programme marche parfaitement sous public class form1


    Public Class Form1
        Dim Nom_Fichier As String
        Dim x As Single
        Dim y As Single
        Dim z As Single
        Dim NDS(80) As Single
        Dim NEX(80) As Single
        Dim NMOY(80) As Single
        Dim Encours As Boolean
        Dim Nom_Fichier2 As String
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

            Nom_Fichier = My.Application.Info.DirectoryPath & "\Classe.txt"
            Me.Text = "Notes de : " & Nom_Fichier
            Nom_Fichier2 = Mid(Nom_Fichier, 1, Len(Nom_Fichier) - 4) & "n.txt"
            Lecture_Notes()
            Lecture()
        End Sub
        Private Sub Lecture()
            Dim Prenom As String
            Dim Nom As String
            Dim Matricule As String
            Dim pos1 As String
            Dim pos0 As Object
            Dim ch As String
            FileOpen(1, Nom_Fichier, OpenMode.Input)
            Do While Not EOF(1)
                ch = LineInput(1)
                pos0 = InStr(1, ch, vbTab)
                pos1 = InStr(pos0 + 1, ch, vbTab)
                Matricule = Mid(ch, 1, pos0 - 1)
                Nom = Mid(ch, pos0 + 1, pos1 - pos0 - 1)
                Prenom = Mid(ch, pos1 + 1, Len(ch) - pos1)
                CbMatricule.Items.Add(Matricule)
                CbNom.Items.Add(Nom)
                CbPrenom.Items.Add(Prenom)
            Loop
            FileClose(1)
            If CbMatricule.Items.Count <> 0 Then CbMatricule.SelectedIndex = 0
        End Sub
        Private Sub CbMatricule_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CbMatricule.SelectedIndexChanged
            Encours = True
            CbPrenom.SelectedIndex = CbMatricule.SelectedIndex
            CbNom.SelectedIndex = CbMatricule.SelectedIndex
            TDS.Text = CStr(NDS(CbMatricule.SelectedIndex))
            TEX.Text = CStr(NEX(CbMatricule.SelectedIndex))
            TMOY.Text = CStr(NMOY(CbMatricule.SelectedIndex))
            Encours = False
        End Sub
        Private Sub CbNom_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CbNom.SelectedIndexChanged
            CbMatricule.SelectedIndex = CbNom.SelectedIndex
            CbPrenom.SelectedIndex = CbNom.SelectedIndex
            Calcul()
        End Sub
        Private Sub CbPrenom_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CbPrenom.SelectedIndexChanged
            CbMatricule.SelectedIndex = CbPrenom.SelectedIndex
            CbNom.SelectedIndex = CbPrenom.SelectedIndex
            Calcul()
        End Sub
        Private Sub Calcul()
            If Encours Then Exit Sub
            z = 0.4 * x + 0.6 * y
            TMOY.Text = CStr(z)
            NDS(CbMatricule.SelectedIndex) = CSng(TDS.Text)
            NEX(CbMatricule.SelectedIndex) = CSng(TEX.Text)
            NMOY(CbMatricule.SelectedIndex) = CSng(TMOY.Text)
        End Sub
        Private Sub TDS_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TDS.TextChanged
            On Error GoTo fin
            x = CSng(TDS.Text)
            If x > 20 Then x = 20 : TDS.Text = CStr(x)
            If x < 0 Then x = 0 : TDS.Text = CStr(x)
            Calcul()
            Exit Sub
    fin:
            TDS.Text = ""
        End Sub
        Private Sub TEX_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TEX.TextChanged
            On Error GoTo fin
            y = CSng(TEX.Text)
            If y > 20 Then y = 20 : TEX.Text = CStr(y)
            If y < 0 Then y = 0 : TEX.Text = CStr(y)
            Calcul()
            Exit Sub
    fin:
            TEX.Text = ""
        End Sub
        Private Sub Lecture_Notes()
            Dim z1 As String
            Dim Y1 As String
            Dim X1 As String
            Dim pos1 As Integer
            Dim pos0 As Integer
            Dim ch As String
            Dim j As Integer
            On Error GoTo fin
            FileOpen(1, Nom_Fichier2, OpenMode.Input)
            j = 0
            Do While Not EOF(1)
                ch = LineInput(1)
                pos0 = InStr(1, ch, vbTab)
                pos1 = InStr(pos0 + 1, ch, vbTab)
                X1 = Mid(ch, 1, pos0 - 1)
                Y1 = Mid(ch, pos0 + 1, pos1 - pos0 - 1)
                z1 = Mid(ch, pos1 + 1, Len(ch) - pos1)
                NDS(j) = Val(X1)
                NEX(j) = Val(Y1)
                NMOY(j) = Val(z1)
                j = j + 1
            Loop
    fin:
            FileClose(1)
        End Sub

        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            End

        End Sub

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim j As Integer
            Dim n As Integer
            n = FreeFile()
            FileOpen(n, Nom_Fichier2, OpenMode.Output)
            For j = 0 To CbMatricule.Items.Count - 1
                PrintLine(n, Str(NDS(j)) & vbTab & Str(NEX(j)) & vbTab & Str(NMOY(j)))
            Next
            FileClose(n)
        End Sub
    End Class

     

    Si tu veux je t'envoi mon exercice .rar et je le travaille sur visual studio 2008 et tu le modifie et tu le corrige a partir de l'enoncé  qui demande de le faire sous form dll .

     

    Encore une fois merci énormément , ca serais super de m'aider , Thank you so much :D .

    dimanche 23 janvier 2011 08:51
  • Oui envoyé moi votre projet sur troxsa[at]gmailPOINTcom changé [AT] par @ et POINT Par un simple .
    Cordialement, Troxsa
    dimanche 23 janvier 2011 10:44
  • TroXsA

    merci , c'est envoyé ;) .

    dimanche 23 janvier 2011 11:18
  •  

    Bonjour,

     

    Si vous avez trouvé une solution pour ce problème et si cette solution peut être partagée avec la communauté, je vous remercie de nous tenir au courant dans ce thread. Si vous avez besoin d’aide supplémentaire, n’hésitez pas.

     

    Cordialement,

    Alex

    ________________

    Publiez un article sur MSDN !

    Windows Phone 7

    Astuces pour Visual Studio 2010

    XNA – Développement jeux vidéo

    Didacticiels et astuces : VB.NET, C#, ASP.NET, .NET Framework, Silverlight, Workflow Foundation, SharePoint, WPF

    Microsoft propose ce service gratuitement, dans le but d'aider les utilisateurs et d'élargir les connaissances générales liées aux produits et technologies Microsoft. Ce contenu est fourni "tel quel" et il n'implique aucune responsabilité de la part de Microsoft.

     

     


    Suivez MSDN sur Twitter 

    vendredi 28 janvier 2011 12:12
  • Bonjour,

     

    Je n'ai pas eu vraiment le temps d'avancé sur son projet, je lui ai envoyé ce que j'avais fait en entament un début de class ...

     

    A bientot


    Cordialement, Troxsa
    lundi 31 janvier 2011 12:23