VB 6.0 Hesap Makinesi

Bügünün Yemeği Visual Basic 2008 Hesap Makinesi

Programımızın ön yüzü yukarıdaki gibi olacak

Şimdi teker teker butonlara neler yazılacağını anlatacam ama burda bir ayrıntıda  herhangi bir butona bastığın zaman text1 ile text2 arasındaki labele o işlemin işareti gelecek örneğin;  topla butonuna bastığım zaman iki sayıyı toplayacak ve aynı anda labele “+” işareti koyacak.

Topla butonuna yazılacak kodlar;

Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Label1.Caption = "+" 

Çarp butonuna yazılacak kodlar ; 

Text3.Text = Val(Text1.Text) * Val(Text2.Text)
Label1.Caption = "*"

Çıkar butonuna yazılacak kodlar;

Text3.Text = Val(Text1.Text) - Val(Text2.Text)
Label1.Caption = "-" 

Böl butonuna yazılacak kodlar;

Text3.Text = Val(Text1.Text) / Val(Text2.Text)
Label1.Caption = "/" 

Karekök butonu ise text3 içindeki sayının karekökünü alıp yine text3 e yazdıracak.

Karekök butonuna yazılacak kodlar;

Text3.Text = Sqr(Val(Text3.Text))

Google + Pls Beyler :)

VB 6.0 Alarm

Evet Arkadaşlar Merhaba Bugünün Yemek Tarafi VB 6.0 Alarm Yapma

Malzemeler;
1Command Button 1Text Box 1 Timer 1 label

Kodlar;

Private Sub Command1_Click( )
Dim sor
sor = InputBox("Lütfen alarm saatini yazın :","Alarm" )
Text1.Text = sor
End Sub

Private Sub Form_Load( )
Text1.Locked = True
Text1.Text = ""
Timer1.Enabled = True
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer( )
Label1.Caption = Time
If Label1.Caption = Text1.Text Then
MsgBox "Zaman Doldu...!"
End If

Görev Yöneticisi VB 6.0

Merhabalar Arkadaşlar,

Bu Visual Basic 2008'e yeni başladığım zaman ilk yaptığım proje ve bunu sizlerle paylaşmak istedim.

Hemen yapımına geçelim: 

Şimdi şöyle düşünelim: Bir yemek yapıyoruz ve malzemeleri sayalım. 

Yemeğimiz İçin Öncelikle ; 

Microsoft Visual Basic 2008

2 Adet ToolStrip

1 Adet ListView

1 Adet Timer

Geçelim Yapımına. 

Öncelikle Visual Basic 2008 programını açıp yeni bir Windows Forms Applicationoluşturuyoruz. 

Daha Sonra formumuza 2 adet ToolStrip Yerleştirip 1 tanesini üste (Dock = Top ) yapıyoruz, diğerini alta (Dock = Bottom) yapıyoruz. 

Gerçi ben yine de bu özellikleri kod olarak projeye yazdım. Bir sorun olursa kod düzelticektir.

Hemen kodları vereyim:

Imports System

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Computer Name  : " & Environment.MachineName ' Form un başlıgı bilgisayarımızın Adıdır
        ListView1.View = View.Details ' Listwiev Özelliği
        ListView1.GridLines = True ' Listwiev Özelliği GridLines Acık.
        ListView1.Dock = DockStyle.Fill ' ' Listwiev Özelliği Full Olarak gösterme.
        Me.Height = 400 ' Form Boyutları
        Me.Width = 300  ' Form Boyutları
        ToolStrip1.Dock = DockStyle.Top
        ToolStrip2.Dock = DockStyle.Bottom




        Dim durum As String
        Dim durumson As String

        Dim i As Integer = 0
        Dim Process As New Process() ' Process Adında Değişken. Çalışan programları tutan değişken.
        ListView1.Items.Clear() ' İtemleri temizledik her bir yenilemede eklenmesin diye.
        For Each p In Process.GetProcesses(My.Computer.Name)
            ListView1.Items.Add(p.ProcessName)
            ListView1.Items(i).SubItems.Add(p.Id)
            ListView1.Items(i).SubItems.Add(FormatNumber(Math.Round(p.PrivateMemorySize64 / 1024), 0) + "KB")

            durum = p.Responding
            durumson = Replace(durum, "True", "Çalışıyor")
            ListView1.Items(i).SubItems.Add(durumson)

            
            i += 1
        Next

        ToolStripLabel1.Text = "Çalışan : " & ListView1.Items.Count 'Çalışan Toplam Program Sayısı
        ToolStripLabel2.Text = "işlemci Sayısı : " & Environment.ProcessorCount ' işlemci Sayısı



    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        Try
            For Each Process As ListViewItem In ListView1.SelectedItems
                System.Diagnostics.Process.GetProcessById(Process.SubItems(1).Text).Kill()



            Next
            MsgBox("Kapatıldı")


        Catch ex As Exception
            MsgBox("Hata : " + ErrorToString())
        End Try
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Form1_Load(Nothing, Nothing)
    End Sub

   
End Class

Yukarıdaki kodu açtığınız projenin kod satırına kopyalayıp yapıştırabilirsiniz, ya da kaynak dosyadan alarak çalışabilirsiniz. 

Imports System yapmayı unutmayın sakın. 

Hepinize iyi çalışmalar... 


Buyrun Buda Kaynak Link;

İNDİR