Bilgisayar programlama (Visual Basic 2005 Express) ders notları [Gültekin ÇAĞIL]

[Emrah]

Bilgisayar Programlama (Visual Basic 2005 Express Edition) Ders Notları [Yrd. Doç. Dr. Gültekin ÇAĞIL]:
Gültekin ÇAĞIL Web Sitesi:
Register or Login

http://web.sakarya.edu.tr/~cagil

Dosya içeriği:

• 2007-2008 dönemi ders notları ve ödev (3 Ödev Örneği)
• 2008-2009 dönemi ders notları, sınav soruları ve ödev (3 Ödev Örneği)

Register or Login

Visual Basic 2005 Express Edition;


Register or Login

http://download.microsoft.com/download/f/e/3/fe35b954-f6b1-4af5-a5ba-9ff45eae69fd/ENU/vbsetup.exe

Visual Basic 2005 Express Edition Service Pack 1;


Register or Login

http://download.microsoft.com/download/7/7/3/7737290f-98e8-45bf-9075-85cc6ae34bf1/vs80sp1-kb926747-x86-intl.exe

[Emrah]

2008-2009 Dönemi Yaz Okulu Dersi için beş basamaklı sayılardan sayı değerleri ardışık olanları bulma programı kodları:

Kod:

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim u As Double
        For u = 10000 To 99999
            If Mid(u, 1, 1) + 1 = Mid(u, 2, 1) And Mid(u, 2, 1) + 1 = Mid(u, 3, 1) And Mid(u, 3, 1) + 1 = Mid(u, 4, 1) And Mid(u, 4, 1) + 1 = Mid(u, 5, 1) Then
                Debug.WriteLine(u)
            End If
        Next
    End Sub
End Class

veya listbox nesnesi kullanılırsa:

Kod:

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim u As Double
        For u = 10000 To 99999
            If Mid(u, 1, 1) + 1 = Mid(u, 2, 1) And Mid(u, 2, 1) + 1 = Mid(u, 3, 1) And Mid(u, 3, 1) + 1 = Mid(u, 4, 1) And Mid(u, 4, 1) + 1 = Mid(u, 5, 1) Then
                ListBox1.Items.Add(u)
            End If
        Next
    End Sub
End Class

[Özgür Kök]

çok teşekkürler paylaşımın için