Yeni Kayıt
Konudaki Resimler
önceki
|
Hızlı 
Bildirim
Visual Basic Örnekler (3. sayfa)
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
2 Misafir (1 Mobil) - 1 Masaüstü, 
1 Mobil
1 Mobil
Giriş
Mesaj
-
-
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
-
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
-
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 :)
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
