Vb de ini ve txt

[dalavi]

selam arkadaslar,
visual basicle bir ini veya txt dosyasi nasil yaratilir.
Tesekkürler

[argeelektronik]

[ground]

Arge sanırım bunu sormuyor arkadaş..  


Oluşturma ile ilgili bi örnek..
http://masamiki.com/project/writeproperties.txt

Ve buda var..

Sanırım oluşturduktan sonra bunla içine yazıyorsun..

Private Sub Command1_Click()
    Open App.Path & "\data.txt" For Output As #1 'open file for output
        Print #1, Text1.Text 'save text1's text
        Print #1, Text2.Text 'save text2's text
        Print #1, Text3.Text 'save text3's text
    Close #1 'close file
End Sub

Kullanmadım ama google sağolsun

Google için İhtiyacın olan kelimeler

"visualbasic" "create" "text file"

create yerine creating getirebilirsin "ing" türkçedeki -mek  -mak tır..
Not: Google ı kullanma klavuzu hazırlamamız gerekiyor gibi..

[argeelektronik]

Ground hocam siz googleyi iyi kullanıyorsunuz
ben visual basic'de  usb kontrolü için coponet bulamadım  bu konuda bilginiz varmı veya bilen arkadaşlar varmı acaba?

[ground]

http://www.alanmacek.com/usb/#Ref1

http://www.intel.com/intelpress/usb/examples/DUSBVB.htm

http://prism.mem.drexel.edu/kennedy/joystickTutorial/samp1.htm

http://www.vbfrance.com/gma/usb  (İYİ SİTE)

Ve benzeri

Google Kodu

http://www.google.com/search?num=100&hl=en&lr=lang_en&as_qdr=all&q=read+write+USB+VB&btnG=Search&lr=lang_en

Yardımcı kelimeleriniz

"read" "write" "USB" "VB"

VB yada "visualbasic"

iyi çalışmalar..

[OG]

ben visual basic'de usb kontrolü için coponet bulamadım bu konuda bilginiz varmı

Genelde usb ile iletişimi driveri saglar..windows driver ile muhatab olur
sende windows ile.. nasil olur.. bir SDK si vardir onla..

Bahsettigine benzer işlerde benim simdiye kadar gorduklerim aslinda gerçek
bir USB değildi.. Evet cihazi pc ye usb olarak takiyorsun, ama aslinda cihaz
rs232 tasarlanmis ve yapilmis.. ve taktigim kablonun cihazin kutusuna
yerlestirilmis bir USB-rs232 donusturucunun uzatilmis kablosundan başkasi
değildi  ... Yazilimlari ise com portlardan driveri kendi driveri olani
secip kullaniyordu.

yok ben harbiden USB istiyorum diyorsan bildigim kadari ile bu tip isler
icin Custom USB kitler var.. bir driverde beraberinde geliyor bunlarin..
driver kurulumunu da sen şekillendirebiliyorsun inf sinden mesela takinca
"xxx bunker kontrol v1.0" diye cikiyor..ama onlarda sonucta paralel / seri
vs bi seye donusturuyordur gibi geliyor bana..

bu arada su linki bi incele bahsettigime benzer seyler var ben tam
inceleyemedim http://www.lvr.com/usb.htm

Burada Güzel Birşeyler var (PBP formatında) ~200KB
http://www.hemenpaylas.com/download/510194/FT232_16F877.zip.html

Yukarıdaki dosyanın tamamı ise burada (~5,5MB):
http://www.hemenpaylas.com/download/510244/Usb_Complete_-_Everything_You_Need_To_Develop_Custom_Usb_Peripherals__3._edition__by_Jan_Axelson__2005_.zip.html

[transistor]

aşağıdaki kod text1 içindeki bilgileri bi text dosyası olarak kaydeder.

[code]

Private Sub Command8_Click()
On Error GoTo saverr2
Dim amcammm
dlgCommonDialog1.DialogTitle = "Kaydet"
dlgCommonDialog1.Filter = "text (*.txt) |*.txt"
dlgCommonDialog1.DefaultExt = "txt"
dlgCommonDialog1.CancelError = True
dlgCommonDialog1.Flags = 2
dlgCommonDialog1.ShowSave
Open dlgCommonDialog1.FileName For Output As #1


amcammm = Text1                        
Print #1, amcammm
Close #1
saverr2:
End Sub

[transistor]

aşağıdaki kodlarla ilk önce bi txt dosya açılır (sıralı erişim için) içine bilgiler yazılır ikinci kodlada bu bilgiler okunur.

                sıralı erişim için dosyaya yazma rutini

Open "c:\sirali.txt" For Append As #2
knumara = 2
kzaman = Date
ksaat = Time$
khava = dataciz1
kgidis = dataciz2
ksicak = dataciz
kcalismasicakligi = dataciz3
Write #2, knumara, kzaman, ksaat, khava, kgidis, ksicak, kcalismasicakligi
Close #2

sıralı erişim dosyasından okuma rutini

Open "c:\sirali.txt" For Input As #2

Input #2, knumara, kzaman, ksaat, khava, kgidis, ksicak, kcalismasicakligi

If EOF(2) = True Then GoTo mes Else GoTo ho
   
Close #2
End Sub