Exclusively for Visual Basic 6.0 Programmers Only!

[dual999dual]

u can use this



or u can use a modem



using vb6 u can add MSCOMM32.OCX

and code it using AT COMMAND

- - - Updated - - -



nkita ko na error mo...hehe


delete mo lang ung datagrid1..tapos copy paste ung datagrid2

brad..mejo nahabaan ako sa username haha

padelete na lang ako ng 1 sa table ng user

haba eh

nice GUI..simple is perfect

eto ss at attachment

maraming slamat brad.. psubok.
WORKING XIA SIR robelisshit .. maraming slamat.. nkalimutan qoh p plang tanungin ung tab under "report generation" bk8 kpag magpri2 aqoh, lumalabas ang error n 2: "runtime error 20728: F". at tsaka ung list of students, ndi clickable ung print button. pno idebug 2 sir. ittach qoh poh ung error pra mkita neo.

 

[iLexria2]

Mga sir! Pahelp naman po sa 3 assignment ko. Need ko ung code ASAP kasi bukas na ipapasa!

Assign 1:

A form where the user can input a number and display the sum of the number starting from 0 to the inputted number.
Example:

Enter a number: 5
Msgbox: Output: 0+1+2+3+4+5 = 15


Assign 2:

A form where the user can input several numerical values until a terminating value (0 for example) is inputted and then displays the sum of inputted values.
Example:

Enter a number: 2
Enter a number: 5
Enter a number: 4
Enter a number: 25
Enter a number: 0

Msgbox: Output: 2+5+4+25 = 36


Assign 3:

A form that will display a diamond symbol using asterisks with a fixed maximum value of 5 in the longest line.
_ as space

_ _ _ _ _ _ _ _*
_ _ _ _ _ _ _*_ _*
_ _ _ _ _ _*_ _*_ _*
_ _ _ _ _*_ _*_ _*_ _*
_ _ _ _*_ _*_ _*_ _*_ _*
_ _ _ _ _*_ _*_ _*_ _*
_ _ _ _ _ _*_ _*_ _*
_ _ _ _ _ _ _*_ _*
_ _ _ _ _ _ _ _*

Parang ganyan ung itsura. haha! HELP mga pro! Salamats!

 

[w33haaa]

Good day Ka-symb! I'm totally new in visual basic 6.0
I have a small question, how do you output a for next statement inside a textbox?
I have my algorithm here, all I need to know is how to make it happened.

See here's my problem.

edited : this is my supposed code :

Private Sub Command1_Click()Text1.Enabled = False
Dim range, multiplier, int1, ans As Integer
range = Val(Text2.Text)
multiplier = Val(Text1.Text)
For int1 = 1 To range
ans = int1 * multiplier
Text3.Text = multiplier & "x" & int1 & "=" & ans
Next

 

[robelisshit]

Good day Ka-symb! I'm totally new in visual basic 6.0
I have a small question, how do you output a for next statement inside a textbox?
I have my algorithm here, all I need to know is how to make it happened.

See here's my problem.

http://i.imgur.com/Zy1PIp8.png

edited : this is my supposed code :

Private Sub Command1_Click()Text1.Enabled = False
Dim range, multiplier, int1, ans As Integer
range = Val(Text2.Text)
multiplier = Val(Text1.Text)
For int1 = 1 To range
ans = int1 * multiplier
Text3.Text = multiplier & "x" & int1 & "=" & ans
Next

Try this one...

Private Sub Command1_Click()Text1.Enabled = False
Dim range, multiplier, int1, ans As Integer
range = Val(Text2.Text)
multiplier = Val(Text1.Text)
For int1 = 1 To range
ans = int1 * multiplier
Text3.Text = multiplier & "x" & int1 & "=" & ans & vbNewLine
Next

 

[w33haaa]

^nope, same output. It doesn't loop at all.
My code works perfectly fine in the form, however I like it inside a textbox

 

[robelisshit]

^nope, same output. It doesn't loop at all.
My code works perfectly fine in the form, however I like it inside a textbox

https://fbcdn-sphotos-a-a.akamaihd.net/hphotos-ak-prn1/t1/1014117_201034676774355_1333370754_n.jpg

First Add Text3
In the Properties
Change the Multiline to True
Change the Scrollbars = 2 - Vertical

Here's the code

Private Sub Command1_Click()

Dim range, multiplier, int1, ans As Integer
range = Val(Text2.Text)
multiplier = Val(Text1.Text)
For int1 = 1 To range
ans = int1 * multiplier
Text3.Text = Text3.Text & multiplier & "x" & int1 & "=" & ans & vbCrLf
Next int1
End Sub

 

[w33haaa]

I already did in the first place, it works now, I just forgot to put Text3.Text in my code, thanks!

 

[robelisshit]

Mga sir! Pahelp naman po sa 3 assignment ko. Need ko ung code ASAP kasi bukas na ipapasa!

Assign 1:

A form where the user can input a number and display the sum of the number starting from 0 to the inputted number.
Example:

