VB6

2011 ജൂലൈ 21, വ്യാഴാഴ്‌ച

Type Writeing പഠിക്കാൻ ഇതാ vb6 ൽ ഒരു Pojec

Type Writing പഠിക്കാൻ ഇതാ vb6 ൽ ഒരു Project

ആദ്യമായ് standard exe തിരഞ്ഞ്ടുത്ത് കാണുന്ന Form1 ലേക്ക് ചിത്രത്തിൽ കാണുന്നത് പോലെ മൂന്ന് Label ,മൂന്ന് Timer ഒരു Command button ഒരു Picture box ആ Picture box അകത്ത് പന്ത്രെണ്ട് Option button എന്നിവ വെക്കുക എന്നിട്ട് ചിത്രത്തിൽ കാണുന്നത് പോലെ ക്രെമീകറിക്കുക

എന്നിട്ട് താഴെ കാണുന്ന് കോഡ് കോഡ് പേജിലേക്ക് കോപി ചെയുക

അപോൾ താഴെകാണുന്നത് പോലെ കിട്ടും ഇനി സ്റ്റാർട്ട് ബട്ടൺ ക്ലിക്ക് ചെയ്ത് തുടങ്ങൂ

First You select standard exe then will come Form1

please put form below Dir:

3 Label

3 Timmer

1 command button

1 picture box

picture box inside put 12 Option button

after look image same do

after Run and clike start button and Do Learning Typing.

'Code copy this below

Dim a As Integer

Dim T As Integer

Dim C As Integer

Private Sub Command1_Click()

Timer2.Enabled = True

a = 10

End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If Chr(KeyCode) = Mid(Label1.Caption, 1, 1) Then

Label1.Caption = Mid(Label1.Caption, 2, Len(Label1.Caption))

C = C + 1

a = 1

Else

a = 1

Label2.Caption = Label2.Caption + 1

Call Reset

Beep

End If

If Len(Label1.Caption) = 0 Then Call Reset: Label3.Caption = Label3.Caption + 1

End Sub

Private Sub Form_Load()

Timer1.Enabled = False

Timer2.Enabled = False

Timer3.Enabled = False

Timer1.Interval = 1

Timer2.Interval = 500

Timer3.Interval = 500

Command1.Caption = "START"

Label1.Caption = "ABC"

Label2.Caption = "00"

Label3.Caption = "00"

Option1.Value=True

Option1.Caption = "STAGE 1"

Option2.Caption = "STAGE 2"

Option3.Caption = "STAGE 3"

Option4.Caption = "STAGE 4"

Option5.Caption = "STAGE 5"

Option6.Caption = "STAGE 6"

Option7.Caption = "STAGE 7"

Option8.Caption = "STAGE 8"

Option9.Caption = "STAGE 9"

Option10.Caption = "STAGE 10"

Option11.Caption = "STAGE 11"

Option12.Caption = "STAGE 12"

End Sub

Private Sub Timer1_Timer()

If Label1.Top <= 6000 Then

Label1.Top = Label1.Top + 6

Else

Beep

Call Reset

End If

End Sub

Public Sub Reset()

Label1.Top = 0

Dim RRND As Integer

Dim I As Integer

Label1.Caption = ""

a = 0

If Option1.Value = True Then

For I = 1 To 120

RRND = Int(Rnd * 120)

If Chr(RRND) = "A" Or Chr(RRND) = "S" Or Chr(RRND) = "D" Or Chr(RRND) = "F" Or Chr(RRND) = "J" Or Chr(RRND) = "K" Or Chr(RRND) = "L" Then

Label1.Caption = Label1.Caption + Chr(RRND)

If Len(Label1.Caption) >= 3 Then Exit Sub

End If

Next I

End If

If Option2.Value = True Then

For I = 1 To 120

RRND = Int(Rnd * 120)

If Chr(RRND) = "A" Or Chr(RRND) = "S" Or Chr(RRND) = "D" Or Chr(RRND) = "F" Or Chr(RRND) = "G" Or Chr(RRND) = "H" Or Chr(RRND) = "J" Or Chr(RRND) = "K" Or Chr(RRND) = "L" Then

