Ascii Karekterlerİ Bulma & FORMATLI PRINT

Celebrian · #1 24-12-2007, 12:16

Ascii Karekterlerİ Bulma & FORMATLI PRINT Ascii Karekterlerİ Bulma

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

Text2 = Val(KeyCode)

End Sub

FORMATLI PRINT

' - SENDKEYS "{Home}+{End}" --- > İçeriğindekileri seçmek için
' - Printer.Line ve Printer.Print komutları With parametresiyle
' çalışmıyor...
Option Explicit

Private Sub Text1_GotFocus()
'İçeriğindeki yazıları seç...
SendKeys "{Home}+{End}"
End Sub

Private Sub Text2_GotFocus()
'İçeriğindeki yazıları seç...
SendKeys "{Home}+{End}"
End Sub

Private Sub Text3_GotFocus()
'İçeriğindeki yazıları seç...
SendKeys "{Home}+{End}"
End Sub

Private Sub cmdÇıkış_Click()
'FORMU KAPAT
Unload Me
End Sub

Private Sub cmdEkle_Click()
'EKLE...
lstAdlar.AddItem txtAd.Text 'Adları ekle
lstV1.AddItem txtV1.Text 'Sınav1 'i ekle
lstV2.AddItem txtV2.Text 'Sınav2 'i ekle
lstSonuç.AddItem txtSonuç.Text 'Sonucu ekle

'IMLECI AD GIRIŞINE KONUMLANDIR...
txtAd.SetFocus
End Sub

Private Sub cmdYazdır_Click()

'İLK ÖNCE KULLANILACAK DEĞİŞKENLERİ TANIMLA
Dim yb, ys, x1, x2, x3, x4, i
' yb,ys -> Yazıcının .CurrentX ,Y ayarlarını kaydetmek için
' X1 ... X4 -> Alanlar için
' i -> Sayaç döngüsü için

'Printer nesnesi ile kullan
With Printer
.FontSize = 12
.FontName = "Courier New Tr"
Printer.Print "by MCS Technology"
Printer.Print ""
' ^ Başlık yazıldı şimdi diğer işlemler ...

.FontSize = 10

'ilk koordinatı sakla
yb = .CurrentY
x1 = .TextWidth(Space(70))
x2 = x1 + .TextWidth(Space(25))
x3 = x2 + .TextWidth(Space(25))
x4 = x3 + .TextWidth(Space(25))
'TextWidth -> ( ) 'e yazılan yazının ne genişlikte olduğunu hesaplar

'Çizgi...
Printer.Line (30, yb)-(x4 - 30, yb)

'Yaz ...
.CurrentX = 30

'Eğer print sonunda ; varsa bir alt satıra geçmez
Printer.Print "Adı Soyadı";
'Yazıcı kafayı 30 adım sağa kaydır
.CurrentX = x1 + 30
Printer.Print "1.S";
.CurrentX = x2 + 30
Printer.Print "2.S";
.CurrentX = x3 + 30
Printer.Print "ORT"

'İkinci çizgi
Printer.Line (30, .CurrentY)-(x4 - 30, .CurrentY)

'veriler yazdır.
For i = 0 To lstSonuç.ListCount - 1
.CurrentX = 30
Printer.Print lstAdlar.List(i); 'Adı yaz
.CurrentX = x1 + 30
Printer.Print lstV1.List(i); 'Sınav 1
.CurrentX = x2 + 30
Printer.Print lstV2.List(i); 'Sınav 2
.CurrentX = x3 + 30
Printer.Print lstSonuç.List(i) 'Ortalama yaz.

'ara çizgiyi çiz
Printer.Line (30, .CurrentY)-(x4 - 30, .CurrentY)
Next i

ys = .CurrentY

'Dikey çizgileri çiz
Printer.Line (30, yb)-(30, ys)
Printer.Line (x1 + 30, yb)-(x1 + 30, ys)
Printer.Line (x2 + 30, yb)-(x2 + 30, ys)
Printer.Line (x3 + 30, yb)-(x3 + 30, ys)
Printer.Line (x4 + 30, yb)-(x4 + 30, ys)

'Dipnot 'u yazdır...
Printer.Print ""
Printer.Print ""

.FontName = "Tahoma"

.CurrentX = x1
Printer.Print "Dersin Öğretmeni"

.CurrentX = x1
.FontBold = True

'İşin yalakalık kısmı.
'Belki ingilizce sınavında fazla puan verir diye yazdım

