[VB] Creer un setup pour publier un projet ...

Creer un setup pour publier un projet ... [VB] - VB/VBA/VBS - Programmation

Marsh Posté le 25-11-2006 à 21:05:37    

:hello:  
 
J'utilise VB professionel 2005 (Offre etudiants  :love: ) et j'ai fait une appli vb qui tourne niquel,
 
c'est un reveil, on parametre l'heure, on choisit de la musique,
 
et a l'heure choisie, l'appli joue la musique avec un controle Axwindowsmediaplayer,
 
Le probleme est que je veut en faire un setup pour permettre de l'installer sur d'autres PCs ,
 
Avec l'outils "publier" integré a VS, erreur => heu hier ca faisait des erreus, comme quoi le fichier manifest etait introuvable  :??: mais la ca marche  :o  
 
En creant un nouveau projet de setup, c'est wmp.dll qui merde, "Erreur 1 'wmp.dll' doit être exclu, car son fichier source 'C:\WINDOWS\system32\wmp.dll' est sous protection de fichiers système Windows. C:\Documents and Settings\Tomas\Mes documents\Visual Studio 2005\Projects\Reveil\Setup2\Setup2.vdproj Setup2
 
La premiere solution semble remarcher,  
 
mais je ne voudrais qu'un setup.exe a la fin ,donc pas comme la premiere solution ...
 
Comment puis-je me debrouiller pour enlever ce probleme de DLL ??  :jap:  

Reply

Marsh Posté le 25-11-2006 à 21:05:37   

Reply

Marsh Posté le 25-11-2006 à 21:09:12    

Aussi, y'aurait t-il quelqun qui puisse tester cette appli,
 
me dire si il y voit des bugs,  
 
des optimisations a faire,
 
et comment alleger cette appli, paske 30mo dans le taskmanager ca fait beaucoup pour ce que c'est  [:urd]  
 
Merci  :jap: http://thomas.nares.free.fr/Dev/reveil.rar

Reply

Marsh Posté le 25-11-2006 à 21:10:27    

Code source :
 

Code :
  1. Public Class Form1
  3.     Dim hour As Integer
  4.     Dim minute As Integer
  5.     Dim music As String
  6.     Dim music_tor As Boolean
  8.     Private Sub check_buzzer_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles check_buzzer.CheckedChanged
  9.         If check_buzzer.Checked = True Then
  10.             check_music.Checked = False
  11.             btn_choose.Enabled = False
  12.             music_tor = False
  14.         ElseIf check_buzzer.Checked = False Then
  15.             check_music.Checked = True
  16.             btn_choose.Enabled = True
  17.             music_tor = True
  19.         End If
  20.     End Sub
  22.     Private Sub check_music_CheckStateChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles check_music.CheckStateChanged
  23.         If check_music.Checked = True Then
  24.             check_buzzer.Checked = False
  26.         ElseIf check_music.Checked = False Then
  27.             check_buzzer.Checked = True
  29.         End If
  30.     End Sub
  32.     Private Sub btn_set_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_set.Click
  35.         If btn_set.Text = "Confirmer" Then
  37.             If music = "" And check_music.Checked = True Then
  39.                 MsgBox("Aucune musique selectionnée", MsgBoxStyle.Exclamation, "Erreur" )
  41.             Else
  43.                 hour = NUD_hour.Value
  44.                 minute = NUD_minute.Value
  46.                 tssl_Set.Text = "Reveil programmé à " & hour & "h" & minute & "."
  48.                 btn_set.Text = "Annuler"
  50.                 NUD_hour.Enabled = False
  51.                 NUD_minute.Enabled = False
  52.                 mediaplayer.Ctlenabled = False
  53.                 check_buzzer.Enabled = False
  54.                 check_music.Enabled = False
  55.                 btn_choose.Enabled = False
  57.                 Timer1.Start()
  59.             End If
  62.            
  64.         ElseIf btn_set.Text = "Annuler" Then
  66.             Timer1.Stop()
  68.             btn_set.Text = "Confirmer"
  69.             tssl_Set.Text = "Reveil non programmé"
  70.             NUD_hour.Enabled = True
  71.             NUD_minute.Enabled = True
  72.             mediaplayer.Ctlenabled = False
  73.             check_buzzer.Enabled = True
  74.             check_music.Enabled = True
  75.             If music_tor = True Then
  77.                 btn_choose.Enabled = True
  79.             End If
  82.         End If
  83.        
  89.     End Sub
  91.     Private Sub btn_choose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_choose.Click
  92.         OpenFileDialog.ShowDialog()
  93.         music = OpenFileDialog.FileName
  94.      
  98.        
  99.     End Sub
  101.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  103.         If My.Computer.Clock.LocalTime.Hour = hour Then
  104.             If My.Computer.Clock.LocalTime.Minute = minute Then
  105.                 If check_buzzer.Checked = True Then
  106.                     mediaplayer.URL = "C:\windows\media\ringin.wav"
  107.                     music_tor = False
  108.                    
  109.                 ElseIf check_music.Checked = True Then
  110.                     mediaplayer.URL = music
  111.                     music_tor = True
  113.                 End If
  115.                 Timer1.Stop()
  116.                 mediaplayer.settings.playCount = 100
  117.                 mediaplayer.settings.volume = 100
  118.                 MsgBox("Cliquez sur Ok pour eteindre le réveil", MsgBoxStyle.Information, "Il est l'heure !" )
  119.                 mediaplayer.URL = ""
  121.                 tssl_Set.Text = "Reveil non programmé"
  123.                 btn_set.Text = "Confirmer"
  125.                 NUD_hour.Enabled = True
  126.                 NUD_minute.Enabled = True
  127.                 check_buzzer.Enabled = True
  128.                 check_music.Enabled = True
  130.                 If music_tor = True Then
  132.                     btn_choose.Enabled = True
  134.                 End If
  139.             End If
  140.         End If
  142.     End Sub
  144.    
  145. End Class

Reply

Marsh Posté le 26-11-2006 à 17:09:34    

personne ? :'(

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed