Post your Vb 6.0 Questions Here

I want,  To it also, well this the que= vb program to calculate the 4 different courses and with the student result, and g.p Thanx @lucky and write the source code out 

You mean you need just a code that will calculate student GP after accepting scores from the system.
Let me give u clue for a single student .

dim GPx as single,TotalCouserPoint as integer

private sub command1_Click
dim gp as single
GPx =0
TotalCouserPoint=0

CaculateGrade val(textbox1.text),4)
CaculateGrade val(textbox2.text),3)
CaculateGrade val(textbox3.text),2)
CaculateGrade val(textbox4.text),6)
CaculateGrade val(textbox5.text),2)
CaculateGrade val(textbox6.text),2)

gp=GPx /TotalCouserPoint
msgbox "GP is " & gp

end sub


private sub command2_Click
GPx =0
TotalCouserPoint=0

'if you created your textbox in an array use this
dim gp as single
dim J as integer
for J=0 to textbox1.Ubound

CaculateGrade(val(textbox1(j).text),val(lblCoursePoint(j).caption))

next j


gp=GPx /TotalCouserPoint
msgbox "GP is " & gp

end sub


private function CaculateGrade(Score as Integer,CouserPoint as integer) as string

if Score >100 or Score <0 then exit function
Counter =Counter +1

select case score
case 90-100
GPx =GPx + (5.0*CouserPoint )
TotalCouserPoint =TotalCouserPoint +5.0
msgbox "A"

case 70-89
msgbox "B"
GPx =GPx +  (4 * CouserPoint )
TotalCouserPoint =TotalCouserPoint +4.0

case 50-69
msgbox "C
GPx =GPx + (3.0* CouserPoint )
TotalCouserPoint =TotalCouserPoint +3.0

case 40-49
msgbox "P"
GPx =GPx + (2.0* CouserPoint )
TotalCouserPoint =TotalCouserPoint +2.0
case else
msgbox "F"
end select

end sub

You need to create testboxes just as the number of your courses and the same time you should provide what will feed you with the course point.

See how this helps you. U might get some bugs since I didnt code it on the environment, so please do bear with, I know you can correct if any.

Remain Blessed.

And, give me your phone no, plz am xpectin dat assgnment plz

Am, askin cause i vista lappy no gre install the visual studio and i haven't tried it b4 that why am askin, if nut i wunt ask, instead be teachin ppl 

Whr, can i get that frm @fatezy or and hlp me with that assignment am sumittin it 2morrow thanx

yeah i stay in lag, wht about this assignment can u just hlp me out, thankx

Not dat, i dnt wana do it my slf u are mistakin, b4 i no hw 2 do configuration no, 1 teach me just that am not gettin the right software that iz, well are u hlpin me out nw, or nut

Vb program for a Payroll of a company usin any vairable

Hi luckyCO, how are you doing? Pls I have two questions and they are:

1. How can someone create database and table at run time instead of creating it in MS Access first
2. How can someone write code that can minimise a program to tray (to be among the icons at the right hand side) instaed of task bar and when someone click the icon on the tray it will show up again

Many thanks to you for the help you have been given me. I will be expecting your reply.

You need 2 command button,textbox, picture box  and timer to make this work. I hv written the program, so download and run it.

I couldnt upload the file for u but you can hit www.cyprosoft.net/products/SystemTray.rar to download the sample code.

Take care
Happy Easter!

U may look at its code below

Option Explicit
Private Type NOTIFYICONDATA
cbSize As Long
hWnd As Long
uId As Long
uFlags As Long
ucallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type

Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const WM_MOUSEMOVE = &H200
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4

Private Declare Function Shell_NotifyIcon Lib "shell32" _
Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid _
As NOTIFYICONDATA) As Boolean

Dim t As NOTIFYICONDATA
Dim Conn As String

Private Sub Command1_Click()
On Error GoTo errh

CommonDialog1.FileName = "DbName.mdb"
CommonDialog1.ShowSave
Conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & IIf(Right(UCase(CommonDialog1.FileName), 4) <> ".MDB", CommonDialog1.FileName & ".mdb", CommonDialog1.FileName)

Dim ADOXcatalog As New Catalog
ADOXcatalog.Create (Conn)

Exit Sub
errh:
MsgBox Err.Description

End Sub

Private Sub Command2_Click()
On Error GoTo errh
Dim SQL As String
SQL = "CREATE TABLE " & txtTableName.Text & "(Name text, Address text, age number)"
Dim db As New ADODB.Connection
db.ConnectionString = Conn
db.Open
db.Execute SQL

Exit Sub
errh:
MsgBox Err.Description

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

Timer1.Enabled = False

t.cbSize = Len(t)
t.hWnd = Picture1.hWnd
t.uId = 1&

Shell_NotifyIcon NIM_DELETE, t

End Sub

Private Sub mnumin_Click()
Me.WindowState = 0
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'click to activate
'If Button = 1 Then
' Me.PopupMenu menu1
'End If

'right click to activate
If Hex(X) = "1E3C" Then
  Me.PopupMenu menu1
End If

End Sub

Private Sub Timer1_Timer()
Static i As Long, img As Long
t.cbSize = Len(t)
t.hWnd = Picture1.hWnd
t.uId = 1&
t.uFlags = NIF_ICON
t.hIcon = Picture1.Picture
Shell_NotifyIcon NIM_MODIFY, t
Timer1.Enabled = True
i = i + 1
If i = 2 Then i = 0
End Sub

Private Sub Form_Load()
txtTableName.Text = "StudentTable"

t.cbSize = Len(t)
t.hWnd = Picture1.hWnd
t.uId = 1&
t.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
t.ucallbackMessage = WM_MOUSEMOVE
t.hIcon = Picture1.Picture
t.szTip = "Click To Restore" & Chr$(0)

Shell_NotifyIcon NIM_ADD, t

Timer1.Enabled = True

'Me.Hide

App.TaskVisible = Time

End Sub

Thanx hun.@lucky but whr can i get the command button on vb 2008, i only see the text box and others but i can see the command butn

I need help please on how i can include a photo ie image uploading object on registration form tn be able to capture passport in jpg or bitmap format along with other data of individuals. database is designed with ms access, front end with vb6. thanks as you help.

AminORITSE HOW FAR BRO, >your MA BRODA WEL KNWN 4RM your NAME AM OMAGBEMI 4RM DA SOUTH-SOUTH NO MATTER WAT ALWAYS REPRESENT LYK DA PRESIDENT 1VE, mcfida101 at yahu dot com

Please can anyone help with free ebooks on visual basic 2005

can any person help me with vb 6.0 code that can generate ASCII codes.write the code,run it and cope the G.U.I with the code and send it to kkycee@yahoo.com .thank alots

Hey lucky i need 2 search for a particular record in a database{access}. How do i get 2 do that wit a primary key supplied by the person. Eg act number. I aw8 your rply. Tanx