Cevap: Visual Basic Örnekler

S

serseri

20 yıl

Yarbay

Konu Sahibi

quote:

Orjinalden alıntı: sewim

bize 2. sınıfta gösterdiler :)

soruyu yapabildin mi?

Bu mesaja 1 cevap geldi.

S

sewim

20 yıl

Teğmen

evet geç oldu ama sonunda yaptım

çeşitli yolları var

command1_click
form1.hide
form2.show
end sub

the bitti ... :)

Bu mesaja 2 cevap geldi.

S

serseri

20 yıl

Yarbay

Konu Sahibi

quote:

Orjinalden alıntı: sewim

evet geç oldu ama sonunda yaptım

çeşitli yolları var

command1_click
form1.hide
form2.show
end sub

the bitti ... :)

sevindim

J

Jasmin88

20 yıl

Yüzbaşı

quote:

Orjinalden alıntı: mandelbrot

Kod sıralama işlemi yapıyor. Zaten yukarda yazılmış.

Hem Basic basit de kime göre neye göre?

pascal ve delphiye göre...........

Bu mesaja 1 cevap geldi.

S

sewim

20 yıl

Teğmen

işteee bi örnek de benden

formun başlığının yanıp sönmesini sağlar msn de nasıl msj gelince bi mavi bi beyaz oluyo işte aynısı...

---------------------------------------------------------------

Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long

Private Sub Timer1_Timer()

deger = FlashWindow(Me.hwnd, 1)

End Sub

Private Sub Command1_Click()

' İşlemi başlatır

Timer1.Enabled = True

End Sub

Private Sub Command2_Click()

' İşlemi durduur

Timer1.Enabled = False
End Sub
End Sub

-----------------------------------------------------
forma bir tane timer eklemeniz yeterli

Bu mesaja 1 cevap geldi.

S

serseri

20 yıl

Yarbay

Konu Sahibi

timer eklemeyi unuttum hata nerede diye bakıp bakıp duruyordum

Bu mesaja 1 cevap geldi.

A

arf*

20 yıl

Binbaşı

çok önemli temel seviyede örnekler var geliştirmek için. sağolasın serseri...

Bu mesaja 1 cevap geldi.

D

dursuneee

19 yıl

Teğmen

merhabalar acil bir biçimde vbscript örneğine ihtiyacım var. aktif olan bir sayfanın yazıcıdan çıktısını almamı sağlayacak bir script. yardımcı olabilirseniz çok sevinirim

Bu mesaja 2 cevap geldi.

Y

YVolkan

19 yıl

Yüzbaşı

quote:

Orjinalden alıntı: dursuneee

merhabalar acil bir biçimde vbscript örneğine ihtiyacım var. aktif olan bir sayfanın yazıcıdan çıktısını almamı sağlayacak bir script. yardımcı olabilirseniz çok sevinirim

az daha form1.print yazacaktım vbscript yazsını görünce kendime geldim

vbscript, asp de çalışıyormuş bu microsoft işi biliyor. yanıtını bulurum diye biraz kurcaladım makineyi bellek hatasından iss kuramadım :x ama en yakında kurup bakacağım. ama sen google amcaya sor.
bu arada lisede bulamadım soruyu ve cevabı yazayım vb ile ilgili

-Soru: Girilen sayının asal sayı olup olmadığını bulan program
-Cevap:

quote:

Dim sayi,i,asal
sayi=inputbox("sayı gir")
for i=1 to sayi
if sayi mod i=0 then asal=asal+1
next i
if asal=2 then msgbox "asal sayı girdin" else msgbox " asal olmayan sayı"

Bu mesaja 1 cevap geldi.

W

wisecode_g

19 yıl

Yüzbaşı

quote:

Orjinalden alıntı: sewim

evet geç oldu ama sonunda yaptım

çeşitli yolları var

command1_click
form1.hide
form2.show
end sub

the bitti ... :)

burada daha önceden yani compile zamanında oluşturulmuş(yaratılmış demiyorum) formu gösterir.. yada hide ile saklar.. kısır bi çözüm.Bizim vb dersimiz yok kendim öğrendimve bence çok kolay bir dil..

buarada herhangi bir yerden program sonlanırken formların hepsni unload etmeyi unutmayım yoksa program arka planda çalışmaya devam eddiyor.

Unload Form1
Unload Form2

Bu mesaja 3 cevap geldi.

W

webradio_dj

19 yıl

Yüzbaşı

ben teknik lisede okuyorum ve hocamız bana bir proje verdi ama hep api leri kullanıcağım bir program olucak bilgisayar yöneticisi gibi bişey ama ben daha sadece anlık olarak ram kullanımını yapabildim.Nasıl bi tasarım yapmalıyım hangi programı örnek almalıyım mesela işte şu programdada aynı olay var ona bak ordan esinlen diyebileceğiniz ir program varmıdır.Yada sizin önerileriniz mesela işte cpu markası pc adı ekran çözünürlük ayarları vs... gibi. Maalesef pek dinlemedim hocayı konu anlatırken bende zorlanıyorum.

Bu mesaja 1 cevap geldi.

A

arf*

19 yıl

Binbaşı

CD AÇIP KAPAMA PROGRAMI

Programcık için önce iki tane aç ve kapa butonları oluşturun.
Kodlar:
Private Sub Command1_Click()
Dim a As Long
a = Module1.mciExecute("Set CDAudio door Open")
End Sub

Private Sub Command2_Click()
Dim a As Long
a = Module1.mciExecute("Set CDAudio door closed")
End Sub
(alıntı)

Bu arada benim bi sorum var. Ben scrollbarları hiç bi zaman aktif edemiyorum. Sadece textboxlarda kullanabiliyorum. Mesela pencerede nasıl kullanacam? Lütfen yardım edin. Şimdiden Teşekkürler!

< Bu mesaj bu kişi tarafından değiştirildi arf* -- 21 Ocak 2006 23:34:25 >
Bu mesaja 1 cevap geldi.

A

arf*

19 yıl

Binbaşı

TEXT BOX IN TEMİZLENMESİ

Bazen bir formdaki tüm text box'ların temizlenmesini isteriz. Bunun için çok kısa bir yol var. Aşağıdakı kodu fare ile copy yapın ve Visual Basic içinde kod kısmına paste edin.Command1 isimli fonksiyonuda bir tuşa bağlayın. Formun üzerinede bir kaç tane Text Box koyup derleyin.

Kodlar:
Sub ClearAllTextBoxes(frmTarget As Form)
For i = 0 To (frmTarget.Controls.Count - 1)
Set ctrlTarget = frmTarget.Controls(i) 'Eğer TextBox ise temizle
If TypeOf ctrlTarget Is TextBox Then
ctrlTarget.Text = ""
End If
Next i
End Sub

Private Sub Command1_Click()
ClearAllTextBoxes Form1 ('Text Boxlari temizlenecek formun ismini Form1 yerine yazın.)
End Sub

Butona bastığınız zaman Text Boxlarda yazı varsa hepsi boşalacaktır.
(Alıntı)

< Bu mesaj bu kişi tarafından değiştirildi arf* -- 21 Ocak 2006 23:35:30 >
Bu mesaja 1 cevap geldi.

A

arf*

19 yıl

Binbaşı

KÜÇÜK BİR ALARM PROGRAMI

Formunuza Command1,Command2 adlı butonları ve Timer1 adlı timer'i yerleştirin.Program hazır:)

Kodlar:

Private Sub Command1_Click()
Form1.WindowState = 1 'Formu simge durumuna küçült
Timer1.Enabled = True 'Zamanlayıcıyı başlat
End Sub
Private Sub Command2_Click()
End
End Sub

Private Sub Timer1_Timer()
CurrentTime = Format(Time, "hh:mm")
If CurrentTime = Text1.Text Then
Beep
MsgBox (Text2.Text), , "Kişisel Alarm"
Timer1.Enabled = False
Form1.WindowState = 0 'Formu tekrar görüntüle
End If
End Sub

(alıntı)

< Bu mesaj bu kişi tarafından değiştirildi arf* -- 21 Ocak 2006 23:30:21 >

C

cag3003

19 yıl

Teğmen

elimde böyle bir şifreleme fonksiyonu var. bunun ne anlamı olduğunu söyleyebilecek biri var mı? niçin 255?
LEN ve ASC komutları ne yapar? şimdiden sağolun

Public Function cRC4(inp As String, key As String) As String
On Error Resume Next

Dim S(0 To 255) As Byte, K(0 To 255) As Byte, i As Long
Dim j As Long, temp As Byte, Y As Byte, t As Long, x As Long
Dim Outp As String

For i = 0 To 255
S(i) = i
Next

j = 1
For i = 0 To 255
If j > Len(key) Then j = 1
K(i) = Asc(Mid(key, j, 1))
j = j + 1
Next i

j = 0
For i = 0 To 255
j = (j + S(i) + K(i)) Mod 256
temp = S(i)
S(i) = S(j)
S(j) = temp
Next i

i = 0
j = 0
For x = 1 To Len(inp)
i = (i + 1) Mod 256
j = (j + S(i)) Mod 256
temp = S(i)
S(i) = S(j)
S(j) = temp
t = (S(i) + (S(j) Mod 256)) Mod 256
Y = S(t)

Outp = Outp & Chr(Asc(Mid(inp, x, 1)) Xor Y)
Next
cRC4 = Outp

End Function

Bu mesaja 1 cevap geldi.

S

SavageWarrior

19 yıl

Yarbay

Sağolun arkadaşlar.
En başta @serseri 'e teşekkür ederim.

< Bu mesaj bu kişi tarafından değiştirildi SavageWarrior -- 28 Ocak 2006 22:22:10 >
Bu mesaja 1 cevap geldi.

A

arf*

19 yıl

Binbaşı

ben de serseri'ye teşekkür ederim çok yararlı bi konu açmış. benim bi sorum var hani nesneleri tanımalrken as double as integer falan diyoruz ya ben onun mantığını tam olarak anlayamadım elimdeki dökümanlarda da pek açıklamamış yani hangisi tam olarak ne işe yarar biri açıklayabilir mi?
Şimdiden teşekkür ederim!

quote:

Orjinalden alıntı: SavageWarrior

Sağolun arkadaşlar.
En başta @serseri 'e teşekkür ederim.

Bu mesaja 1 cevap geldi.

S

serseri

19 yıl

Yarbay

Konu Sahibi

< Resime gitmek için tıklayın >

Detaylı isteyen arkadaslar bu linkteki .pdf formatındaki kaynaktan bakabilirler...

http://rapidshare.de/files/12198164/VB_VeriTuru.pdf.html

Kısaca değinmek gerekirse veriler depolara saklanırken mümkün olan en uygun alanlarda depolanırlar. Visual Basic icin veri türlerine bakarsak

Byte : 0-255 arasındaki değerler için kullanılabilir. Örneğin sınıf lisesi yapılacaksa bu tür işe yarayabilir.

Integer : -32768 ile 32767 sayı değerleri arasındadır (genelde en sık kullanılan veri türlerdinde birisidir)

Long : -2 147 483 648 ile 2 147 483 647 arasında değerler alır.

Yukarıda kullanılan bu 3 veri türü tamsayı niteliği taşır, değişkenlere bir gerçel sayı atanmak istenirse en yakın atanacak değer en yakın tam sayıya çevrilerek atanacaktır. Şunu eklemekte fayda var Byte kullanılan veriler Long yazılarakta ifade edilir.
Diyelim

Dim sıra_no as Byte

ya da

Dim sıra_no as Long

ikisi arasında fark yoktur (sıra numaralarının 256dan büyük olmayacagını düsünürsek) Tek ayrım bilgisayar hesaplamalarda bu işleme daha çok alan ayırmakta böylece işlme süresi uzamaktadır.

Devam edelim;

Single : a üssü b şekli gösterime izin verir a ve b yi integer veri türünde düşünürsek. 3.14 pi sayısını göstermek istersek 312*10 üzeri -2 şeklinde ifade edebiliriz. 2 integer ifadesi yer alacagından bellekte 8 byte yer kaplar.

Double : single ifade eden a ve b değerlerinin long veri türünde olması durumundaki haldir. Çok büyük sayılar bu yolla yazılabilir (örneğin maliye hesaplarındaki parsal değerler)

Boolean : yalnızca 0 ya da 1 değerini alır bir nevi matematikteki mantık dersinde görülen doğru yanlış ifadesidir. 0 değeri False (yanlış), 1 değeri true (doğru) şeklinde atanır. (örneğin sayı 2ye bölünüyorsa doğru deyip sayıya çift sayı dedirtebiliriz)

String : Karakterleri tanımlamada kullanırız. Burada karakter kelimesinden kasıt sayısal ifadesizliktir. örneğin bir yer için parola tanımlayaılım bu paralada A30G23T79 şeklinde olsun. Bu parolada rakamlar olmasına rağmen bir sayısal değer ifade etmemektedir bu yüzden

Dim parola as string şeklinde ifade edilir.

Kısaca veri türleri bunlardır.

< Bu mesaj bu kişi tarafından değiştirildi serseri -- 31 Ocak 2006 1:17:20 >
Bu mesaja 1 cevap geldi.

S

serseri

19 yıl

Yarbay

Konu Sahibi

eklemeler :

BASIC açılım olarak " Beginer's All-purpose Symbote Instruction Code " anlamına gelmektedir.

@çağ3003

Len(String):Girilen stringin kaç karakter uzunluğunda olduğunu öğrenmemize yardımcı olur.Sayısal bir değer alır.A=Len("serseri") dersen A=7 olur.

Asc ise klavyeden girilen herhangi bir ifadenin,nümerik ascii karşılığını verir.Eğer tek harfli ifade yerine sözcük girersen, sözcüğün ilk karakterini baz alacaktır. Mesela asc(bilgisayar)dersen b'nin nümerik ascii karşılığı olan 98 elde edilir.

ASCII Kodları ise şu şekildedir :

Decimal Octal Hex Binary Value
------- ----- --- ------ -----
000 000 000 00000000 NUL (Null char.)
001 001 001 00000001 SOH (Start of Header)
002 002 002 00000010 STX (Start of Text)
003 003 003 00000011 ETX (End of Text)
004 004 004 00000100 EOT (End of Transmission)
005 005 005 00000101 ENQ (Enquiry)
006 006 006 00000110 ACK (Acknowledgment)
007 007 007 00000111 BEL (Bell)
008 010 008 00001000 BS (Backspace)
009 011 009 00001001 HT (Horizontal Tab)
010 012 00A 00001010 LF (Line Feed)
011 013 00B 00001011 VT (Vertical Tab)
012 014 00C 00001100 FF (Form Feed)
013 015 00D 00001101 CR (Carriage Return)
014 016 00E 00001110 SO (Shift Out)
015 017 00F 00001111 SI (Shift In)
016 020 010 00010000 DLE (Data Link Escape)
017 021 011 00010001 DC1 (XON) (Device Control 1)
018 022 012 00010010 DC2 (Device Control 2)
019 023 013 00010011 DC3 (XOFF)(Device Control 3)
020 024 014 00010100 DC4 (Device Control 4)
021 025 015 00010101 NAK (Negative Acknowledgement)
022 026 016 00010110 SYN (Synchronous Idle)
023 027 017 00010111 ETB (End of Trans. Block)
024 030 018 00011000 CAN (Cancel)
025 031 019 00011001 EM (End of Medium)
026 032 01A 00011010 SUB (Substitute)
027 033 01B 00011011 ESC (Escape)
028 034 01C 00011100 FS (File Separator)
029 035 01D 00011101 GS (Group Separator)
030 036 01E 00011110 RS (Request to Send)(Record Separator)
031 037 01F 00011111 US (Unit Separator)
032 040 020 00100000 SP (Space)
033 041 021 00100001 ! (exclamation mark)
034 042 022 00100010 " (double quote)
035 043 023 00100011 # (number sign)
036 044 024 00100100 $ (dollar sign)
037 045 025 00100101 % (percent)
038 046 026 00100110 & (ampersand)
039 047 027 00100111 ' (single quote)
040 050 028 00101000 ( (left/opening parenthesis)
041 051 029 00101001 ) (right/closing parenthesis)
042 052 02A 00101010 * (asterisk)
043 053 02B 00101011 + (plus)
044 054 02C 00101100 , (comma)
045 055 02D 00101101 - (minus or dash)
046 056 02E 00101110 . (dot)
047 057 02F 00101111 / (forward slash)
048 060 030 00110000 0
049 061 031 00110001 1
050 062 032 00110010 2
051 063 033 00110011 3
052 064 034 00110100 4
053 065 035 00110101 5
054 066 036 00110110 6
055 067 037 00110111 7
056 070 038 00111000 8
057 071 039 00111001 9
058 072 03A 00111010 : (colon)
059 073 03B 00111011 ; (semi-colon)
060 074 03C 00111100 < (less than)
061 075 03D 00111101 = (equal sign)
062 076 03E 00111110 > (greater than)
063 077 03F 00111111 ? (question mark)
064 100 040 01000000 @ (AT symbol)
065 101 041 01000001 A
066 102 042 01000010 B
067 103 043 01000011 C
068 104 044 01000100 D
069 105 045 01000101 E
070 106 046 01000110 F
071 107 047 01000111 G
072 110 048 01001000 H
073 111 049 01001001 I
074 112 04A 01001010 J
075 113 04B 01001011 K
076 114 04C 01001100 L
077 115 04D 01001101 M
078 116 04E 01001110 N
079 117 04F 01001111 O
080 120 050 01010000 P
081 121 051 01010001 Q
082 122 052 01010010 R
083 123 053 01010011 S
084 124 054 01010100 T
085 125 055 01010101 U
086 126 056 01010110 V
087 127 057 01010111 W
088 130 058 01011000 X
089 131 059 01011001 Y
090 132 05A 01011010 Z
091 133 05B 01011011 [ (left/opening bracket)
092 134 05C 01011100 \ (back slash)
093 135 05D 01011101 ] (right/closing bracket)
094 136 05E 01011110 ^ (caret/cirumflex)
095 137 05F 01011111 _ (underscore)
096 140 060 01100000 `
097 141 061 01100001 a
098 142 062 01100010 b
099 143 063 01100011 c
100 144 064 01100100 d
101 145 065 01100101 e
102 146 066 01100110 f
103 147 067 01100111 g
104 150 068 01101000 h
105 151 069 01101001 i
106 152 06A 01101010 j
107 153 06B 01101011 k
108 154 06C 01101100 l
109 155 06D 01101101 m
110 156 06E 01101110 n
111 157 06F 01101111 o
112 160 070 01110000 p
113 161 071 01110001 q
114 162 072 01110010 r
115 163 073 01110011 s
116 164 074 01110100 t
117 165 075 01110101 u
118 166 076 01110110 v
119 167 077 01110111 w
120 170 078 01111000 x
121 171 079 01111001 y
122 172 07A 01111010 z
123 173 07B 01111011 { (left/opening brace)
124 174 07C 01111100 | (vertical bar)
125 175 07D 01111101 } (right/closing brace)
126 176 07E 01111110 ~ (tilde)
127 177 07F 01111111 DEL (delete)

Bunun hariçinde VB de yer alan bazı fonksiyonlar ise şu şekildedir :

Space$(n):Belirtilen text'e veya herhangi bir yere n kadar boşluk koyar. Text1.text=space$(5)gibi

Left$:Belirtilen stringin en solundan başlayarak belirtilen sayıda stringi kopyalamak için kullanılır. A=Leftt$("serseri",4) derseniz A="sers" olacaktır.

Mid$:Belirtilen stringin belirtilen karakterinden başlayarak,soldan sağa doğru belirtilen kadar karakter kopyalamaya yarar. A=Mid$("serseri",2,4) derseniz A="erse" olacaktır.Yani 2.karakterden başlayarak sağa doğru 4 karakter kopyalayacaktir.

yukarıdaki fonksiyonlar genelde parola türetmede kullanılır. Devam edelim;

Val(String):Girilen stringi sayısal ifadeye çevirir,ifadeyi sayısal işlemlerde kullanma imkanı sağlar. A=val("27") ifadesi text kutusundan veya herhangi bir yolla girilmiş 27 yazısını rakamsallaştırmaya yarar.

Lcase(String):İçine girilen küçüklü büyüklü yazıyı tamamen küçük harfe çevirir. A=Lcase("sERseRİ") derseniz A="serseri" olacaktır.

< Bu mesaj bu kişi tarafından değiştirildi serseri -- 31 Ocak 2006 2:11:26 >
Bu mesaja 2 cevap geldi.

A

arf*

19 yıl

Binbaşı

sağolasın usta şimdi biraz anladım gibi...