Cevap: Visual Basic Örnekler

19 yıl

Çavuş

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

Private Sub Command8_Click()
Printer.Print Text1
Printer.EndDoc
End Sub
biraz gec gördüm yazını ama ben bunu gecen sene yapmıstım projem vb de word yapmaktı. ve yazdır komutu da vardı. yukardaki kodları kullanmıstım. işe yarıo. kolay gelsin sana

Bu mesaja 2 cevap geldi.

B

bad_brother

19 yıl

Er

hoca biri bana yardiim etsin daha yenı aldim vb yi please

bad_brother_17@hotmail.com

Bu mesaja 2 cevap geldi.

S

serseri

19 yıl

Yarbay

Konu Sahibi

quote:

Orjinalden alıntı: bad_brother

hoca biri bana yardiim etsin daha yenı aldim vb yi please

bad_brother_17@hotmail.com

takıldığın nokta olursa foruma sorabilirsin elimizden geldiği kadar yardımcı oluruz....

C

cag3003

19 yıl

Teğmen

serseri'ye çok teşekkür ederim

Bu mesaja 1 cevap geldi.

S

serseri

19 yıl

Yarbay

Konu Sahibi

quote:

Orjinalden alıntı: cag3003

serseri'ye çok teşekkür ederim

Bu arada çok güzel bir e-book elime geçti "Herkes İÇin Visual basic" diye Microsoftun kitabı isteyen olursa PM atabilir...

Bu mesaja 2 cevap geldi.

H

hsezen

19 yıl

Teğmen

Güzel bir başlık olmuş, emeği geçenlere teşşekürler.

Bende VB'de (vb yapılıp, yapılamayaçagını tam olarak bilmedigim) bir program yazmaya çalışıyorum.

Benim yazmak istedigim; VB'de yazdıgım programlar windows altında realtime çalışsınlar: yani yazmış oldugum program çalışırken, windows herhangi başkabişey çalıştırmasın.

Mesala Windows XP'de çalışan programların "Task manager" de "Processes" tabında seçerek, üzerine sağ tıklayıp "Set Priority"den "Realtime" seçebiliyoruz. böylece program realtime çalışıyor. Benim istedigim ise yazacagım programın çalıştırılınca otomatik olarak "Priority"sini realtime olarak atasın. Bunu VB ile yapabilirmisiz, veya nasıl yapabiliriz?

şimdiden teşşekürler.

Not: ingilizce windows kullanıyorum, terimlerin tam türkçe karşılıklarını bilmiyorum. Bu yüzden terimleri ingilizce verdim, kusura bakmayın.

< Bu mesaj bu kişi tarafından değiştirildi hsezen -- 5 Şubat 2006 20:49:17 >

C

cag3003

19 yıl

Teğmen

quote:

Orjinalden alıntı: serseri

quote:

Orjinalden alıntı: cag3003

serseri'ye çok teşekkür ederim

Bu arada çok güzel bir e-book elime geçti "Herkes İÇin Visual basic" diye Microsoftun kitabı isteyen olursa PM atabilir...

hocam ben de

bir e-book buldum bu adreste www. kentmerkezi.com/ebook.htm

< Bu mesaj bu kişi tarafından değiştirildi cag3003 -- 6 Şubat 2006 16:03:42 >
Bu mesaja 1 cevap geldi.

S

serseri

19 yıl

Yarbay

Konu Sahibi

Bu adresi biliyorum ilk Visual başladığımda baya yardımını görmüştüm güzel bir kaynak...Bende ki e-book istersen mail adresinin bana pm den gönderebilirsin

Bu mesaja 1 cevap geldi.

C

cag3003

19 yıl

Teğmen

serseri hocam ben vb'de yaptığımız bir programı nasıl vb'in yüklü olmadığı bir ortamda çalışabilecek bir yazılım haline çevirebiliriz onu soracaktım. bir setup mesela nasıl yapılabilir veya setupsız?

Bu mesaja 1 cevap geldi.

S

serseri

19 yıl

Yarbay

Konu Sahibi

Daha önce açılmış bu linklerden bakabilirsin

http://forum.donanimhaber.com/m_2097337/mpage_1/key_setup%252Cnas%25FDl//tm.htm#2097337

http://forum.donanimhaber.com/m_2561038/mpage_1/key_visual%252Cbasic%252Csetup//tm.htm#2561038

http://forum.donanimhaber.com/m_4811602/mpage_1/key_visual%252Cbasic%252Csetup//tm.htm#4811602

Kolay gelsin

Bu mesaja 2 cevap geldi.

S

serseri

19 yıl

Yarbay

Konu Sahibi

Horizontal / Vertical Scroll Bar

Nesnelerin ya da uygulama ilgili verilerin form üzerinde ileri/geri ya da sağa/sola kaydırılmasını sağlayan kontroldür.

Private Sub Form_Load()
VScroll1.Min = 0
VScroll1.Max = 256
VScroll2.Min = 0
VScroll2.Max = 256
VScroll3.Min = 0
VScroll3.Max = 256
End Sub
Private Sub VScroll1_Change()
Picture1.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value)
End Sub

Private Sub VScroll2_Change()
Picture1.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value)
End Sub

Private Sub VScroll3_Change()
Picture1.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value)
End Sub

Min ve Max değerleri ile kaydırma çubuğunun hareketlerinin başını ve sonunu temsil eder. Kaydırma çubuğunun oklarına tıklamak smallchange olayı, kaydırma çubuğu üzerindeki alanlara tıklamak largechange olayıdır. Properties kutusundan ayarlanır.

Timer ( Zaman Kontrolü)

Program içinde zamanı kullanmanızı sağlar. Tasarım zamanında forma eklenen Timer kontrolü çalışma zamanında görülmez.

Enabled Özelliği: False ve True değerleri ile zamanın çalışmasını ve durmasını sağlar.

Interval Özelliği: Saatin çalışma periyodunu belirtir. 1-65535 mili saniye arasında değişen değer. Eğer zamanın saniye olarak görülmesi istenirse Interval değeri 1000 yapılır.

Private Sub Command1_Click()
Label1.Caption = "0"
Timer1.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Str(Val(Label1.Caption) + 0.1)
End Sub

Bu mesaja 1 cevap geldi.

S

serseri

19 yıl

Yarbay

Konu Sahibi

MDI ( Multiple Document Interface)
VB uygulamalarında aynı anda birden fazla pencereyi açık tutmak amacıyla MDI formlar kullanılır. MDI arabirimi tek bir form ve içinde yer alan çok sayıda alt formdan oluşur. Alt formlara MDIChild denir. Bir projeye sadece bir MDI form eklenir. Ancak bir MDI form içinde çok sayıda alt form açılabilir. MDI üzerinde komut düğmesi vb. kontroller kullanılamaz. Bu nedenle MDI formlar veri girişi için kullanılamaz.

Bir MDI uygulama yaratmak:
1. Bir proje başlatılır.
2. Project menüsünden Add MDIForm komutu seçilir.
3. Projeye yeni bir form eklenir.
4. Yeni formun MDI Child özelliği True yapılır.
Project Explorer penceresinde formların simgeleri gözlenebilir.

Private Sub MDIForm_Load()
Form1.Show
Form2.Show
End Sub

MDI Form içine PictureBox dışında hiçbir kontrolü ekleyemediğimizi gözlemleyiniz. PictureBox içine diğer tüm nesneler eklenebilir. Ve bir araç çubuğu tasarlanabilir.

MDI Form ile Notepad benzeri bir uygulama yapmaya çalışalım.
1. File menüsünden New Project tıklanır.
2. Bir MDI Form eklenir.
3. Şu anda proje dahilinde bir normal form (Form1) ve bir MDI Form (MDIForm1) olmak üzere iki form var.
4. Form1’in MDIChild özelliği True yapılır.
5. Form1 üzerine bir TextBox yerleştirilir. Sol üst kenara yanaştırın.
6. TextBox’un MultiLine özelliği True yapılır. ScrollBar özelliği 2- Vertical yapılır.
7. Form1’in koduna şu satırlar yazılır.
Private Sub Form_Resize()
Text1.Height = ScaleHeight
Text1.Width = ScaleWidth
End Sub
8. MDI formda bir Dosya menüsü yaratmak için Tools – Menu Editor komutunu seç.

9. Private Sub yenidosya_Click()
Dim yeniform As New Form1
yeniform.Show
End Sub

Private Sub basamakla_Click()
MDIForm1.Arrange vbCascade
End Sub

Private Sub ddose_Click()
MDIForm1.Arrange vbTileVertical
End Sub

Private Sub ydose_Click()
MDIForm1.Arrange vbTileHorizontal
End Sub

C

cag3003

19 yıl

Teğmen

quote:

Orjinalden alıntı: serseri

Daha önce açılmış bu linklerden bakabilirsin

http://forum.donanimhaber.com/m_2097337/mpage_1/key_setup%252Cnas%25FDl//tm.htm#2097337

http://forum.donanimhaber.com/m_2561038/mpage_1/key_visual%252Cbasic%252Csetup//tm.htm#2561038

http://forum.donanimhaber.com/m_4811602/mpage_1/key_visual%252Cbasic%252Csetup//tm.htm#4811602

Kolay gelsin

sağol hocam çok yardımı oldu

Bu mesaja 1 cevap geldi.

S

süleyman_y_

19 yıl

Er

benimde katkım olsun

vb.nete basit iş gÖren Örnekler düşük seviyler için

Public Class Form1
Dim b As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
b = b + 1
If (b = 1) Then
Label1.Text = "Merhaba"
Else
Label1.Text = "tekrar bekleriz"
b = 0
End If
End Sub

End Class

Bu mesaja 1 cevap geldi.

S

süleyman_y_

19 yıl

Er

select case Örnek1

Public Class Form1
Dim b As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
b = b + 1

Select Case b
Case 1
Label1.Text = "Merhaba"
Case 2
Label1.Text = "tekrar bekleriz"
b = 0
End Select
End Sub

End Class

Bu mesaja 1 cevap geldi.

S

süleyman_y_

19 yıl

Er

vb.net select case Örnek2

Public Class Form1
Dim b As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
b = b + 1

Select Case b
Case 1
Label1.Text = "CinAli Merhaba"
Case 2
Label1.Text = "CinAli nasılsınız"
Case 3
Label1.Text = "Fidan tşkrler iyii"
Case 4
Label1.Text = "Fidan ya siz nasılsınız"
Case 5
Label1.Text = "CinAli iyi ne olsun "
b = 0
End Select
End Sub
End Class

Bu mesaja 1 cevap geldi.

S

süleyman_y_

19 yıl

Er

Radom select case
rastgel yanan sÖnen led düşün
genelde oyun programcıları random diyimini çok kullanırlar

Private Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.Tick
Dim th As Object
Dim altseviye As Object
Dim Ustseviye As Object
Ustseviye = 5
altseviye = 1
th = Int((Ustseviye - altseviye + 1) * Rnd() + altseviye)
Label1.Text = ""
Select Case th
Case 1
Label1.Text = "YEŞİL LED"
Case 2
Label1.Text = "kIRMIZI LED"
Case 3
Label1.Text = "SARI LED"
Case 4
Label1.Text = "MAVI LED"
Case 5
Label1.Text = "MOR LED"
End Select
End Sub

< Bu mesaj bu kişi tarafından değiştirildi süleyman_y_ -- 14 Şubat 2006 11:33:53 >
Bu mesaja 1 cevap geldi.

C

cag3003

19 yıl

Teğmen

bi proje üzerinde çalışıyorumda şunları tam anlamadım

rnd -1
randomize .......... bundan sonra bir long tipinde değişken kullanılmış

anlayan varsa bir bakabilir mi?

buda verilen bir paroladan bir rakam elde ediyor ama shift'teki 7,13 veya moddaki 19,23 ün bi anlamı var mı

Public Function parolacevir(ByVal parola As String) As Long
'Verdiğiniz paroladan bir rakam yapar
'bu rakamda kodlamada kullanılıyor.

Dim sonuc As Long
Dim ch As Long
Dim shift1 As Long
Dim shift2 As Long
Dim i As Integer
Dim parolauzunlugu As Integer

shift1 = 3
shift2 = 17

parolauzunlugu = Len(parola)
For i = 1 To parolauzunlugu

ch = Asc(Mid$(parola, i, 1))
sonuc = sonuc Xor (ch * 2 ^ shift1)
sonuc = sonuc Xor (ch * 2 ^ shift2)

shift1 = (shift1 + 7) Mod 19
shift2 = (shift2 + 13) Mod 23

Next i
parolacevir = sonuc

End Function

Bu mesaja 1 cevap geldi.

S

süleyman_y_

19 yıl

Er

'programınız için basit bir şifreli giriş
Private Sub Command1_Click()
Dim Sifre As String
Dim InputSifre As String
Dim Durumu As Integer
Sifre = "DENEME" 'şifre DENEME isteginize baglı yaza bilirsiniz
Durumu = 0

Do
'burada ki kod kullanıcının şifre girmesi için
InputSifre = InputBox("Enter Şifre.Durumu " & Durumu & ".")
Durumu = Durumu + 1

'burada ki kod Şifreyi 3 defa yanlış girmesine izin verir
Loop Until (Durumu = 3) Or (InputSifre = Sifre)

If InputSifre = Sifre Then
'burada ki kod şifre dogruysa bu mesajı verir
MsgBox ("Tşkler Şifeniz Dogrulandı!")
Else
'burada ki kod şifre yanlışsa bu mesajı verir
MsgBox ("Yanlış Şifre!")
End If
End Sub

'kod la dansımızın sonu

H

HipNotyC

19 yıl

Yüzbaşı

quote:

Orjinalden alıntı: YVolkan

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ı"

asal=0 yazmayı unutma yoksa sadece ilk girdiğin sayı için doğru netice alırsın :)

Bu mesaja 14 cevap geldi.