Enter a number: 5
Msgbox: Output: 0+1+2+3+4+5 = 15


Assign 2:

A form where the user can input several numerical values until a terminating value (0 for example) is inputted and then displays the sum of inputted values.
Example:

Enter a number: 2
Enter a number: 5
Enter a number: 4
Enter a number: 25
Enter a number: 0

Msgbox: Output: 2+5+4+25 = 36


Assign 3:

A form that will display a diamond symbol using asterisks with a fixed maximum value of 5 in the longest line.
_ as space

_ _ _ _ _ _ _ _*
_ _ _ _ _ _ _*_ _*
_ _ _ _ _ _*_ _*_ _*
_ _ _ _ _*_ _*_ _*_ _*
_ _ _ _*_ _*_ _*_ _*_ _*
_ _ _ _ _*_ _*_ _*_ _*
_ _ _ _ _ _*_ _*_ _*
_ _ _ _ _ _ _*_ _*
_ _ _ _ _ _ _ _*

Parang ganyan ung itsura. haha! HELP mga pro! Salamats!

Add the following to your form

Text1
Text2
Text3
Change the property of Text3
MultiLine = True
ScrollBars = 2 - Vertical
Text4
Change the property of Text4
MultiLine = True
ScrollBars = 2 - Vertical

Command1
Command2

Then copy this codes below

Dim y As Integer ' you must declare y outside the form
Private Sub Form_Load()
y = 0
End Sub

Private Sub Command1_Click() ' for assign 1
Dim x As Integer
Dim temp As Integer
temp = 0
For x = 0 To Text1.Text
Text3.Text = Text3.Text & x & vbCrLf
temp = temp + x
Next x
Text3.Text = Text3.Text & vbCrLf & "Ouput= " & temp
End Sub


Private Sub Command2_Click() ' for assign 2

If Text2.Text <> 0 Then
    Text4.Text = Text4.Text & Text2.Text & vbNewLine
    y = Text2.Text + y
    Text2.Text = ""
    Text2.SetFocus
Else
    MsgBox "STOP"
    Text4.Text = Text4.Text & vbNewLine & "Ouput= " & y
        Exit Sub

End If
End Sub

assign 3...still coding

 

[w33haaa]

One last question though, how do I cleanup? After the loop it just keeps on adding lines.
I know in c and c++ there's clearscr, is it possible to do it in vb6?

aside from using text?.text = ""

 

[robelisshit]

One last question though, how do I cleanup? After the loop it just keeps on adding lines.
I know in c and c++ there's clearscr, is it possible to do it in vb6?

aside from using text?.text = ""

text1.text = vbnullstring

 

[iLexria2]

Add the following to your form

Text1
Text2
Text3
Change the property of Text3
MultiLine = True
ScrollBars = 2 - Vertical
Text4
Change the property of Text4
MultiLine = True
ScrollBars = 2 - Vertical

Command1
Command2

Then copy this codes below

Dim y As Integer ' you must declare y outside the form
Private Sub Form_Load()
y = 0
End Sub

Private Sub Command1_Click() ' for assign 1
Dim x As Integer
Dim temp As Integer
temp = 0
For x = 0 To Text1.Text
Text3.Text = Text3.Text & x & vbCrLf
temp = temp + x
Next x
Text3.Text = Text3.Text & vbCrLf & "Ouput= " & temp
End Sub


Private Sub Command2_Click() ' for assign 2

If Text2.Text <> 0 Then
    Text4.Text = Text4.Text & Text2.Text & vbNewLine
    y = Text2.Text + y
    Text2.Text = ""
    Text2.SetFocus
Else
    MsgBox "STOP"
    Text4.Text = Text4.Text & vbNewLine & "Ouput= " & y
        Exit Sub

End If
End Sub

assign 3...still coding

thanks dito sir! may tanong lang ako sir, sa assign 1, pano gawing msgbox ung output instead of textbox? msgbox kasi nakalagay sa assign namen e. and kamusta na po ung assign 3? salamat ng marami sir! )))))))))

 

[robelisshit]

^ Text3.Text = Text3.Text & vbCrLf & "Ouput= " & temp <----change this to
msgbox "Ouput= " & temp

 

[dual999dual]

ang galing

 

[jerald02]

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

 

[benjar30]

Nice magagamit ko din itong vb6 ko

 

[kickersz11]

Sino po merong basic Inventory System.

 

[Jhayix9]

help po need namen sa system kase, pano po yung pag ka hit ko ng delete cmd ma dedelete lahat ng laman ng database ,

 

[mute0124]

good day mga sir. Newbie lang po ako sa vb6. Ano po ang code ng undo command? Yung kagaya po sa microsoft word. At paano po mag bold, italic, at underline ng selected font sa richtextbox? Salamat po sa sasagot.

 

[akkitta11]

Thanks dito ts.. salamat sa mga katulad mong true symbianizer..! kip it up ts.!

 

[cydganda]

mga boss patulong naman.. log in form lng po salamat need lng talaga... pa attached nmn po file...