Version 1.1.1.4

ajout bouton Dtr/Rts ajout info bulles
pierron-asco-celda · Sep 1, 2021 · ec9bfa4 · ec9bfa4
1 parent 35daab5
commit ec9bfa4
Show file tree

Hide file tree

Showing 5 changed files with 44 additions and 8 deletions.
diff --git a/InterfacePIANODE_USB/InterfacePIANODE_USB.vbproj b/InterfacePIANODE_USB/InterfacePIANODE_USB.vbproj
@@ -14,23 +14,22 @@
     <TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
     <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
     <IsWebBootstrapper>false</IsWebBootstrapper>
-    <PublishUrl>ftp://www.pierron.fr/pianode_usb/</PublishUrl>
+    <PublishUrl>\\production\education\PIANODE\Interface_usb\InterfacePIANODE_USB\InterfacePIANODE_USB\publish\</PublishUrl>
     <Install>true</Install>
-    <InstallFrom>Disk</InstallFrom>
-    <UpdateEnabled>true</UpdateEnabled>
+    <InstallFrom>Unc</InstallFrom>
+    <UpdateEnabled>false</UpdateEnabled>
     <UpdateMode>Foreground</UpdateMode>
     <UpdateInterval>7</UpdateInterval>
     <UpdateIntervalUnits>Days</UpdateIntervalUnits>
     <UpdatePeriodically>false</UpdatePeriodically>
     <UpdateRequired>false</UpdateRequired>
     <MapFileExtensions>true</MapFileExtensions>
-    <UpdateUrl>https://www.pierron.fr/ressources/update/pianode_usb/</UpdateUrl>
     <TargetCulture>fr</TargetCulture>
     <ProductName>PIANODE</ProductName>
     <PublisherName>Pierron</PublisherName>
     <OpenBrowserOnPublish>false</OpenBrowserOnPublish>
     <AutorunEnabled>true</AutorunEnabled>
-    <ApplicationRevision>3</ApplicationRevision>
+    <ApplicationRevision>5</ApplicationRevision>
     <ApplicationVersion>1.1.1.%2a</ApplicationVersion>
     <UseApplicationTrust>false</UseApplicationTrust>
     <CreateDesktopShortcut>true</CreateDesktopShortcut>

diff --git a/InterfacePIANODE_USB/My Project/AssemblyInfo.vb b/InterfacePIANODE_USB/My Project/AssemblyInfo.vb
@@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
 ' en utilisant '*', comme indiqué ci-dessous :
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.1.1.3")>
-<Assembly: AssemblyFileVersion("1.1.1.3")>
+<Assembly: AssemblyVersion("1.1.1.4")>
+<Assembly: AssemblyFileVersion("1.1.1.4")>
 <Assembly: NeutralResourcesLanguage("fr")>
diff --git a/InterfacePIANODE_USB/main.Designer.vb b/InterfacePIANODE_USB/main.Designer.vb
diff --git a/InterfacePIANODE_USB/main.resx b/InterfacePIANODE_USB/main.resx
@@ -141,4 +141,7 @@
   <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>121, 29</value>
   </metadata>
+  <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>383, 22</value>
+  </metadata>
 </root>
diff --git a/InterfacePIANODE_USB/main.vb b/InterfacePIANODE_USB/main.vb
@@ -32,7 +32,13 @@ Public Class main
             SerialPort.StopBits = StopBits.One
             SerialPort.DataBits = 8
             SerialPort.Handshake = Handshake.None
-            SerialPort.DtrEnable = Not SerialPort.DtrEnable 'Essai une fois sur 2 (True pour Raspberry pi pico)
+            If CB_dtr_rts.Checked Then
+                SerialPort.RtsEnable = True '(True pour Raspberry pi pico)
+                SerialPort.DtrEnable = True '(True pour Raspberry pi pico)
+            Else
+                SerialPort.RtsEnable = False
+                SerialPort.DtrEnable = False
+            End If
             Try
                 SerialPort.Open()
                 is_serial_read = True
@@ -250,6 +256,17 @@ Public Class main
     Private Sub main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         'Ouverture de l'application
         Call Serial_detect()
+        Me.ToolTip1.SetToolTip(Me.CB_dtr_rts, "A cocher pour Raspberry pi pico.")
+        Me.ToolTip1.SetToolTip(Me.CB_baudrate, "Vitesse du port (le plus souvent 115200).")
+        Me.ToolTip1.SetToolTip(Me.CB_port, "Choix du port (bouton <Détection> pour rechercher)")
+        Me.ToolTip1.SetToolTip(Me.BT_detect, "Scanne les ports USB...")
+        Me.ToolTip1.SetToolTip(Me.BT_raz, "Efface les données.")
+        Me.ToolTip1.SetToolTip(Me.Bt_disconnect, "Stoppe la connexion à l'appareil.")
+        Me.ToolTip1.SetToolTip(Me.TB_max_values, "Nombre de données maximum affichées (les plus anciennes sont supprimées)")
+        Me.ToolTip1.SetToolTip(Me.TRB_max_datas, "Nombre de données maximum affichées (les plus anciennes sont supprimées)")
+        Me.ToolTip1.SetToolTip(Me.TB_max_rate, "Limite le nombre de données reçues (en secondes entre chaque valeur).")
+        Me.ToolTip1.SetToolTip(Me.TRB_rate, "Limite le nombre de données reçues (en secondes entre chaque valeur).")
+
     End Sub
 
     Private Sub BT_raz_Click(sender As Object, e As EventArgs) Handles BT_raz.Click
@@ -369,4 +386,6 @@ Public Class main
         o.SetText(s)
         Clipboard.SetDataObject(o, True)
     End Sub
+
+
 End Class