selam arkadaslar,
visual basicle bir ini veya txt dosyasi nasil yaratilir.
Tesekkürler
(http://www.argeelektronik.com/semalar/vb.jpg)
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..
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?
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 :D
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..
Alıntı Yapben visual basic'de usb kontrolü için coponet bulamadım bu konuda bilginiz varmı
Alıntı YapGenelde 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
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
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
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