-->

Sponsor Alanı

Slider

İlgi Çeken Videolar

Sağlık

Teknoloji

Sinema

Televizyon

Ne Nedir?

En5 Konular

Ads1

Hareketli Manzara Resimleri

By: İbrahim Fırat on Cuma, Haziran 07, 2013 / yorum : 0

Hareketli Manzara Fotoğrafları


doğa

doğa

doğa

doğa

doğa

doğa

doğa

doğa

doğa

doğa

doğa

doğa

doğa

doğa

doğa

doğa

doğa

doğa

Vb.Net Masa Üstü Görseli Değiştirmek

By: İbrahim Fırat on Cuma, Haziran 07, 2013 / yorum : 0 ,

vb.net

Visual Basic ile masa üstü resim değiştirmek

Forma eklemeniz gereken eklenti:

1 tane button ekleyin. Kodların içinde değiştirmek istediğiniz  resmin URL'sini   yapıştırıp değiştirme işlemini yapabilirsiniz. 

Imports System.Runtime.InteropServices

Public Class Form1
    <DllImport("user32.DLL", CharSet:=CharSet.Auto)> Public Shared Function SystemParametersInfo(ByVal intAction As Integer, ByVal intParam As Integer, ByVal strParam As String, ByVal intWinIniFlag As Integer) As Integer

    End Function
    Private Shared SPI_SETDESKWALLPAPER As UInt32 = 20
    Private Shared SPIF_UPDATEINIFILE As UInt32 = &H1
    Private dosyaadi As [String] = "https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgLNg1vmNwlNcHj8mZ_Jdf7AtWuK97pU10EaUNC694Ljeng2eZwxdV_tx0psxLACeYIRoLPwVj2iOiOK6v43WZzMT62UpIqvLiPJruf3QJGElFYoU9tYDeRKm8xGzliH960WyboR9eVE4g/h93/logo.png" ' resim adresini bu bölüme ekleyiniz.

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, dosyaadi, SPIF_UPDATEINIFILE)

    End Sub
End Class

Vb.Net TextBox Yazı Tipi İşlemleri

By: İbrahim Fırat on Cuma, Haziran 07, 2013 / yorum : 0 ,

vb.net

TextBox ile Visual Basic'te yazı işlemlerini öğreneceğiz.

Forma eklemeniz gerekenler;

1 tane textbox
9 tane button
1 tane fontdiyalog
1 tane colordialog

Kodlama:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.SelectionLength > 0 Then
            TextBox1.Cut()
        Else
            MsgBox("Seçili Alan Yok!")

        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox1.SelectionLength > 0 Then
            TextBox1.Copy()
        Else
            MsgBox("Alan boş!")
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.Paste()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox1.Undo()
        TextBox1.Font = New Font(Font, FontStyle.Regular)
        TextBox1.ForeColor=color.Black
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If FontDialog1.ShowDialog = DialogResult.OK Then
            TextBox1.Font = FontDialog1.Font

        End If
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If ColorDialog1.ShowDialog = DialogResult.OK Then
            TextBox1.ForeColor = ColorDialog1.Color

        End If
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        TextBox1.Font = New Font(Font, FontStyle.Bold)

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        TextBox1.Font = New Font(Font, FontStyle.Italic)
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        TextBox1.Font = New Font(Font, FontStyle.Underline)
    End Sub

Vb.Net İle RAM Bellek Bilgisi Öğrenme

By: İbrahim Fırat on Cuma, Haziran 07, 2013 / yorum : 0 ,

vb.net
Visual Basic ile bu derste    RAM bellek bilgisini gösteren program yapacağız.

Forma şunları ekleyim;

1 tane TextBox
1 tane Button

Kodlama;

Imports System.Runtime.InteropServices

Public Class Form1
    <DllImport("Kernel32.dll", CharSet:=CharSet.Auto, SetLastError:=True)> Public Shared Function GlobalMemoryStatusEx(ByRef IpBuffer As MEMORYSTATUEX) As <MarshalAs(UnmanagedType.Bool)> Boolean

    End Function
    <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)> Public Structure MEMORYSTATUEX
        Public dwLength As UInteger
        Public dwMemoryLoad As UInteger
        Public ullTotalPhys As ULong
        Public ullAvailPhys As ULong
        Public ullTotalPageFile As ULong
        Public ullAvailPageFile As ULong
        Public ullTotalVirtual As ULong
        Public ullAvailVirtual As ULong
        Public ullAvailExtendedVirtual As ULong
    End Structure
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim hafıza As New MEMORYSTATUEX()
        hafıza.dwLength = 64
        Dim b As Boolean = GlobalMemoryStatusEx(hafıza)
        TextBox1.Text = TextBox1.Text + "Kullanılan Bellek Mikterı= " & (hafıza.dwMemoryLoad) & vbCrLf
        TextBox1.Text = TextBox1.Text + "Toplam Bellek Miktarı= " & (hafıza.ullTotalPhys  (1024 * 1024)) & " mb" & vbCrLf
        TextBox1.Text = TextBox1.Text + "Boş Bellek Miktarı= " & (hafıza.ullAvailPhys  (1024 * 1024)) & " mb" & vbCrLf
        TextBox1.Text = TextBox1.Text + "Toplam Page File Miktarı= " & (hafıza.ullTotalPageFile  (1024 * 1024)) & " mb" & vbCrLf
        TextBox1.Text = TextBox1.Text + "Boş Page File= " & (hafıza.ullAvailPageFile  (1024 * 1024)) & " mb" & vbCrLf
        TextBox1.Text = TextBox1.Text + "Toplam Sanal Bellek Miktarı= " & (hafıza.ullTotalVirtual  (1024 * 1024)) & " mb" & vbCrLf
        TextBox1.Text = TextBox1.Text + "Boş Sanal Bellek Miktarı= " & (hafıza.ullAvailVirtual  (1024 * 1024)) & " mb"
    End Sub
