- 3 Kas 2009
- 29
- 0
Bu notu ben hazırladım tüm hakkları saklı değildir
VISUAL BASIC 6.0 DERS NOTLARI
VB6.0 Araç Çubukları
VIEW MENUSU:
Project Explorer: çalıştığımız formu gösterir.
Properties window: isim veya renk değiştirme gibi birçok işlemi kısa yoldan yapmaya yarayan komut penceresidir.
Local Window: Properties Window, İmmediet Window, General
FILE MENUSU : Save, Save as, Add project, Print, Make project1.exe
Make Project . exe : Başka bir bilgisayarda bu projeyi çalıstırabılmek için VB6.0 in gerekli dosyalarını alır. Bu project in kodları 2. bilgisayarda bulunamaz.
EDIT MENUSU : Select All, Find, Find Next, Replace
VIEW MENUSU :
Code....................... .....: Kod sayfasını açar
Object............. ............: Form sayfasını açar
Definition ....................: Değiskenler ( sonra anlatılacak)
Project Explorer ..........: Projede bütün formlarin gözukmesini sağlar
Properties Window .....: Properties Form1 araç çubuğudur
Form Layout Window : Formun çalışma modun da ekranın nerede gözükeceğini belirler
Color Palette ...............: Form1 ve form1 sonuç platform rengini değiştirir
Toolbars.......................: Customdan özel araç çubuğu yapmak mümkündür
PROJECT MENUSU :
Ad Form.....................: Yeni bir form ekler
Remove Form.............: Varolan formu kaldırır
Add Module............: 1.formda yaptıklarımızı 2. form tanımaz.Mesela 1. formda form load da yaptıklarımızı 2.formda ki form load a tanıtmalıyız. (Sonra anlatılacak)
Project1 Properties ....: Startup Object ten işaretlendiğinde VB6.0 açıldığında aktif olması gereken projeyi aktif hale getirebiliriz.
FORMAT MENUSU :
Align................. : Left ( öğeleri sola yaslar) Middles ( öğelerin arasını açar )
: Center (öğeleri ortalar) Bottoms ( öğelerin y konumunu belirler )
: Right (öğeleri sağa yaslar ) To grid (grid aralıklarını düzenler)
:Tops (öğelerin x konumunu belirler )
Lock Controls....:Seçili olanı kilitler bir daha değişiklik yapılamaz.Aktif ya da pasiftir.
TOOLS MENUSU:
Options..............: Editor.......autosyntax check ( kod penceresinde hata yapıldıgında otomatik olarak uyarır )
:Editor........require varible ( değişkenleri tanımlamayı sağlar )VB6.0 da değişkenleri tanıtmak zorunda değiliz ama bazı hatalar olabilir o yüzden tanıtmalıyız.
: Editor......auto list member
:General....show grid ( grid noktalarını düzenler )
ACIKLAYICI NOT: Properties form1 araç çubuğundan Tooltiptext buton ya da öğelerde açıklayıcı bir not gösterilmesini sağlar
1440 twip = 1 inç (twip uzunluk birimi)
1 inç = 2,54 cm
Private Sub Form_Load() ----- komut satırının yazıldığı ve aktif olan proje formu
End Sub -------------------------- yordama yazılan komut satırlarını sonlandırır
Show ----------------------------- aktif proje formu üzerine yazılanları gösterir
Print ------------------------------ kode sayfasında yazılanı aktif forma yazdırır
RUN(Start) ---------------------- aktif form yada projenin son şeklini gösterir
RUN(End) ---------------------- derlemeye geri dönmek içindir
Currentx ------------------------- text yada button gibi nesnelerin form sayfası üzerinde x yönündeki kordinatını koordinatını twip değeri olarak konumlandırır.
Currenty ------------------------- text yada button gibi nesnelerin form sayfası üzerinde y yönündeki kordinatını koordinatını twip değeri olarak konumlandırır.
ORNEK
Private Sub Form_Load()
Show
Currentx = 1400
Currenty = 1600
Print “ erkan”
Currentx = 1700
Currenty = 2000
Print “ aydoğdu”
‘saat 3 te randevun var unutma...[hatırlatma satırıdır programı etkilemez (‘) işareti kullanılır]
End Sub
Açıklama: erkan ve aydoğdu kelimelerini form üzerine belirtilen konuma yazar.
ORNEK
Private Sub Command1_click()
Command1. Caption = “ CIHAN AKMAZ”
End Sub
ACIKLAMA: Command komutuna tıkladık tan sonra yazılan bu yazı ile comand1 olan ismi CİHAN AKMAZA döner.
MATEMATIK ISLEMLERİNİN SEMBOL İFADELERİ
^.............üs alma +.............artı
/..............bölme *.............çarpma
-..............eksi =..............eşittir
\..............ters slash (bölme işlemini tama tamamlar)
&............string print ( “ANIT” & “KABIR”) Sonucu ANITKABIR
mod........örnek ( 17 mod 2 ) sonuç 1 ........17 yi 2 ye böler sonucu kalansız verir
ÖRNEK
Private Sub Form_Load()
Show
Dim a, b, c, d
a = 10
b = 5
c = 2
d = b+a/2
print d
End Sub..................................sonuç 10 dur
ÖRNEK
Private Sub Form_Load()
Show
Dim a, b, c, d
a = 10
b = 5
c = 2
d = a mod c .................a’ yı c ye bölüp kalanı verir
text1 = d .....................formda text1 oluşturur ve d yi text1 e yazar
End Sub
DEĞISKENLER
1)***** Değişkenler rakamla başlayamaz
2)***** Değişkenler içinde boşluk olamaz
3)***** Değişkenlerde sadece harf ve rakam kullanılır
4)***** Değişkenler 255 karaktere kadar olabilir
5)***** VB6.0 içinde kullanılan bir komut değişken olarak kullanılamaz
Ek Not: Dim DEĞİŞKEN As DEĞİŞKEN TİPİ
BYTE DEĞİŞKEN TİPİ...........: Değişkenin 0 – 255 arasında bir tamsayı olduğunu belirtir. 2 byte lık yer kaplar.
INTEGER DEĞİŞKEN TİPİ......: Değişkenin yuvarlanıp tam kısmının alınması gerektiğini belirtir. –32765 ve +32765 arasında bir tamsayı olduğunu belirtir. 2 byte yer kaplar.
LONG DEĞİŞKEN TİPİ............: Değişkenin yuvarlanıp tam kısmının alınmasını sağlar. Ve –2.147.483.648 ve +2.147.483.648 arasında olduğunu belirtir. 4 byte yer kaplar.
SINGLE DEĞİŞKEN TİPİ.............: Logaritmik sayılarda kullanılır. Değişkenin hem tam hem de kesirli olabileceğini belirtir. Değişkenin 3,402823*10^(3
Arasında olduğunu belirtir. 4 byte yer kaplar.
DOUBLE DEĞİŞKEN TİPİ.........: Logaritmik işlemlerde kullanılabilir. Ama genelde kullanmak gerekmez. +- 1,79769313486232*10^(30
Arasında olduğu belirtir. 8 byte lik yer kaplar.
CURRENCY DEĞİŞKEN TİPİ.....: Değişkenin virgülden sonraki 4 rakamını da alır. 8 byte lik yer kaplar. – 922337203685477,5808 ile + 922337203685477 arasındadır.
BOOLEAN DEĞİŞKEN TİPİ........: 2 halli durumlarda kullanılır. Ya evet ya hayır. İşlem doğruysa true, yanlışsa false. 8 byte lik yer kaplar.
STRING DEĞİŞKEN TİPİ..............: Yazılabilecek karakter sayısının 2.000.000.000 olduğunu belirtir. 4 byte lik yer kaplar.
VARIANT DEĞİŞKEN TİPİ...........: Herhangi bir unsur değişken olarak tanımlanmazsa otomatik olarak atanmasını sağlar. Dim a dan sonra atanabilecek sayıları atar.
DATE DEĞİŞKEN TİPİ...................: Değişkenin içereceği bilgi tarih ve zaman gösteriyorsa kullanılır. 8 byte lik yer kaplar.
OBJECT DEĞİŞKEN TİPİ...............: Resim veya nesne yerleştirmekte kullanılır.4 byte ...
NOT: String, Date ve Opject tipleri değiştirilemez
NOT: değiştirme kodunu girdikten sonra yanına değişken yazılır.
ÖRNEKLER
Dim ADRES
If ADRES like “ *ISTANBUL” Then [(Adres değişkeninin içinde en son istanbul olanı bul demektir.)
Dim ADRES
If ADRES like “ ISTANBUL*” Then [(Adres değişkeninin içinde en baştaki istanbul olanı bul demektir.)]
Dim ADRES
If ADRES like “ *ISTANBUL*” Then [(Adres değişkeninin içinde bütün istanbulolanları bul demektir.)]
Dim ADRES
If ADRES like “ ?abc ” Then [(Adres değişkeninin içinde son 3 karakteri abc 1. karakteri herhangi bir şey olan kelimeleri bul demektir.)]
Dim ADRES
If ADRES like “ #abc ” Then [(Adres değişkeninin içinde ilk karakteri RAKAM 2.3.4. karakteri abc olanları bul demek.)]
Dim ADRES
If ADRES like “ [a-f]abc ” Then
[(Adres değişkeninin içinde ilk karakterin a ile f arasında, 2.3.4. karakterin abc olanlarını bul demektir.)]
Dim ADRES
If ADRES like “ [!a-f]abc ” Then
(Adres değişkeninin içinde a ile f arasında olmayan herhangi bir karakteri ve ondan sonraki 3 karakterin abc olmadığını kontrol edip bulan komuttur.)
ÖRNEK
Private Sub Command1_Click()
If Text1 Like "??istanbul*" Then
MsgBox ("istanbulun basinda 2 soru isareti var") ilk iki karekteri ne olursa
Else devamı istanbul olanları arar
MsgBox ("bu yazi kurala uymuyor")
End If
End Sub
ÖRNEK
Private Sub Command1_Click()
If Text1 Like "#istanbul" Then ilk karekteri ne olursa olsun
MsgBox ("istanbulun basinda bir rakam var") devamı ist. olanları
Else
MsgBox ("istanbulun basinda rakam yok")
End If
End Sub
ÖRNEK
Private Sub Command1_Click()
If Text1 Like "[!a-d]istanbul" Then
MsgBox ("istanbulun basinda a ile d haricinde bir karakter var") ilk karekteri a ile d arasında
Else olmayan İst. arar.
MsgBox ("istanbulun başinda a ile d arasında bir harf var")
End If
End Sub
DEĞİŞKENLERDE TİP BELİRTME İŞLEMLERİ
1)***** Ccur ( ifade ) .......currency tipe dönüştürür 5)***** CSing ( ifade ) .............sing tipe dönüştürür
2)***** CDbl ( ifade ) .......double tipe dönüştürür 6)***** CVar ( ifade ) .............variant tipe dönüştürür
3)***** Cınt ( ifade )........integer tipe dönüştürür 7)***** Cbool ( ifade ) .............boolean tipe dönüştürür
4)***** CLong ( ifade ) .......long tipe dönüştürür
ÖRNEK
Private Sub Form_Load()
Msgbox ( “ İYİ GÜNLER “ )................ mesaj kutusunda ....İYİ GÜNLER......yazar
End Sub
MESAJ PANOSUNDAKİ BUTON KOMUTLARI
VbOkOnly.........................................O K
VbOkCancel......................................OK CANCEL
VbYesNo......................................... .YES NO
VbYesNoCancel.............................. .YES NO CANCEL
VbAbortRetryIgnore..........................ABORT RETRY IGNORE
VbRetryCancel...................................RE TRY CANCEL
MESAJ PANOSUNDAKİ İKON KOMUTLARI
VbCritial......................................... ..KIRMIZI ÇARPI İKONU ..................16
VbQuestions.....................................SO RU İKONU.....................................32
VbExclamation.................................ÜÇGE N İÇİNDE ÜNLEM İKONU....48
VbInformation...................................BA LONCUK İÇİNDE İ İKONU........64
MESAJ PANOSUNDAKİ BUTONLARIN SEÇİLİ OLMASI KOMUTLARI
VbDefaultButton1..............................1. DÜĞMEYİ SEÇİLİ YAPAR
VbDefaultButton2..............................2. DÜĞMEYİ SEÇİLİ YAPAR
VbDefaultButton3..............................3. DÜĞMEYİ SEÇİLİ YAPAR
ÖRNEK
Private Sub Command_Click()
Dim c
C = Msgbox ( “ PRESTIGE DEN MEMNUNUZ “, VbYesNo, “CİHAN” )
End Sub
(Sonuçta CİHAN adlı mesaj kutusunda PRESTIGEDEN MEMNUNUZ mesajı ve mesaj kutusunda YES NO butonları bulunur.)
NOT : vbyesno gibi işlem buttonları (,) basıldığında çıkan menüden seçile bilir.
ÖRNEK
Private Sub Command_Click()
Dim c
C = Msgbox ( “ PRESTIGE EDUCATION CENTER” , VbYesNoCancel + VbQuestions , “CİHAN” )
End Sub
(Sonuçta CİHAN adlı mesaj kutusunda PRESTIGEDEN EDUCATION CENTER mesajı ve mesaj kutusunda YES NO CANCEL butonları ile SORU İKONU bulunur.)
NOT: işlem buttonlarının seçimi gibi bu şekiller de (+)işareti yazıldıktan sonra seçilebilir.
ÖRNEK
Private Sub Command_Click()
Dim c
C = Msgbox ( “ PRESTIGE EDUCATION CENTER” , VbYesNoCancel + VbDefaultButton2 , “CİHAN” )
End Sub
(Sonuçta CİHAN adlı mesaj kutusunda PRESTIGEDEN EDUCATION CENTER mesajı ve mesaj kutusunda YES NO CANCEL butonları bulunur ve NO yani 2. buton seçilidir.)
ÖRNEK
Private Sub Form_Load()
Dim x
X = msgbox ( “ YAZDIRMAK İSTİYOR MUSUNUZ? “, VbOkCancel + VbQuestions ,
“ YAZDIRMA İŞLEMİ ” )
End Sub
(Sonuç olarak MESAJ PANOSUNDA YAZDIRMAK İSTİYOR MUSUNUZ mesajı , OK CANCEL butonları, SORU İKONU gelir.Mesaj panosu ismi YAZDIRMA İŞLEMİ dir.)
ÖRNEK
Private Sub Form_Load()
Show
CurrentX = 1000 ...............................................son ucun form da x uzunluğunu ayarlar
Currenty = 1000.............................................. ..sonucun form da y uzunluğunu ayarlar
FontSize = 10................................................ .....font boyutunu ayarlar
FontName = “ times new roman “.....................font seçimi
Fontİtalic = True.............................................. ..true ya da false dir italikliği ayarlar
FontUnderline = True.......................................true ya da false dir altçizgili olmasını ayarlar
FontBold = True.............................................. ..true ya da false dir kalınlığı ayarlar
Print “ PRESTIGE EDUCATION CENTER“...yazdırır
FontName = “ arrial “
Print “ BILGISAYAR KURSU“
End Sub
AÇIKLAMA :
Dim CİHAN As String *20
Yukarıdaki satır CIHAN değişkenine 40 karakterli bir değer atarsak 20 karakterini alır diğerlerini atar.
HATIRLATMA : Project Menüsünden Project Properties ten General den Startup Objectden istediğimiz formu aktif duruma getirebiliriz.
ÖRNEK
Private Sub Command1_Click()
İf Text1 >= 50 Then
MsgBox ( “ SINIFI GEÇTİ “ )
Else
MsgBox ( “ SINIFTA KALDI “)
End If
End Sub
(Sonuç olarak Text1 50 den küçükse butona basıldığında SINIFTA KALDI, 50 den büyükse SINIFI GEÇTİ mesaj kutusu çıkar.)
KODLAR
vbok 1 tamam
vbcancel 2 iptal
vbabort 3 islemi durdur
vbretry 4 yeniden dene
vbignore 5 gözardı et
vbyes 6 evet
vbno 7 hayir
KODLAR
vbritical 16 X
vbquestion 32 ?
vbexclamation 48 !
vbinformation 64 i
KODLAR
vbdefaultbutton2 256
vbdefaultbutton3 512
AÇIKLAYICI SATIR
*** c = MsgBox("yazıldı", 4+16+256)
ÖRNEK
Private Sub Form_Load()
Dim c
c = MsgBox("yazdirilsin", vbYesNo) ıf c= de ki 6’ yes buttonunun kodudur
If c = 6 Then yani bur da ki bilgiyi bilgisayar
MsgBox ("yes düğmesine basildi") if c= vbyes olarak algılar
Else
c = 7
MsgBox ("no düğmesine basildi")
End If
End Sub
ÖRNEK
Private Sub Form_Load() imputbox yazdığımız için
Show run yapılıp buton kliklendiğinde
Dim c bilgi girişi gibi vb. şeylerin
c = InputBox("dersane adını giriniz") yapabileceğimiz pencere açılır
Print c
End Sub
ÖRNEK sonuna 500,500 yazıldığında ınputbox
Private Sub Form_Load() penceresi üst köşeye yaklaşır
Show cuurent ayarı gibidir.
Dim c
c = InputBox("dersane ismini giriniz", "dershaneler", "prestige education center", 500, 500)
Print c
End Sub
Dersane ismini giriniz -----mesaj
Dersane------mesaj kutu adı
500,500------sonuç formu uzunluk ve genişlik ayarı her komutta kullanolabilir
ÖRNEK
Private Sub Form_Load()
Show
Dim c
c = InputBox("sinavı geçebilecek misin", "önemli soru", "kesinlikle evet", 500, 500)
CurrentX = 1800
CurrentY = 1800 buttona basıldığında ımput penceresi gözükür
FontSize = 15 içinde kesinlikle evet yazar penceredeki
Print c tamam tıklandığında forma yazar
End Sub
ÖRNEK
Private Sub Form_Load() bu programda iki pencere açılır buralara
Show yazılan notların ortalaması alır
Dim c As Integer ve form üzerine yazılır
Dim d As Integer
Dim e As Integer
c = InputBox("1.sinav notu", "bilgi girisi", "6", 500, 500)
d = InputBox("2.sinav notu", "bilgi girisi", "4", 500, 500)
e = (c + d) / 2
Print c
Print d
Print e
Print "bu seneki ortalamaniz " & e & " dir"
YAZININ ICINDE BELLI BIR KISTASA GORE ARAMAK
ÖRNEK
Private Sub Command1_Click() çıkan texte sonu istanbul olan bir yazı
If Text1 = " " Then yazdığımızda bu arkadaş istanbull da oturuyor MsgBox ("lütfen bilgi girin") penceresi çıkar boş olduğunda lütfen bilgi girin
Exit Sub. Sonu istanbul olmayan bir yazı yazdığımızda
End If bu arkadaşın istanbulla bir ilgisi yok penceresi
If Text1 Like "*istanbul" Then çıkar
MsgBox ("bu arkadaş istanbul da oturuyor")
Else
MsgBox ("bu arkadaşın istanbul ile ilgisi yok")
End If
End Sub
VERILEN SAYIDA NE KADAR 10,5,1,0.5,0.1 MILYON OLDUĞUNU BULUR
Private Sub Form_Load()
Show
Dim i, j
i = InputBox("para miktarini giriniz")
j = Int(i / 10000000) değişken tanımlandıktan (dim)ve sayı girilmesi Print j; "tane 10000000 tl" (imputbox )sağlandıktan sonra bir değişkeni ( j ) yazılan i = i Mod 10000000 sayının tam bölümüne eşitlenmiş sonra yazdırılıp
j = Int(i / 5000000) ( ? ) kalanıbulunmuş (mod) ve tekrar aynı komutlarla farklı Print j; "tane 5000000 tl" sayılara bölünmüş
i = i Mod 5000000 ensonunda kalan son rakam kalan olarak yazdırıldı
j = Int(i / 1000000)
Print j; "tane 1000000 tl"
i = i Mod 1000000
j = Int(i / 500000)
Print j; "tane 500000 tl"
i = i Mod 500000
j = Int(i / 100000)
Print i; "tl geriye kaldi"
End Sub
KLAVYEDEN 2 SAYI GIRIP BU SAYILARIN KARELERINI TOPLAMA ISI
Private Sub Form_Load()
Show
Dim i, j, k
i = InputBox("sayiyi girin")
j = InputBox("sayiyi girin")
k = (i ^ 2 + j ^ 2)
Print k
End Sub
DIK UCGENIN 2 KENARI GIRILDIGINDE HIPOTENUS ALAN VE CEVREYI HESAPLAYIP FORMA YAZAR
Private Sub Form_Load()
Show
Dim i, j, h, a, c
i = InputBox("sayiyi girin")
j = InputBox("sayiyi girin")
h = ((i ^ 2 + j ^ 2)) ^ (1 / 2)
Print h
a = i * j / 2 [? C] [end sup] köşeli parentez dekiler sona eklenecek
Print a
c = Val(i) + Val(j) + Val(h) ................ val degiskenleri kesinlikle sayi olarak belirler
FONKSİYONLAR
Shell() FONKSIYONU' (Shell Fonksiyonu Disardan bir exe çalistirmak için kullanilir aşağıdaki 'komut dizini yazıldığında hem wörd hem de excel çalısır.)
ÖRNEK
Option Explicit
Private Sub Command1_Click()
Dim Excel, WinWord
Excel = Shell("D:\Program Files\Microsoft Office\Office\Excel", 4)
WinWord = Shell("D:\Program Files\Microsoft Office\Office\Winword", 4)
len() FONKSİYONU : Yazılmıs olan kaydın uzunluğunu kaç karakter olduğunu hesaplar
ÖRNEK
Cls
Dim Bilgi, Ara
Bilgi = InputBox("Adınızı Giriniz")
Ara = Len(Bilgi)
Print Ara
Dim Ad
Dim a As String
Dim b As Long
a = 456
b = 180000000
Ad = "Nihat Demirli"
CurrentY = 200
FontSize = 18
Print "Tamsayi"; Len(a)
Print "Uzun Tamsayi"; Len(b)
Print "Karakter"; Len(Ad)
ÖRNEK
Option Explicit
Private Sub Command1_Click()
Show
Dim a As Integer
Dim b As Long
Dim c
a = InputBox("integer sayınızı giriniz")
b = InputBox("Long sayinizi Giriniz")
c = InputBox("Karakter sayinizi giriniz")
MsgBox ("integer") & Len(a) & "dir"
MsgBox ("Long") & Len(b) & "dir"
MsgBox ("Karakter") & Len(c) & "dir"
Left() ONKSİYONU:
Text Kutusunun içinde bir yazimiz var Left fonksiyonunu kullanarak
yazinin solundaki karakterleri bulmamızı sağlar
ÖRNEK
Option Explicit
Private Sub Command1_Click()
Dim c, k
c = InputBox("ismi giriniz")
k = Left(c, 4)
MsgBox ("Kayıt Bulundu:" + k)
Dim c, k, l
c = InputBox("Adinizi giriniz")
k = InputBox("Kaç karakter aranacak")
l = Left(c, k) [? I] SONA EKLE
LCase FONKSİYONU : (yaninda (sağında) yazılan metni küçük harfe çevirir
ÖRNEK
Option Explicit
Private Sub Command1_Click()
Dim c, k
c = "NIHAT DEMIRLI"
k = LCase(c)
Print k
Cls
Dim c, k
Text1 = "ahmet"
c = InputBox("Sifreyi Giriniz")
If LCase(c) = LCase(Text1) Then
'MsgBox ("Sifre Dogru")
Else
MsgBox ("sifre yanlis")
End If
Ucase() FONKSİYONU : Büyük Harfe Çevirir
ÖRNEK
Option Explicit
Private Sub Command1_Click()
Cls
Dim c, k
Text1 = "ahmet"
c = InputBox("sifreyi Giriniz")
If UCase(c) = UCase(Text1) Then
MsgBox ("sifre dogru")
Else
MsgBox ("sifre yanlis")
End If
ÖRNEK
Option Explicit
Private Sub Command1_Click()
Cls
Dim c, k
c = InputBox("sifreyi giriniz")
k = UCase(c)
Print k
Mid() FONKSİYONU : değişken içerisinde bir parçayı alır
ÖRNEK
Option Explicit
Private Sub Command1_Click()
Cls
Show
Dim ad, c, k
ad = "Microsoft Visual Basic"
c = InputBox("Kaç karakter istiyorsunuz?")
k = InputBox("ikinci karakter aralığını giriniz")
FontName = "Arial"
FontSize = 20
FontBold = True
rint Mid(ad, c, k)
(string() FONKSİYONU : Bu fonksiyon yazılan aski kodunu,rakamı vb. girilen sayı kadar yazar
ÖRNEK ( “ )içine alındığında ilk harfi görüntüler
Option Explicit
Private Sub Command1_Click()
Show EEEEEEEEEE
FontSize = 20 --------------------
FontName = "Arial"
Print String(10, Chr(69)) vvvvv
Print String(20, "-")
Print String(5, "visual")
chr() FONKSİYONU : içerde yazılan değerin aski Karşılığını verir 65 ==A
ÖRNEK
Option Explicit
Private Sub Command1_Click()
Cls
Show
Dim c, k
c = InputBox("0-255 arası bir sayı giriniz")
If c < 0 Or c > 255 Then
MsgBox ("sayiniz yanlis")
Else
k = Chr(c)
CurrentX = 1440
CurrentY = 120
Print k
End If
asc()FONKSIYONU: karakteri girdiğimizde aski kodunu söyler A === 65
ÖRNEK
Option Explicit
Private Sub Command1_Click()
Dim c, k
k = Asc(c)
Print k
Abs() FONKSİYONU : Ortaya çıkan sayının negatif değerini atar pozitif değerini alır
ÖRNEK
Option Explicit
Private Sub Command1_Click()
cls
Dim c, d
c = InputBox("Sayiyi giriniz")
d = Abs(c)
Print "Girdiğiniz sayinin mutlak degeri bu", d
Sqr() FONKSİYONU : Kara kök Fonksiyonu verdiğimiz sayının kara kökünü verir
ÖRNEK
Option Explicit
Private Sub Command1_Click()
Dim c, k
c = InputBox("Sayiyi giriniz")
If c < 0 Then
MsgBox ("Yanlis Sayi Girdiniz")
Else
k = Sqr(c)
Print k
DATE()FONKSİYONU :Tarih
Dim c
c = Date
print c
Time() FONKSİYONU : Zaman
ÖRNEK
Option Explicit
Private Sub Command1_Click()
Dim c, k
c = Time
MsgBox c
int FONKSİYONU : böler ve sayıların tam kısmını alır “\” aynı görevi yapar
ÖRNEK
Option Explicit
Private Sub Command1_Click()
Cls
Dim c, d, k
c = InputBox("sayi giriniz")
d = InputBox("rakami giriniz")
k = Int(c / d)
CurrentX = 1440
CurrentY = 250
Print k
ÖRNEK
Option Explicit
Private Sub Command1_Click()
Dim c, d, k
c = InputBox("Sayi Giriniz")
d = InputBox("ikinci Sayiyi giriniz")
k = c \ d
Print k
now(9 FONKSİYONU : (Tarih ve zamanı aynı anda yazar)
ÖRNEK
Option Explicit
Private Sub Command1_Click()
Dim c
c = Now
Print c
val() FONKSİYONU : içindeki ilk karakterleri integer tam sayıya çevirir
ÖRNEK
Option Explicit
Private Sub Command1_Click()
Dim c, k
c = InputBox("giriniz")
k = Val(c)
Print k
End Sub
(FILECOPY) BIR DOSYAYI BASKA BIR YERE KOPYALAMA
ORNEK
Private Sub Command1_Click()
FileCopy "c:\nihat.xls", "c:\windows\Desktop\nihat.xls"
End Sub
(KILL) BIR DOSYAYI SILME İŞLEMİ
ORNEK
Private Sub Command1_Click()
Kill "c:\windows\Desktop\nihat.xls"
End Sub
ORNEK( mesaj kutusunda yes e basıldıgında dosyayı sıldırmek)
Private Sub form_load()
Dim a
a = MsgBox("dosyayı silmek istediginizden emin misiniz", vbYesNo)
If vbYes Then
Kill "c:\windows\Desktop\nihat.xls"
Else
End If
End Sub
(NAME) DOSYA ISMINI DEGISTIRIR
ORNEK
Private Sub Command1_Click()
Name "c:\windows\Desktop\nihat.xls" As "c:\windows\Desktop\ahmet.xls"
End Sub
(MKDIR) KLASOR OLUŞTURMA
ORNEK
Private Sub Command1_Click()
MkDir "c:\windows\Desktop\nihat"
End Sub
(FILELEN) DOSYANIN BOYUTUNU VERIR BYTE CINSINDEN
ORNEK
Private Sub Command1_Click()
MsgBox (FileLen("c:\windows\desktop\nihat.xls"))
End Sub
ORNEK
Private Sub Command1_Click()
Dim a
a = FileLen("c:\program files\microsoft office\office\excel.exe")
If a < 1440000 Then
MsgBox ("bu bir diskete sigar")
Else
MsgBox ("bu bir diskete sigmaz")
End If
Print a
End Sub
(GETATTR) DOSYANIN ÖZELLİĞİNİ VERİR
ÖRNEK
Private Sub Form_Load()
Show
Dim c
Cls
c = GetAttr("c:\windows\desktop\nihat.xls")
Print "nihat.xls"
If c And 1 Then Print "read-only"
If c And 2 Then Print "hidden"
If c And 4 Then Print "sistem"
If c And 32 Then Print "arsive"
End Sub
(SETATTR) DOSYANIN ÖZELLİKLERİNİ DEĞİŞTİRİR
ÖRNEK
Private Sub Command1_Click()
SetAttr "c:\windows\desktop\nihat.xls", vbHidden Or vbArchive
End Sub [ dosyanın özellikleri hidden ve arşive olarak değişir ]
(FILEDATETIME)
ÖRNEK
Private Sub Command1_Click()
Show
Dim c
c = FileDateTime("c:\windows\desktop\nihat.xls")
Print c
End Sub
BAZI METODLAR
CLS METODU (örnek : Form1.cls) formun üstündeki yazıları siler temizliyor
LINE METODU (ÇİZGİ ÇİZER)
LINE(X1Başlangış, Y1Başlangıç) – (X2Bitiş, Y2Bitiş)
Y1
Doğru Y2
X1
X2
SCALEHEİGHT
SCALEWİDTHT
ÖRNEK
Private Sub Form_Load()
Show
Line (200, 400)-(400, 900)
End Sub
(scalewidth,scaleheight ) properties araç çubuğundan windows state den form boyu ayarlanabilir.
ÖRNEK
Private Sub Form_Load()
Show
DrawWidth = 3...........çizgi kalınlığını ayarlar
Line (200, 400)-(1600, 1100)
End Sub
(RGB) METODU SONUCA RENK VERİR
ÖRNEK
Private Sub Form_Load()
Show
DrawWidth = 3
Line (200, 400)-(1600, 1800), RGB(0, 255, 150).....rgb de 0=x, y=255, z=150
End Sub
(B) METODU DIKDÖRTGEN KOMUTU
ÖRNEK
Private Sub Form_Load()
Show
DrawWidth = 3
Line (200, 500)-(1600, 2000), RGB(100, 120, 240), B
End Sub
(BF) METODU DIKDÖRTGENİN İÇİNİ BOYAR
ÖRNEK
Private Sub Form_Load()
Show
DrawWidth = 3
Line (200, 500)-(1600, 2000), RGB(100, 120, 240), BF
End Sub
ÖRNEK bir üçgen yapmak
Private Sub Form_Load()
Show
DrawWidth = 3
Line (300, 500)-(1600, 1800)
Line (1600, 1800)-(800, 50)
Line (800, 50)-(300, 500)
End Sub
ÖRNEK üçgen kenarlarını boyamak
Private Sub Form_Load()
Show
DrawWidth = 3
Line (300, 500)-(1600, 1800), RGB(255, 0, 0)
Line (1600, 1800)-(800, 50), RGB(0, 255, 0)
Line (800, 50)-(300, 500), RGB(0, 0, 255)
End Sub
ÖRNEK
Private Sub Form_Load()
Show
Dim t, i, X1, Y1, x, y
x = 200
y = 200
t = "NIHAT DEMIRLI-Y.INS.MUH"
FontName = "times new roman"
FontSize = 20
For i = 0 To 15
X1 = x + i * 10
Y1 = y + i * 10
ForeColor = QBColor(i)
CurrentX = X1
CurrentY = Y1
Print t
Next
End Sub
CIRCLE METODU (DAİRE ÇİZER)
CIRCLE (XmerkeYmerkez), Yarıçap
ÖRNEK
Private Sub Form_Load()
Show
DrawWidth = 5
Circle (600, 400), 200
End Sub
ÖRNEK
Private Sub Form_Load()
Show
Dim x, y
DrawWidth = 3
x = ScaleWidth / 2
y = ScaleWidth / 2
Circle (x, y), x / 2, RGB(0, 50, 200)
End Sub
ÖRNEK
Private Sub Form_Load()
Show
Dim x, y, a, b, c, d
DrawWidth = 3
x = ScaleWidth / 2...........scalewidth sonuç formun genişliği
y = ScaleHeight / 2..........scaleheight sonuç formun yüksekliği
Circle (x, y), x / 2, RGB(0, 50, 200)
a = x - (x / 2)
b = x + (x / 2)
c = y - (x / 2)
d = y + (x / 2)
Line (a, y)-(b, y)
Line (x, c)-(x, d)
End Sub
ÖRNEK elips
Private Sub Form_Load()
Show
Dim x, y, a, b, c, d
DrawWidth = 3
x = ScaleWidth / 2
y = ScaleHeight / 2
Circle (x, y), x / 2, RGB(0, 50, 200), , , 0.8
a = x - (x / 2)
b = x + (x / 2)
c = y - (x / 2)
d = y + (x / 2)
Line (a, y)-(b, y)
Line (x, c)-(x, d)
End Sub
ÖRNEK
Private Sub Form_Load()
Show
Dim x As Integer
Dim y As Integer
DrawWidth = 3
x = ScaleWidth / 2
y = ScaleHeight / 2
Circle (x, y), x / 2, RGB(0, 0, 255)
Line (ScaleWidth / 2 - x / 2, ScaleHeight / 2)-(ScaleWidth / 2 + x / 2, ScaleHeight / 2)
Line (ScaleWidth / 2, ScaleHeight / 2 + x / 2)-(ScaleWidth / 2, ScaleHeight / 2 - x / 2)
End Sub
MOVE METODU
ÖRNEK
Private Sub Form_Load()
Move 1000, 1500, 2400, 1600.......formumuzun sol üst ve sağ alt köşesi koordintları x, y
End Sub
ÖRNEK
Private Sub Form_Load()
Show
Dim x, y, z, t, n, m
FontName = "times new roman"
FontSize = 14
x = "NIHAT DEMIRLI"
y = "Y.INS.MUHENDISI"
Print x
t = TextWidth(x)
Print t
Print y
n = TextWidth
Print n
End Sub
ÖRNEK
Private Sub Form_Load()
Show
Dim t, i
fontname = "Times New Roman"
FontSize = 40
For i = 0 To 10
t = t + i
Next
CurrentX = ScaleWidth / 2 - TextWidth(t) / 2
CurrentY = ScaleHeight / 2 - TextHeight(t) / 2
Print t
End Sub
ÖRNEK
Private Sub Form_Load()
Show
Dim x, y, z
z = 1
fontname = "Times New Roman"
FontSize = 40
y = InputBox("sayiyi girin")
For x = 1 To y
z = z * x
Next
'CurrentX = ScaleWidth / 2 - TextWidth
/ 2'CurrentY = ScaleHeight / 2 - TextHeight
/ 2Print y & " !=" & z & " dir "
End Sub
ÖRNEK.....0 dan 10 a kadar çift sayıları toplar
Private Sub Form_Load()
Show
Dim x, t
t = 0
fontname = "Times New Roman"
FontSize = 40
For x = 0 To 10 Step 2 ....step 2 iki çifter çifter olduğunu gösterir
t = t + x
Next
Print t
End Sub
ÖRNEK
Private Sub Form_Load()
Show
Dim a
a = InputBox("notu girin")
If a < 0 Or a > 100 Then
MsgBox ("boyle bir not yok")
ElseIf a < 50 Then
MsgBox ("kaldiniz")
ElseIf a >= 50 And a < 70 Then
MsgBox ("gectiniz")
ElseIf a >= 70 And a < 90 Then
MsgBox ("iyi bir not aldiniz")
Else
MsgBox ("mukemmel")
End If
End SubEnd Sub
ÖRNEK....2 den fazla şart varsa elseif komutunun kullanılması
Private Sub Form_Load()
Show
Dim a
a = InputBox("notu girin")
If a < 0 Or a > 100 Then
MsgBox ("boyle bir not yok")
ElseIf a < 50 Then
MsgBox ("kaldiniz")
ElseIf a >= 50 And a < 70 Then
MsgBox ("gectiniz")
ElseIf a >= 70 And a < 90 Then
MsgBox ("iyi bir not aldiniz")
Else
MsgBox ("mukemmel")
End If
End Sub
ÖRNEK
Private Sub Command1_Click()
Dim x
x = InputBox(" 1 ile 5 arasinda bir sayi gir ")
Select Case x
Case 1:
MsgBox (" girdiginiz sayi 1 ")
Case 2:
MsgBox (" girdiginiz sayi 2 ")
Case 3:
MsgBox (" girdiginiz sayi 3 ")
Case 4:
MsgBox (" girdiginiz sayi 4 ")
Case 5:
MsgBox (" girdiginiz sayi 5 ")
End Select
End Sub
ÖRNEK
Private Sub Command1_Click()
Dim n
n = InputBox("notu girin")
Select Case n
Case 0 To 50:
MsgBox ("kaldin")
Case 51 To 70:
MsgBox ("iyi not")
Case 71 To 90:
MsgBox ("çok iyi not")
Case 91 To 100:
MsgBox ("mukemmel")
Case Else
MsgBox ("geçersiz giris")
End Select
End Sub
ÖRNEK......iif komutunu ancak 2 şartta kullanabiliriz.
Private Sub Command1_Click()
Dim c, k
k = InputBox("notu girin")
c = IIf(k < 50, ("kaldiniz"), ("geçtiniz"))
MsgBox c
End Sub
ÖRNEK.......final ve bütünleme
Private Sub Command1_Click()
Dim vize1 As Integer
Dim vize2 As Integer
Dim ortalama As Integer
Dim final As Integer
Dim sonuc1 As Integer
Dim butunleme As Integer
Dim sonuc2 As Integer
Dim i As Integer
vize1 = InputBox("1.notu girin")
vize2 = InputBox("2.notu girin")
ortalama = (vize1 + vize2) / 2
final = InputBox("final notunu gir")
sonuc1 = 0.4 * c + 0.6 * final
If sonuc1 >= 50 Then
MsgBox ("geçtiniz")
Else
MsgBox ("kaldiniz")
butunleme = InputBox("bütünleme notunu girin")
sonuc2 = 0.4 * ortalama + 0.6 * butunleme
If sonuc2 <= 49 Then
MsgBox ("kaldiniz")
Else
MsgBox ("geçtiniz")
End If
End If
End Sub
ÖRNEK
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim g As Integer
Dim h As Integer
a = InputBox("1.notu girin")
b = InputBox("2.notu girin")
c = (a + b) / 2
d = InputBox("final notunu gir")
e = 0.4 * c + 0.6 * d
If e > 50 Then
MsgBox ("geçtiniz")
Else
MsgBox ("kaldiniz")
g = InputBox("bütünleme notunu girin")
h = 0.4 * c + 0.6 * g
If h <= 50 Then
MsgBox ("kaldiniz")
Else
MsgBox ("geçtiniz")
End If
End If
End Sub
ÖRNEK
Private Sub Command1_Click()
Dim sinav1 As Integer
Dim sinav2 As Integer
Dim ortalama As Integer
Dim final As Integer
Dim sonuc1 As Integer
Dim butunleme As Integer
Dim sonuc2 As Integer
sinav1 = InputBox("1.notu giriniz")
sinav2 = InputBox("2.notu giriniz")
ortalama = (Val(sinav1) + Val(sinav2)) / 2
final = InputBox("final notunu giriniz")
sonuc1 = Val(0.4 * ortalama) + Val(0.6 * final)
If sonuc1 >= 50 Then
MsgBox ("gectiniz")
Else
MsgBox ("kaldiniz")
butunleme = InputBox("butunleme notunu giriniz")
sonuc2 = Val(0.4 * ortalama) + Val(0.6 * butunleme)
If sonuc2 >= 50 Then
MsgBox ("gectiniz")
Else
MsgBox ("kaldiniz")
End if
End If
End Sub
