Şimdi Ara

Visual Basic Örnekler (3. sayfa)

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir (1 Mobil) - 1 Masaüstü1 Mobil
5 sn
191
Cevap
4
Favori
94.843
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
Sayfa: önceki 12345
Sayfaya Git
Git
sonraki
Giriş
Mesaj
  • 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




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

    bad_brother_17@hotmail.com
  • 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....
  • serseri'ye çok teşekkür ederim
  • 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...
  • 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 >




  • 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 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
  • 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?




  • 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




  • 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








  • 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
  • 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
  • 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
  • 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 >
  • 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




  • '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




  • 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 :)




  • 
Sayfa: önceki 12345
Sayfaya Git
Git
sonraki
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.