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.

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.

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.

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.