VB.NET Programming Corner!

[gamerzZz666]

depende sayo kung ano ang naintindihan mo... diskarte mo yan ikaw programmer eh...

un nga gumawa ka ng conditional statement mo...
example ganito..

if (item.Text=="a"){
                            Image1.ImageUrl = "~/Resources/75378-TrollFace.png";
                        }
                        else if (item.Text == "b") { Image1.ImageUrl = "~/Resources/BSOD_Main.png"; }

kapag hindi mo naintidihan dyan pa lng wala na talaga...

hehe, pasensya po sa malaking abala sir, sa'n po pala ito icocode? last na..

 

[gamerzZz666]

hehe, pasensya po sa malaking abala sir, sa'n po pala ito icocode? last na..

sir, ba't my error?
http://imageshack.us/photo/my-images/12/tmyerrorsir.png/

 

[polens]

hehe, pasensya po sa malaking abala sir, sa'n po pala ito icocode? last na..

sir sorry, sigurado ba kayo na may basic knowledge kayo sa programming?

asp.net pa ang ganagamit niyo..EVENT driven PL..

sir, ba't my error?
http://imageshack.us/photo/my-images/12/tmyerrorsir.png/

sir kaya pangit talaga umasa ng codes sa iba... hindi niyo naiintindihan...

tignan niyo copy paste niyo na lng bastabasta hindi pala naintindihan...

 

[mac thyrone]

codes sa vat ng sale...anu ang magandang design sa point of sale system?
panu magback-up sa database?patulong naman,,po..

 

[gamerzZz666]

sir sorry, sigurado ba kayo na may basic knowledge kayo sa programming?

asp.net pa ang ganagamit niyo..EVENT driven PL..



sir kaya pangit talaga umasa ng codes sa iba... hindi niyo naiintindihan...

tignan niyo copy paste niyo na lng bastabasta hindi pala naintindihan...

super basic po ang knowledge ko pagdating sa programming.. visual studio po gamit ko sir.. that's asp.net right?
hindi marecognize ung .text sa item.text sir..

 

[gamerzZz666]

sorry po sir ah.. sorry po talaga kung mejo bobo lang pagdating sa programming..

 

[polens]

super basic po ang knowledge ko pagdating sa programming.. visual studio po gamit ko sir.. that's asp.net right?
hindi marecognize ung .text sa item.text sir..

kasi nga iba ang ginawa ko...
pero andyan ung idea... ikaw na gagawa ng diskarte mo...
spoon feeding na kasi ang gusto mong mangyari eh...

 

[chowder1092]

punta po kayo ng first page..

sir alin po dun sa attach mong files ung iddownload ko?
alin po dyan ung pati output?
dun po sa topic n tinatanong ko?
pcenxa na po mag aadvance lecture po kc ako hm d pa ako familiar sa codes and basic codings palang gnagawa namin assignment namin yn hmm SALAMAT po

 

[polens]

sir alin po dun sa attach mong files ung iddownload ko?
alin po dyan ung pati output?
dun po sa topic n tinatanong ko?
pcenxa na po mag aadvance lecture po kc ako hm d pa ako familiar sa codes and basic codings palang gnagawa namin assignment namin yn hmm SALAMAT po

sir hindi ako gumawa ng thread na eto...
read niyo na lng ung asa first page...
kung gusto niyo idownload niyo ng lahat

 

[forbizdenz]

mga sir at boss patulong naman po sa system na ginawagawa ko...
gusto ko po sanang mag edit bg data sa listview...i to po ung code ko at attach ko na rin uny pix for furthur info..sa tulungan nyo po ako..


Private Sub btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click
With ListView1.SelectedItems

numcopy = InputBox("Enter the Number of Books")

If numcopy = "" Then
Exit Sub

Else
Try
Num = numcopy

ListView1.Items(0).SubItems(5).Text = Val(ListView1.Items(0).SubItems(5).Text) + Num
Catch ex As Exception
MsgBox("Please Input a Number", MsgBoxStyle.Exclamation)
End Try

End If
End With
End Sub

 

[polens]

mga sir at boss patulong naman po sa system na ginawagawa ko...
gusto ko po sanang mag edit bg data sa listview...i to po ung code ko at attach ko na rin uny pix for furthur info..sa tulungan nyo po ako..


Private Sub btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click
With ListView1.SelectedItems

numcopy = InputBox("Enter the Number of Books")

