“Block Replacement Simulator” and “Cache Time Analysis”

Introduction
   We’re going to use “Block Replacement Simulator” and “Cache Time Analysis” tools to

perform the required calculations.

Posted By coddek14:07

0

Continue Reading

VB.NET Notifyicon ile bilgi balonu oluşturma

GİRİŞ
   Projenin amacı genel programlarda yer alan saat yanında çıkan balon mesajların yapımını öğretmek.

AMAÇ
   Notifyicon ve context menu kullanımı göstermek arka planda programın çalışmasına olanak sağlamak.

Lütfen Kaynak Göstermeden Paylaşmayınız
Dosya olarak  indir
Şifre : bocekprogramlama.blogspot.com

Kaynak Kodlar

Public Class Form1
'' görünür kılmak için aç bölümüne

    Private Sub AçToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AçToolStripMenuItem.Click
        
        Me.Show()

    End Sub
'programı kapatmak için buraya
    Private Sub KapatToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KapatToolStripMenuItem.Click
        End

    End Sub
 '' olayı tabi tetikleyici bi buton olmalıydı mantıken
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        iconumuz.ShowBalloonTip(5, "Bilgi", "Program çalışmaya devam ediyor", ToolTipIcon.Info)
        've kendimizi saklayalım icon simgelenince
        Me.Hide()
       
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        '' simgesiz örnek
        iconumuz.ShowBalloonTip(5, "HATA", "Arka planda bir hata oluştu", ToolTipIcon.Error)
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
End Class

Posted By coddek11:07

0

Continue Reading

VB.NET Gelişmiş Hesap Makinesi (if, else, case, instr ve replace) Kullanıldı

 GİRİŞ
     Bu yazımda Visual Basic ile gelişmiş bir hesap makinesi yapmaya çalıştık. Rakamlar ve işlemlerle Windows işletim sisteminin hesap makinesini örnek alarak basit bir bölümünü kodladık.

AMAÇ
     Yeni başlayanlar için hem basit hemde orta seviyeler için iyi bir uygulama olduğunu düşünüyorum. Projede if else ve case durum yapısını kullanıldı bol bol örnekli ve açıklamalı olduğundan güzel ve temel örnek içeriyor. Bunlara ek olarak 2 tane önemli fonksiyonu gösterdim bunlardan biri instr bu fonksiyon yardımıyla metin içinde arama yaparak istediğimiz karakteri veya kelimeyi bulma şansına sahibiz. İkinci fonksiyon ise replace komutu bununlada metin içindeki karakter veya kelimeleri başka bir kelimeyle değiştirme şansına sahibiz.

Lütfen Kaynak Göstermeden Paylaşmayınız
Dosya olarak indir
Şifre : bocekprogramlama.blogspot.com

Kaynak Kod

Public Class Form1

''bu bölümden * lı bölüme kadar rakamları label1 e eklemek üstünedir

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If Label1.Text = "0" Then
            Label1.Text = "9"
        Else
            Label1.Text = Label1.Text + "9"
        End If


    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If Label1.Text = "0" Then
            Label1.Text = "8"
        Else
            Label1.Text = Label1.Text + "8"
        End If
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        If Label1.Text = "0" Then
            Label1.Text = "7"
        Else
            Label1.Text = Label1.Text + "7"
        End If
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        If Label1.Text = "0" Then
            Label1.Text = "4"
        Else
            Label1.Text = Label1.Text + "4"
        End If
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        If Label1.Text = "0" Then
            Label1.Text = "5"
        Else
            Label1.Text = Label1.Text + "5"
        End If
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        If Label1.Text = "0" Then
            Label1.Text = "6"
        Else
            Label1.Text = Label1.Text + "6"
        End If
    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        If Label1.Text = "0" Then
            Label1.Text = "1"
        Else
            Label1.Text = Label1.Text + "1"
        End If
    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        If Label1.Text = "0" Then
            Label1.Text = "2"
        Else
            Label1.Text = Label1.Text + "2"
        End If
    End Sub

    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        If Label1.Text = "0" Then
            Label1.Text = "3"
        Else
            Label1.Text = Label1.Text + "3"
        End If
    End Sub

    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        If Label1.Text = "0" Then
            Label1.Text = "0"
        Else
            Label1.Text = Label1.Text + "0"
        End If
    End Sub

    Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
        Label1.Text = "0"
    End Sub

    Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
        Label1.Text = "0"
        temp1.Text = ""
        temp2.Text = ""
        tur.Text = ""
    End Sub
''*********************

'' Bu bölümde instr ile pozitif veya negatif yapıyoruz sayıyı 
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
        Dim kntrl = InStr(Label1.Text, ",")
        If kntrl < 1 Then
            Label1.Text = Label1.Text + ","
        End If
    End Sub

    
'' Bu bölgede sonuç bulma işlemini yaptık

    Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
        Select Case tur.Text
            Case Is = "+"
                temp2.Text = Label1.Text
                Label1.Text = Val(temp1.Text) + Val(temp2.Text)
                temp2.Text = ""
                temp1.Text = ""
            Case Is = "-"
                temp2.Text = Label1.Text
                Label1.Text = Val(temp1.Text) - Val(temp2.Text)
                temp2.Text = ""
                temp1.Text = ""
            Case Is = "*"
                temp2.Text = Label1.Text
                Label1.Text = Val(temp1.Text) * Val(temp2.Text)
                temp2.Text = ""
                temp1.Text = ""
            Case Is = "/"
                temp2.Text = Label1.Text
                Label1.Text = Val(temp1.Text) / Val(temp2.Text)
                temp2.Text = ""
                temp1.Text = ""
        End Select
    End Sub

'' bu bölgede işlemler için gereken butonları kullanıyoruz
Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
        Dim kntrl = InStr(Label1.Text, "-")
        If kntrl < 1 Then
            Label1.Text = "-" + Label1.Text
        Else
            Label1.Text = Replace(Label1.Text, "-", "")
        End If
    End Sub

    Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
        If temp1.Text = "" Then
            temp1.Text = Label1.Text
            Label1.Text = "0"
            tur.Text = "+"
        Else
            temp2.Text = Label1.Text
            Label1.Text = Val(temp1.Text) + Val(temp2.Text)
            temp2.Text = ""
            temp1.Text = ""
        End If

    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
        If temp1.Text = "" Then
            temp1.Text = Label1.Text
            Label1.Text = "0"
            tur.Text = "-"
        Else
            temp2.Text = Label1.Text
            Label1.Text = Val(temp1.Text) - Val(temp2.Text)
            temp2.Text = ""
            temp1.Text = ""
        End If
    End Sub

    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
        If temp1.Text = "" Then
            temp1.Text = Label1.Text
            Label1.Text = "0"
            tur.Text = "*"
        Else
            temp2.Text = Label1.Text
            Label1.Text = Val(temp1.Text) * Val(temp2.Text)
            temp2.Text = ""
            temp1.Text = ""
        End If
    End Sub

    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
        If temp1.Text = "" Then
            temp1.Text = Label1.Text
            Label1.Text = "0"
            tur.Text = "/"
        Else
            temp2.Text = Label1.Text
            Label1.Text = Val(temp1.Text) / Val(temp2.Text)
            temp2.Text = ""
            temp1.Text = ""
        End If
    End Sub

End Class

Lütfen Kaynak Göstermeden Paylaşmayınız
Dosya olarak indir
 Şifre : http://bocekprogramlama.blogspot.com

Posted By coddek07:54

4

Continue Reading