Merhaba, herkeze kolay gelsin. Bende v.net e yeni baslayanlardan biriyim. kendimce bazi calsimalar yapmaya calsiyorum. takildigin bir iki yer var. birisini sormamda sakinca yoktur sanirim. Bir calsima hazirladim ve bunu setup dosya halince getirdim diyelim. Bu programin ismine E programi diyelim simdilikte kafamiz karismasin. E programi kuracak kisi setup casitirdiginda program kuruluma sirasinda password girmez ise program kurulduktan sonra(artik secilen sureye bagli 1-2 hafta) calsimaz duruma gelecek. Yada programi kurduktan sonra menuden istedigi yerden parolayi girecek ve program sinirli kullanimdan kalkacak. Bildigimiz standart prg ler gibi yani. Ve parolada oyle olmaliki bir E prg si icin kullanilacak parola baska bir E prg sinde kullanilamasin. Kisacasi windows taki serial key olaylarinin benzeri. yardimci olabilecek arkads varmi acaba aramizda. baska bir soru ise print olayi bir turlu beceremiyorum. yazdir olayini direk form sayfasi yapiyorum o zamanda istedigim sonucu elde edemiyorum. Form uzerindeki text.bixlarin icerigini arka planda calsisan bir word yada text dosyasina falan mi atmam gerekiyor acaba? |
Asal çarpanlara ayırma kodu (Bir command, bir tex öğesi ve bir list box olacaktır. Sayı texte girilecek. Commanddan komut girimiyle girilen sayının asal çarpanları listte cıkacaktır) Private Sub COmmand1_Click() Dim asal,bölen as Integer asal=val(text1.text) bölen=2 while asal <>1 While asal mod bölen = 0 List1.AddItem (Str(bölen)) asal=asal/bölen wend bölen=bölen +1 wend end sub |
Fibonachi Dizisi, Bilmeyen için belirtelim Fibonachi dizisi ilk iki elemandan sonraki elemanlar önceki iki elemanın toplamı şeklinde gider. Da Vinci Şifresi kitabında böyle bir olay vardı belki hatırlayanlar olabilir. 1,1,2,3,5,8,13,21,34... Visual Basic te amacımız Fibonachi dizisinde n eleman sayısını girip bir list boxta gösterebilme... Bunun için n sayısını girecek bir text box, sayıları gösterecek list box ve komutu verecek command butonu olması yeterlidir. Private Sub Command1_Click() Dim sayi1,sayi2,sayi3 as Long Dim n,i as Integer n=text1.text sayi1=1 sayi2=1 Lİst1.Clear List1.Additem (sayi1) For i = 2 to n sayi3 = sayi1 + sayi2 sayi1=sayi2 sayi2=sayi3 List1.AddItem (sayi2) Next i End Sub |
Dim db1 As Database Dim rs1 As Recordset Private Sub Command1_Click() Dim cevap As String cevap = MsgBox("Bu kayıt dosyaya kaydedilsinmi?", vbYesNo) If cevap = vbYes Then rs1.AddNew rs1.Fields("Sicil") = txtsicil rs1.Fields("Ad") = txtad rs1.Fields("Soyad") = txtsoyad rs1.Update txtsicil = "" txtad = "" txtsoyad = "" txtsicil.SetFocus Else End End If End Sub Private Sub Command2_Click() txtsicil = "" txtad = "" txtsoyad = "" MsgBox "Yeni Bir Kayıt Girmek İstiyormusunuz?" txtsicil.SetFocus End Sub Private Sub Command3_Click() On Error GoTo hata rs1.MovePrevious txtsicil = rs1.Fields("Sicil") txtad = rs1.Fields("Ad") txtsoyad = rs1.Fields("Soyad") Exit Sub hata: If Err.Number = 3021 Then rs1.MoveNext End Sub Private Sub Command4_Click() On Error GoTo hata rs1.MoveNext txtsicil = rs1.Fields("Sicil") txtad = rs1.Fields("Ad") txtsoyad = rs1.Fields("Soyad") Exit Sub hata: If Err.Number = 3021 Then rs1.MoveLast End Sub Private Sub Command5_Click() rs1.MoveFirst txtsicil = rs1.Fields("Sicil") txtad = rs1.Fields("Ad") txtsoyad = rs1.Fields("Soyad") End Sub Private Sub Command6_Click() rs1.MoveLast txtsicil = rs1.Fields("Sicil") txtad = rs1.Fields("Ad") txtsoyad = rs1.Fields("Soyad") End Sub Private Sub Command7_Click() Dim bul bul = InputBox("Sicil Noyu Giriniz", "Sahıs Bul") rs1.Seek "=", bul If rs1.NoMatch Then MsgBox "Aradığınız Kayıt Bulunamadı" Else txtsicil = rs1.Fields("Sicil") txtad = rs1.Fields("Ad") txtsoyad = rs1.Fields("Soyad") End If End Sub Private Sub Command8_Click() rs1.Edit rs1.Fields("Sicil") = txtsicil rs1.Fields("Ad") = txtad rs1.Fields("Soyad") = txtsoyad rs1.Update End Sub Private Sub Command9_Click() End End Sub Private Sub Form_Load() Set db1 = OpenDatabase("d:\PERSONEL.mdb") Set rs1 = db1.OpenRecordset("SAHIS") rs1.Index = "SicilNo" End Sub baya işe yarar kodlar... ![]() |
Hocam ellerinize saglık ama bunlari nasil kullanabiliriz vb programin içinemi koyacagiz ? Saygılar... |
Kodların cogunlugu COmmand Butonu için gecerli kodlardır. Yani VB açıldıgı zaman boş alana bir tane COmmand Buton ata o butonu çift tıkla ve cıkan ekrana kodları yaz. Hepsi bu ![]() Ama tabiki sadece CommandButon değil diğer elemanlarında herbirine ayrı kodlar yazılabilir. Kolay gelsin ![]() |
|
|
Arkadaslar cok saolun örnekler için üni deki derslerde cok işime yarıcaklar azcık burdan kopya cekicem![]() ![]() |
eskişehir osmangazi mi yoksa ![]() |
serseri hocam bi banada yardım edi ver yaa...ben lise3 programlama öğrcisiyim ama bize hiç biş iöğretmiyolar ve staj yeri bana bi program verdii şimdi adodc1 ile bağlantıyı yaptım propertisden orda soroun yok veri tabanı access onuda bağladım tmm ama bi sorun varr bu program telefon rehberi unvanı, adı-soyadı,dahili tel, cep1, cep2 diye bölümleri var bunlar textde yazılacak arama yaptırcam yani texte yazcam ordan ara dicem ada göre unvana göre diye arama yapıcamm ama bütün bilgilerimi yaptım bceremedim bi el uzatırmısınızz çok sevinirimm![]() |
Serseri Mükemmelsin ![]() ![]() Örneklerin Devamını bekliyoruz ![]() SAYGILAR |
arkadaşlar vb de telefon yapmakauya calısıyorum elımde 5 var su anda ama okulda 6.0 kullanılıyor. bunda nasıl yaparım bı yardımcı olurmusunuz? |
serseri arkdasım bana ödevimle ilgili yardım cı olursan sevinirim visual basicle telefon rehberi stok programı bunu gibi seyler mailim :viper_boyb@hotmail.com |
Eğer elinde hazırladıgın döküman var ve bir yerde tıkanıyorsa forum olarak yardımcı olabiliriz. |
Uzmanlar için hazırlanmıs VB notları. Alıntıdır... |
benim bir sorunum var ben proje aldım vb ama projemi bulamadım öğrenci kayıt programı ;:? yardımcı olursanız sevinirim sorunum şu örneğin okuldan istenen evraklar ad soyad tc dipiloma notu bunları kayıntını yaptım ancak örneğin bu diploma notuna göre kaydeilmiş dosyadan cağırıp bölümlere atacak bu bölümlerdende herhangi bir sınıfa atıp yeni toptan kayır yapacak veri tabanlı yardımıcı olursanınz sevinrim :s |
BEN DE YENİ BAŞLAYANLARDANIM.BEN VB 2005 KULLANIYORUM.AŞAĞIDAKİ PROGRAMDA TEXT1 TEXT2 VE 3 ,OPTİON1 OPTİON2 3 VE 4 TANIMLI DEĞİL DİOR HATA VERİYOR.NASIL TANIMLAMALIYIM ŞİMDİDEN TEŞEKKÜRLER( ÇOK ŞEY ÖĞRENDİM)
|
http://rapid share.de/files/7349431/VisualBasicTemel.rar.html
Bu mesaja 1 cevap geldi. Cevapları Gizle