VB.NET Programming Corner!

[rhon6260]

<?xml version="1.0" encoding="UTF-8"?>
<playlist xmlns="http://xspf.org/ns/0/" xmlns:vlc="http://www.videolan.org/vlc/playlist/ns/0/" version="1">
<title>Playlist</title>
<trackList>
<track>
<location>file:///C:/Documents%20and%20Settings/gaga/Desktop/One%20Direction%20-%20What%20Makes%20You%20Beautiful.mp3</location>
<duration>206238</duration>
<extension application="http://www.videolan.org/vlc/playlist/0">
<vlc:id>0</vlc:id>
</extension>
</track>
</trackList>
<extension application="http://www.videolan.org/vlc/playlist/0">
<vlc:item tid="0"/>
</extension>
</playlist>

yan po laman ng playlist ko sa vlc

mysql po dba po mabilis yung mysql pag madame na yung mga files..

 

[ericgmejia]

yan po laman ng playlist ko sa vlc

mysql po dba po mabilis yung mysql pag madame na yung mga files..

as you can see, XML file yan at nakalagay dyan yung full path\filename ng media na i play mo
so its just a matter of parsing the XML file and reading the filename
para malaman mo kung ano ang i play mo na MP3

maski mysql, sqlserver, sybase or ano mang database, pwede
depende yan sa requirements ng application mo

ano ba ang gagawin mo?
mag store ng mp3 sa database? (WHY DO THAT?)
di mo naman yan ma play sa database e,
babasahin mo parin yan at i write sa file bago mo ma play

so walang kaso kung ano ang database na gamit mo
ang tanong ay kung kaya mo gamitin, effectively...

 

[rhon6260]

as of know i'm still learning pa naman and wala naman masama kung pagtyagaan

ganit kase yung plan ko sir
my naka save ako mga audio sa DB ko like

dog.mp3
motor.mp3
cannon.mp3
anime.mp3

tapus
may textbox ako sa form ko na mag sesearch ng audio sa DB
pag mag tatype ako ng
cannon anime motor dog
dapat may marerenig ako na tunog canyon,anime, motor at aso na parang playlist...

sorry po if magulo yung explanation ko

 

[ericgmejia]

as of know i'm still learning pa naman and wala naman masama kung pagtyagaan

ganit kase yung plan ko sir
my naka save ako mga audio sa DB ko like

dog.mp3
motor.mp3
cannon.mp3
anime.mp3

tapus
may textbox ako sa form ko na mag sesearch ng audio sa DB
pag mag tatype ako ng
cannon anime motor dog
dapat may marerenig ako na tunog canyon,anime, motor at aso na parang playlist...

sorry po if magulo yung explanation ko

ayun naman pala e.

actually di mo naman kelangan ang playlist na gaya ng vlc e.
pwede naman nasa variable like array yung list.

una, search the right record,basic database manipulation yan.
next is to read the media filed sa selected record at i write sa file
then lagay mo yung filename sa list
tapos i sequence mo sa player(meron sa .net) at i play lahat yung nasa list.

malayong mas simple kapag nakasave as file yung mga media files mo.

 

[rhon6260]

one question sir..

how about recording an audio ?
will it work with .net
lets says may button ako na START RECORD AUDIO at STOP RECORD AUDIO

 

[ericgmejia]

one question sir..

how about recording an audio ?
will it work with .net
lets says may button ako na START RECORD AUDIO at STOP RECORD AUDIO

walang native na ganyan sa .NET pero may paraan
gamit ang WIN32 API ng winmm.dll

http://social.msdn.microsoft.com/Forums/en-US/vbgeneral/thread/be92af11-f446-45c3-9dd6-9a8f2e5f7c99/

http://www.eggheadcafe.com/communit...58/recording-sound-into-a-file-in-vb-net.aspx

bali ginagamit mo lang yung capability ng API sa loob ng .NET

fire up your google and seach, marami kang makikitang samples

 

