Új hozzászólás Aktív témák

• #1323 bandus veterán martonx #1322

  Új Válasz 2010-11-26 16:22:23 #1323

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  bandus

  veterán

  válasz martonx #1322 üzenetére

  akkor elküldöm az adatlapodon található mailcímr, nagyon hálás lennék ha megnéznéd

  a szakdolgozatomnak amúgy ehhez semmi köze, teljesen más téma. ez még egy 2. félévről visszamaradt programtervezés c. tárgy, amit eddig nem volt idő megcsinálni. amúgy ez az utolsó félév amikor oktatnak még visual basicet, jövőre már csak c-t.

• #1321 bandus veterán martonx #1315

  Új Válasz 2010-11-25 22:32:19 #1321

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  bandus

  veterán

  válasz martonx #1315 üzenetére

  hát egy rekord fájlban tároljuk az adatokat (mini adatbázis) és ezeket exportáljuk egy csv fájlba, hogy azt excellel is tudjuk kezelni. és azt kellene megoldani, hogy ha az így kiimportált .csv-t megnyitjuk excellel, és hozzáírunk még néhány rekordot (ami 3 mezőből áll) akkor azokat be tudjuk importálni a programfelületen keresztül a rekord típusú fájlunkba. szerintem is hülyeség, mivel a programmal simán hozzá tudjuk adni. nade ezen a hülye tárgyon múlik, hogy mehessek államvizsgázni, muszáj összekapnom magam. ha gondolod el tudom küldeni az eddigi programot..

• #1314 bandus veterán

  Új Válasz 2010-11-24 23:28:29 #1314

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  bandus

  veterán

  sziasztok!

  simét VB kérdéssel fordulnék hozzátok. már van egy jó kis programunk, ami képes feltölteni egy rekord típusú fájlt, 3 féle adat tartozik egy rekordhoz. ezt a fájlt ki is tudjuk iratni egy exceláltal is kezet .csv formátumú soros fájlba. az lenne a kérdésem, hogy az hogyan oldható meg, hogy ha én ebbe a soros .csv fájlba beírok még adatokat, azt a program be tudja olvasni, és el tudja tárolni a már említett rekord típusú fájlba, vagyis elvégezni a műveletet visszafelé.

  remélem érthető a kérdés

  köszi előre is a segítséget!

• #1297 bandus veterán bandus #1296

  Új Válasz 2010-11-11 01:38:31 #1297

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  bandus

  veterán

  válasz bandus #1296 üzenetére

  szóval a fájlkezelést tanultuk és a feladat a következő lenne:
  egy ksi adatbázist kellene létrehozni egy rekord típusú fájlban. a fáljlban egy személyről 3 adatot kellene tárolni. ezen adatok eltárolásához létrehoztunk egy elrendezést. 3 textboxban a kívánt adatok vannak, a 4.ben kellene megjelennie annak, hogy hányadik rekordról van szó. a textboxok egyben szolgálnak az adatok bevitelére és egjelenítésére is.
  van 4 command button. egy előre és egy hátra funkciójú, ami a rekordok közötti navigációra szolgál. egy mentés nevű, ami a 3 textbox tartalmát beírja egy rekordba a fájlban, és egy töröl, ami az épp kiválasztott rekordot törli ki.
  remélem érthető...
  a kódból jelenleg ennyi van meg:

  Option Explicit
  Option Base 1
  Private Type hallgato
  nev As String * 30
  neptun As String * 6
  kp As Single
  End Type
  Dim h As hallgato
  Dim f As Integer
  Dim r As Integer
  Dim fnev As String
  Dim tmpfile As String

  Private Function darab() As Integer
  f = FreeFile
  Open fnev For Random Access Read As #f Len = Len(h)
  darab = LOF(f) / Len(h)
  Close #f

  End Function
  Public Sub kiirat(rekordsz As Integer)
  Dim db As Integer
  db = darab
  If db = 0 Then
  Label4.Caption = "No data"
  Call tiszta
  Else
  Label4.Caption = Str(rekordsz) + "/" + Str(db)
  f = FreeFile
  Open fnev For Random Access Read As #f Len = Len(h)
  Get #f, rekordsz, h
  textbox1.Text = h.nev
  textbox2.Text = h.neptun
  textbox3.Text = Str(h.kp)
  End If

  End Sub
  Public Sub tiszta()
  Text1.Text = "Maximum 30 karakter"
  Text2.Text = "NEPTUN"
  Text3.Text = "Kp"

  End Sub

  remélem tud valaki segíteni

• #1296 bandus veterán martonx #1295

  Új Válasz 2010-11-10 23:49:32 #1296

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  bandus

  veterán

  válasz martonx #1295 üzenetére

  én is tudom jól, hogy semmit, de sajna ez van. gépészkaron ennyi jut... bár jövő évtől nem lesz már vb6, csak c, de nekem ebben a félévben kell a diploma

  mod: mindjárt leírom a feladatot.

• #1292 bandus veterán

  Új Válasz 2010-11-10 17:18:37 #1292

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  bandus

  veterán

  hopp, szóval van ilyen topik is, észre sem vettem.
  [link]
  nekem ilyen kérdésem lenne, ahogy látom itt is aktuális a téma

Új hozzászólás Aktív témák