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!
wooh..natapos ko rin computerized examination system ko..mejo my flaws pah..pero ver 1.0 pa naman..sa susunod na ang modification..
pahelp po pano po ba mg exe dito s VB6 ung kahit sang pc mgrun kasi ung sa file menu na make exe project dapat nasa loob padin ng folder ung exe eh gusto ko po wala na nun exe nlng po tlga kaya lng try ko hiwalay ung exe di na mread ung database help po please thanks..
guys as in newbie tlaga ako .. mula ngayun magaaral na ako nito
bakit sa form1 ko>icon..pag magbrowse ako ng icon ay INVALID PICTURE kahit .ico yung format nya ???
mga sir panu po ma g filter sa data report kapag po senearch ko sa data grid dapat yun lang po ang laman ng data report
help po need namen sa system kase, pano po yung pag ka hit ko ng delete cmd ma dedelete lahat ng laman ng database ,
mga masters patulong naman po sa thesis namin. grading system po siya na magsesend ng grades through sms sa parents. hinge po sana ako idea sa inyo mga masters.
Private Sub Form_Load()
Dim first, second, ans As Single
Dim pindot As Integer
Dim xc As Boolean
End Sub
Text1.Text = Text1.Text + "1"
pindutan = 1
first = Val(Text1.Text)
Text1.Text = ""
Private Sub Command17_Click()
second = Val(Text1)
Select Case pindutan
Case Is = 1
ans = first + second
Case Is = 2
ans = first - second
Case Is = 3
ans = first * second
Case Is = 4
ans = first / second
End Select
Text1 = ans
If Val(first) > 0 And Val(second) > 0 Then
ans = Val(first) / Val(second)
ElseIf Val(Text1.Text) = 0 And Val(second) > 0 Then
ans = Val(first) / Val(second)
ElseIf Val(Text1.Text) > 0 And Val(second) = 0 Then
ans = Val(first) / Val(second)
ElseIf Val(Text1.Text) = 0 And Val(second) = 0 Then
ans = Val(first) / Val(second + 1)
End If
End Sub
This thread is open for all vb programmers. .you can post anything you like as long as it is related with Visual Basic 6.0 Programming. .Assignments and tutorials are accepted. .
So mga Visual basic Programmers tambay na po kayo dito. .hehe
patulong naman po san po ba pwede makahanap ng vb6 program na pwdeng i download..computerized enrollment system..kelangan ko lang po aralin for my thesis thankyou
Gumagana po ba sa windows 7 ung visual basic 6.0? Tsaka saan po pwede magdownload? Patulong naman po
Yes po sir gumagana po yan
kung marunong ka po gumamit ng torrent (utorrent or bittorrent) ito po
http://thepiratebay.se/torrent/7043427/Visual_Basic_6.0_Enterprise_Edition[A4]
or dito po sa thread na ito... credit na lamang po kay sir clovis_94
http://www.symbianize.com/showthread.php?t=715970&highlight=visual+basic
Good evening! Query lang ako, my project is to build a simple calculator, may idea ako about how to do it.
One question : I'm getting an error called "Compile Error - Argument Not Optional" Whenever I click my equal sign.
Here are my sample codes :
Assigned Global Variable :
Code:Private Sub Form_Load() Dim first, second, ans As Single Dim pindot As Integer Dim xc As Boolean End Sub
for clicking a # button, example 1 :
Code:Text1.Text = Text1.Text + "1"
for clicking an operator, example addition :
Code:pindutan = 1 first = Val(Text1.Text) Text1.Text = ""
my code for clicking the equal sign :
Code:Private Sub Command17_Click() second = Val(Text1) Select Case pindutan Case Is = 1 ans = first + second Case Is = 2 ans = first - second Case Is = 3 ans = first * second Case Is = 4 ans = first / second End Select Text1 = ans If Val(first) > 0 And Val(second) > 0 Then ans = Val(first) / Val(second) ElseIf Val(Text1.Text) = 0 And Val(second) > 0 Then ans = Val(first) / Val(second) ElseIf Val(Text1.Text) > 0 And Val(second) = 0 Then ans = Val(first) / Val(second) ElseIf Val(Text1.Text) = 0 And Val(second) = 0 Then ans = Val(first) / Val(second + 1) End If End Sub
Any idea bakit siya nag.eerror? Also, tama bang sa form ako nag-declare ng global variable, if not, saan? salamat.
help naman po.. pano po ung codes na magbabawas ang quantity..
ex. hihiram ako ng libro, tas dapat yung quantity ng libro eh mag minus 1..
sana may makatulong
Mga Sir, Any Idea kung paano yung textbox na parang textbox sa mga website? na kapag nag type ka lilitaw yung parang mga cache or history ng mga tinype mo?
Like Facebook pag mag log-in ka pag type mo palang ng letter "A" sa textbox may lilitaw ng history lahat ng nagsstart sa "A" na natype dun.
May Third party ba o code para dito? Salamat