If numcopy = "" Then
Exit Sub

Else
Try
Num = numcopy

ListView1.Items(0).SubItems(5).Text = Val(ListView1.Items(0).SubItems(5).Text) + Num
Catch ex As Exception
MsgBox("Please Input a Number", MsgBoxStyle.Exclamation)
End Try

End If
End With
End Sub

ipasok mo po sa loop...

 For Each item As ListViewItem In ListView1.SelectedItems
            'do code here...
        Next

and also naka point ka lng sa index 0 ng items mo.....

 

[Gero04]

sir....may program po b kayo para makapagread ng barcodes....speciallly yung code 39.....salamat po sir

 

[AmfufuTM]

yan na ang query mo...

Hmmm pero pano kaya ito i-query? sa app ba or sa sql server mismo.

 

[polens]

Hmmm pero pano kaya ito i-query? sa app ba or sa sql server mismo.

depende sayo....

eto query

SELECT * FROM datedate where '8/24/2012' between (select datefrom from datedate) AND  (select dateto from datedate)

manipulate mo na lng...
pero andyan ang idea.

 

[forbizdenz]

ipasok mo po sa loop...

 For Each item As ListViewItem In ListView1.SelectedItems
            'do code here...
        Next

and also naka point ka lng sa index 0 ng items mo.....

sir polens ganito po ba??pacensya na po talaga..d ko talaga alam kong saan ilagay..paki tignan nlng po sa pix..paano po ang tama nito......

Private Sub btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click
j = ListView1.SelectedItems.Count


For Each sitem As ListViewItem In ListView1.SelectedItems

Do Until j = 0
add = sitem.Text
If add = "" Then
MsgBox("err")
Else

numcopy = InputBox("Enter the Number of Books")
If numcopy = "" Then
Exit Sub

Else
Try

ListView1.Items(j).SubItems(5).Text = Val(ListView1.Items(j).SubItems(5).Text) + numcopy
Catch ex As Exception
MsgBox("Please Input a Number", MsgBoxStyle.Exclamation)
MsgBox(ex.Message.ToString)
End Try

End If

End If

j = j - 1
Loop


Next


End Sub

 

[polens]

sir polens ganito po ba??pacensya na po talaga..d ko talaga alam kong saan ilagay..paki tignan nlng po sa pix..paano po ang tama nito......

Private Sub btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click
j = ListView1.SelectedItems.Count


For Each sitem As ListViewItem In ListView1.SelectedItems

Do Until j = 0
add = sitem.Text
If add = "" Then
MsgBox("err")
Else

numcopy = InputBox("Enter the Number of Books")
If numcopy = "" Then
Exit Sub

Else
Try

ListView1.Items(j).SubItems(5).Text = Val(ListView1.Items(j).SubItems(5).Text) + numcopy
Catch ex As Exception
MsgBox("Please Input a Number", MsgBoxStyle.Exclamation)
MsgBox(ex.Message.ToString)
End Try

End If

End If

j = j - 1
Loop


Next


End Sub

daming loop eto lng o

   Dim val As Integer
        For Each item As ListViewItem In ListView1.SelectedItems
            val = Integer.Parse(item.SubItems(2).Text)
            Dim num As Integer
            num = val + Integer.Parse(TextBox2.Text)
            item.SubItems(2).Text = num
        Next

 

[floydust4]

good day po mga master..

pwede po ba mag patulong..?

im currently making a VPN-GUI..

gusto ko po sana mag lagay ng form na mag dedisplay ng certain informations ng user..
ang mga information ay nasa sql server ng VPS..
ano po ang gagawin ko..?

any sample codes will greatly help..

maraming salamat po..

 

[forbizdenz]

daming loop eto lng o

   Dim val As Integer
        For Each item As ListViewItem In ListView1.SelectedItems
            val = Integer.Parse(item.SubItems(2).Text)
            Dim num As Integer
            num = val + Integer.Parse(TextBox2.Text)
            item.SubItems(2).Text = num
        Next

sir polens maraming2 salamat pohh...gumana nahh..hehehe..idol..

 

[kenxplay]

ask lang po kung panu po ipagcombine ung vb.net 10 at mysql.... nd pa kc sa amin natuturo!!!! para advance lang! hehehhe

 

[johnlhanzeabad]

Programming na kame ngayon in VB.net salamat at meron ako nakita na ganito na Sample Thanks TS..