[rhon6260]

THanks Fefeedback nalang ako nilo
cguro by modules muna bako ko gawin as a whole system Thanks sa info.. i'll keep in touch

 

[nightfury08]

help po..eto problem ko

Book Title

Private Sub TextBox1_TextChange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If Me.TblBookInfoTableAdapter.FillByTitle(Me.DbLibraryInfoDataSet.tblBookInfo, TextBox1.Text) Then

End If
End Sub

walang lumalabas results sa datagrid pag nagtatype ako ng isa/dalawang letters, pero pag kumpleto yung word saka sya lalabas..


----


Accession Number

Private Sub TextBox2_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox2.TextChanged
If Me.TblBookInfoTableAdapter.FillByAccession(Me.DbLibraryInfoDataSet.tblBookInfo, TextBox2.Text) Then

End If
End Sub

ok naman yung isang column, pagkatype ko pa lang ng isang letter o number, may lumalabas na..pareho naman sila ng codes...pati datatypes pareho din sila pero bat ayaw lumabas?

 

[Verio]

good day po mga sir.. pahelp naman po dito sa thesis na ginagawa ko.. di ko po kasi alam kung bakit nagerror.. pasensya po newbie pa po kasi ako sa vb.. kung pwede rin po sana, pahelp narin kung pano ang computation ng payments and loans.. attach ko nalang po yung file.. tia

 

[ericgmejia]

help po..eto problem ko

Book Title

walang lumalabas results sa datagrid pag nagtatype ako ng isa/dalawang letters, pero pag kumpleto yung word saka sya lalabas..


----


Accession Number

ok naman yung isang column, pagkatype ko pa lang ng isang letter o number, may lumalabas na..pareho naman sila ng codes...pati datatypes pareho din sila pero bat ayaw lumabas?

ibig sabihin yung query mo kelangan nya ng kumpletong field data para makita.

kapag searching kase dapat gagamitan mo ng WILDCARDS
sa access, sqlserver, yung % (percent) ang wildcard

so dapat ang Query mo ay
SELECT * FROM BookTitle WHERE Title LIKE 'why%'
--so lahat ng title na naguumpisa sa "why" lalabas

so check mo yung query mo
hirap lang nyan kung gumamit ka ng typed dataset
thats why i prefer to code my sql querries para madali i customize

 

[ericgmejia]

good day po mga sir.. pahelp naman po dito sa thesis na ginagawa ko.. di ko po kasi alam kung bakit nagerror.. pasensya po newbie pa po kasi ako sa vb.. kung pwede rin po sana, pahelp narin kung pano ang computation ng payments and loans.. attach ko nalang po yung file.. tia

bakit di mo nalang ipakita salarin na code
para maayos natin agad
kesa i download yang code mo

sabihin mo kung ano ginagawa or ano yung code at ano yung error
natulungan na sana kita kung nakita ko agad yung code mo

sa computation ng loans, ang tanungin mo ay yung mga nagmamanage ng loans, dapat nag research ka tungkol dyan
kase depende yan sa company kung papano ang treatment nila sa loans.

meron jewelry loan, microfinance loan, etc
meron compunded at straight computations

ibat iba ang computations dyan

 

[bluthugs]

long time no look d2 sa sb sir eric! welcome uli!

 

[frUItcAkE21]

patulong naman po project lang. meron po ba kayo dyan system na eq and iq checker? di ko po alam kung pano sisimulan ung akin.

 

[rockmode]

patulong naman po project lang. meron po ba kayo dyan system na eq and iq checker? di ko po alam kung pano sisimulan ung akin.

Please elaborate more and preferably what PL?

 

[frUItcAkE21]

Please elaborate more and preferably what PL?

ahm. vb.net po. un pong parang sa mga online eq and iq exams. ung mag eexam ka po para idetermine ung eq and iq level mo. pero po nahihirapan ako kasi po sa vb.net gagawin

 

