Put # komutu

Başlatan by_microp, 28 Eylül 2005, 22:15:40

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
by microp Stajyer ;) Çorlu

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 :)  :)
by microp Stajyer ;) Çorlu

NecroCapo

Alıntı YapPrivate 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 :D 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  :(
by microp Stajyer ;) Çorlu

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  :(
by microp Stajyer ;) Çorlu

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.
by microp Stajyer ;) Çorlu

NecroCapo

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

MuKaN

Alıntı yapılan: "NecroCapo"
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...
Dünyayı Daha İyi Yapmayan İnsan,İnsan Değildir! (Kingdom of Heaven)