Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • Web Tasarım - Programlama
  • Yazılım Geliştirme
  • Delphi / C++ /Vb
  • Bu Konuda
Şimdi Ara

Vd 6.0 da acil yardım lütfen

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 - 2 Masaüstü
5 sn
2
Cevap
0
Favori
495
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
0 oy
Öne Çıkar
Cevapla
Sayfa: 1
Giriş
Mesaj
  • iyi gunler elde etmek istedigim uygulama
    xx kişilik bir ad soyad listesini kaydeden ve sıralayan text dosyasını form üzerinde oluşturabilmek.

    denediğim fakat çalıştıramadığım kodlar burda

    Private Sub Command1_Click()


    Open "c:\odev.txt" For Output As #1
    For k = 1 To 10
    s = Rnd(Rnd() * 100)
    ad = InputBox(s & "notunu alan kisi adi")
    Write #1, k, s, ad
    List1.AddItem ad
    Next
    Close #1

    End Sub

    Private Sub Command2_Click()
    Form2.Show

    Open "c:\odev.txt" For Input As #1
    Do
    Input #1, ad
    List1.AddItem ad
    Loop While Not EOF(1)
    Close #1

    'Dim ad As adsoyad
    Form2.Show
    Open "c:\odev.txt" For Random As #1 Len = 40
    n = LOF(1) / 40
    For i = 1 To 10
    'Get #1 & ad
    Form2.Print k, ad,
    Next i
    Close
    End Sub
    burada kayıt ettiğim kişilerin listesini form üzerinde göremiyorum?



    burdada bir sorunum var ben text kutusuna yazdıklarımın listbox üzerine eklenmesini istiyorum fakat bu tip başladığımda
    Private Sub Command1_Click()
    Open "c:\cuma" For Append As #1
    Write #1, Text1, Text2
    Print #1, Text3
    Close #1
    Text1 = "": Text2 = Text3 = ""
    End Sub

    text2 dekileri text3 e göstermiyor ve text2 üzerinde false yazıyor?
    yardımcı olabilirseniz sevinirim iyi günler



    _____________________________
    İmzanız kural dışıdır! :)




  • 20 kişilik bir ad soyad listesini kaydeden ve sıralayan text dosyasını form üzerinde oluşturma
    'KULLANILAN ARAÇLAR
    '3 COMMAND BUTONU
    '1 LISTBOX
    '2 FORM
    Private Sub Command1_Click()
    Kaydedilenler.Clear
    Open "c:\odev.txt" For Output As #1 'c de odev adinda dosa olusturuldu
    'output komutu ile herseferinde yeni bilgiler girilebilecek
    For k = 1 To 20
    '20 kisilik liste oldugu icin 1 den 20 e kadar siralanma yapildi
    ad = InputBox("sıradaki isim")
    'inputbox a isimleri girioruz
    Write #1, ad
    'girdigimiz verileri dosyamiza kaydediyor
    Kaydedilenler.AddItem ad
    If k = 20 Then MsgBox ("20 kişiyi listeledim")
    '20 kisiye ulastigimiz zaman gorunen msji verior
    If ad = "" Then GoTo 1
    'eger 20 taneden az listeleme islemi yapmak istersek islemimiz bittikten sonra sadece ok tusuna basarak programi kapatabiliriz
    Next
    Close #1
    1
    End Sub
    '_________________________________________________ _________________________
    Private Sub Command2_Click()
    Dim BulunanKelimeler As String
    'bulunankelimeler adi altinda bir dizi tanimladik
    Form2.Show
    'form2 acma komutu
    Open "C:\odev.txt" For Input As #1
    'odev dosyamizdan gerekli bilgileri aldik
    While Not EOF(1)
    ' eof komutu Dosya okuma işlemlerinde, sıralı dosyalarda dosya sonuna gelinip gelinmediğini anlamak için kullanılır.
    Input #1, ad
    Kaydedilenler.AddItem BulunanKelimeler
    Form2.Print ad
    Wend
    'wend while ile birlikte kullanilir, do - loop gibi
    Close #1
    End Sub
    Private Sub Command3_Click()
    MsgBox ("bu programi kullandiginiz icin tesekkur ederiz umarımbegenirsiniz")
    Unload Form1
    'unload form da programımımızı kapatmamıza yardımcı olan komuttur
    End Sub



    < Bu mesaj bu kişi tarafından değiştirildi dogusburak -- 20 Ağustos 2008; 12:01:07 >
    _____________________________
    İmzanız kural dışıdır! :)




    • Yapay Zeka’dan İlgili Konular
    3.135 TL'Lik Sistem!! Sizce Nasıl? Ve Kasa Önerisi |A.C.İ.L|
    10 yıl önce açıldı
    H-100 mü starex mi lutfen yardım edin :(
    15 yıl önce açıldı
    0 ya da 2.el 3 d printer öneri
    3 ay önce açıldı
    Daha Fazla Göster
    
Sayfa: 1

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz, DH'yi kullanırken depoladığımız çerezlerle ilgili veri politikamıza gözatın.
Kabul Ediyorum