[rockmode]

ahm. vb.net po. un pong parang sa mga online eq and iq exams. ung mag eexam ka po para idetermine ung eq and iq level mo. pero po nahihirapan ako kasi po sa vb.net gagawin

Actualy di ko alam scope or flow ng ganyang system di kasi ko familiar pero kung makakapagbigay ka ng sample or mapapaliwanag mo ng masmalawak baka matulungan ka namin.

 

[Verio]

bakit di mo nalang ipakita salarin na code
para maayos natin agad
kesa i download yang code mo

sabihin mo kung ano ginagawa or ano yung code at ano yung error
natulungan na sana kita kung nakita ko agad yung code mo

sa computation ng loans, ang tanungin mo ay yung mga nagmamanage ng loans, dapat nag research ka tungkol dyan
kase depende yan sa company kung papano ang treatment nila sa loans.

meron jewelry loan, microfinance loan, etc
meron compunded at straight computations

ibat iba ang computations dyan

ito po ung error ko sir:

Provided column already belongs to the DataGridView control.

nangyayari po sya every 2nd time ko iopen yung Members na form.

my kinalaman po ba ito?

Private Sub MemberFormToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
With Members
.ShowDialog()
End With
End Sub

pero pag ginawa ko syang ganito:

Private Sub MemberFormToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MemberFormToolStripMenuItem.Click
Dim mem As New Members
mem.ShowDialog()
End Sub

nangyayari naman pag nag edit ako ng record, di naman nalabas yung image ng memberpic, tapos may error nanaman siyang panibago:

Object reference not set to an instance of an object.

minsan nalabas din po yung ung "vshost error".

senya na sir di ko alam kung anung ipapakita kong codes e ito ba yun:

If FormState = Form_State.Edit_RecordState Then
KeyPreview = True

Call ContextMnu()
Call CapsLock()
Call SexItem()
Call StatusItem()
Call DepartmentOfficeItem()
Call MonthlyIncomeItem()
Me.btnSave.Text = "Update"
Me.Text = "Edit Record"

Try
With cnn
If .State <> ConnectionState.Open Then
.ConnectionString = StrConnection()
.Open()

With da
.SelectCommand = New OleDbCommand()
.SelectCommand.CommandText = "SELECT * FROM [Members] WHERE (MemberID = @MemberID)"
.SelectCommand.Parameters.Add("@MemberID", OleDbType.VarChar, 50, "MemberID").Value = ShowBind.ToString()
.SelectCommand.Connection = cnn
End With

'If Modify or Edit record...Update
'Systax on how to update without using Commandbuilder...
With da
.UpdateCommand = New OleDbCommand()
.UpdateCommand.CommandText = "UPDATE [Members] SET [MemberID] = @MemberID , [LastName] = @LastName , [FirstName] = @FirstName , [MiddleName] = @MiddleName , [Address] = @Address , " & _
"[ContactNumber] = @ContactNumber , [Sex] = @Sex , [Status] = @Status , [Age] = @Age , [EmployeeIDNumber] = @EmployeeIDNumber , [PositionTitle] = @PositionTitle , " & _
"[DepartmentOffice] = @DepartmentOffice , [OfficeLocalNumber] = @OfficeLocalNumber , [AccountNumber] = @AccountNumber , [MonthlyIncome] = @MonthlyIncome , [MemberPic] = @MemberPic WHERE ([MemberID] = @MemberID_Syntax)"