Label1.Caption = Label1.Caption + Chr(RRND)

If Len(Label1.Caption) >= 3 Then Exit Sub

End If

Next I

End If

If Option3.Value = True Then

For I = 1 To 120

RRND = Int(Rnd * 120)

If Chr(RRND) = "A" Or Chr(RRND) = "S" Or Chr(RRND) = "D" Or Chr(RRND) = "F" Or Chr(RRND) = "G" Or Chr(RRND) = "H" Or Chr(RRND) = "R" Or Chr(RRND) = "U" Or Chr(RRND) = "J" Or Chr(RRND) = "K" Or Chr(RRND) = "L" Then

Label1.Caption = Label1.Caption + Chr(RRND)

If Len(Label1.Caption) >= 3 Then Exit Sub

End If

Next I

End If

If Option4.Value = True Then

For I = 1 To 120

RRND = Int(Rnd * 120)

If Chr(RRND) = "A" Or Chr(RRND) = "S" Or Chr(RRND) = "D" Or Chr(RRND) = "F" Or Chr(RRND) = "G" Or Chr(RRND) = "H" Or Chr(RRND) = "R" Or Chr(RRND) = "T" Or Chr(RRND) = "Y" Or Chr(RRND) = "U" Or Chr(RRND) = "J" Or Chr(RRND) = "K" Or Chr(RRND) = "L" Then

Label1.Caption = Label1.Caption + Chr(RRND)

If Len(Label1.Caption) >= 3 Then Exit Sub

End If

Next I

End If

If Option5.Value = True Then

For I = 1 To 120

RRND = Int(Rnd * 120)

Label1.Caption = Label1.Caption + Chr(RRND)

If Len(Label1.Caption) >= 3 Then Exit Sub

End If

Next I

End If

If Option6.Value = True Then

For I = 1 To 120

RRND = Int(Rnd * 120)

Label1.Caption = Label1.Caption + Chr(RRND)

If Len(Label1.Caption) >= 3 Then Exit Sub

End If

Next I

End If

If Option7.Value = True Then

For I = 1 To 120

RRND = Int(Rnd * 120)

Label1.Caption = Label1.Caption + Chr(RRND)

If Len(Label1.Caption) >= 3 Then Exit Sub

End If

Next I

End If

If Option8.Value = True Then

For I = 1 To 120

RRND = Int(Rnd * 120)

If Chr(RRND) = "A" Or Chr(RRND) = "S" Or Chr(RRND) = "D" Or Chr(RRND) = "F" Or Chr(RRND) = "G" Or Chr(RRND) = "H" Or Chr(RRND) = "R" Or Chr(RRND) = "T" Or Chr(RRND) = "Y" Or Chr(RRND) = "V" Or Chr(RRND) = "B" Or Chr(RRND) = "M" Or Chr(RRND) = "N" Or Chr(RRND) = "U" Or Chr(RRND) = "J" Or Chr(RRND) = "K" Or Chr(RRND) = "E" Or Chr(RRND) = "C" Or Chr(RRND) = "I" Or Chr(RRND) = "O" Or Chr(RRND) = "W" Or Chr(RRND) = "X" Or Chr(RRND) = "P" Or Chr(RRND) = "L" Then

Label1.Caption = Label1.Caption + Chr(RRND)

If Len(Label1.Caption) >= 3 Then Exit Sub

End If

Next I

End If

If Option8.Value = True Then

For I = 1 To 120

RRND = Int(Rnd * 120)

Label1.Caption = Label1.Caption + Chr(RRND)

If Len(Label1.Caption) >= 3 Then Exit Sub

End If

Next I

End If

If Option9.Value = True Then

For I = 1 To 120

RRND = Int(Rnd * 120)

Label1.Caption = Label1.Caption + Chr(RRND)

If Len(Label1.Caption) >= 6 Then Exit Sub

End If

Next I

End If

If Option10.Value = True Then

For I = 1 To 120

RRND = Int(Rnd * 120)

Label1.Caption = Label1.Caption + Chr(RRND)

If Len(Label1.Caption) >= 8 Then Exit Sub

End If

Next I

End If

If Option11.Value = True Then

For I = 1 To 120

RRND = Int(Rnd * 120)

Label1.Caption = Label1.Caption + Chr(RRND)

If Len(Label1.Caption) >= 4 Then Exit Sub

End If

Next I

End If

If Option12.Value = True Then

For I = 1 To 120

RRND = Int(Rnd * 120)

Label1.Caption = Label1.Caption + Chr(RRND)

If Len(Label1.Caption) >= 4 Then Exit Sub

End If

Next I

End If

End Sub

Private Sub Timer2_Timer()

If a <= 1 Then

Timer2.Enabled = False

Timer1.Enabled = True

Timer3.Enabled = True

Call Reset

Command1.Enabled = False

Picture1.Enabled = False

Else

a = a - 1

Me.Caption = a

Beep

End If

End Sub

Private Sub Timer3_Timer()

Label1.ForeColor = QBColor(Int(Rnd * 16))

T = T + 1

If T >= 120 Then

MsgBox "60/" & C

'List1.AddItem "60/" & C & " False " & Label2.Caption & " true " & Label3.Caption

T = 0

C = 0

Label2.Caption = 0

Label3.Caption = 0

Command1.Enabled = True

Timer3.Enabled = False

Timer1.Enabled = False

Picture1.Enabled = True

a = 1

End If

Me.Caption = T

End Sub

ലേബൽ ഒന്നിന്റെ ഫൊൺറ്റ് സൈസ് വലുതാക്കണം
Label 1 's font size put large or 26size

2011 ജൂലൈ 11, തിങ്കളാഴ്‌ച

Vb6 CommonDialog

Vb6 CommonDialog
CommonDialog1.ShowColor CommonDialog1.ShowFont CommonDialog1.ShowHelp CommonDialog1.ShowOpen CommonDialog1.ShowPrinter CommonDialog1.ShowSave
കോമൻ ഡയലോഗ്
കോമൻഹ് ഡയലോഗ് സാധാരണയായി ഫോമിൽ ഫയൽ ഓപെൺ ചെയ്യുക
ഫയൽ സെവ് ചെയ്യുക ,കലർ തിര്ഞ്ഞ്ടുക്കുക എന്നിവക്ക് ഇത് ഉപയോഗിക്കുന്നു.
ചില അവസരങ്ങളിൽ ഫോന്ട് ഹെൽപ്പ് എന്നിവക്കും ഇതിന്ടെ സഹായം തേടും
On Error Resume Next
With CommonDialog1
.DialogTitle = "Open File"
.Filter = "Web page (*.htm;*.html) | *.htm;*.html|" & _
"All Supported Picture formats|*.gif;*.tif;*.pcd;*.jpg;*.wmf;" & _
"*.tga;*.jpeg;*.ras;*.png;*.eps;*.bmp;*.pcx|" & _
"Text formats (*.txt;*.doc)|*.txt;*.doc|" & _
"All files (*.*)|*.*|"
.ShowOpen
.Flags = 5
WebBrowser1.Navigate2 .FileName
End With

2010 ഒക്‌ടോബർ 30, ശനിയാഴ്‌ച

വിഷ്വൽ ബേസിക്കിൽ save for and open Text ,String

വിഷ്വൽ ബേസിക്കിൽ save for and open Text ,String

ഫോമിലേക്ക് ഒരു Text box ഇടുക മാത്രം ചെയ്യുക.ഇനി കോഡ് ലേക്ക് പോവാം നിങ്ങൾ താഴെ കാണുന്ന കോഡ് എഴുതുകയോ കോപി
ചെയ്ത് പേസ്റ്റ് ചെയുകയോ ചെയുക.

Private Sub Form_Load()
Open App.Path + "/mytext.txt" For Input As #1
Text1.Text = Input(LOF(1), 1)
Close 1
End Sub

Private Sub Form_Unload(Cancel As Integer)
Open App.Path + "/mytext.txt" For Output As #1
Print #1, Text1.Text
Close 1
End Sub

ഇത് റൺ ചെയ്യുൻബോൽ error കാണിച്ചാൽ താഴെ കാണുന്ന കോഡ് കൊടുത്ത് ഒരു പ്രാവസ്യം റൺ ചെയ്ത് പിന്നെ ഡിലീറ്റ് ചെയ്ത് മുകളിലെ കോഡ് എഴുതി റൺ ചെയ്യുക.

Private Sub Form_Load()
Open App.Path + "/mytext.txt" For Output As #1
Print #1, Text1.Text
Close 1
End Sub

ഇനി നിങ്ങൾ റൺ ചെയുക എന്നിട്ട് Text box നിങ്ങൾ എന്തെങ്കിലും എഴുതുക എന്നിട്ട് ക്ലോസ് ചെയ്ത് വീണ്ടുംറൺ ചെയുക അപോൾ നിങ്ങൾ എഴുതിയത് Text box ഡിസ്പ്ലെ ചെയുംവീണ്ടും നിങ്ങൾ എഴുതിയാലും ഇത് ഒരു റ്റെക്റ്റ് ഫയൽ ആയി App.Path ൽ സെവ് ചെയുന്നു.App.Path പകരം " c:/mytext.txt" എന്നാകിയാൽ ഫിയൽ disk c യിൽ സെവ് ചെയ്യും.ആ പേരിൽ നിലവിൽ ഫയൽ ഇല്ലങ്കിൽ പുതിയ ഫയൽ സെവ് ചെയ്യും .
For Input ഇത് ഫയൽ തുറന്ന് [open and records read only ] Text box , String എന്നിവയിലേക്ക് ഫയലിലെ റ്റെക്റ്റ് പകർത്താൻ കഴിയുന്നു Close 1 തുറന്നത് ക്ലോസ്സ് ചെയ്യുന്നു.
For Output ഇത് ഫയൽ തുറന്ന് [open and created new records write only ] Text box , String എന്നിവയിൽ ഉള്ള റ്റെക്റ്റ്
ഫയൽ നിലവിലുള്ള റ്റെക്റ്റ് ഒഴിവാകി പുതിയതായി സെവ് ചെയ്യാൻ കഴിയുന്നു. Close 1 തുറന്നത് ക്ലോസ്സ് ചെയ്യുന്നു.
For Random: ഇത് ഫയൽ തുറന്ന് റ്റെക്റ്റ് പകർത്താനും സെവ് ചെയ്യാനു കയിഴുന്നു [open write and read in specific record ]
Open App.Path + "/mytext.txt" For Random As #1 Len = 50
Get #1, recordss number, String
put #1, recordss number, String
for Append നിലവിലുള്ള ഫയലിലേക്ക് പുതിയതായി റ്റെക്സ് സേവ് ചെയ്യുന്നു നിലവിലുള്ള ഫയലിലെ റ്റെക്സ് നിലനിർത്തി.
for Binary: ഇത് ഫയൽ തുറന്ന് റ്റെക്റ്റ് [ byte level] പകർത്താനും സെവ് ചെയ്യാനു കയിഴുന്നു [open write and read at byte level]

നിങ്ങളുടെ അഭിപ്രായം എഴുതൂ....? കൂടെ സംശയങ്ങളും . ..തിരുത്തുകളും .

തുടരും....

2010 ഒക്‌ടോബർ 19, ചൊവ്വാഴ്ച

വിഷ്വൽ ബേസിക്കിൽ രജിസ്റ്ററി കീ

വിഷ്വൽ ബേസിക്കിൽ രജിസ്റ്ററി കീ നിർമ്മിക്കുന്നത് എങ്ങിനെ എന്ന് നോക്കാം

നമൂക്ക് കീ നിർമിക്കാൻ SaveSetting എന്നും ആ വില എടുക്കാൻ GetSetting ഉപയോഗിക്കാം
ആദ്യമായ് നമ്മുക്ക് ഒരു പ്രൊജെക്റ്റ് ചെയ്ത് നോക്കാം എന്നിട്ട് അതിനെ പറ്റി പരിശോദിക്കാംഒരു പുതിയ പ്രൊജെക്റ്റ് തുടങ്ങുക . ഫോമിലേക്ക് ഒരു Text box ഇടുക മാത്രം ചെയ്യുക.ഇനി കോഡ് ലേക്ക് പോവാം നിങ്ങൾ താഴെ കാണുന്ന കോഡ് എഴുതുകയോ കോപി ചെയ്ത് പേസ്റ്റ് ചെയുകയോ ചെയുക.
Dim blogmalayalam As String
Private Sub Form_Load()
blogmalayalam = GetSetting(App.Title, "Settings", "blogmalayalam", "No value")
Text1.text = blogmalayalam
End Sub
Private Sub Form_Unload(Cancel As Integer)
blogmalayalam = Text1.text
SaveSetting App.Title, "Settings", "blogmalayalam", blogmalayalam
End Sub

ഇനി നിങ്ങൾ റൺ ചെയ്താൾ Text box ൽ No value എന്ന് കിട്ടും ഇനി Text box നിങ്ങൾ എന്തെങ്കിലും എഴുതുക എന്നിട്ട് ക്ലോസ് ചെയ്ത് വീണ്ടുംറൺ ചെയുക അപോൾ നിങ്ങൾ എഴുതിയത് Text box ഡിസ്പ്ലെ ചെയുംവീണ്ടും നിങ്ങൾ എഴുതിയാലും അത് റെജിസ്റ്റെറിയിൾ കീ ആയി സെവ് ചെയ്യും
SaveSetting(AppName As String, Section As String, Key As String, Setting As String)

GetSetting(AppName As String, Section As String, Key As String, [Default]) As

String

ഇത് എവിടെയാന്ന് സേവ് ചെയ്തത് കാണാൻ start clike ചെയ്ത് അതിൽ കാണുന്ന Run ക്ലിക്ക് ചെയ്ത് regedit എന്ന് ട്ടൈപ്പ് ചെയുക ok ക്ലിക്ക് ചെയ്ത് താഴെ കാണുന്നവ സെലെക്റ്റ് ചെയ്താൽ അവസാനം വരുന്ന കോളത്തി കാണാം.
KEY_CURRENT_USER\Software\VB and VBA Program Settings\Project1\Settings
രജിസ്റ്ററി കീ നിങ്ങൾക്ക് പാസ് വേർഡ് എന്നീ പ്രദാനപെട്ട പലതും നിങ്ങൾക്ക് ഉപയോഗിക്കാം.മറ്റു ഉപയോഗങ്ങൾനിങ്ങൾക്ക് തന്നെ ചെയ്ത് നോക്കുക.
ഇനി നിങ്ങൾ ക്ക് കൂടുതൽ മനസിലാക്കാൻ വേണ്ടി ഇതാ തഴെ കൊടുത്തത് നേരത്തെ കൊടുത്ത കോഡിന്ന് പകരംകൊടുത്ത് നോക്കുക .ഇതിൽ രജിസ്റ്ററിൽ പേര് A ആകുന്നു കീ പേരുകൽ എന്നിവ മാറുന്നു പ്രെവർത്തണം മുകളിൽ കൊടുത്ത മാതിരി തന്നെ. ഇത് നിങ്ങാൾക്ക് മനസിലാക്കാം എളുപ്പാമാവും എന്ന് കരുതുന്നു.

Private Sub Form_Load()
Text1.Text = GetSetting("A", "B", "C", "")
End Sub
Private Sub Form_Unload(Cancel As Integer)
SaveSetting "A", "B", "C", Text1.Text
End Sub

നിങ്ങളുടെ അഭിപ്രായം എഴുതൂ....? കൂടെ സംശയങ്ങളും . ..തിരുത്തുകളും എല്ലാം.

തുടരും.........