What's new
Symbianize Forum

Most of our features and services are available only to members, so we encourage you to login or register a new account. Registration is free, fast and simple. You only need to provide a valid email. Being a member you'll gain access to all member forums and features, post a message to ask question or provide answer, and share or find resources related to mobile phones, tablets, computers, game consoles, and multimedia.

All that and more, so what are you waiting for, click the register button and join us now! Ito ang website na ginawa ng pinoy para sa pinoy!

VB.NET Programming Corner!

Guys help naman, may alam po ba kayong codes gagawa lang po sana ng software like net support, vnc etc. na yung screen ay
na appear sa other computers. Salamat po
 
Public Class Form1

Private Sub btnCompute_Click(sender As System.Object, e As System.EventArgs) Handles btnCompute.Click
txtSemGrade.Text = Val(txtPrelim.Text * 0.25) + Val(txtMidterm.Text * 0.25) + Val(txtFinals.Text * 0.5)
If txtSemGrade.Text = 100 Then
txtPE.Text = 1.0
txtRemarks.Text = "Passed"

ElseIf txtSemGrade.Text = 95 - 99 Then
txtPE.Text = 1.5
txtRemarks.Text = "Passed"

ElseIf txtSemGrade.Text = 90 - 94 Then
txtPE.Text = 2.0
txtRemarks.Text = "Passed"

ElseIf txtSemGrade.Text = 85 - 89 Then
txtPE.Text = 2.5
txtRemarks.Text = "Passed"

ElseIf txtSemGrade.Text = 80 - 84 Then
txtPE.Text = 3.0
txtRemarks.Text = "Passed"

ElseIf txtSemGrade.Text = 75 - 79 Then
txtPE.Text = 3.5
txtRemarks.Text = "Passed"

ElseIf txtSemGrade.Text <= 74 Then
txtPE.Text = 5.0
txtRemarks.Text = "Failed"

Else
txtRemarks.Text = "Failed"

End If
MsgBox("All Entries Correct?", MsgBoxStyle.Question + MsgBoxStyle.YesNo,
"Question")

End Sub

Private Sub txtPE_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtPE.TextChanged

End Sub

Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
Dim Response As Integer
Response = MessageBox.Show("Close Program...", "Exit", _
MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Response = DialogResult.Yes Then
Close()
End If
End Sub

Private Sub btnNE_Click(sender As System.Object, e As System.EventArgs) Handles btnNE.Click
Dim answer As Byte
answer = MsgBox("Are you sure?", MsgBoxStyle.Question + MsgBoxStyle.YesNo,
"Question")
txtPrelim.Text = " "
txtMidterm.Text = " "
txtFinals.Text = " "
txtSemGrade.Text = " "
txtPE.Text = " "
txtRemarks.Text = " "

End Sub

Private Sub DateTimePicker1_ValueChanged(sender As System.Object, e As System.EventArgs) Handles DateTimePicker1.ValueChanged

End Sub
End Class



yan po yung code ko dapat ang output ng pt equivalent ay 1.5 2.0 mga ganyan pero 80 85 ang lumalabas



paano ifix?
2ldztw9.jpg
 
Sir fredrich..gamit ka ng less than or greater than para ma catch mo yung saktong grade..

- - - Updated - - -

brogidck said:
Henge sana aku nang logic... ganito yun

may system aku ngayun network cia multi User ....
Papano ku gagawin na evrytyme mag save cla nang Document
eH hindi magka pareho yung Document Id nela?
ang genawa ku una accept muna sa id tapos pag cno yung naka focus una mag lock yung iba hindi neya nag accept nang number
kaso sa ganito na proccess nag iincrement yung Document id kahit hindi neya e sasave ang Document
pag after save naman and document number delayed ang network 3 second or 2 pag nagkasabay cla nang save posible paring pareho ang document nela!..

tulong mga pepz
Click to expand...

Gawa ka query ng select kung may kaparehas yung ipapasok na number. Pag wla ipasok, pag meron add 1 sa number sa id exampler 00001, magiging 00002..
 
knives645 said:
Mapabilis sa anong sense?
Halimbawa meron kang 10K na records, gusto mong bumilis ang pagload ng data?
Click to expand...

opo sir gusto mapabilis ung pagload ng data s datagridview

- - - Updated - - -

ask q lang pano po mapapabilis ung pagloload s adatagridview s vb.net
here is my code:
Dim ds As New DataSet
da = New SqlDataAdapter("Select * from Table", Con)
da.Fill(ds, sql)
If ds.Tables(0).Rows.Count > 0 Then
With dtg

opo sir gusto mapabilis ung pagload ng data s datagridview
.DataSource = Nothing
.Enabled = True
.DataSource = ds.Tables(0)
End With
my other way p b pra mapabilis 2 o meron p iba way nman..
salamat sir,,
 
mga boss,

may way po ba para "ma-Locked" ang Selected Item sa Listview?

Ganito po kasi:


May 2 Listview po ako na ginagamit ng madaming users (Listview1 and Listview2). Yung items po sa Listview1 ay nanggagaling sa access database ko. Sa DoubleClick event po ng Listview1 ko, kng ano po selected item ng user, mapupunta sya sa Listview 2 ko.

Ang gusto ko po makuha is pag si User1 niclick nya si Item1, automatically malolocked sa kanya un, so if si User2 niclick din nya si Item1, mag mmessage na "Item1 is Locked to User1", so hindi makukuha ni User2 si Item1.

Thanks in advance mga boss!
 
kudeta21 said:
sample code po .. para sa text to pdu module or vice versa :] salamat po
Click to expand...

