Put # komutu

[by_microp]

put komutu ile ilgili bir sorunum var kayıt bilgilarini kaydetmiyor acaba neden olabilir hata satırı

Put #1, gösteriyor yardım edin lütfen

[NecroCapo]

Kodların tümünü yollarsan yardımcı olabiliriz.Sadece bu bilgiyle bir cevap vermek imkansız

[by_microp]

evet doğru söylüyorsun

Private Type Registration
Name As Integer
Surname As String
Age As String
End Type
Dim isci As Registration

Private Sub cmdExit2_Click()
MsgBox "Exit successful"
End
End Sub

Private Sub cmdFind_Click()
Open "C:\Documents and Settings\Owner\Belgelerim\VBasic\Kayıt\elkayit.dat" For Random As #1
ara = Val(InputBox("Aradığınız Ürün Numarasını Giriniz", "ARA"))
Get #1, ara, isci
If isci.Name <> ara Then MsgBox " Böyle bir kayıt yapmadınız daha önce"
Text1.Text = isci.Name
Text2.Text = isci.Surname
Text3.Text = isci.Age


Close #1
Exit Sub
End Sub

Private Sub cmdRefresh_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub cmdSave_Click()
Open "C:\Documents and Settings\Owner\Belgelerim\VBasic\Kayıt\elkayit.dat" For Random As #1
If Text1.Text = isci.Name Then
MsgBox "You have..."
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
GoTo 100
End If

isci.Name = Text1.Text
isci.Surname = Text2.Text
isci.Age = Text3.Text
Put #1, isci.Name, isci          <----- HATALI KOD
100:

Close #1:
Exit Sub
End Sub



sorun bu bir kayıt programı olacak ama put komutunda sorun yaşıyorum

ve sizden bir yardım daha login konusunda da problemim var bana bir login kodu verebilirseniz sevinirim login konusundada sorunum kod yanlış olsada programa giriyor şimdiden teşekkürler  

[NecroCapo]

Private Type Registration
Name As Integer
Surname As String
Age As String
End Type

Bana bu kodları bi yerlerden kopyalayıp da üzerinde değişiklik yapmışsın gibi geldi çok karışmış kodlar Ama bu kısımda

Name As String
Surname As String
Age As Single    

olarak düzeltmeyi dene
..

+login olarak bişi hazırladım ama tam olarak belirtmemişsin nasıl bir login istediğini.Bu işini görür mü acaba ?
Login :
www.geocities.com/necrocapo/LOgin.zip

[by_microp]

Private Type Registration
Name As Integer
Surname As String
Age As Single
End Type
Dim isci As Registration

Private Sub cmdSave_Click()
Open "C:\Documents and Settings\Owner\Belgelerim\VBasic\Kayıt\elkayit.dat" For Random As #1
If Text1.Text = isci.Name Then <<<--------------HATALI
MsgBox "You have..."
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
GoTo 100
End If

isci.Name = Text1.Text
isci.Surname = Text2.Text
isci.Age = Text3.Text
Put #1, isci.Name, isci

100:

Close #1:
Exit Sub
End Sub


şimdi yeni bir hata çıktı bunu nasıl giderecem acaba  

[NecroCapo]

Name i de string olarak tanımlayacaksın Age de single olacak söylemiştim bir üstteki mesajı tekrar oku istersen:)

[by_microp]

tamam onlarıda yaptım ama sorun devam ediyor  

[NecroCapo]

Bu sefer ne sorunu var _?

[by_microp]

Private Type Registration 
Name As String
Surname As String 
Age As Single 
End Type 
Dim isci As Registration 

Private Sub cmdSave_Click() 
Open "C:\Documents and Settings\Owner\Belgelerim\VBasic\Kayıt\elkayit.dat" For Random As #1 
If Text1.Text = isci.Name Then        [color=red]<<<--------------HATALI [/color]
MsgBox "You have..." 
Text1.Text = "" 
Text2.Text = "" 
Text3.Text = "" 
GoTo 100 
End If 

isci.Name = Text1.Text 
isci.Surname = Text2.Text 
isci.Age = Text3.Text 
Put #1, isci.Name, isci 

100: 

Close #1: 
Exit Sub 
End Sub

sizin dediklerinizi uyguladım ve yukarıda gösterdiğim yerde hata vermeye başladı sizide çok yordum ama

mod notu: lütfen kod tagını(#) kullanın arkadaşlar.

[NecroCapo]

If Str(Text1.Text) = isci.Name Then  

 dene

[MuKaN]

If Str(Text1.Text) = isci.Name Then  

 dene

bence

if text1.text=str(isci.name) then

daha doğru olur ama zaten type'in içinde string olduğundan ona bile gerek yok bence.tanımlamalrda yada okuma bölümündeki bi hatadan kaynaklananıyor olabilir.
en iyisi sen vb nin verdiği hata mesajını buraya yaz...