ErNotePad Link ve Not Tutableceğiniz Program

                          

ErNotePad_Kod-v 2.2.8.4

İNDİR

Son güncelleme 18.10.2015

İnternet Explorer' den Direk kopyaladığınız her link anında bu programa kopyalanır ve saklanır.
Linklerinizi ve Notlarınızı tutabilen VB.NET 2010 ile yapılmış Setup İNDİRİN  sık kullandığınız linkleri ve notlarınız elinizin altında olsun. Son güncelleme 16.01.2014

DNS DEĞİŞTİRME VE OKUMA

Oto Ekspertiz Cihazları hakkında bilgi almak isterseniz burayı tıklayın

DNS AYAR PROGRAMI   KODLARI                                       İNDİR

SADECE                                                                        EXE >   İNDİR
Güncelleme Tarihi   :   10.10.2017   
                         

HESAP MAKİNASI ÖRNEK KODLARI

HESAP MAKİNASI KODLARI                                İNDİR

Public Class HMFrm Dim Bellek As Decimal Dim islem As String Dim Hesaplanan As Boolean = False Private Sub Btn0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn0.Click If Hesaplanan Then Hesaplanan = False txtEkran.Clear() txtEkran.AppendText("0") Else txtEkran.AppendText("0") End If End Sub Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click If Hesaplanan Then Hesaplanan = False txtEkran.Clear() txtEkran.AppendText("1") Else txtEkran.AppendText("1") End If End Sub Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click If Hesaplanan Then Hesaplanan = False txtEkran.Clear() txtEkran.AppendText("2") Else txtEkran.AppendText("2") End If End Sub Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click If Hesaplanan Then Hesaplanan = False txtEkran.Clear() txtEkran.AppendText("3") Else txtEkran.AppendText("3") End If End Sub Private Sub btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4.Click If Hesaplanan Then Hesaplanan = False txtEkran.Clear() txtEkran.AppendText("4") Else txtEkran.AppendText("4") End If End Sub Private Sub btn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn5.Click If Hesaplanan Then Hesaplanan = False txtEkran.Clear() txtEkran.AppendText("5") Else txtEkran.AppendText("5") End If End Sub Private Sub btn6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn6.Click If Hesaplanan Then Hesaplanan = False txtEkran.Clear() txtEkran.AppendText("6") Else txtEkran.AppendText("6") End If End Sub Private Sub btn7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn7.Click If Hesaplanan Then Hesaplanan = False txtEkran.Clear() txtEkran.AppendText("7") Else txtEkran.AppendText("7") End If End Sub Private Sub btn8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn8.Click If Hesaplanan Then Hesaplanan = False txtEkran.Clear() txtEkran.AppendText("8") Else txtEkran.AppendText("8") End If End Sub Private Sub btn9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn9.Click If Hesaplanan Then Hesaplanan = False txtEkran.Clear() txtEkran.AppendText("9") Else txtEkran.AppendText("9") End If End Sub Private Sub btnNokta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNokta.Click If txtEkran.Text.Contains(".") Then Exit Sub Else txtEkran.AppendText(".") End If End Sub Private Sub btnIsaret_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIsaret.Click Dim TxtDegeri As Decimal If Decimal.TryParse(txtEkran.Text, TxtDegeri) Then If Math.Sign(TxtDegeri) = "-1" Then txtEkran.Text = Math.Abs(TxtDegeri) Else txtEkran.Text = -txtEkran.Text End If End If End Sub Private Sub btnArti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnArti.Click If Decimal.TryParse(txtEkran.Text, Nothing) Then Bellek = txtEkran.Text islem = "+" txtEkran.Text = Nothing lblIslem.Text = Bellek.ToString & " " & islem End If End Sub Private Sub btnEksi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEksi.Click If Decimal.TryParse(txtEkran.Text, Nothing) Then Bellek = txtEkran.Text islem = "-" txtEkran.Text = Nothing lblIslem.Text = Bellek.ToString & " " & islem End If End Sub Private Sub btnCarpi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCarpi.Click If Decimal.TryParse(txtEkran.Text, Nothing) Then Bellek = txtEkran.Text islem = "*" txtEkran.Text = Nothing lblIslem.Text = Bellek.ToString & " " & islem End If End Sub Private Sub btnBolu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBolu.Click If Decimal.TryParse(txtEkran.Text, Nothing) Then Bellek = txtEkran.Text islem = "/" txtEkran.Text = Nothing lblIslem.Text = Bellek.ToString & " " & islem End If End Sub Private Sub btnKarekok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKarekok.Click If Decimal.TryParse(txtEkran.Text, Nothing) Then txtEkran.Text = (Math.Sqrt(txtEkran.Text)) Hesaplanan = True End If End Sub Private Sub btnEsit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEsit.Click If Bellek = Nothing OrElse txtEkran.Text = Nothing OrElse txtEkran.Text = "" Then Exit Sub Select Case islem Case "*" txtEkran.Text = Bellek * txtEkran.Text Case "/" txtEkran.Text = Bellek / txtEkran.Text Case "-" txtEkran.Text = Bellek - txtEkran.Text Case "+" txtEkran.Text = Bellek + txtEkran.Text End Select Hesaplanan = True End Sub Private Sub btnKarsilik_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKarsilik.Click If Decimal.TryParse(txtEkran.Text, vbNullString) Then txtEkran.Text = 1 / (CDec(txtEkran.Text)) Hesaplanan = True End If End Sub Private Sub btnInt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInt.Click On Error Resume Next txtEkran.Text = Math.Round(CDec(txtEkran.Text), MidpointRounding.AwayFromZero) Hesaplanan = True End Sub Private Sub btnGeriAl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGeriAl.Click If txtEkran.TextLength = 0 Then Exit Sub Else txtEkran.Text = txtEkran.Text.Remove(txtEkran.TextLength - 1) End If End Sub Private Sub btnSil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSil.Click txtEkran.Text = Nothing Bellek = Nothing lblIslem.Text = Nothing End Sub End Class

KitaplıkTakip Program Kodları

KİTAPLIK KAYIT VE EMANET PROGRAM KODLARI                              İNDİR

SADECE EXE PROGRAMI (Fikir edinmek için)                                        İNDİR

NOT : Kitaplık Takip Programının İlk şifresi Bilgisayarınızın Adıdır. Sonra değiştirdiğiniz ile açacaksınız.

Metin ve Giriş şifreleme ile ilgili NotePad Örneği

         

  NotePad  ile yazılan metinleri Şifreleyip saklamak, tekrar açmak. Programa Şifre ile girmek Şifresiz girmek Şifre değiştirmek, vb. bir çok özellikler içeren bir kriptolama Projesi.. Programa ilk girişte şifre sorarsa yanıtı kendi bilgisayarınızın adını yazmanız gerekir. Girdikten sonra Şifreyi kendiniz yeniden belirleyebilir veya şifre sormayı iptal edebilirsiniz....

  Güncelleme Tarihi 23.09.2017

KRİPTO (ŞİFRELEME) YAPABİLEN PROJE KODLARI                                    

SADECE EXE PROGRAMINI GÖRÜP İNCELEMEK İÇİN                                     İNDİR