Pitanja vezana za Visual Basic
Moderators: pedja089, stojke369, [eDo], trax
- sasa45
- Odlično uznapredovao
- Posts: 518
- Joined: 19-01-2007, 07:42
- Location: Subotica - Srbija
- Contact:
Re: Pitanja vezana za Visual Basic
izvini ovo sam vec pitao ali sam se pogubio i skroz zbunio i vrtim se u krug i ne mogu da pocnem....
kako da napravim u acess-u tabelu sa 6 kolona i 300 redova....I kako kasnije sa VB da pretrazujem bazu podataka....znaci da ja upisem neku rec i da mi u acess tabeli pronadje tu rec i da mi ispise ostalih 5 redova....
Znam da sam imamo to a sad ne mogu ni da nadjem odakle sam skinuo ono za pristupanje acess bazi podataka....i ako mozes samo idejno,tj koje komande da koristim...program cu ja sam da ispisem....
kako da napravim u acess-u tabelu sa 6 kolona i 300 redova....I kako kasnije sa VB da pretrazujem bazu podataka....znaci da ja upisem neku rec i da mi u acess tabeli pronadje tu rec i da mi ispise ostalih 5 redova....
Znam da sam imamo to a sad ne mogu ni da nadjem odakle sam skinuo ono za pristupanje acess bazi podataka....i ako mozes samo idejno,tj koje komande da koristim...program cu ja sam da ispisem....
- sasa45
- Odlično uznapredovao
- Posts: 518
- Joined: 19-01-2007, 07:42
- Location: Subotica - Srbija
- Contact:
Re: Pitanja vezana za Visual Basic
samo da pitam da ne lutam bezveze ako je nemoguce....Da li bi mogao napraviti program koji bi mi automatski instalirao neki program...znaci da mi program napravljen u VB "lupa" next,next,next,finish...a da i da upise ime i organizaciju ako negde treba....
Re: Pitanja vezana za Visual Basic
moze ali je bas tesko, i trebas znati unapred koje programe ces insta;irati da se uhvate njihove niti.
bas tesko
bas tesko
- sasa45
- Odlično uznapredovao
- Posts: 518
- Joined: 19-01-2007, 07:42
- Location: Subotica - Srbija
- Contact:
Re: Pitanja vezana za Visual Basic
ok to sam i mislio bas odredjeno za redosled programa koje ja hocu....ali ako je bas tesko onda ce mo da klikcemo....
Re: Pitanja vezana za Visual Basic
Kreiranje access baze iz VB
Sub CreateDUH()
Dim Baza As Database, ProstoR As Workspace, _
indPolje As Field, I As Integer, Tablica As TableDef, Polje(3) As Field
Set ProstoR = DBEngine.Workspaces(0)
Set Baza = ProstoR.CreateDatabase("c:\Duh.mdb", _
dbLangGeneral, dbVersion30)
' __________________________________________kreiranje tablice
Set Tablica = Baza.CreateTableDef("tblDuh")
' dodavanje naziva polja
With Tablica
Set Polje(0) = .CreateField("D_Duh1", dbInteger)
Set Polje(1) = .CreateField("D_Duh2", dbInteger)
Set Polje(2) = .CreateField("D_Duh3", dbText,25)
End With
' upis polja u tablicu
For I = 0 To 2
Tablica.Fields.Append Polje(I)
Next I
Baza.TableDefs.Append Tablica ' dodaj tablicu u bazu
Baza.Close
End Sub
_______________________________
Otvaranje access baze iz VB
sub NESTO
Dim Baza as database, Tablica as recordset, Izraz as string
Set baza = OpenDatabase( "c:\Duh.mdb")
Set Tablica = baza.OpenRecordset("tblduh")
'izdvajanje zeljenog podatka
Set Tablica = baza.OpenRecordset("select * from tblduh" where D_Duh1=1")
end sub
Imam nekoliko knjizica (na nasem jeziku) iz VB-a i ako zelis mogu ti poslati na mail.
Pozdrav
Sub CreateDUH()
Dim Baza As Database, ProstoR As Workspace, _
indPolje As Field, I As Integer, Tablica As TableDef, Polje(3) As Field
Set ProstoR = DBEngine.Workspaces(0)
Set Baza = ProstoR.CreateDatabase("c:\Duh.mdb", _
dbLangGeneral, dbVersion30)
' __________________________________________kreiranje tablice
Set Tablica = Baza.CreateTableDef("tblDuh")
' dodavanje naziva polja
With Tablica
Set Polje(0) = .CreateField("D_Duh1", dbInteger)
Set Polje(1) = .CreateField("D_Duh2", dbInteger)
Set Polje(2) = .CreateField("D_Duh3", dbText,25)
End With
' upis polja u tablicu
For I = 0 To 2
Tablica.Fields.Append Polje(I)
Next I
Baza.TableDefs.Append Tablica ' dodaj tablicu u bazu
Baza.Close
End Sub
_______________________________
Otvaranje access baze iz VB
sub NESTO
Dim Baza as database, Tablica as recordset, Izraz as string
Set baza = OpenDatabase( "c:\Duh.mdb")
Set Tablica = baza.OpenRecordset("tblduh")
'izdvajanje zeljenog podatka
Set Tablica = baza.OpenRecordset("select * from tblduh" where D_Duh1=1")
end sub
Imam nekoliko knjizica (na nasem jeziku) iz VB-a i ako zelis mogu ti poslati na mail.
Pozdrav
Ako kaniš pobijediti, ne smiješ izgubiti
- sasa45
- Odlično uznapredovao
- Posts: 518
- Joined: 19-01-2007, 07:42
- Location: Subotica - Srbija
- Contact:
Re: Pitanja vezana za Visual Basic
da li neko zna kako se pomocu VB komanduje sa izlazima na seriskom portu....da kazem direkno...da ne koristim mikrocip nego da komp koristim kao automatiku za masinu....znaci treba da prima neke signala sa masine i da u zavisnosti od ulaza pali i gasi izlaze...
Re: Pitanja vezana za Visual Basic
http://milan.milanovic.org/skola/parport/serport-00.htm" onclick="window.open(this.href);return false;
- sasa45
- Odlično uznapredovao
- Posts: 518
- Joined: 19-01-2007, 07:42
- Location: Subotica - Srbija
- Contact:
Re: Pitanja vezana za Visual Basic
mnogo mnogo hvala za ovaj link...odo da ucim dalje....HVALAAAAAA
Re: Pitanja vezana za Visual Basic
nema na cemu...
- sasa45
- Odlično uznapredovao
- Posts: 518
- Joined: 19-01-2007, 07:42
- Location: Subotica - Srbija
- Contact:
Re: Pitanja vezana za Visual Basic
treba mi mala pomoc...
imam LE diode rasporedjene u 16*7 i sad zelim da pravim neki novogodisnji ukras. i posto je mukotrpno i dosadno ispisivati toliki kod za paljenje LE dioda hteo bi da napravim program koji bi imao 16*7 polja i u kojem bi ja palio i gasio polja da bi napravio potrebni svetlosni efekat...
sve oko programa mi je idejno jasno samo me jos zanima kako bi mogao da rezultate smestam recimo u txt fajl.pa da to samo sa copy paste mogu prebaciti u mikrocip a i ako napravim program za simulaciju generisanog koda za cip da mogu da koristim te podatke iz txt falja.
imam LE diode rasporedjene u 16*7 i sad zelim da pravim neki novogodisnji ukras. i posto je mukotrpno i dosadno ispisivati toliki kod za paljenje LE dioda hteo bi da napravim program koji bi imao 16*7 polja i u kojem bi ja palio i gasio polja da bi napravio potrebni svetlosni efekat...
sve oko programa mi je idejno jasno samo me jos zanima kako bi mogao da rezultate smestam recimo u txt fajl.pa da to samo sa copy paste mogu prebaciti u mikrocip a i ako napravim program za simulaciju generisanog koda za cip da mogu da koristim te podatke iz txt falja.
Re: Pitanja vezana za Visual Basic
ja sam slicno radio sa LED Displejem. Mozes ovde pogledati
http://www.elektronika.ba/forum/viewtop ... f=9&t=3433" onclick="window.open(this.href);return false;
Ispod savake vertikale je jedan textbox u kojem stoji broj decimalni broj, a svako dugme je kao jedan bit. I te brojeve sam slao direktno na port. ti sad mozes napraviti textbox u kojem ce tebi biti brojevi u odgovarajucem formtu. A ako se malo potrudis sa vb-om onm ti odmah moze generisati i kod za pbp
http://www.elektronika.ba/forum/viewtop ... f=9&t=3433" onclick="window.open(this.href);return false;
Ispod savake vertikale je jedan textbox u kojem stoji broj decimalni broj, a svako dugme je kao jedan bit. I te brojeve sam slao direktno na port. ti sad mozes napraviti textbox u kojem ce tebi biti brojevi u odgovarajucem formtu. A ako se malo potrudis sa vb-om onm ti odmah moze generisati i kod za pbp
- sasa45
- Odlično uznapredovao
- Posts: 518
- Joined: 19-01-2007, 07:42
- Location: Subotica - Srbija
- Contact:
Re: Pitanja vezana za Visual Basic
treba mi mala pomoc.
sredio sam sve sto sam planirao sa onim programom jedino mi je jos ostalo generisanje koda.tj ispis koda.
ja ispisem kod u list box ali me znam kako da ga kompletno selektrujem pa da ga sa copy prebacim u svoj program...
znaci treba mi pomoc oko select all i copi u list boxu ili pomoc koji drugi prozor da koristim da bi mogao da koristim select i copy
sredio sam sve sto sam planirao sa onim programom jedino mi je jos ostalo generisanje koda.tj ispis koda.
ja ispisem kod u list box ali me znam kako da ga kompletno selektrujem pa da ga sa copy prebacim u svoj program...
znaci treba mi pomoc oko select all i copi u list boxu ili pomoc koji drugi prozor da koristim da bi mogao da koristim select i copy
Re: Pitanja vezana za Visual Basic
Nikako. Tj komplikovano.
Zato pakuj podatke u textbox.
I to tako sto pises text1.text=text1.text & kod & vbcrlf
Samo moras podesiti na multiline i postaviti vertikalni scroll.
Zato pakuj podatke u textbox.
I to tako sto pises text1.text=text1.text & kod & vbcrlf
Samo moras podesiti na multiline i postaviti vertikalni scroll.
Re: Pitanja vezana za Visual Basic
Ukratko:bciric wrote:Sve aktivne forme moras da pogasis
Code: Select all
Private Sub Form_Unload(Cancel As Integer) Unload Me Unload Form1 Unload Form2 ... Unload FormN End Sub
Code: Select all
End
Ne vjeruj u čuda - računaj na njih!
Re: Pitanja vezana za Visual Basic
Sasa wrote:
znaci sta je
IF then
For next
a kako da na zovem
text1.text
label1.caption
text4.setfokus
a sta su
mid
len
val
Odgovor:
If...Then..Else...End If...Ako je, tada, inače, kraj uvjeta - uvjet.
For...Next...Petlja, izvršava neki dio koda dokle god se ne izjednači For x to y, x i y. Text1.Text je Text svojstvo kontrole Text1. Label1.Caption, također tekst-svojstvo kontrole Label. Text4.Setfocus (ne setfokus) je metoda pridružena kontroli Text4 i služi za aktiviranje i postavljanje kursora u toj kontroli. Mid je funkcija, len ti je broj slova, primjerice evo koda za ispisivanje podatka koliko neka riječ ima slova:
Var neznam iskreno šta je, predpostavljam da ima neke veze sa varijablama, možda sa definiranjima, gornjem primjeru sam ti pokazao kako se definira varijabla.
znaci sta je
IF then
For next
a kako da na zovem
text1.text
label1.caption
text4.setfokus
a sta su
mid
len
val
Odgovor:
If...Then..Else...End If...Ako je, tada, inače, kraj uvjeta - uvjet.
For...Next...Petlja, izvršava neki dio koda dokle god se ne izjednači For x to y, x i y. Text1.Text je Text svojstvo kontrole Text1. Label1.Caption, također tekst-svojstvo kontrole Label. Text4.Setfocus (ne setfokus) je metoda pridružena kontroli Text4 i služi za aktiviranje i postavljanje kursora u toj kontroli. Mid je funkcija, len ti je broj slova, primjerice evo koda za ispisivanje podatka koliko neka riječ ima slova:
Code: Select all
Dim rijec As String
Dim slova As Integer
rijec = Text1.Text
slova = Len(rijec)
MsgBox (slova)
Ne vjeruj u čuda - računaj na njih!
Re: Pitanja vezana za Visual Basic
Koliko vidim ovdje su nejasnoce tipa apsolutnog pocetnika. Preporucujem uzeti neki od prirucnika za visual basic i krenuti od "hello world", pa tek onda pokusavati nesto raditi u smislu kontrola i upravljanja VB-om preko portova.
var je promjenljiva dimenzionisana kao veoma otvoreni tip rezervise 16 bita + po 1 za svaki karakter.
var je promjenljiva dimenzionisana kao veoma otvoreni tip rezervise 16 bita + po 1 za svaki karakter.
- sasa45
- Odlično uznapredovao
- Posts: 518
- Joined: 19-01-2007, 07:42
- Location: Subotica - Srbija
- Contact:
Re: Pitanja vezana za Visual Basic
da li je neko koristio windowsmwdiaplayer u vb... interesuje me kako da ocitam vreme sa playera u neku promenljivu.
Re: Pitanja vezana za Visual Basic
Code: Select all
DIm Str As String
Str=WindowsMediaPlayer1.currentMedia.durationString
- sasa45
- Odlično uznapredovao
- Posts: 518
- Joined: 19-01-2007, 07:42
- Location: Subotica - Srbija
- Contact:
Re: Pitanja vezana za Visual Basic
hmmm nisam to hteo. treba mi kad pustim pesmu i kad kliknem na jedno dugme da mi on zabelezi gde se trenutno nalazi pesma a ne koliko ukupno traje pema...
Re: Pitanja vezana za Visual Basic
Ako sam te skontao tebi treba koliko je odslusano pesme