.UpdateCommand.Connection = cnn
.UpdateCommand.Parameters.Add("@MemberID", OleDbType.VarWChar, 50, "MemberID")
.UpdateCommand.Parameters.Add("@LastName", OleDbType.VarWChar, 50, "LastName")
.UpdateCommand.Parameters.Add("@FirstName", OleDbType.VarWChar, 50, "FirstName")
.UpdateCommand.Parameters.Add("@MiddleName", OleDbType.VarWChar, 50, "MiddleName")
.UpdateCommand.Parameters.Add("@Address", OleDbType.VarWChar, 50, "Address")
.UpdateCommand.Parameters.Add("@ContactNumber", OleDbType.VarWChar, 50, "ContactNumber")
.UpdateCommand.Parameters.Add("@Sex", OleDbType.VarWChar, 50, "Sex")
.UpdateCommand.Parameters.Add("@Status", OleDbType.VarWChar, 50, "Status")
.UpdateCommand.Parameters.Add("@Age", OleDbType.VarWChar, 50, "Age")
.UpdateCommand.Parameters.Add("@EmployeeIDNumber", OleDbType.VarWChar, 50, "EmployeeIDNumber")
.UpdateCommand.Parameters.Add("@PositionTitle", OleDbType.VarWChar, 50, "PositionTitle")
.UpdateCommand.Parameters.Add("@DepartmentOffice", OleDbType.VarWChar, 50, "DepartmentOffice")
.UpdateCommand.Parameters.Add("@OfficeLocalNumber", OleDbType.VarWChar, 50, "OfficeLocalNumber")
.UpdateCommand.Parameters.Add("@AccountNumber", OleDbType.VarWChar, 50, "AccountNumber")
.UpdateCommand.Parameters.Add("@MonthlyIncome", OleDbType.VarWChar, 50, "MonthlyIncome")
.UpdateCommand.Parameters.Add("@MemberPic", OleDbType.Binary, 0, "MemberPic")

'To handle error like (Concurrency violation: The UpdateCommand affected 0 of the expected 1 records...)
'DataRow Version Original...
.UpdateCommand.Parameters.Add(New System.Data.OleDb.OleDbParameter("@MemberID_Syntax", System.Data.OleDb.OleDbType.VarWChar, 50, _
System.Data.ParameterDirection.Input, False, _
CType(0, Byte), CType(0, Byte), "MemberID", _
DataRowVersion.Original, True))
End With


dt2.Clear()
da.Fill(dt2, "Members")
Me.txtMemberIDNumber.DataBindings.Clear()
Me.txtMemberIDNumber.DataBindings.Add(New Binding("Text", dt2, "Members.MemberID", True))
Me.txtLastName.DataBindings.Clear()
Me.txtLastName.DataBindings.Add(New Binding("Text", dt2, "Members.LastName", True))
Me.txtFirstName.DataBindings.Clear()
Me.txtFirstName.DataBindings.Add(New Binding("Text", dt2, "Members.FirstName", True))
Me.txtMiddleName.DataBindings.Clear()
Me.txtMiddleName.DataBindings.Add(New Binding("Text", dt2, "Members.MiddleName", True))
Me.txtAddress.DataBindings.Clear()
Me.txtAddress.DataBindings.Add(New Binding("Text", dt2, "Members.Address", True))
Me.txtContactNumber.DataBindings.Clear()
Me.txtContactNumber.DataBindings.Add(New Binding("Text", dt2, "Members.ContactNumber", True))
Me.cboSex.DataBindings.Clear()
Me.cboSex.DataBindings.Add(New Binding("Text", dt2, "Members.Sex", True))
Me.cboStatus.DataBindings.Clear()
Me.cboStatus.DataBindings.Add(New Binding("Text", dt2, "Members.Status", True))
Me.txtAge.DataBindings.Clear()
Me.txtAge.DataBindings.Add(New Binding("Text", dt2, "Members.Age", True))
Me.txtEmployeeIDNumber.DataBindings.Clear()
Me.txtEmployeeIDNumber.DataBindings.Add(New Binding("Text", dt2, "Members.EmployeeIDNumber", True))
Me.txtPositionTitle.DataBindings.Clear()
Me.txtPositionTitle.DataBindings.Add(New Binding("Text", dt2, "Members.PositionTitle", True))
Me.cboDepartmentOffice.DataBindings.Clear()
Me.cboDepartmentOffice.DataBindings.Add(New Binding("Text", dt2, "Members.DepartmentOffice", True))
Me.txtOfficeLocalNumber.DataBindings.Clear()
Me.txtOfficeLocalNumber.DataBindings.Add(New Binding("Text", dt2, "Members.OfficeLocalNumber", True))
Me.txtAccountNumber.DataBindings.Clear()
Me.txtAccountNumber.DataBindings.Add(New Binding("Text", dt2, "Members.AccountNumber", True))
Me.cboMonthlyIncome.DataBindings.Clear()
Me.cboMonthlyIncome.DataBindings.Add(New Binding("Text", dt2, "Members.MonthlyIncome", True))
Memb = Members
Me.PicMember.Image = Members.PictureBox1.Image
End If
End With
Catch ex As Exception
MsgBox(ex.Message(), MsgBoxStyle.Critical, "Error")
Finally
cnn.Close()