Dim SMSC as string
Dim SMSCLen As Byte = Val("&H" & Mid(PDU, 1, 2))
SMSC = Mid(PDU, 1, (SMSCLen * 2) + 2)

ayan sample. para makuha yung SMSC ng pdu.
sample ka din.
 
friedrich19 said:
Public Class Form1

Private Sub btnCompute_Click(sender As System.Object, e As System.EventArgs) Handles btnCompute.Click
txtSemGrade.Text = Val(txtPrelim.Text * 0.25) + Val(txtMidterm.Text * 0.25) + Val(txtFinals.Text * 0.5)
If txtSemGrade.Text = 100 Then
txtPE.Text = 1.0
txtRemarks.Text = "Passed"

ElseIf txtSemGrade.Text = 95 - 99 Then
txtPE.Text = 1.5
txtRemarks.Text = "Passed"

ElseIf txtSemGrade.Text = 90 - 94 Then
txtPE.Text = 2.0
txtRemarks.Text = "Passed"

ElseIf txtSemGrade.Text = 85 - 89 Then
txtPE.Text = 2.5
txtRemarks.Text = "Passed"

ElseIf txtSemGrade.Text = 80 - 84 Then
txtPE.Text = 3.0
txtRemarks.Text = "Passed"

ElseIf txtSemGrade.Text = 75 - 79 Then
txtPE.Text = 3.5
txtRemarks.Text = "Passed"

ElseIf txtSemGrade.Text <= 74 Then
txtPE.Text = 5.0
txtRemarks.Text = "Failed"

Else
txtRemarks.Text = "Failed"

End If
MsgBox("All Entries Correct?", MsgBoxStyle.Question + MsgBoxStyle.YesNo,
"Question")

End Sub

Private Sub txtPE_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtPE.TextChanged

