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!

Re: VB.NET Programming Corner! UPDATED!!!

graffiti_alley said:
patulong naman po sa mysql query ko.attendance system po kasi thesis ko.problema ko po kung pano madedetermine na nakaabsent na yung estudyante ng 3 consecutive dates.pano po yung query kapag sa date po?salamat po..
Click to expand...

san mo ba nilalagay ang count mo ng absents? pag ako may isang table ako na dun nkalagay ang StudentNumber,DateAbsent


tapos count mo lang yun sa student table

Code: 
SELECT Name,(select count(studentnumber) FROM AbsentTable WHERE studentnumber = Students.studentnumber) FROM Students
 
Re: VB.NET Programming Corner! UPDATED!!!

doorbreaker said:
san mo ba nilalagay ang count mo ng absents? pag ako may isang table ako na dun nkalagay ang StudentNumber,DateAbsent


tapos count mo lang yun sa student table

Code: 
SELECT Name,(select count(studentnumber) FROM AbsentTable WHERE studentnumber = Students.studentnumber) FROM Students
Click to expand...

opo nasa isang table po yung details ng estudyante tapos yung date ng pag-absent nya.problema ko po pano madedetermine ng system na nagkaron ng 3 consecutive absences yung estudyante.kasi pag 3 consecutive absences, 1st warning na.kapag 5 non-consecutive absences, 1st warning din.yan na lng po ang major na problema ko sa thesis sana po may tumulong!sa thursday na final defense!:praise:
 
Re: VB.NET Programming Corner! UPDATED!!!

graffiti_alley said:
opo nasa isang table po yung details ng estudyante tapos yung date ng pag-absent nya.problema ko po pano madedetermine ng system na nagkaron ng 3 consecutive absences yung estudyante.kasi pag 3 consecutive absences, 1st warning na.kapag 5 non-consecutive absences, 1st warning din.yan na lng po ang major na problema ko sa thesis sana po may tumulong!sa thursday na final defense!:praise:
Click to expand...


ahh you can either create a function to do that or you can use case statement.

heres a link sa msdn about case
http://msdn.microsoft.com/en-us/library/ms181765.aspx

for the function ganto


Code: 
create function dbo.fcountabsences
(
@studentnumber as integer
)
returns varchar
begin
declare @ret as varchar
if (select count(studentnumber) from absenttable where studentnumber = @studentnumber) > 3
set @ret = 'warning'
else
...... blah blah bahala ka na
return @ret
end
 
Re: VB.NET Programming Corner! UPDATED!!!

mga sir pwede ba ako makahingi ng simple codes ng add,edit, delete and search, gusto ko kasi pag-aralan, sana ok lang sa inyo... :help:
 
Re: VB.NET Programming Corner! UPDATED!!!

recota360 said:
mga sir pwede ba ako makahingi ng simple codes ng add,edit, delete and search, gusto ko kasi pag-aralan, sana ok lang sa inyo... :help:
Click to expand...

siguro hindi ka tumingin sa first page. meron don eh
 
Re: VB.NET Programming Corner! UPDATED!!!

Private Sub Form_Load()
Set rs = New ADODB.Recordset
rs.Open "Select * from tstudent", db, 3, 3

If rs.RecordCount = 0 Then
Idno = 1
Else
rs.MoveLast
Idno = rs.Fields("examineeid") + 1
End If

T1.Text = Format(Now(), "yyyy-") & Format(Idno, "0000000")
cbosy
End Sub




- mga kuya.. ung idno=rs.fields did not recognize daw.. ano po ba possible problem nito? di ko magets at madebug.. nag kaka error ako sa pag add ng student sa enrollment po
 
Re: VB.NET Programming Corner! UPDATED!!!

mga sir/mam. paturo naman po pano yung code sa login using vb tapos conncet sa database...ung user name and pass niya po is kung ano yung naka lagay sa field nang database.ty
 
Re: VB.NET Programming Corner! UPDATED!!!

unnamedrj said:
Private Sub Form_Load()
Set rs = New ADODB.Recordset
rs.Open "Select * from tstudent", db, 3, 3

If rs.RecordCount = 0 Then
Idno = 1
Else
rs.MoveLast
Idno = rs.Fields("examineeid") + 1
End If

