Numaratör

ne lazım, ne lazım, hele bu aralık ayında muhasebecilere numaratör lazım dedim. Minik bir uygulama hazırladım. Gerçi her muhasebe programında olmasına rağmen, yinede lazım olacağını düşünerek ekliyorum.
Ekli dosya exe.dir

Kaynak kodları:

Public Class Form1

    Dim i As Integer = 0

    Private Sub D2Button1_Click(sender As System.Object, e As System.EventArgs) Handles D2Button1.Click

        Dim ilksayi As Integer = CInt(DAlfabetikTextBox1.Text)

        Dim sonsayi As Integer = CInt(DAlfabetikTextBox2.Text)



        If CInt(DAlfabetikTextBox1.Text) <= "0" Then

            MsgBox("İlk Sayfa Numaralasını Girmediniz")

        ElseIf CInt(DAlfabetikTextBox2.Text) <= "0" Then

            MsgBox("Son Sayfa Numaralasını Girmediniz")



        ElseIf CInt(DAlfabetikTextBox2.Text) < CInt(DAlfabetikTextBox1.Text) Then

            MsgBox("Son Sayfa İlk Sayfadan Küçük Olamaz")

        Else

            Dim pdx As Integer

            For pdx = 1 To DComboBox1.Text

                Dim pd As New System.Drawing.Printing.PrintDocument

                AddHandler pd.PrintPage, AddressOf PrintDocument_PrintPage

                pd.Print()

            Next

        End If

    End Sub

    Private Sub PrintDocument_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)



        Dim ilksayi As Integer = CInt(DAlfabetikTextBox1.Text)

        Dim sonsayi As Integer = CInt(DAlfabetikTextBox2.Text)

        Dim fark As Integer = sonsayi - ilksayi

        While i < fark + 1

            e.Graphics.DrawString((i + ilksayi).ToString, New Font("Tahoma", 14, FontStyle.Bold), Brushes.Black, e.PageSettings.PaperSize.Width - 73, 20)



            i = i + 1

            Exit While

        End While

        If i < fark + 1 Then e.HasMorePages = True Else e.HasMorePages = False : i = 0

    End Sub



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

        DComboBox1.Text = "1"

    End Sub



    Private Sub D1Button1_Click(sender As System.Object, e As System.EventArgs) Handles D1Button1.Click

        Application.ExitThread()

    End Sub

Paylaşımınız için teşekkürler numaratör ü geliştirmek ve kullanmak isteyenlere yararlı bir bilgi olmuş..

Emeğinize sağlık. Benim de benzeri bir koda ihtiyacım var. iki alana bağlı artan sayı: birinci alana bağlı olarak sayı artacak. ikinci alandaki koşulu sağlamıyorsa önceki sayıyı yeniden verecek. birinci alandaki veri değiştikçe artan sayı 1 den yeniden başlayacak veya birinci alandaki veri yeniden giriliyorsa en son kullanıldığı andaki numaradan sonraki sayı ile devam edecek. Bilmem anlatabildim mi? Örnek ek için dosyamı hazırladıktan sonra ekleyebilirim. yardımcı olursanız sevinirim.

Paylaşım için teşekkürler hocam + Rep

Teşekkürler, meklerinize sağlık.