1873 koxp 1873,Pvp Serverler,Knight Online,Server Tanıtımı,pvp koxp,1299 yama,Pvkoxp,Metin2 hile
Koxpcu Foruma Hoşgeldin Sayın Misafir, Forumumuzdaki Paylaşımlardan Yararlanmak İçin 10 Sn. Üye Ol..!
Forumumuzda Toplam 88 Kategori Var..!
Toplam 10181 Kullanıcımız Var..!

1873 koxp 1873,Pvp Serverler,Knight Online,Server Tanıtımı,pvp koxp,1299 yama,Pvkoxp,Metin2 hile


 
AnasayfaSSSAramaKayıt OlGiriş yapVİDEO
Giriş yap
Kullanıcı Adı:
Şifre:
Beni hatırla: 
:: Şifremi unuttum
Arama
 
 

Sonuç :
 
Rechercher çıkıntı araştırma
En son konular
» Uzaktan Skill Vurma TBL, Exbilgi Paylaşımı New .
Çarş. Ağus. 30, 2017 7:44 pm tarafından Cabbarisonline

» SERİ HIZLI HEAL NOVA.. TBL YENİ GÜNCELLL. XSKİP GAMEGUARD SAOC V7 v28 27 de XSKİP GAMEGUARD DA ÇALISIR yARIM EL TBLLLL
Çarş. Ağus. 30, 2017 7:35 pm tarafından Cabbarisonline

» Mage Tbl hepsi
Cuma Ağus. 25, 2017 5:42 am tarafından sabertooht

» 1299 Seri Skill ...!
Cuma Ağus. 25, 2017 3:02 am tarafından vaptor13

» 1299 combo Nasıl Yapılır?
Ptsi Ağus. 21, 2017 6:29 am tarafından sakarya0000

» Tbl (Gold Bar )
Perş. Haz. 22, 2017 2:40 am tarafından noname5860

» Superior Healing,
Ptsi Nis. 10, 2017 10:20 pm tarafından aksion1995

» [SHARE] TBL PACK
Cuma Nis. 07, 2017 1:55 am tarafından sello

» Tbl editleme Videolu anlatım
Cuma Nis. 07, 2017 1:51 am tarafından sello

» Seri 75 skili critical blinding
Ptsi Mart 27, 2017 3:37 am tarafından gabriel1903

» kobot +warior+rogue+prest+mage+ ayarları
Salı Mart 21, 2017 9:47 am tarafından 1bulutbey

» Ban yiyince banı kaldırma
Perş. Mart 02, 2017 3:56 pm tarafından bysq3r

» İnvalid Map Zone\karusint.gtd Zone\karusint.opd hatası
Cuma Ocak 27, 2017 8:31 am tarafından keremasli3

» Zor Server İtem Yapma İçeri [HELP]
Salı Ara. 13, 2016 7:59 pm tarafından mylvldifferent

» Kobot +Oto kutu+Oto ts+ Ayarları
Paz Ara. 04, 2016 9:12 am tarafından k4m4

En çok konu başlayanlar
Admin
 
koxpcular
 
GoldShield
 
ModeratorKeKoSytlee
 
stylist34
 
by_pass__
 
eye0fwhich
 
Wirane21
 
erhan545454
 
ym1907
 
En iyi yollayıcılar
Admin (323)
 
asnerkol (80)
 
serverus5 (68)
 
crex (64)
 
hasan83 (63)
 
azecnako (52)
 
benmesut2 (51)
 
[émRé] (50)
 
babazar17 (49)
 
mykemal (49)
 
Ayın en aktif yollayıcıları
Anahtar-kelime
skill

Paylaş | 
 

 Visual Basic 6.0 Programlama Dersleri (Normal Seviye)

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
Admin
SiteSahibiSiteSahibi
avatar

Leader Point Leader Point : 791
Mesaj Sayısı Mesaj Sayısı : 323
Kayıt tarihi Kayıt tarihi : 05/01/10

MesajKonu: Visual Basic 6.0 Programlama Dersleri (Normal Seviye)   Cuma Tem. 02, 2010 1:15 am

Merhaba Arkadaşlar;

Bende Sizlere Visual Basic 6.0 Programlama konusunda sizlere yardımcı
olmaya çalışacam bu başlık altında, Her zaman yeni bir konu ile ilgili
bilgi bulabileceksiniz bu dersleri sürekli takip ettiğiniz sürece
sizlerde iyi derece de Visual Basic 6.0 'da program yapma yeteneğine
sahip olabilirsiniz.. Sözü fazla uzatmadan önce Lütfen bu başlık altında
yorumlarınızı yazmayınız çünkü burda sadece Sizlere Visual Basic 6.0
hakkında Dersleri aktaracam....

Herkeze Şimdiden Kolay Gelsin


Derslere Hemen Burda Başlıyalım Ne Dersiniz

Visual Basic Çok amaçlı işlemlerde rahatça kullanabiliriz... Yapacağımız
Projede istediğimiz Görselliği Ekleyebilir veya Düzeltebiliriz Mesela
Formumuza Resim ekleyip o resmin sadece çıkması için Formumuzu
Traşlayabiliriz yani sizin anlayacağınız Formumuzu kesebiliriz. Visual
Basic 6.0 kısaca tanımlamaya çalışayım Proje çalışması yani Form
üzerinde butonlar labellar gibi işlemleri yaparız, Modul kısmında ise
Sabit tanımlamaları yaparız ve bu tanımlamaları projenin herhangi bir
forum başlığında kullanabiliriz. Ben ilk derslerimde bunları sizlere
anlatmaya çalışacağım sonraki aşamalarda ise Class Modul, MDI Form, User
Control, Property v.b alt kontrollerimizi sizlerle paylaşacaz ve
öğrenecez....

