Affichage des articles dont le libellé est vb.net. Afficher tous les articles
Affichage des articles dont le libellé est vb.net. Afficher tous les articles

dimanche 16 octobre 2016

application vb.net pixeliser une image

Cette application vb.net pour alphacam réalise une copie multiple de géométries par la sélection d'une géométrie et d'une image.
L'image doit être de format bmp.
L'application permet de régler la valeur de modification de l'échelle de la géométrie et de supprimer les pixels de couleurs clairs.


mardi 12 janvier 2016

application vb.net liste de matériaux

Cette application vb.net développée en Visual Basic, crée une liste de matériaux sur Excel.
Les pièces peuvent être triées (longueur, largeur, épaisseur) par ordre croissant ou décroissant.

  • ouvrir visual basic
  • nouveau projet
    • visual basic
    • application windows forms
  • inscrire le nom de l'application
  • dans form1.vb (design)
    • créer label1, label2, label 3, label 4, label 5
    • créer textbox1, textebox2, textbox3, textebox4, textbox5
    • créer button1 à button11
  • dans form1.vb
    • inscrire le code suivant
Imports Microsoft.Office.Core
Imports Microsoft.Office.Interop
Public Class Form1
    Dim oXL As Excel.Application
    Dim oWB As Excel.Workbook
    Dim oSheet As Excel.Worksheet
    Dim oRng As Excel.Range

    Public Sub Button1_Click(ByVal sender As System.Object,
      ByVal e As System.EventArgs) Handles Button1.Click
        oXL = CreateObject("Excel.Application")
        oXL.Visible = True

        oWB = oXL.Workbooks.Add
        oSheet = oWB.ActiveSheet

        oSheet.Cells(1, 1).Value = "nom de la pièce"
        oSheet.Cells(1, 2).Value = "nombre de pièces"
        oSheet.Cells(1, 3).Value = "longueur"
        oSheet.Cells(1, 4).Value = "largeur"
        oSheet.Cells(1, 5).Value = "épaisseur"

        With oSheet.Range("A1", "E1")
            .Font.Bold = True
            .VerticalAlignment = Excel.XlVAlign.xlVAlignCenter
            .HorizontalAlignment = Excel.XlHAlign.xlHAlignLeft
        End With

        oRng = oSheet.Range("A1", "E50")
        oRng.ColumnWidth = 20
        oXL.Visible = True
        oXL.UserControl = True

        Exit Sub

Err_Handler:
        MsgBox(Err.Description, vbCritical, "Error: " & Err.Number)
    End Sub
    Dim a As Integer = 0
    Public Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        a += 1

        oSheet.Cells(2 + a, 1).Value = TextBox1.Text
        oSheet.Cells(2 + a, 2).Value = TextBox2.Text
        oSheet.Cells(2 + a, 3).Value = TextBox3.Text
        oSheet.Cells(2 + a, 4).Value = TextBox4.Text
        oSheet.Cells(2 + a, 5).Value = TextBox5.Text

        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()

    End Sub

    Public Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        End
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        oSheet.Range("A3:E50").Sort(Key1:=oSheet.Range("B5"),
                                     Order1:=Excel.XlSortOrder.xlAscending,
                                     Header:=Excel.XlYesNoGuess.xlGuess,
                                     OrderCustom:=1,
                                     MatchCase:=False,
                                     Orientation:=Excel.XlSortOrientation.xlSortColumns)
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        oSheet.Range("A3:E50").Sort(Key1:=oSheet.Range("B5"),
                                 Order1:=Excel.XlSortOrder.xlDescending,
                                 Header:=Excel.XlYesNoGuess.xlGuess,
                                 OrderCustom:=1,
                                 MatchCase:=False,
                                 Orientation:=Excel.XlSortOrientation.xlSortColumns)
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        oSheet.Range("A3:E50").Sort(Key1:=oSheet.Range("C5"),
                                     Order1:=Excel.XlSortOrder.xlAscending,
                                     Header:=Excel.XlYesNoGuess.xlGuess,
                                     OrderCustom:=1,
                                     MatchCase:=False,
                                     Orientation:=Excel.XlSortOrientation.xlSortColumns)
    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        oSheet.Range("A3:E50").Sort(Key1:=oSheet.Range("C5"),
                                 Order1:=Excel.XlSortOrder.xlDescending,
                                 Header:=Excel.XlYesNoGuess.xlGuess,
                                 OrderCustom:=1,
                                 MatchCase:=False,
                                 Orientation:=Excel.XlSortOrientation.xlSortColumns)
    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        oSheet.Range("A3:E50").Sort(Key1:=oSheet.Range("D5"),
                                  Order1:=Excel.XlSortOrder.xlAscending,
                                  Header:=Excel.XlYesNoGuess.xlGuess,
                                  OrderCustom:=1,
                                  MatchCase:=False,
                                  Orientation:=Excel.XlSortOrientation.xlSortColumns)
    End Sub

    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        oSheet.Range("A3:E50").Sort(Key1:=oSheet.Range("D5"),
                             Order1:=Excel.XlSortOrder.xlDescending,
                             Header:=Excel.XlYesNoGuess.xlGuess,
                             OrderCustom:=1,
                             MatchCase:=False,
                             Orientation:=Excel.XlSortOrientation.xlSortColumns)
    End Sub

    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        oSheet.Range("A3:E50").Sort(Key1:=oSheet.Range("E5"),
                                        Order1:=Excel.XlSortOrder.xlAscending,
                                        Header:=Excel.XlYesNoGuess.xlGuess,
                                        OrderCustom:=1,
                                        MatchCase:=False,
                                        Orientation:=Excel.XlSortOrientation.xlSortColumns)
    End Sub

    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
        oSheet.Range("A3:E50").Sort(Key1:=oSheet.Range("E5"),
                            Order1:=Excel.XlSortOrder.xlDescending,
                            Header:=Excel.XlYesNoGuess.xlGuess,
                            OrderCustom:=1,
                            MatchCase:=False,
                            Orientation:=Excel.XlSortOrientation.xlSortColumns)
    End Sub
End Class
  • sauvegarder
  • générer le projet
Pour créer une icône sur le bureau qui permet d'ouvrir l'application, il suffit de retrouver le fichier .exe dans documents/visual studio 2015/projects/nom du projet/bin/debug/nom du projet.exe.
Bouton droit sur le fichier et envoyer ver le bureau. Sur le raccourci créé, bouton droit sur propriétés puis changer d'icône.

lundi 11 janvier 2016

application vb.net triangle rectangle

Cette application vb.net permet de calculer les angles et le côté manquant d'un triangle rectangle.
Ce programme a été développé avec Visual Studio avec le langage Visual Basic.

  • ouvrir visual basic
  • nouveau projet
    • visual basic
    • application windows forms
  • inscrire le nom de l'application
  • dans form1.vb (design)
    • créer label1, label2, label 3, label 4, label 5
    • créer textbox1, textebox2, textbox3, textebox4, textbox5
    • créer button1, button2, button3
  • dans form1.vb
    • inscrire le code suivant
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim x As Double
        Dim y As Double
        Dim z As Double
        Dim a As Double
        Dim b As Double
        Dim c As Double
        Dim d As Double
        Dim g As Double
        Dim f As Double
        Const pi As Double = 3.14159265358979
        If TextBox3.Text = "" Then
            x = Math.Sqrt(TextBox1.Text ^ 2 + TextBox2.Text ^ 2)
            TextBox3.Text = x
            c = TextBox2.Text / TextBox1.Text
            TextBox4.Text = Math.Atan(c) * 180 / pi
            g = TextBox1.Text / TextBox2.Text
            TextBox5.Text = Math.Atan(g) * 180 / pi
        End If
        If TextBox1.Text = "" Then
            y = Math.Sqrt(TextBox3.Text ^ 2 - TextBox2.Text ^ 2)
            TextBox1.Text = y
            b = TextBox2.Text / TextBox3.Text
            TextBox4.Text = Math.Asin(b) * 180 / pi
            d = TextBox2.Text / TextBox3.Text
            TextBox5.Text = Math.Acos(d) * 180 / pi
        End If
        If TextBox2.Text = "" Then
            z = Math.Sqrt(TextBox3.Text ^ 2 - TextBox1.Text ^ 2)
            TextBox2.Text = z
            a = TextBox1.Text / TextBox3.Text
            TextBox4.Text = Math.Acos(a) * 180 / pi
            f = TextBox1.Text / TextBox3.Text
            TextBox5.Text = Math.Asin(f) * 180 / pi
        End If
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        End
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
    End Sub
End Class
  • sauvegarder
  • générer le projet

Pour créer une icône sur le bureau qui permet d'ouvrir l'application, il suffit de retrouver le fichier .exe dans documents/visual studio 2015/projects/nom du projet/bin/debug/nom du projet.exe.
Bouton droit sur le fichier et envoyer ver le bureau. Sur le raccourci créé, bouton droit sur propriétés puis changer d'icône.


samedi 9 janvier 2016

visual studio community

Visual Studio Community est une plateforme de développement gratuite qui permet de créer des applications pour windows, android ou ios.
Cet environnement de développement propose des fonctionnalités de debugging, diagnostics, d'outils de tests,d'intégration, d'outils collaboratifs.
Visual studio prend en charge les langages de programmation; C#, VB.NET, F#, C++, JavaScript, HTML, Python.
Cette plateforme permet de créer des projets pour Office (Word, Excel, Access) ou d'autre logiciels comme Autocad, Solidedge, Turbocad ou Rhino.