End Try
Exit Sub
End If

ito yung sa edit sir.. tama ba? di ako sigurado.. try ko po ilagay yung ibang codes pag kailang sabihin nyo lang sir..

tungkol naman sir sa coop, bale kasi yung coop ng school ang ginagawan namin.. wala pa pong binibigay yung coop kung paano yung computations nila pero as per our professor kasi member din sya nang cooperative, 1%interest daw po tapos meron pang other charges katulad nang service fee at surcharge.

ang problema po hindi namin alam ang codes sa pad add nang mga deductions para mailabas yung total deductions. tapos po yung codes sa payments kung paano yung recalculation kapag sumubra ng bayad sa monthly payables.. e minus po yung total deduction sa total n loan at yun lng po makukuha nang lender.

pasensya na di rin kasi ako marunong maglagay ng image dito mismo sa reply para mas malinaw ang tanong ko, attach lang kaya ko..

 

[3xpl0r3r]

ito po ung error ko sir:


nangyayari po sya every 2nd time ko iopen yung Members na form.

my kinalaman po ba ito?


pero pag ginawa ko syang ganito:


nangyayari naman pag nag edit ako ng record, di naman nalabas yung image ng memberpic, tapos may error nanaman siyang panibago:


minsan nalabas din po yung ung "vshost error".

senya na sir di ko alam kung anung ipapakita kong codes e ito ba yun:


ito yung sa edit sir.. tama ba? di ako sigurado.. try ko po ilagay yung ibang codes pag kailang sabihin nyo lang sir..

tungkol naman sir sa coop, bale kasi yung coop ng school ang ginagawan namin.. wala pa pong binibigay yung coop kung paano yung computations nila pero as per our professor kasi member din sya nang cooperative, 1%interest daw po tapos meron pang other charges katulad nang service fee at surcharge.

ang problema po hindi namin alam ang codes sa pad add nang mga deductions para mailabas yung total deductions. tapos po yung codes sa payments kung paano yung recalculation kapag sumubra ng bayad sa monthly payables.. e minus po yung total deduction sa total n loan at yun lng po makukuha nang lender.

pasensya na di rin kasi ako marunong maglagay ng image dito mismo sa reply para mas malinaw ang tanong ko, attach lang kaya ko..

dun s

object reference not set to an instance

try mo to

Private Sub MemberFormToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MemberFormToolStripMenuItem.Click
Dim mem = New Members
mem.ShowDialog()
End Sub

 

[Verio]

dun s
try mo to

Private Sub MemberFormToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MemberFormToolStripMenuItem.Click
Dim mem = New Members
mem.ShowDialog()
End Sub

di po gumana sir yun parin po ang error

 

[rockmode]

Hayaan mong tulungan kita ng konte.. sa error mo na "Provided column already belongs to the DataGridView control. "

Gawin mong ganto yung code sa main mo:

Private Sub MemberFormToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MemberFormToolStripMenuItem.Click
        Members.Show()
    End Sub