Printer.Print "Hakan ERSÖZ"

'Bu da benim reklamım.......
.FontName = "Trebuchet Ms"
.CurrentY = .CurrentY - 30
.CurrentX = x1
Printer.Print "PROGRAMCI CAN SARIGUL, ERZINCAN"

'Yazıcıya yazmanın bittiğini bildir. Artık Yazılar yazılacak
.EndDoc

'Printer nesnesi ile kullanımı kapat
End With

MsgBox "Yazılar Yazıcıya Aktarıldı." & vbCrLf & "Şimdi beni kapatabilirsiniz" & _
vbCrLf & vbCrLf & _
"Saygılarımla Can Sarıgül"
End Sub

Private Sub Form_Load()
App.Title = "Yazıcıya Not Yazdırma --- MCS Technology® (for Hakan Ersöz)"
End Sub

Private Sub Form_Unload(Cancel As Integer)
Beep
End
End Sub

Private Sub lstAdlar_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Seç lstAdlar.ListIndex
End Sub

Private Sub lstV1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Seç lstV1.ListIndex
End Sub

Private Sub lstV2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Seç lstV2.ListIndex
End Sub

Private Sub txtAd_GotFocus()
SendKeys "{Home}+{End}"
End Sub

Private Sub txtAd_LostFocus()
On Error Resume Next
If IsNumeric(txtAd) Or txtAd = "" Then
txtAd.SetFocus
MsgBox "Lütfen buraya bir isim giriniz..."
End If

End Sub

Private Sub txtSonuç_Change()

'Eğer geçme notu tamamsa
If Val(txtSonuç) >= 60 Then txtSonuç.BackColor = vbBlue Else txtSonuç.BackColor = vbRed

End Sub

Private Sub txtV1_GotFocus()
SendKeys "{Home}+{End}"
End Sub

Private Sub txtV1_LostFocus()

If (Not IsNumeric(txtV1)) Or Val(txtV1) < 0 Or Val(txtV1) > 100 Then
txtV1.SetFocus 'Focus 'u verme...
SendKeys "{Home}+{End}" 'Tümünü seç ve hata mesajı ver...
MsgBox "Lütfen Sınav1 notunuzu doğru giriniz...", vbCritical
End If

SonuçYaz
End Sub

Private Sub txtV2_GotFocus()
SendKeys "{Home}+{End}"
End Sub

Private Sub txtV2_LostFocus()

If (Not IsNumeric(txtV2)) Or Val(txtV2) < 0 Or Val(txtV2) > 100 Then
txtV2.SetFocus 'Focus 'u verme...
SendKeys "{Home}+{End}" 'Tümünü seç ve hata mesajı ver...
MsgBox "Lütfen Sınav2 notunuzu doğru giriniz...", vbCritical
End If

SonuçYaz
End Sub

Private Sub SonuçYaz()
'ORTALAMAYI YAZMAK İÇİN
txtSonuç.Text = (Val(txtV1) + Val(txtV2)) / 2
End Sub

Private Sub Seç(ListeNo As Integer)

'LİSTEDEN ELEMANI SEÇİNCE AYNI SIRADAN HEPSİNİ SEÇMEK İÇİN...
'Seç........................
lstAdlar.ListIndex = ListeNo
lstV1.ListIndex = ListeNo
lstV2.ListIndex = ListeNo
lstSonuç.ListIndex = ListeNo

'Seçileni göster
txtAd = lstAdlar.Text
txtV1 = lstV1.Text
txtV2 = lstV2.Text
txtSonuç = lstSonuç.Text
End Sub

Benzer Konular
Konu	Konu Açanlar	Forum	Cevaplar	Güncel Mesajlar
ASCII nedir ?	MaNeX	Webmaster Sözlügü	0	05-04-2008 01:23
Ascii kodlarla yazı yazmak	banias	Webmaster Genel Konular	0	06-03-2008 11:19
Bilgi Alış-verişi için Kullanılan Standart Amerikan Kodu (ASCII) nedir? anlamı	MaNeX	Webmaster Sözlügü	0	26-02-2008 07:39
Qbasic Dersleri -Ders: 'Print, Color, Locate, Print Using, Lprint, REM' , örnekli anlatım	kadınca	Web Dersleri	0	08-02-2008 07:25
Yön Bulma Programı	egitimbilgisi	C, c++, c#	0	02-12-2007 08:39

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder