Topic: Visual Basic 6.0 Section  (Read 18851 times)

10-02-13 02:19 PM
double-x
Full Member
  • Posts: 340
  • Thanked: 38
  • Reputation: 0
bale gamit kalang konting logic at creativity makakagawa kana ng simpleng laro, .

10-02-13 05:53 PM
prissdyllan
Full Member
  • Posts: 1239
  • Thanked: 38
  • Reputation: 0
guys patulong.. I need an inventory system and student information system.. Any one of these two will do... Thank you

10-03-13 10:16 AM
prissdyllan
Full Member
  • Posts: 1239
  • Thanked: 38
  • Reputation: 0
hi guys... guys , baka meron kayong sample ng inventory system dyan made from visual basic 6.0... kaylangan lang talga namin for the screenshot of our case study which our topic is inventory system..

I hope that you have an idea on this ...

thanks ...

ill be waiting for the reply ..

10-07-13 03:24 PM
prissdyllan
Full Member
  • Posts: 1239
  • Thanked: 38
  • Reputation: 0
guys baka meron kayo jan simpleng student information system .. need ko lang please ..

10-07-13 04:08 PM
nickalcala
Full Member
  • Posts: 357
  • Thanked: 21
  • Reputation: 0
[You are not allowed to view links. Register or Login]
guys baka meron kayo jan simpleng student information system .. need ko lang please ..
screenshot lang ba? [You are not allowed to view links. Register or Login]
[You are not allowed to view links. Register or Login]

10-16-13 11:10 AM
prissdyllan
Full Member
  • Posts: 1239
  • Thanked: 38
  • Reputation: 0
guys, do you know how to put a candy button on visual basic 6.0, or do you have tut of it ??    thanks ...

10-16-13 10:40 PM
-jath_28-
Sr. Member
  • Posts: 8708
  • Thanked: 669
  • Reputation: 2
guys pagawa nga ng vb nito :lmao:
I won't waste my time for a NONSENSE thing :news:
:lmao:


11-02-13 08:28 PM
_kevin_
Full Member
  • Posts: 313
  • Thanked: 27
  • Reputation: 1
up ko lang po ito.

11-03-13 05:13 PM
dems25
Semi-Newbie
  • Posts: 19
  • Thanked: 1
  • Reputation: 0
Quote
My Simple clue generator ko po hehe :)

Code: [You are not allowed to view links. Register or Login]
Private Function generate_clue(ByVal param_txt As String, _
                                ByVal param_ans As String, _
                                ByVal param_del As String) As String
    Dim int_x, int_y As Integer
    Dim str_ch, res_txt As String
   
    If param_ans = "" Or param_del = "" Then
        generate_clue = ""
        Exit Function
    End If
    res_txt = ""
    param_del = Left$(param_del, 1)
    If InStr(param_txt, param_del) = 0 Or Len(param_txt) <> Len(param_ans) Then
        For int_x = 1 To Len(param_ans)
            str_ch = Mid$(param_ans, int_x, 1)
            res_txt = res_txt & IIf(str_ch = " ", " ", param_del)
        Next int_x
        generate_clue = res_txt
        Exit Function
    End If
    Do While True
        int_x = Int(Len(param_txt) * Rnd) + 1
        str_ch = Mid$(param_txt, int_x, 1)
        If str_ch = param_del Then
            Exit Do
        End If
    Loop
    For int_y = 1 To Len(param_txt)
        res_txt = res_txt & IIf(int_x = int_y, Mid$(param_ans, int_y, 1), Mid$(param_txt, int_y, 1))
    Next int_y
    generate_clue = res_txt
End Function


To use:

Code: [You are not allowed to view links. Register or Login]
Private Sub Command1_Click()
    Text1.Text = generate_clue(Text1.Text, "Hello World!", "+")
End Sub

Quote
At Eto pa number to words hehe :)

Code: [You are not allowed to view links. Register or Login]
Private Function ToWord(ByVal param_number As String) As String
    Dim str_number(0 To 10), str_teens(0 To 9), str_tens(0 To 9) As String
    ToWord = ""
    str_number(0) = "Zero"
    str_number(1) = "One"
    str_number(2) = "Two"
    str_number(3) = "Three"
    str_number(4) = "Four"
    str_number(5) = "Five"
    str_number(6) = "Six"
    str_number(7) = "Seven"
    str_number(8) = "Eight"
    str_number(9) = "Nine"
    str_teens(1) = "Eleven"
    str_teens(2) = "Twelve"
    str_teens(3) = "Thirteen"
    str_teens(4) = "Fourteen"
    str_teens(5) = "Fifteen"
    str_teens(6) = "Sixteen"
    str_teens(7) = "Seventeen"
    str_teens(8) = "Eighteen"
    str_teens(9) = "Nineteen"
    str_tens(1) = "Ten"
    str_tens(2) = "Twenty"
    str_tens(3) = "Thirty"
    str_tens(4) = "Forty"
    str_tens(5) = "Fifty"
    str_tens(6) = "Sixty"
    str_tens(7) = "Seventy"
    str_tens(8) = "Eighty"
    str_tens(9) = "Ninety"
    param_number = Val(param_number)
    If param_number = 0 Then
        Exit Function
    ElseIf Len(param_number) = 1 Then
        ToWord = IIf(Len(param_number) <> 0, str_number(Left$(param_number, 1)), "")
    ElseIf Len(param_number) = 2 Then
        ToWord = IIf(Mid$(param_number, 1, 1) = 1, IIf(Mid$(param_number, 2, 1) = 0, str_tens(1), _
                 str_teens(Mid$(param_number, 2, 1))), str_tens(Mid$(param_number, 1, 1)) & _
                 IIf(Mid$(param_number, 2, 1) <> 0, " ", "") & IIf(Mid$(param_number, 2, 1) <> 0, _
                 str_number(Mid$(param_number, 2, 1)), ""))
    End If
End Function

Private Function NumberToWords(ByVal param_num As String) As String
    Dim str_num(1 To 5) As String
    Dim res_txt, str_int, str_cent, str_peso As String
    Dim int_x, int_cent As Integer
    If Val(param_num) = 0 Then
        NumberToWords = "Zero"
        Exit Function
    End If
    res_txt = ""
    If InStr(param_num, ".") <> 0 Then
        str_int = Val(Mid$(param_num, 1, InStr(param_num, ".") - 1))
        int_cent = Val(Mid$(param_num, InStr(param_num, ".") + 1, 2))
        str_cent = IIf(int_cent <> 0, ToWord(int_cent) & " " & "Centavos", "")
    Else
        str_int = Val(param_num)
    End If
    If Len(str_int) > 15 Then
        NumberToWords = "Exceed"
        Exit Function
    End If
    str_peso = str_int
    If Len(str_int) >= 13 And Len(str_int) <= 15 Then
        str_num(1) = num_hundred(Mid$(str_int, 1, Len(str_int) - 12)) & " " & "Trillion"
        str_int = Mid$(str_int, Len(str_int) - 11, 12)
    End If
    If Len(str_int) >= 10 And Len(str_int) <= 12 Then
        str_num(2) = num_hundred(Mid$(str_int, 1, Len(str_int) - 9))
        str_num(2) = IIf(str_num(2) <> "", str_num(2) & " " & "Billion", "")
        str_int = Mid$(str_int, Len(str_int) - 8, 9)
    End If
    If Len(str_int) >= 7 And Len(str_int) <= 9 Then
        str_num(3) = num_hundred(Mid$(str_int, 1, Len(str_int) - 6))
        str_num(3) = IIf(str_num(3) <> "", str_num(3) & " " & "Million", "")
        str_int = Mid$(str_int, Len(str_int) - 5, 6)
    End If
    If Len(str_int) >= 4 And Len(str_int) <= 6 Then
        str_num(4) = num_hundred(Mid$(str_int, 1, Len(str_int) - 3))
        str_num(4) = IIf(str_num(4) <> "", str_num(4) & " " & "Thousand", "")
        str_int = Mid$(str_int, Len(str_int) - 2, 3)
    End If
    If Len(str_int) <= 3 Then
        str_num(5) = num_hundred(str_int)
    End If
    For int_x = 1 To 5
        res_txt = res_txt & str_num(int_x) & IIf(str_num(int_x) <> "", " ", "")
    Next int_x
    If res_txt <> "" Then
        res_txt = Mid$(res_txt, 1, Len(res_txt) - 1)
    End If
    res_txt = res_txt & IIf(res_txt <> "", IIf(Val(str_peso) > 1, " Pesos", " Peso"), "") & _
              IIf(res_txt <> "" And str_cent <> "", " And ", "") & str_cent & _
              IIf(res_txt <> "" Or str_cent <> "", " Only", "")
    NumberToWords = res_txt
End Function

Private Function num_hundred(ByVal param_num As String) As String
    Dim str1, str2 As String
    num_hundred = ""
    param_num = Val(param_num)
    If param_num = 0 Then
        Exit Function
    End If
    If Len(param_num) < 3 Then
        num_hundred = ToWord(param_num)
        Exit Function
    End If
    str1 = ToWord(Mid$(param_num, 1, 1))
    str2 = ToWord(Mid$(param_num, 2, 2))
    num_hundred = str1 & " " & "Hundred" & IIf(str2 <> "", " " & str2, "")
End Function

Quote
To use:

Code: [You are not allowed to view links. Register or Login]
Private Sub Command1_Click()
    Text1.Text = NumberToWords("123456789")
End Sub

Quote
Sana naka tulong hehe
« Last Edit: 11-03-13 05:23 PM by dems25 »

11-15-13 04:41 PM
nashaquino
Full Member
  • Posts: 494
  • Thanked: 40
  • Reputation: 1
guys need ku lang ng kahit simple source code ng ulink sms gusto ku kasing gumawa ng sarili kung sms application salamat guys PM nyo nalang sakin yun CODE thanks

11-16-13 10:28 PM
nickalcala
Full Member
  • Posts: 357
  • Thanked: 21
  • Reputation: 0
[You are not allowed to view links. Register or Login]
guys need ku lang ng kahit simple source code ng ulink sms gusto ku kasing gumawa ng sarili kung sms application salamat guys PM nyo nalang sakin yun CODE thanks
download ka ng free DLL jan para mas madali, kaysa gumamit ka pa ng AT Commands :D
[You are not allowed to view links. Register or Login]

11-18-13 10:18 AM
Nurell
Full Member
  • Posts: 452
  • Thanked: 51
  • Reputation: 1
penge po school enrollment form please :pray:
"The future belongs to those who believes in the beauty of their DREAMS"
.
.
.
.
-Eleanor Roosevelt :saludo:
add me up guys ;D
[You are not allowed to view links. Register or Login]

11-19-13 03:12 PM
ryancalo53
Semi-Newbie
  • Posts: 12
  • Thanked: 1
  • Reputation: 0
[You are not allowed to view links. Register or Login]
Sir paano ilink ang ms access sa vb6?


TOL

gamit ka nang connection
either ADODC or ADODB

11-19-13 03:23 PM
Look_Up
Semi-Newbie
  • Posts: 19
  • Thanked: 1
  • Reputation: 0
request granted :)

[You are not allowed to view links. Register or Login]

11-20-13 12:37 PM
ryancalo53
Semi-Newbie
  • Posts: 12
  • Thanked: 1
  • Reputation: 0
[You are not allowed to view links. Register or Login]
pede pu adodb or adodc..preferably adodc kasi madali lang lalo na sa mga newbie :D




tol mas madali ang adodb

kung baguhan ka mas mabuti kung adodb na ang aaralin mu  ;D ;D ;D ;D ;D ;D

11-21-13 06:58 AM
cleaner626
Full Member
  • Posts: 848
  • Thanked: 169
  • Reputation: 1
pagawa po ng system na tulad sa manila cafe. para sa school com library. with time limit for every user na 30 minutes pang individual pc sya yung stant alone kahit walang networking at server... tanx

11-27-13 09:25 AM
gems1990
Semi-Newbie
  • Posts: 38
  • Thanked: 1
  • Reputation: 0
pano po ung code ng backup and recovery s vb? Tnx

11-27-13 01:31 PM
Cjreyes10
Full Member
  • Posts: 2587
  • Thanked: 101
  • Reputation: 0
Patatak. ;D may ganto kaming subject e. ;D

11-27-13 05:13 PM
thors
Full Member
  • Posts: 3105
  • Thanked: 484
  • Reputation: 14
patambay vb 6 user here. :kulam:

11-28-13 10:41 PM
imboyjimenez
Semi-Newbie
  • Posts: 7
  • Thanked: 0
  • Reputation: 0
Mga maam and sir, ask ko lang po!
pwede ba mysql or php ung database tas vb6 un programming language gamitin?
pano po ba yun? may sample po kau?
pwede po din makita sample ng attendance monitoring system using rfid o biometrics?
di ku kasi alam san ako magsisimula?

email nyo po sakin sample or dito na lang..
Thanks in advance sa makakatulong..
imboy.jimenez@yahoo.com