End Class

Visual Basic İle İşlemci Yüzdesi Alma

By: İbrahim Fırat on Cuma, Haziran 07, 2013 / yorum : 0 ,

vb.net

Vb.Net Dersleri


Bu bölümde Visual Basic İle işlemci yüzdesini almayı göreceğiz.



Dim prc As New System.Diagnostics.PerformanceCounter("Processor", "% Processor Time", "_Total")


yuzde = prc.NextValue()

Vb.Net Mouse Koordinatları

By: İbrahim Fırat on Cuma, Haziran 07, 2013 / yorum : 0 ,

vb.net
Bu konumuzdaVisual Basic ile mouse işlemleri üzerinde kodlama yapacağız.  Vb.Net'de API kullanarak mouse imlecinin yerini tespit ederek değiştirmeyi işleyeceğiz.




Forma 1 tane timer ekleyin

Private Type POINTAPI
        X As Long
        Y As Long
End Type

Declare Function GetCursorPos Lib "user32.dll" (ByVal lpPoint As POINTAPI) As Long
Declare Function SetCursorPos Lib "user32.dll" (ByVal X As Long, ByVal Y As Long)  As Long

Private Sub Timer1_Tick()
Dim yerler As POINATPI
ykr = GetCursorPos(yerler)
Me.Caption = yerler.X & "," & yerler.Y
End Sub


Mouse Konumlandırma

X = 250
Y = 300
yer = SetCursorPos(X,Y)

Vb.Net Klavye ve Mouse'u Devredışı Bırakmak

By: İbrahim Fırat on Cuma, Haziran 07, 2013 / yorum : 0 ,

vb.net
Vb.Net Dersi Bilgisayarınıza girişleri engellemeye yarayan bir program yapacağız. Klavye ve Mouse devre dışı bırakan programı öğreneceğiz.

Forma eklemeniz gereken araçlar;
1 tane Timer
1 tane Command



kodlama;

Option Explicit 

Private Declare Function BlockInput Lib "user32" (ByVal fBlock _ 
As Long ) As Long 

Const API_FALSE = 0& 
Const API_TRUE = 1& 

Private Sub Command1_Click( ) 
Timer1.Interval = 500 
Timer1.Enabled = True 
Call BlockInput(API_TRUE ) 
End Sub 

Private Sub Timer1_Timer( ) 
Static Cnt As Long 

Cnt = Cnt + 1 
If Cnt > 10 Then 
Cnt = 0 
Timer1.Enabled = False 
Call BlockInput(API_FALSE ) 
Label1.Caption = "" 
Else 
Label1.Caption = "kalan zaman gösteriliyor: " _ 
& Format$(CStr((10 - Cnt ) ) / 2, "0.0" ) 
End If 
End Sub

Benefits of X-Cart Program and Templates

By: İbrahim Fırat on Cuma, Haziran 07, 2013 / yorum : 0

With the progress of subject the movement of online shopping has hyperbolic to a zealous extent. Thence there are thousands of shopping cart software gettable in the activity according to the needs of e-commerce stores. With the amend of e-commerce most of the company-owners lean to prepare a new trend of marketing. It is eminent to care for a perfect e- mercantilism associate that serve new software's and helps to gain your online byplay.

Shopping cart is organic for online buyers so that they can purchase their desirable products. This system allows customers to pretend a itemize of items for purchase by placing items into a virtual cart. At the inspection the software faculty reason a whole of the invoice with any applicable taxes, including transport and handling. These builders furnish a licensed shopping cart scheme. This method enables you to experience and get products and services.

They furnish expenditure impressive Xcart designing desegregation services. Their professionals compound the ornamentation with your X-cart outlet. Programme desegregation has a outstanding modify to fruit receipts from your website. Their professionals module organisation a impost idea into your X-cart. The support services 24hours 7 life a period.

Thusly, in ordering to deepen the gross acting of your disposal, you moldiness take their Xcart Designing personnel. They give you a programmer for the installment of software. These developer offering a statewide represent of services such as duty system templates, impost modules use and mercantilism gateway compounding and numerous statesman. The design gift create a pro appear to your website. The enation is really person and furnish responsibility for installation to fixing.

With the usage in bailiwick, website utilization has turn unhurried and chevy unbound. With the assist of example integrating, you can get a highly bespoke and flush website. In today's industry technologies are deed innovative. With the provide of pro specialist, you can easily compound templates to get an imploring website. This requires expertise with best undergo. Many really arch benefits offered by template integration is that it provides W3C standards compliancy, fine organic layouts, paid mark-ups, scurrying turnround moment and more statesman.

By feeding on the cyberspace you can lens the sure operate providers that ply you trade programme artefact. They wage x-cart skins, templates and program services at real system rates. For much assemblage and queries you can see their website.
Kaydol: Yorumlar (Atom)
Copyright © 2012 - Bazı konularımızda insanları kötü alışkanlıklardan çaydırmak ve bilgilendirmek için yazılmıştır.