Pitanja vezana za Visual Basic

[sasa45]

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....

[sasa45]

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....

[bciric]

moze ali je bas tesko, i trebas znati unapred koje programe ces insta;irati da se uhvate njihove niti.

bas tesko

[sasa45]

ok to sam i mislio bas odredjeno za redosled programa koje ja hocu....ali ako je bas tesko onda ce mo da klikcemo....

[WhiteHead]

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

[sasa45]

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...

[pedja089]

http://milan.milanovic.org/skola/parport/serport-00.htm" onclick="window.open(this.href);return false;

[sasa45]

mnogo mnogo hvala za ovaj link...odo da ucim dalje....HVALAAAAAA

[pedja089]

nema na cemu...

[sasa45]

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.

[pedja089]

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

[sasa45]

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

[pedja089]

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.

[78L05]

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

Ukratko:

Code: Select all

End

[78L05]

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:

Code: Select all

Dim rijec As String
Dim slova As Integer
rijec = Text1.Text
slova = Len(rijec)
MsgBox (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.

[niho]

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.

[sasa45]

da li je neko koristio windowsmwdiaplayer u vb... interesuje me kako da ocitam vreme sa playera u neku promenljivu.

[pedja089]

Code: Select all

DIm Str As String
Str=WindowsMediaPlayer1.currentMedia.durationString

[sasa45]

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...

[pedja089]

Ako sam te skontao tebi treba koliko je odslusano pesme