Numaratör

22/12/2013, 18:03

drummers

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
22/12/2013, 21:21

mahmut18

Paylaşımınız için teşekkürler numaratör ü geliştirmek ve kullanmak isteyenlere yararlı bir bilgi olmuş..
22/12/2013, 23:58

metbal

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.
23/12/2013, 00:59

C*e*l*o*y*c*e

Paylaşım için teşekkürler hocam + Rep
23/12/2013, 09:42

yorum70

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