Bugün ilk öğreneceğimiz konu Text, Label, Buton, Formumuz da kullanma
şekilleri ve içinde bulunan özellikleri kullanmayı öğrenecez.

ilk önce Vbasic de standart exe ile projemizi oluşturalım.

Forum Properties(Ayarlar) kısmı hemen sağ alt köşede bulunmaktadır.
Burda Formun Adı formumuzun Ekran görüntüsü ayarı Arka plan rengi, yazı
rengi, formun üst açıklaması , Ekranı kaplaması yada simge durumu gibi
bir çok ayarları var.

Biz ilk formuzun Keypreview kısmını bulup False olan değişkenimizi True
Yapıyoruz. Burda formumuzda Fonksiyon tuşlarına basıldığında ki
işlemleri yaptıracaz. Sonra startupposition seçeneğinide
"2-CenterScreen" seçelim

Şimdi Formumuza 2 tane Text Box , 4 Tane Etike yani Label, 1 Tanede
Buton ekliyoruz

Aşağıdaki Gibi:


ve Text1 yazılı box sımızı çift tıklayalım kod bölümüne geçelim bize ilk
Text1_Change alt yordamı gelecek, Hemen uste Text1 dropdown menu var
onun yanında da dropdown menu var orayı tıklayıp Keypress 'i seçelim.

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text2.SetFocus
'13 keyascii de enter anlamındadır text2.setfocus ise text2 box mıza
imleci gönderiyoruz.
End Sub

aynı işlemi Text2 Box mızada yapalım

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text1.SetFocus
'13 keyascii de enter anlamındadır text1.setfocus ise text1 box mıza
imleci gönderiyoruz.
End Sub

şimdi forum load açmamız lazım forumu mousla 2 kere tıklayarak forum
load alt yordamını açmış oluyoruz.
tools larımıza açıklamlarımızı giriyoruz.

Private Sub Form_Load()
Label1.Caption = "1. Sayıyı Girin:"
Label2.Caption = "2. Sayıyı Girin:"
Text1.Text = "": Text2.Text = ""
Label3.Caption = "": Label4.Caption = ""
Command1.Caption = "Çıkartma Yap"
End Sub

formumuzda daha işlem bitmedi hemen Formumuzun uste Load Dropdown
menusunu tıklayıp KeyPress 'i seçelim

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then Unload Me
End Sub

Burayı yazdıktan sonra aynen dropdown menuden bu sefer form dan unload
seçelim

Private Sub Form_Unload(Cancel As Integer)
If MsgBox("Programdan Çıkmaya eminmisiniz?", 36 + 256, "Program Kapat") =
vbYes Then
Cancel = False
Else
Cancel = True
End If
End Sub

Buraya kadar hem formumuz da genen ince ayarlar yaptık hemde textbox
larımızda gelelim şimdi butonumumuza görev vermeye...

Private Sub Command1_Click()
Dim Sonuc, a1, a2, Mesaj
If Text1.Text = "" Or Text2.Text = "" Then ' text1 veya text2
seçeneklerimizden herhangi biri boş ise hata olduğunu bildir.
a1 = "Lütfen 1. Sayi veya 2. Sayi" + Chr(13) 'chr(13) enter anlamına
geliyor
a2 = "Seçeneklerini Boş bırakmayınız"
Mesaj = a1 & a2
MsgBox Mesaj, 32, "Hata"
Exit Sub
End If

If Text1.Text > Text2.Text Then
Label3.Caption = "Text1=" & Text1.Text & " - Text2=" &
Text2.Text
Sonuc = Text1 - Text2
Label4.Caption = Sonuc & " Çıkmıştır."
Else
Label3.Caption = "Text2=" & Text2.Text & " - Text1=" &
Text1.Text
Sonuc = Text2 - Text1
Label4.Caption = Sonuc & " Çıkmıştır."
End If
End Sub

Programımız Bitmiştir şimdi çalıştırıp deneyebiliriz. Daha da geliştirme
veya Düzeltmeler yapıp görsellik ekleyebiliriz.



Saygılarımla


[Linkleri görebilmek için üye olun veya giriş yapın.]

[Resimleri görebilmek için üye olun veya giriş yapın.]
Sayfa başına dön Aşağa gitmek
http://koxpcu.forum.st
[émRé]
Eski Yönetici
Eski Yönetici
avatar

Leader Point Leader Point : 12
Mesaj Sayısı Mesaj Sayısı : 50
Kayıt tarihi Kayıt tarihi : 26/06/10
Lakap Lakap : éMRé

MesajKonu: Geri: Visual Basic 6.0 Programlama Dersleri (Normal Seviye)   C.tesi Tem. 03, 2010 8:19 am

Paylaşım İçin Teşekkürler
Sayfa başına dön Aşağa gitmek
Misafir
Misafir
avatar


MesajKonu: Geri: Visual Basic 6.0 Programlama Dersleri (Normal Seviye)   Salı Ağus. 24, 2010 1:11 am

Güzel Anlatmışın Ama Kendin Yapamıyon Napçaz Very Happy
Sayfa başına dön Aşağa gitmek
 
Visual Basic 6.0 Programlama Dersleri (Normal Seviye)
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
1873 koxp 1873,Pvp Serverler,Knight Online,Server Tanıtımı,pvp koxp,1299 yama,Pvkoxp,Metin2 hile :: 1299 PvP Knigt Online hakkında ::  Koxp Yapım Dersleri -
Buraya geçin: