Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    Anasayfa » Forum Anasayfa » Kategori: Visual Basic 6.0
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Gauss Eliminasyon Yöntemi Algoritmas?

Yazar: pegamen
Lineer Denklem tak?mlar?n?n çözümünde kullan?lan yöntemlerden biri Gauss Eliminasyon Yöntemidir. Burada bu yöntemin s?n?rl? de?i?ken için modellenmi? algoritmas? verilmi?tir.


Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?

"düzeltme yapamıyorum"

merhaba arkadaşlar vb ye yeni başladım ve siteye yeni üye oldum yanlış yere yazdıysam kusuruma bakmayın internetten bulduğum bir kaç kodu derleyerek kendime ufak bir kayıt takip yazılımı hazırladım programın çalışmasında sorun yok fakat bir türlü düzeltme butonunu oluşturamıyorum kodlar aşağıda düzeltme için nasıl bir kod yazmam gerek yardımcı olursanız sevinirim ilginize şimdiden teşekkür ederim

kodlar bunlar
----
Private Sub Command1_Click()
If Text1 = "" Or Text2 = "" Then
MsgBox ("Firma ve Telefon alanlarının doldurulması zorunludur")
Exit Sub
End If
Text1 = UCase(Text1): Text2 = UCase(Text2): Text3 = UCase(Text3): Text4 = UCase(Text4): Text5 = UCase(Text5): Text6 = UCase(Text6): Text7 = UCase(Text7): Text8 = UCase(Text8):
Open "srv.mus" For Append As #1
Write #1, Text1, Text2, Text3, Text4, Text5, Text6, Text7, Text8
Close #1
MsgBox ("Kaydınız Başarıyla Tamamlandı"), vbInformation
Temizle
Text1.SetFocus


End Sub

Private Sub Command2_Click()
ARA = UCase(InputBox("FİRMA ADINI GİRİNİZ"))
Open "srv.mus" For Input As #1
Do While Not EOF(1)
Input #1, a, B, C, D, E, F, G, H
If ARA = a Then
Text1 = a: Text2 = B: Text3 = C: Text4 = D: Text5 = E: Text6 = F: Text7 = G: Text8 = H:
C = MsgBox("Aradığınız Kayıt Bu mu?", vbYesNo + vbQuestion)
If C = 6 Then GoTo Devam
End If
Loop
MsgBox ("Belirtilen Özellikte Kayıt Bulunamadı!")
Devam:
Close #1
End Sub

Private Sub Command3_Click()
ARA = UCase(InputBox("Silmek İstediğiniz Firma İsmini Giriniz"))
Open "srv.mus" For Input As #1
Open "yedek.txt" For Append As #2
Do While Not EOF(1)
Input #1, a, B, C, D, E, F, G, H
If ARA = a Then
Text1 = a: Text2 = B: Text3 = C: Text4 = D: Text5 = E: Text6 = F: Text7 = G: Text8 = H:
C = MsgBox("Kaydı Silmek İstediğinizden Emin misiniz?", vbYesNo)
If C = 6 Then MsgBox ("Kayıt Silindi"): Temizle: GoTo Devam
End If
Write #2, a, B, C, D, E, F, G, H
Devam:
Loop
MsgBox ("Belirtilen Şartta Silinecek Kayıt Bulunamadı")
Close #1
Close #2
Kill "srv.mus"
Name "yedek.txt" As "srv.mus"
Temizle
Text1.SetFocus

End Sub

Private Sub Form_Load()
Me.Height = 6420
Me.Width = 7080
Temizle
List1.Clear
Open "srv.mus" For Input As #1
Do While Not EOF(1)
Input #1, a, B, C, D, E, F, G, H
List1.AddItem a
Loop
Close #1
End Sub
Public Sub Temizle()
Text1 = "": Text2 = "": Text3 = "": Text4 = "": Text5 = "": Text6 = "": Text7 = "": Text8 = ""

End Sub

Private Sub Form_Resize()
Me.Height = 6420
Me.Width = 7080
End Sub


Private Sub List1_Click()
Open "srv.mus" For Input As #1
K = 0
Do While Not EOF(1)
Input #1, a, B, C, D, E, F, G, H
If List1.ListIndex = K Then
Text1 = a: Text2 = B: Text3 = C: Text4 = D: Text5 = E: Text6 = F: Text7 = G: Text8 = H:
End If
K = K + 1
Loop
Close #1
End Sub

----

Üyeye Özelden Mesaj At djmusty | 24.01.2015 14:18



Tüm Kategoriler | Visual Basic 6.0 | Visual Basic 6.0  1. Sayfa
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin