Skip to main content

AccessTr.neT


Numaratör

#1
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
.rar Numarator.rar (Dosya Boyutu: 268,56 KB | İndirme Sayısı: 85)
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
Paylaşımınız için teşekkürler numaratör ü geliştirmek ve kullanmak isteyenlere yararlı bir bilgi olmuş..
Bir mum, diğer mumu tutuşturmakla ışığından bir şey kaybetmez.(Mevlana)
Herkesin yardımlaştığı yerde işler yarım kalmaz...
Cevapla
#3
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.
Cevapla
#4
Paylaşım için teşekkürler hocam + Rep
Cevapla
#5
Teşekkürler, meklerinize sağlık.
"Oyun bitince  şah ve piyon aynı kutuya atılır "
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task