Numaratör
Tarih
22/12/2013 18:03
Konu Sahibi
drummers
Yorumlar
4
Okunma
1935
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56
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ı:

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
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



Ek Dosyalar
.rar   Numarator.rar (Dosya Boyutu: 268,56 KB / İndirme Sayısı: 73)
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


mahmut18
Aktif Üye
Kullanici Avatari
Aktif Üye
M.... Y....
64
9
18/12/2013
20
Çankırı
Ofis 2010
06/02/2016,01:16
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


metbal
Aktif Üye
Kullanici Avatari
Aktif Üye
97
12/01/2013
3
Ankara
Ofis 2013 32 Bit
20/11/2016,11:24
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


C*e*l*o*y*c*e
Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.813
29/10/2008
899
Ankara
Ofis 2010 32 Bit
Dün,23:36
Paylaşım için teşekkürler hocam + Rep
Cevapla


yorum70

Kullanici Avatari
Özel Üye
A.... Ş....
1.187
08/10/2010
71
Ankara
Ofis 2013 64 Bit
22/10/2016,21:00
Teşekkürler, meklerinize sağlık.
"Her tercih, bir vazgeçiştir"

Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Numaratör.NET (İlk Çalışmam) emir ustaoğlu 4 1.527 05/01/2016, 14:15 alpeki99


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya