IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   Visual Basic (https://www.ircforumlari.net/visual-basic/)
-   -   Vb textboxtaki verileri kaydetme ve silme (https://www.ircforumlari.net/visual-basic/286402-vbulletin-textboxtaki-verileri-kaydetme-ve-silme.html)

radiCOOL 03 Kasım 2009 11:30

Vb textboxtaki verileri kaydetme ve silme
 
Arkadaşlar bir işletmede satılan malların tutulabilmesi için basit bir program yapmak istiyorum .. öyle ki atıyorum Kola butonuna bir kez basıldığında hemen kolanın karşısındaki textbox 1 artıyor onun yanındaki diğer textbox da 1. textboxtaki değeri fiyatla çarpıp yansıtıyor ... en altta bir textbox a da toplam kazanç ve toplam satılan ürünleri yansıtmak istiyorum ...Bunlarda sorunum yok ancak bir kaydet butonu oluşturup click eventiyle o güne ait tarihle beraber kaydedebileceğim bir düzene ihtiyacım var ... bir de geri çağırmak için toplam satış butonu ile geri çağırabilmem lazım o güne kadar yapılan tüm satışları ....

ÖR:
Kod:


Text1.text= 0 : text2.text=0
 
 Private Sub Kola_click()
      text1.text= text1.text + 1
      text2.text= text1.text * 0.75
    End Sub

Şeklinde her ürün için sıralannıyor .. Çift numaralı textboxlar fiyatı tek numaralılar ne kadar satıldığını gösteriyor .. Kaydet butonu ise bunları tarih atarak txt dosyasına yazdırsa ve de bir if döngüsü ile text1.text kaç ise Kola = 2 , text2.text = 1.5 gibi bütün textlere yazdırsa da işimi görür ancak daha başka yolu varsa yardım bekliyorum ...

Skills 19 Şubat 2010 17:00

Cevap: Vb textboxtaki verileri kaydetme ve silme
 
Kaydet butonu'nu ''button1'' olarak varsayalım
Kaydet butonu'nun click yordamına;

PHP- Kodu:

Private Sub button1_Click()
Dim Workbook1 As Workbook
Dim i 
As  Integer
Dim FileName 
As String
Set Workbook1 
=  Workbooks.Add(Template:=ThisWorkbook.Path "\book1.txt")
=  0
Do
1
FileName 
ThisWorkbook.Path "\book1.txt" i  ".txt"
Loop While FileExists(FileName)
Workbook1.SaveAs  FileName:=FileName 



Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 15:13.

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net