Bilgisayar-Bilişim Teknolojileri
Ana Sayfa
Bilişim Teknolojileri Forumu Son Konuları
24 Saat
Bilişim Teknolojileri - Formatör - Bilgisayar Öğretmeni Kayıt
Kayıt Olun
iletişim
iletişim
Detaylı Arama
Arama

VB Örnek Kodlar

Konu, 'Windows İşletim Sistemleri, Sorunlar ve Çözümler' kısmında gökalp tarafından paylaşıldı.


Sayfayı Paylaş /bbnetsosyal

  1. gökalp

    gökalp Seçkin Üye Seçkin Üye

    Kayıt:
    8 Eylül 2007
    Mesajlar:
    506
    Beğeni:
    0
    Hesap Makinesi:

    Dim a As Double
    Dim b As Double ' a ve b adında iki double değişken atıyoruz.

    Private Sub Command1_Click() ' Command1 adlı düğmeye tıklandığında gerçekleşecek olaylar

    Label1.Caption = a & "1"

    a = Label1.Caption

    If a = 1 Then

    Label1.Caption = "1"

    End If

    End Sub

    Private Sub Command2_Click()

    Label1.Caption = a & "2"

    a = Label1.Caption

    If a = 2 Then

    Label1.Caption = "2"

    End If

    End Sub



    Private Sub Command3_Click()

    Label1.Caption = a & "3"

    a = Label1.Caption

    If a = 3 Then

    Label1.Caption = "3"

    End If

    End Sub

    Private Sub Command4_Click()

    Label3.Caption = Val(a) + Val(b)

    End Sub

    Private Sub Command5_Click()

    Label3.Caption = Val(a) * Val(b)

    End Sub

    Private Sub Command6_Click()

    Label2.Caption = b & "1"

    b = Label2.Caption

    If b = 1 Then

    Label2.Caption = "1"

    End If

    End Sub

    Private Sub Command7_Click()

    Label2.Caption = b & "2"

    b = Label2.Caption

    If b = 2 Then

    Label2.Caption = "2"

    End If

    End Sub

    Private Sub Command8_Click()

    Label2.Caption = b & "3"

    b = Label2.Caption

    If b = 3 Then

    Label2.Caption = "3"

    End If

    End Sub
     
  2. gökalp

    gökalp Seçkin Üye Seçkin Üye

    Kayıt:
    8 Eylül 2007
    Mesajlar:
    506
    Beğeni:
    0
    Araba Yarışı

     
  3. gökalp

    gökalp Seçkin Üye Seçkin Üye

    Kayıt:
    8 Eylül 2007
    Mesajlar:
    506
    Beğeni:
    0
    Metin şifreleme :

    Public Function EncryptSifre(ByVal pswd As String) As String
    Dim Metin As String
    Dim lg As Integer
    Dim i As Integer
    Dim j As Integer
    Dim Tablo() As Integer
    Dim s As Integer
    Const MINTAILLE = 16
    Const MAXTAILLE = 32
    EncryptSifre = ""
    pswd = Trim(pswd)

    ' Şifreyi bulana kadar
    ' 32 karakter
    Metin = ""
    While Len(Metin) < MAXTAILLE
    Metin = Metin & UCase(pswd) & LCase(pswd)
    Wend

    ReDim Tablo(MAXTAILLE + 2)


    For i = 1 To MAXTAILLE
    Tablo(i) = Asc(Mid$(Metin, i, 1))
    Next
    s = 0
    'herşeyi şifrele


    For i = 1 To MINTAILLE


    For j = i + 1 To i + MINTAILLE


    Select Case s
    Case 0: Tablo(i) = (Tablo(i) + Tablo(j)) Mod (255 - i)
    Case 1: Tablo(i) = (Tablo(i) / Tablo(j)) Mod (255 - i)
    Case 2: Tablo(i) = (Tablo(i) * Tablo(j)) Mod (255 - i)
    Case 3: Tablo(i) = (Tablo(i) - Tablo(j)) Mod (255 - i)
    End Select
    s = (s + 1) Mod 4
    Next
    Next

    Metin = ""


    For i = 1 To MINTAILLE
    EncryptSifre = EncryptSifre & Chr$(Abs(Tablo(i)))
    Next
    End Function
     
  4. eyLuLL

    eyLuLL Üye

    Kayıt:
    9 Eylül 2008
    Mesajlar:
    15
    Beğeni:
    0
    öss puan hesaplama kodlarınıda yazarmısnz??
     
  5. runalone

    runalone Süper Üye Süper Üye Seçkin Üye

    Kayıt:
    17 Mart 2008
    Mesajlar:
    1.150
    Beğeni:
    0
    :puhaha: :puhaha: :puhaha:
     
Yüklüyor...

Sayfayı Paylaş /bbnetsosyal