End Sub

Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
Dim Response As Integer
Response = MessageBox.Show("Close Program...", "Exit", _
MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Response = DialogResult.Yes Then
Close()
End If
End Sub

Private Sub btnNE_Click(sender As System.Object, e As System.EventArgs) Handles btnNE.Click
Dim answer As Byte
answer = MsgBox("Are you sure?", MsgBoxStyle.Question + MsgBoxStyle.YesNo,
"Question")
txtPrelim.Text = " "
txtMidterm.Text = " "
txtFinals.Text = " "
txtSemGrade.Text = " "
txtPE.Text = " "
txtRemarks.Text = " "

End Sub

Private Sub DateTimePicker1_ValueChanged(sender As System.Object, e As System.EventArgs) Handles DateTimePicker1.ValueChanged

End Sub
End Class



yan po yung code ko dapat ang output ng pt equivalent ay 1.5 2.0 mga ganyan pero 80 85 ang lumalabas



paano ifix? http://i57.tinypic.com/2ldztw9.jpg
Click to expand...

sa tingin ko po gagawa ka ng function para dyan... 80-85 = 1.5
 
how to access frame elelements inside vb.net webbrowser

sample
<frame id="f1" ><html><BODY>
<div id ="d1">Hello world </div></frame></BODY></html>
waitpagetoload()

how to get innerhtml of d1?

msgbox(webbrowser1.getelementbyid("d1").innerhtml)
but im getting an error object reference not set to an instance of an object

d nya mahanap ung div nmay id na d1 Tama nmn ung page waiter ko d nia lng talaga maaccess ung nsaloob ng frame

please help ME GUYS :'(
 
Last edited:
VB.net Please Help me How to Move Last Row Using DataGrid? may nkakaalam poh ba qng panu mag move last record sa DataGrid? (not DATAGRIDVIEW)

eto poh kc ang code q dun sa event ng datagrid_Click

Dim ctr As Integer = 0
ctr = DataGrid1.CurrentRowIndex
ExamineeIDTextBox.Text = DataGrid1.Item(ctr, 0).ToString
FnameTextBox.Text = DataGrid1.Item(ctr, 1).ToString
MnameTextBox.Text = DataGrid1.Item(ctr, 2).ToString
LnameTextBox.Text = DataGrid1.Item(ctr, 3).ToString
AgeTextBox.Text = DataGrid1.Item(ctr, 4).ToString
GenderComboBox.Text = DataGrid1.Item(ctr, 5).ToString


then eto ung code q dun sa movelast...

Dim ctr As Integer = 0
ctr = DataGrid1.CurrentRowIndex

DataGrid1.CurrentRowIndex = ESystemDataSet.Tables("Quest").Rows.Count - 1
ctr = DataGrid1.CurrentRowIndex
Label3.Text = DataGrid1.Item(ctr, 1).ToString
TextBox1.Text = DataGrid1.Item(ctr, 2).ToString
TextBox2.Text = DataGrid1.Item(ctr, 3).ToString
TextBox3.Text = DataGrid1.Item(ctr, 4).ToString
TextBox4.Text = DataGrid1.Item(ctr, 5).ToString
TextBox5.Text = DataGrid1.Item(ctr, 6).ToString
TextBox6.Text = DataGrid1.Item(ctr, 7).ToString

 
AceJ said:
VB.net Please Help me How to Move Last Row Using DataGrid? may nkakaalam poh ba qng panu mag move last record sa DataGrid? (not DATAGRIDVIEW)

eto poh kc ang code q dun sa event ng datagrid_Click

Dim ctr As Integer = 0
ctr = DataGrid1.CurrentRowIndex
ExamineeIDTextBox.Text = DataGrid1.Item(ctr, 0).ToString
FnameTextBox.Text = DataGrid1.Item(ctr, 1).ToString
MnameTextBox.Text = DataGrid1.Item(ctr, 2).ToString
LnameTextBox.Text = DataGrid1.Item(ctr, 3).ToString
AgeTextBox.Text = DataGrid1.Item(ctr, 4).ToString
GenderComboBox.Text = DataGrid1.Item(ctr, 5).ToString


then eto ung code q dun sa movelast...

Dim ctr As Integer = 0
ctr = DataGrid1.CurrentRowIndex

DataGrid1.CurrentRowIndex = ESystemDataSet.Tables("Quest").Rows.Count - 1
ctr = DataGrid1.CurrentRowIndex
Label3.Text = DataGrid1.Item(ctr, 1).ToString
TextBox1.Text = DataGrid1.Item(ctr, 2).ToString
TextBox2.Text = DataGrid1.Item(ctr, 3).ToString
TextBox3.Text = DataGrid1.Item(ctr, 4).ToString
TextBox4.Text = DataGrid1.Item(ctr, 5).ToString
TextBox5.Text = DataGrid1.Item(ctr, 6).ToString
TextBox6.Text = DataGrid1.Item(ctr, 7).ToString
Click to expand...

ito ang index ng last DataGridView1.Rows.GetLastRow(DataGridViewElementStates.Visible) <---- change paramters to your needs
 
how to access frame elelements inside vb.net webbrowser

sample
<frame id="f1" ><html><BODY>
<div id ="d1">Hello world </div></frame></BODY></html>
waitpagetoload()

how to get innerhtml of d1?

msgbox(webbrowser1.getelementbyid("d1").innerhtml)
but im getting an error object reference not set to an instance of an object

d nya mahanap ung div nmay id na d1 Tama nmn ung page waiter ko d nia lng talaga maaccess ung nsaloob ng frame

please help ME GUYS :'( please
 
doorbreaker said:
Dim SMSC as string
Dim SMSCLen As Byte = Val("&H" & Mid(PDU, 1, 2))
SMSC = Mid(PDU, 1, (SMSCLen * 2) + 2)

ayan sample. para makuha yung SMSC ng pdu.
sample ka din.
Click to expand...

bali yung sa receiving sms kasi nakuha ko na .. hex lang kasi yung pinapadala kapag sa receiving diba .. na coconvert ko na to string :] kapag mag sesend na lang ako .. nabasa ko kasi dun sa binagay mo yung kada 2character ng hex binabaligtad . :] kelangan ko kasi to para sa sending naman . :]
 