T1.Text = Format(Now(), "yyyy-") & Format(Idno, "0000000")
cbosy
End Sub


vb.net ba yan or vb6?

post mo yung exact na error parang kulang eh.

- mga kuya.. ung idno=rs.fields did not recognize daw.. ano po ba possible problem nito? di ko magets at madebug.. nag kaka error ako sa pag add ng student sa enrollment po
Click to expand...


vb.net ba yan?
 
Re: VB.NET Programming Corner! UPDATED!!!

boss eric,help naman sa pagsesend ng file kay server from client side,
gusto ko kasi magsend ng file kay server through .net remoting,,penge naman boss ng guide :),,

slamat :)
 
Re: VB.NET Programming Corner! UPDATED!!!

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles am.Click
Cursor.Position = New Point(Cursor.Position.X - 130, Cursor.Position.Y + 88)
doclick()
//THEN STOP/StandBy FOR X SECONDS BEFORE TO DO THE NEXT JOB.
Cursor.Position = New Point(Cursor.Position.X + 130, Cursor.Position.Y - 88)

End Sub
Click to expand...

GUYS pa help lang po. gs2 q sna may time interval before gawin ung next job. xD
eto kse gngwa ko kso ayaw :
Timer2.Interval = 3000
Timer2.Enabled = True

bka may idea kayo jan hehe
 
Re: VB.NET Programming Corner! UPDATED!!!

mga sir pa help naman. pano ba i-integrate ang FIFO (first in, first out) sa inventory system? pano ko ba siya i-dedesign? clueless talaga ako huhuh pa help
 
Re: VB.NET Programming Corner! UPDATED!!!

eshisyours said:
GUYS pa help lang po. gs2 q sna may time interval before gawin ung next job. xD
eto kse gngwa ko kso ayaw :
Timer2.Interval = 3000
Timer2.Enabled = True

bka may idea kayo jan hehe
Click to expand...

back read ka a few pages lang. bka classm8 mo yun nag post ganyan din ang hiningi.
 
Re: VB.NET Programming Corner! UPDATED!!!

boss eric,help naman sa pagsesend ng file kay server from client side,
gusto ko kasi magsend ng file kay server through .net remoting,,penge naman boss ng guide ,,

slamat
 
Re: VB.NET Programming Corner! UPDATED!!!

SMSclass

Code: 
Imports System.IO.Ports
Imports System.Text
Imports System.Threading
Imports System.Text.RegularExpressions

Public Class SMSclass
    Public Function OpenPort(ByVal ComPort As String) As SerialPort

        Dim SerialPort As New IO.Ports.SerialPort

        Try
            If ComPort <> Nothing Then
                With SerialPort
                    .PortName = ComPort
                    .BaudRate = 96000
                    .Parity = Parity.None
                    .DataBits = 8
                    .StopBits = StopBits.One
                    .Handshake = Handshake.RequestToSend
                    .ReadTimeout = 300
                    .WriteTimeout = 300
                    .DtrEnable = True
                    .RtsEnable = True
                    .NewLine = vbCrLf
                End With
                SerialPort.Open()
                Return SerialPort
            Else
                Return SerialPort
            End If
        Catch ex As Exception
            Throw ex
        End Try
    End Function

    Public Sub ClosePort(ByVal Serialport As SerialPort)
        Try
            Serialport.Close()
        Catch ex As Exception
            Throw ex
        End Try
    End Sub

End Class

ConnSMS

Code: 
Imports System.IO.Ports

Public Class ConnSMS
    Dim WithEvents SerialPort As New IO.Ports.SerialPort
    Private Declare Sub Sleep Lib "kernel32" (ByVal milsec As Long)

    Dim ObjPort As SMSclass


    Private Sub ConnSMS_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i As Integer = 0 To My.Computer.Ports.SerialPortNames.Count - 1
            cmbPort.Items.Add(My.Computer.Ports.SerialPortNames(i))
        Next
    End Sub

    Private Sub btnConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnect.Click
        Try
            SerialPort = ObjPort.OpenPort(cmbPort.Text)
            If Not SerialPort Is Nothing Then
                lblstatStrip.Text = "Modem is connected at PORT " & cmbPort.Text & "."
            Else
                lblstatStrip.Text = "Invalid port settings."
            End If
        Catch ex As Exception
            Throw ex
        End Try
    End Sub

    Private Sub btnDisconnect_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisconnect.Click
        Try
            ObjPort.ClosePort(SerialPort)
            lblstatStrip.Text = "Not Connected"
        Catch ex As Exception
            Throw ex
        End Try
    End Sub

    Private Sub txtWto_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtWto.TextChanged
        TextBox1.Text = Len(txtWto.Text)
    End Sub
End Class

attachment.php


Pa help mga Master's & mga Sir:salute::salute:

di ako maka connect sa port... bakit ganun??
i think tama nmn ung code...

please pa check po...:praise::praise:

more thanks!! :thumbsup::thumbsup:
 

Attachments

  • Untitled.jpg
    Untitled.jpg
    30.2 KB · Views: 67
Last edited:
Re: VB.NET Programming Corner! UPDATED!!!

GAiXz said:
SMSclass

Code: 
Imports System.IO.Ports
Imports System.Text
Imports System.Threading
Imports System.Text.RegularExpressions

Public Class SMSclass
    Public Function OpenPort(ByVal ComPort As String) As SerialPort

        Dim SerialPort As New IO.Ports.SerialPort

        Try
            If ComPort <> Nothing Then
                With SerialPort
                    .PortName = ComPort
                    .BaudRate = 96000
                    .Parity = Parity.None
                    .DataBits = 8
                    .StopBits = StopBits.One
                    .Handshake = Handshake.RequestToSend
                    .ReadTimeout = 300
                    .WriteTimeout = 300
                    .DtrEnable = True
                    .RtsEnable = True
                    .NewLine = vbCrLf
                End With
                SerialPort.Open()
                Return SerialPort
            Else
                Return SerialPort
            End If
        Catch ex As Exception
            Throw ex
        End Try
    End Function

    Public Sub ClosePort(ByVal Serialport As SerialPort)
        Try
            Serialport.Close()
        Catch ex As Exception
            Throw ex
        End Try
    End Sub

End Class

ConnSMS

Code: 
Imports System.IO.Ports

Public Class ConnSMS
    Dim WithEvents SerialPort As New IO.Ports.SerialPort
    Private Declare Sub Sleep Lib "kernel32" (ByVal milsec As Long)

    Dim ObjPort As SMSclass


    Private Sub ConnSMS_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i As Integer = 0 To My.Computer.Ports.SerialPortNames.Count - 1
            cmbPort.Items.Add(My.Computer.Ports.SerialPortNames(i))
        Next
    End Sub

    Private Sub btnConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnect.Click
        Try
            SerialPort = ObjPort.OpenPort(cmbPort.Text)
            If Not SerialPort Is Nothing Then
                lblstatStrip.Text = "Modem is connected at PORT " & cmbPort.Text & "."
            Else
                lblstatStrip.Text = "Invalid port settings."
            End If
        Catch ex As Exception
            Throw ex
        End Try
    End Sub

    Private Sub btnDisconnect_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisconnect.Click
        Try
            ObjPort.ClosePort(SerialPort)
            lblstatStrip.Text = "Not Connected"
        Catch ex As Exception
            Throw ex
        End Try
    End Sub

    Private Sub txtWto_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtWto.TextChanged
        TextBox1.Text = Len(txtWto.Text)
    End Sub
End Class

attachment.php


Pa help mga Master's & mga Sir:salute::salute:

di ako maka connect sa port... bakit ganun??
i think tama nmn ung code...

please pa check po...:praise::praise:

more thanks!! :thumbsup::thumbsup:
Click to expand...

tama ba port number? wala ba ibang app na gumagamit sa port na yan?
 
You must log in or register to reply here.

Similar threads

raven2709
Android (Kotlin & Java) Programming Corner!
Replies
1
Views
468
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
269
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
291
TambayBlues
TambayBlues
Aimershin
[Udemy Course] PHP Registration Form, Email Verification & Responsive Email | Direct Download | Requested
Replies
7
Views
598
poiqwe
P
mythos
Cybersecurity Monitoring & Detection Lab
Replies
16
Views
2K
linuxspecialist
L
Back
Top Bottom