Visual Basic
Inhoud blog
  • AdriaanBibiliotheek
  • TS
  • Touchless SDK
  • Generieke Methode Swap
  • Mouse-Swapper
    Zoeken in blog

    Beoordeel dit blog
      Zeer goed
      Goed
      Voldoende
      Nog wat bijwerken
      Nog veel werk aan
     
    Visual Basic 2008
    14-04-2010
    Klik hier om een link te hebben waarmee u dit artikel later terug kunt lezen.AdriaanBibiliotheek
    De AdriaanBibliotheek:
     

    Bijlagen:
    AdriaanBibliotheek.dll (27 KB)   

    14-04-2010, 11:45 Geschreven door adlamb  

    0 1 2 3 4 5 - Gemiddelde waardering: 0/5 - (0 Stemmen)
    19-12-2009
    Klik hier om een link te hebben waarmee u dit artikel later terug kunt lezen.TS
    TS

    Bijlagen:
    setup.exe (667 KB)   

    19-12-2009, 18:51 Geschreven door adlamb  

    0 1 2 3 4 5 - Gemiddelde waardering: 0/5 - (0 Stemmen)
    17-12-2009
    Klik hier om een link te hebben waarmee u dit artikel later terug kunt lezen.Touchless SDK
    De touchless SDK (= Software Development Kit) kan gebruikt worden door developers die werken met software design steunend op het gebruik van een webcam.
    Ik denk dat dit in de toekomst meer en meer gebruikt gaat worden.
    Downloads:

    Bijlagen:
    TouchlessLib.dll (22 KB)   
    WebCamLib.dll (84.5 KB)   

    17-12-2009, 18:49 Geschreven door adlamb  

    0 1 2 3 4 5 - Gemiddelde waardering: 0/5 - (0 Stemmen)
    18-11-2009
    Klik hier om een link te hebben waarmee u dit artikel later terug kunt lezen.Generieke Methode Swap
    Wat is een generieke methode?
    Dit is een methode waarbij de compiler nog niet weet welke Type data hij moet verwerken. Het kan dus gebruikt worden voor alle dataTypen.
    Een Voorbeeld: Deze methode Verwisseld de waarde van twee variabelen.


    Private Sub Swap (Of T) (ByRef element1 as T, ByRef element2 as T)
               Dim Temp As T = element1
               element1 = element2
               element2 = Temp
    End Sub

    Gebruik:

    Dim SrtEelement1 as string = "element1"
    Dim SrtEelement2 as string = "element2"
    Swap (StrElement1,StrElement2)

    Resultaat:

    StrElement1 = "element2"
    StrElement2 = "element1"

    18-11-2009, 13:49 Geschreven door adlamb  

    0 1 2 3 4 5 - Gemiddelde waardering: 5/5 - (1 Stemmen)
    21-10-2009
    Klik hier om een link te hebben waarmee u dit artikel later terug kunt lezen.Mouse-Swapper
    Een programma om de functies van de twee muisknoppen te verwisselen.

    Bijlagen:
    MouseSwapper.exe (14 KB)   

    21-10-2009, 17:40 Geschreven door adlamb  

    0 1 2 3 4 5 - Gemiddelde waardering: 0/5 - (0 Stemmen)
    11-09-2009
    Klik hier om een link te hebben waarmee u dit artikel later terug kunt lezen.Console Application: Abc-formule
    Maak een nieuw project met een console application.Voeg de volgende code toe:
    Imports System.Console
    Imports System.Math

    Module Module1

        Sub Main()
    a:
            WriteLine("ABC-Formule")
            WriteLine("A = ?")
            Dim a As Double = ReadLine()
            WriteLine("B = ?")
            Dim b As Double = ReadLine()
            WriteLine("C = ?")
            Dim c As Double = ReadLine()
            Dim d = ((b) ^ 2 - 4 * a * c)
            WriteLine("D = " + d)
            If d < 0 Then
                WriteLine("Geen oplossing")
            ElseIf d = 0 Then
                Dim e As Double = ((-b) / (2 * a))
                WriteLine("X1 = " + e)
            ElseIf d > 0 Then
                Dim x1 As Double = (((-b) + Sqrt(d)) / (2 * a))
                Dim X2 As Double = (((-b) - Sqrt(d)) / (2 * a))
                WriteLine("X1 = " + x1.ToString)
                WriteLine("X2 = " + X2.ToString)
            End If
            GoTo a
            ReadLine()

        End Sub

    End Module

    Uitleg: Eerst worden er 2 klassen geïmporteerd: de math klasse om gebruik te maken van de vierkantswortel functie en de console klasse dit is om efficiënter en sneller te typen.
    Eerst laat je de titel van het programma toevoegen aan de console met de WriteLine functie. Dan laat je de 3 variabelen a,b en c opvragen met deze bereken je de discriminant d. Als de discriminant kleiner als nul is zijn er geen oplossingen., indien de discriminant gelijk is aan nul gebruik je de formule "(-b)/(2a)" , als de discriminant groter dan nul is dan zijn er 2 oplossingen en dan gebruik je respectievelijk de formules "-b + Vd/2a" of "-b-Vd/2a". Dan laat je de oplossing berekenen en toevoegen aan de console.

    11-09-2009, 21:18 Geschreven door adlamb  

    0 1 2 3 4 5 - Gemiddelde waardering: 1/5 - (1 Stemmen)
    Tags:console application
    06-09-2009
    Klik hier om een link te hebben waarmee u dit artikel later terug kunt lezen.Login Formulier
    Om een login formulier te maken creëert u eerst een nieuw project en u voegt hier een Login Form aan toe dit doe je door in de Solution Explorer met de rechter muisknop op de projectnaam te klikken. Dan kiest u de optie Add en dan New Item. In het venster dat nu opent kiest u Login Form en u geeft dit de naam LoginForm .vb.

    Nu opent in het Degisner View-Venster  het login formulier. Verander in de propreties-Werkbalk de optie Text naar: Login. Dubbel klik nu op de Knop Ok. Nu opent de code-editor, verwijder de comment bovenaan. Dubbelklik nu op My Project in de solution explorer. Ga nu naar het tabblad Settings en verander de naam van het eerste record van het datagrid naar: UserName. En als value type je de gewilde gebruikersnaam.
    Voeg een nieuw record toe, en geef dit de naam: PassWord. Als value geef je het gewilde wachtwoord in.

    Ga nu terug naar de code-editor en verwijder de code in het Ok_Click-event. Voeg vervolgens de volgende code toe in dit event:
    dim gbrNaam as string = usernametextbox.text
    dim passWord as string = Passwordtextbox.text
    if gbrNaam = my.settings.UserName and PassWord =  my.settings.Password then
    me.hide
    form1.show
    else
    msgBox ("U heeft de verkeerde gegevens ingegeven.",MsgBoxStyle.Exclamation,"fout")
    end if


    Ga vervolgens terug naar My Project en in het tabblad Application verander je Startup form naar LoginForm.
    Druk nu op F5 om te debuggen.

    En u heeft nu een login formulier gemaakt.

    06-09-2009, 20:00 Geschreven door adlamb  

    0 1 2 3 4 5 - Gemiddelde waardering: 5/5 - (1 Stemmen)
    Tags:Login Formulier,Form,Login
    Klik hier om een link te hebben waarmee u dit artikel later terug kunt lezen.Variabelen
    Om variabelen te declareren gebruik je een "Dim" gevolgd door de naam van het variabel en dan het gegevenstype.
    De gegevenstypen:
    :
     Boolean
    Byte
     Char
     Date
     Decimal
     Double
     Integer
     Long
     Object
     Short
     Single
     String

















    Voorbeeld:
    Dim getal1 as integer = 2
    Dim tekst as string = "Hallo"
    Dim a as char = "a"
    Dim datum as date = "1/8/1993
    Dim Bool as Boolean = True
    Dim KommaGetal as Double = 14.564







    06-09-2009, 19:25 Geschreven door adlamb  

    0 1 2 3 4 5 - Gemiddelde waardering: 0/5 - (0 Stemmen)
    Tags:Visual Basic ,2008, Variabelen
    Archief per week
  • 12/04-18/04 2010
  • 14/12-20/12 2009
  • 16/11-22/11 2009
  • 19/10-25/10 2009
  • 07/09-13/09 2009
  • 31/08-06/09 2009

    Gastenboek

    Druk op onderstaande knop om een berichtje achter te laten in mijn gastenboek


    Blog als favoriet !

    Links
  • Visual Basic Developer Center
  • ASCII Tabel


  • Blog tegen de wet? Klik hier.
    Gratis blog op https://www.bloggen.be - Meer blogs