kudeta21 said:
bali yung sa receiving sms kasi nakuha ko na .. hex lang kasi yung pinapadala kapag sa receiving diba .. na coconvert ko na to string :] kapag mag sesend na lang ako .. nabasa ko kasi dun sa binagay mo yung kada 2character ng hex binabaligtad . :] kelangan ko kasi to para sa sending naman . :]
Click to expand...

actually yung binabaligtad para lang yung sa number at date. kung yung received kaya mo basahin ng pdu baliktarin mo lang ang procedure para masend.
baka naman ok na sa requirement mo yung textmode para medyo madali.
 
doorbreaker said:
actually yung binabaligtad para lang yung sa number at date. kung yung received kaya mo basahin ng pdu baliktarin mo lang ang procedure para masend.
baka naman ok na sa requirement mo yung textmode para medyo madali.
Click to expand...

kaya naman po . kaya lang kasi incase ng kasi ng mga special character katulad ng chinese tsaka arabic character .. diba unicode yung coding? ayun . haha .coconvert pa sa hex .. tsaka pag sa sending naman po .. kapag concatenated message . kailangan po diba naka pdu? ayun
 
You must log in or register to reply here.

Similar threads

raven2709
Android (Kotlin & Java) Programming Corner!
Replies
1
Views
469
manlors
manlors
TambayBlues
Visual Studio 2023 - The Most Concise and Detailed Guide to Mastering all the Features and the Use of Visual Studio
Replies
0
Views
281
TambayBlues
TambayBlues
TambayBlues
Hands-On Visual Studio 2022: A Developer's Guide to New Features and Best Practices with .NET 8 and VS 2022 for Maximum Productivity, 2nd Edition
Replies
0
Views
301
TambayBlues
TambayBlues
Aimershin
[Udemy Course] PHP Registration Form, Email Verification & Responsive Email | Direct Download | Requested
Replies
7
Views
618
poiqwe
P
mythos
Cybersecurity Monitoring & Detection Lab
Replies
16
Views
2K
linuxspecialist
L
Back
Top Bottom