VB.NET Programming Corner!

[knives645]

dacal ah salamat po keng response, pwede kbang magsample na ginagamit ung code na to "But if you want to remove values from arrays, much better to use List<T> and use the method List<T>.RemoveAt ", pasensya na diko sya masyadong naiintindihan, sory,...

Sure, but it would be much better if you post na lang yung ginagawa mo dito.
Tapos, tingnan natin kung ano ang pwede...

 

[armory09]

Sure, but it would be much better if you post na lang yung ginagawa mo dito.
Tapos, tingnan natin kung ano ang pwede...

eto na pla ung ginwa ko na nagdedelte ng items, ang problema dito, kunyari may sampong items sa listview kung ung huli ung iddelte mo ok lang sya kaso pag sa una dun na may error
Quote:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim chosen, temp As String
Dim ctr3 As Integer
chosen = ""
chosen = Lview1.SelectedItems(0).Text
If chosen <> "" Then
For ctr3 = 0 To ctr
temp = ArrayCode(ctr3)
If ArrayCode(ctr3) = chosen Then
ArrayCode(ctr3 + 1) = temp
Arrayproduct(ctr3) = Arrayproduct(ctr3 + 1)
ArrayUnit(ctr3) = ArrayUnit(ctr3 + 1)
ArrayQuantity(ctr3) = ArrayQuantity(ctr3 + 1)
arrayTotalPrice(ctr3) = arrayTotalPrice(ctr3 + 1)
Else
ArrayCode(ctr) = temp
End If
Next
ctr -= 1
End If
Lview1.Items.Clear()
View()
End Sub

 

[knives645]

Project sa school?
Anong mga requirements? Array lang ba pwedeng gamitin?
Hindi ba pwedeng, database na lang ang gamitin para sa code, product, quantity, unit, quantity.. etc..

 

[armory09]

Project sa school?
Anong mga requirements? Array lang ba pwedeng gamitin?
Hindi ba pwedeng, database na lang ang gamitin para sa code, product, quantity, unit, quantity.. etc..

hindi po sya pwede sa database kse wala pa kming database,...

 

[knives645]

hindi po sya pwede sa pwede sa database kse wala pa kming database,...

Ah, so Array lang pala, post mo na lang ang problem dito.
medyo diko ma-gets ang code eh.

 

[armory09]

Ah, so Array lang pala, post mo na lang ang problem dito.
medyo diko ma-gets ang code eh.

eto ung buong program, ang problema po dito ung pag delete ng items atchaka pag cancel ng reciept,...
isa pa sir kailangan po ung netprice, vat, total sa side nitong program pag nagdelete ka ng items kailangan mabawas din sya,

 

[knives645]

eto ung buong program, ang problema po dito ung pag delete ng items atchaka pag cancel ng reciept,...
isa pa sir kailangan po ung netprice, vat, total sa side nitong program pag nagdelete ka ng items kailangan mabawas din sya,

Hinihingi ko sana yung problem na binigay nang instructor nyo.
Pero buong program ang binigay mo. hehe.
Pero ok lang, pinag-aralan ko na lang.

Ang naisip ko lang dito, para mabawasan ang mga values nang vat and prices is to get the index of the array ArrayShowProduct first.
Tapos yung index na yun ang magreretrieve sa value nang vat at UnitPrice.
Para makuha ang index,
1. pwede ka maglagay nang invisible column sa LviewOne at dun mo ilalagay ang index na galing sa cmbCode.
or
2. gagamitin mo sya nang indexOf()
Array.IndexOf(ArrayShowProduct, LviewOne.SelectedItems(0).SubItems(1).Text)
to get the index.

Magulo ba? Chat mo na lang ako sa YM ko, knives645

 

[armory09]

Hinihingi ko sana yung problem na binigay nang instructor nyo.
Pero buong program ang binigay mo. hehe.
Pero ok lang, pinag-aralan ko na lang.

Ang naisip ko lang dito, para mabawasan ang mga values nang vat and prices is to get the index of the array ArrayShowProduct first.
Tapos yung index na yun ang magreretrieve sa value nang vat at UnitPrice.
Para makuha ang index,
1. pwede ka maglagay nang invisible column sa LviewOne at dun mo ilalagay ang index na galing sa cmbCode.
or
2. gagamitin mo sya nang indexOf()
Array.IndexOf(ArrayShowProduct, LviewOne.SelectedItems(0).SubItems(1).Text)
to get the index.

Magulo ba? Chat mo na lang ako sa YM ko, knives645

mgulo nga sir, yan program pla na yan yan ung pinapagawa smin halos ngawa ko na, un nlang ung kulang,...

 

[Ryuda]

Patulong naman mga master d2 sa code na to..

yung pag update po ng datagrindview di ko talag makuha..
mga master patulong pls...
>>>>>
Imports System.Data.OleDb
Public Class Search
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Texts1.Text = ""
Texts2.Text = ""
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub

Private Sub Search_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub

Private Sub Texts1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Texts1.TextChanged
Dim cmd As New OleDb.OleDbCommand
If Not con.State = ConnectionState.Open Then
con.Open()
End If
Dim dt As New DataTable
Dim ds As New DataSet
ds.Tables.Add(dt)
Dim da As New OleDb.OleDbDataAdapter
da = New OleDbDataAdapter("Select * from mytable where ID like '%" & Texts1.Text & "%'", con)
da.Fill(dt)
DataGridView1.DataSource = dt.DefaultView
con.Close()
End Sub
Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()

End Sub

Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Texts1.Text = ""
Texts2.Text = ""
DataGridView1.DataSource = ""
End Sub

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'* anyone can fix this code,, i appreciate too much*

Dim cmd As New OleDb.OleDbCommand
If Not con.State = ConnectionState.Open Then
con.Open()
End If
Dim dt As New DataTable
Dim ds As New DataSet
ds.Tables.Add(dt)
Dim da As New OleDb.OleDbDataAdapter
Dim dr As OleDbCommandBuilder
da.Update(dt)
DataGridView1.DataSource = dt.DefaultView
con.Close()
MessageBox.Show("is now updated")
End Sub
End Class

 

[bryan1207]

eto ung buong program, ang problema po dito ung pag delete ng items atchaka pag cancel ng reciept,...
isa pa sir kailangan po ung netprice, vat, total sa side nitong program pag nagdelete ka ng items kailangan mabawas din sya,

Masagli ya yan Sir.

Agyu na neng Pareng Knives yan. Hehe.

Ganito yan, kung gusto mong nag dededuct ang price niya every time na mag delete or mag cancel receipt ka. Bakit hindi ka mag lagay ng textfields na nakatago. Tapos kunin mo lang ang value ng item per row. Compare mo tapos minus. Sana nagka idea ka Sir.

Check mo attachment Sir. VB2010 Express po ginamit ko.

 

[geronhawk]

mga sir patulong naman. kailangan kolang po ng idea kung pano gumawa ng Lending System using vb.net 2010.. kung meron kayo kahit simple program lang po.. wala po kasi ako mkuha sa google!

 

[kira99]

guys .. pa help aman..

me sdk aq ng dcrf32.dll sa vb6 kaso..

nagdedevelop aq sa vb.net 8 .. nagkaka problema aq sa ..

st = dc_read_hex(icdev, 0, dta) function nya.

walang output nung hexadeximal..



heto ung codes na ginamit ko..

Declare Function dc_init Lib "dcrf32.dll" (ByVal port As Short, ByVal baud As Integer) As Integer
Declare Function dc_exit Lib "dcrf32.dll" (ByVal icdev As Integer) As Short
Declare Function dc_card Lib "dcrf32.dll" (ByVal icdev As Integer, ByVal mode As Short, ByRef snr As Integer) As Short
Declare Function dc_read_hex Lib "dcrf32.dll" (ByVal icdev As Integer, ByVal adr As Short, <MarshalAs(UnmanagedType.LPTStr)> ByVal sdata As String) As Short
Declare Function dc_load_key_hex Lib "dcrf32.dll" (ByVal icdev As Integer, ByVal mode As Short, ByVal secnr As Short, ByVal nkey As String) As Short

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim cardmode As Int32
Dim snr2 As Int32

cardmode = 0
dta = ""
st = dc_card(icdev, cardmode, snr2)

txtId.Text = snr2

If st = 1 Then
MsgBox("No Card Found", vbCritical, "FATAL ERROR!")
Exit Sub
End If

st = dc_authentication(icdev, 0, 0)
If st <> 0 Then
MsgBox("Critical Error! ", vbCritical, "FATAL ERROR!")
Exit Sub
End If

st = dc_load_key_hex(icdev, 0, 0, "ffffffffffff")

If st <> 0 Then
MsgBox("Can't read Hex Key! ", vbCritical, "FATAL ERROR!")
Exit Sub
End If

st = dc_read_hex(icdev, 0, dta)

If st <> 0 Then
MsgBox("Can't read! ", vbCritical, "FATAL ERROR!")
Exit Sub
End If

txtHex.Text = dta
dc_beep(icdev, 10)
End Sub

 

[aiizen01]

Mga bossing po bng ptulo ng sa billing system q, pno po ba maiidisplay sa textbox ung mga data sa gridview??

 

[jenixz03]

sir patulong nmn about sa case study ko..
wla kc akong makita sa google na mga sample.....tabulation system for beauty pageant ung pinapagawa sa akin ..ang hirap po
pls patulong nmn

 

[patrickkillua]

na miss ko ito ahahah....

 

[polenster]

sir pahelp nman ako vb 2008 na sample codes kahit anung running na system na opne source po.. thanks...

 

[knives645]

sir pahelp nman ako vb 2008 na sample codes kahit anung running na system na opne source po.. thanks...

Goto First page of this thread.

 

[rhidzki]

hey hey. help!

atm po ginagawa namin..

kailangan po ilink sa ms access na pa-code ang gagawin..

pano po ung sa computation po nun at sa pin code???
dapat po kasi ung pin code na ieenter ng user ay tama sa nasa data na nakalagay sa database... thank you po ^^

 

[lanete]

tnx TS!

 

[tim11]

pahelp nman poh.. pano gamitin ung drawing sa vb.net.. kelangan ko poh kc para sa scheduler ko.. tnx po..