folder Tahribat.com Forumları
linefolder Visual Basic - Basic - PicBasic ve Türevleri
linefolder Visualbasic Küçük Kodları...



Visualbasic Küçük Kodları...

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    ivy
    ivy's avatar
    Kayıt Tarihi: 17/Haziran/2006
    Erkek

    Kayan Form Başlığı

    Dim Cl As Integer
    Dim at As Integer
    Public Function AniText(str As String, eff As Integer) As String
    Dim lop
    Cl = Len(str) + 1
    at = at + 1
    If at >= Cl Then
    at = 1
    End If
    Select Case eff
    Case 0
    AniText = Mid(str, at) + Left(str, at)
    Case 1
    AniText = Mid(str, (Cl - at)) + Left(str, (Cl - at))
    Case 2
    AniText = Mid(str, (Cl - at)) + Left(str, (Cl - at)) + Mid(str, at) + Left(str, at)
    Case 3
    AniText = Mid(str, at) + Left(str, at) + Mid(str, (Cl - at)) + Left(str, (Cl - at))
    End Select
    End Function

    Private Sub Timer1_Timer()
    Form1.Caption = AniText("mail adresiniz ", 1)
    End Sub
    -----------------------------------

     Titreyen Form

    'Program çalışırken formu sürükleyebilirsiniz.
    Dim MeLeft As Long, MeTop As Long
    Const MaxT = 150
    Function Salla(EnBuyuk As Long)
    Salla = Int(EnBuyuk / 2) * Rnd * ((Second(Now) + 50) * (Minute(Now) + 50)) Mod EnBuyuk + 1
    End Function

    Private Sub Form_Load()
    MeLeft = Me.Left
    MeTop = Me.Top
    End Sub

    Private Sub Timer1_Timer()
    Dim X As Long, Y As Long
    X = MeLeft - Salla(MaxT)
    Y = MeTop - Salla(MaxT)
    Me.Left = X
    Me.Top = Y
    End Sub

    Private Sub Timer2_Timer()
    If Abs(MeLeft - Me.Left) > MaxT + 50 Then MeLeft = Me.Left
    If Abs(MeTop - Me.Top) > MaxT + 50 Then MeTop = Me.Top
    End Sub

     

    Reply With Quote Alıntı yap
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Hunter
    j4x
    j4x's avatar
    Kayıt Tarihi: 16/Temmuz/2005
    Erkek

    Küçük kodları bu başlıkta toplayalım.

    3 tanede benden.alinti degildir.

     

    1-)Checkbox tipi liste kutularini kullanma 

    'Diyelim 100 tane seçenek var...Bunların evet yada hayır olmasının belirlenmesi için checkbox koymak istiyorsunuz..100 checkbox mu eklemek zorundaısınz yada index mi koymak zorundasınız?Hayır..Formunuza bir listbox ekleyerek style özelliğini checkbox yaparsanız,listeye eklediğiniz kadar checkbox olur..Kullanırkende


    Private Sub Command1_Click()

    if list1.list(0)=true then
    msgbox "ayarlar değiştirildi!"

    End Sub

    'işinize yararsa ne mutlu!

     

    2-)Random String Uretimi

    'Formun General Declerations bölümüne:


    Private Function randomstr(uzunluk As Integer) As String
    Dim x As Integer
    Dim i As Integer
    randomstr = ""
    For i = 1 To uzunluk
    Randomize
    x = Int(Rnd * 26) + 97
    randomstr = randomstr & Chr(x)
    Next
    End Function

    'Kullanımı:

    dim x as string
    x=randomstr(3)
    'x 3 karakterlik karisik bir string olacaktir.

    3-)Asal sayilari listeleme

    Private olan() As Integer 'sınırsız boyutlu tamsayı arrayı tanımla
    Private Sub Command1_Click()
    If Not IsNumeric(Text1.Text) = True Then 'sayı deilse hata ver
    MsgBox "Adam gibi sayı gir len", vbCritical
    Else
    ReDim olan(CInt(Text1.Text)) As Integer 'tamsayı arrayını yeniden boyutlandır
    Dim i As Integer
    Dim x As Integer
    List1.Clear
    For i = 2 To CInt(Text1.Text) 'asıl sayılar
    For x = 2 To CInt(Text1.Text) 'bölünecek sayılar
    If i <> x And i Mod x = 0 Then 'modüler aritmetik kalan bulma islemi
    olan(i) = 2 'yanlissa 2 degeri verioz
    End If
    Next
    Next
    Dim h As Integer
    For h = 2 To CInt(Text1.Text) 'islemler bitti simdi degerleri tekrar kontrol edelim
    If olan(h) <> 2 Then
    List1.AddItem h 'eger asalsa listeye ekle
    End If
    Next
    End If
    End Sub

    'bu kodla 2 den yazdiniz sayiya kadar olan asal sayilari listeleyebilirsiniz.integer kullanildigi icin 32k kusur max deger oluyor :).Zaten sayi buyudukce bilgisayarda zorlanmaya baslayacaktir.

    The king is bleeding.
    Reply With Quote Alıntı yap
Toplam Hit: 1522 Toplam Mesaj: 2