
庥 Ŷ 'Cnory Adv 1.0'  (ũ븮 ڽ)


 Ŷ     ֵ  

'̺귯'   Ŷ Դϴ.

ĳ4, ׸3  ϰ  ׸  ־ϴ. 

    ⿡  . ֳ?   

   α׷  ̱ Դϴ.

׷ ̺귯 Ȥ ҽ    ϴ.

׷ 庥   Ѱ   Դϴ.

 
1.  a  

a     ʼ ش ϴ  Դϴ. 

a ڿ   ĳ,  å ʼ Ѿ Դϴ.


2.  b  

b      ȣ Դϴ. ȣ  a  

,  ʼ  ˴ϴ.


3. text box Ʈ 

  Ұ  ڸ  ̴.

ex) b=val(text2.text)

⼭ val()   ȿ  ,  text2.text

, text2.text    ڷ ȯ ϴ ̴.

 b  տ ° text2  b ִ ٴ ̴.

 ݴ  text2.text  "b"  ڸ  Ǽ, 

text2.text  b  µȴ.


5.  ϱ ...

 Ǯ...  Ǯ tool ̶  ִ 

vb  īؾ Ѵ. tool  ü īϸ,

׸  ã´. 

켱  Ѿ Ѵ. ׷ ް ʱ ̴.

1.form_load --> 2.command2_click --> 3.command1_click

1 a  ó ڿ   ׸  ϴ κ̴.
2 Ӻ  ׸ κ,  ʼ  ϴ κ̴.
3  ̵  ϴ κ̴.


6.ĳ .

ĳʹ  gif ε, ׸   ϰ  Ѵ.

伥 ִٸ ϴ.

 ĳ͸ ׸  ϰ  κи,  ä.

׸ 伥 ҷͼ file Ŵ Export  'Gif89a Export' 

 , ̵带   , OK ư 

 ޴ ڵ . ׶ GIF Ϸ Ѵ.

 伥 ٸ, http://my.netian.com/~11crow11  Ͷ.

'Cnory Box'Ȩ ڷǿ ĳ ڷ ִ.
 
7. ׹ۿ..

(1) ׸ ũ Ұ . ũ ۵ ũⰡ â ũ ߾ 

     ̴.

(2) ̰ɷ       ,  

    ۱ǿ    ȣް  ʱ  

     , ص .

(3)   ! ɰ ~~...  

 

 form1 ҽ

Dim a, b As Integer             'a  b  ̴. 




Private Sub Form_Load()

a = 0                            '1. ó  0 Ѵ.
b = Val(Text2.Text)              '2. b = text2  ̸  ´.

Image4.Picture = LoadPicture("picture\ ΰ׸.bmp") '3.ΰ׸ εѴ.

Command1.Caption = "Է"        '3. Է¹ư ̸ Ѵ.
Command2.Caption = "Next"        '4. ư ̸ Ѵ.

Form1.Caption = "̸"       '5.  ̸ ִ´. 

Image1.Picture = LoadPicture("picture\1.bmp")  'ó ׸Ѵ.
Image2.Picture = LoadPicture("picture\ĳ1.gif") 'ĳ1 ׸ ִ´.
Image3.Picture = LoadPicture("picture\ĳ2.gif") 'ĳ2 ׸ ִ´.
                                 
                              *:ĳ͸ ϳ  ĳ2 
                                      ̸ Ⱦ ȴ.
                                 
Text1.Text = "켮:.. ̰   ﲬ? ҷ 1, ƴϸ2.."  'ó縦  ִ´.

End Sub






Private Sub Command2_Click()

'a= ʼ̴. 
' Ӻ Դϴ. 

If a = 0 Then     ' a=0 ̸.. 
Image1.Picture = LoadPicture("picture\1.bmp")  'ó(ߺ)
Image2.Picture = LoadPicture("picture\ĳ1.gif") 'ĳ1(ߺ)
Image3.Picture = LoadPicture("picture\ĳ2.gif") 'ĳ2(ߺ)
Text1.Text = "켮:.. ̰   ﲬ? ҷ 1, ƴϸ2.."      <-- ó(ߺ)

ElseIf a = 1 Then ' a=1 ̸..
Image1.Picture = LoadPicture("picture\")   '<--ó ׸̸ ִ´
Image2.Picture = LoadPicture("picture\")   '<--   "         "          " 
Image3.Picture = LoadPicture("picture\")   '<--   "         "          "
Text1.Text = ""                            '<--   縦 ִ´.

ElseIf a = 2 Then
Image1.Picture = LoadPicture("picture\")                  "
Image2.Picture = LoadPicture("picture\")                  "
Image3.Picture = LoadPicture("picture\")                  " 
Text1.Text = ""

ElseIf a = 3 Then
Image1.Picture = LoadPicture("picture\")                  "
Image2.Picture = LoadPicture("picture\")                  " 
Image3.Picture = LoadPicture("picture\")                  "
Text1.Text = ""

ElseIf a = 4 Then
Image1.Picture = LoadPicture("picture\")                  "
Image2.Picture = LoadPicture("picture\")                  "
Image3.Picture = LoadPicture("picture\")                  "
Text1.Text = ""

ElseIf a = 5 Then
Image1.Picture = LoadPicture("picture\")                  "
Image2.Picture = LoadPicture("picture\")                  "
Image3.Picture = LoadPicture("picture\")                  "
Text1.Text = ""

ElseIf a = 6 Then
Image1.Picture = LoadPicture("picture\")                  "
Image2.Picture = LoadPicture("picture\")                  "
Image3.Picture = LoadPicture("picture\")                  "
Text1.Text = ""

ElseIf a = 7 Then
Image1.Picture = LoadPicture("picture\")
Image2.Picture = LoadPicture("picture\")
Image3.Picture = LoadPicture("picture\")
Text1.Text = ""

ElseIf a = 8 Then
Image1.Picture = LoadPicture("picture\")
Image2.Picture = LoadPicture("picture\")
Image3.Picture = LoadPicture("picture\")
Text1.Text = ""

ElseIf a = 10 Then
Image1.Picture = LoadPicture("picture\")
Image2.Picture = LoadPicture("picture\")
Image3.Picture = LoadPicture("picture\")
Text1.Text = ""

ElseIf a = 11 Then
Image1.Picture = LoadPicture("picture\")
Image2.Picture = LoadPicture("picture\")
Image3.Picture = LoadPicture("picture\")
Text1.Text = ""

ElseIf a = 12 Then
Image1.Picture = LoadPicture("picture\")
Image2.Picture = LoadPicture("picture\")
Image3.Picture = LoadPicture("picture\")
Text1.Text = ""

ElseIf a = 13 Then
Image1.Picture = LoadPicture("picture\")
Image2.Picture = LoadPicture("picture\")
Image3.Picture = LoadPicture("picture\")
Text1.Text = ""

ElseIf a = 14 Then
Image1.Picture = LoadPicture("picture\")
Image2.Picture = LoadPicture("picture\")
Image3.Picture = LoadPicture("picture\")
Text1.Text = ""

ElseIf a = 15 Then                      ': a=15 ̸..
Form3.Show                              '3  ҷ´
Form3.Image1.Picture = LoadPicture("")  '3 ̹ ׸ ִ´.
End If
End Sub



Private Sub Command1_Click()
 
 x=  ƴ϶  Դϴ. a ...
 b = Val(Text2.Text)   '⿡ ̷  ־ Ѵ 

If a = 0 Then         'a= 0 ϶.., ó 鿡..
  If b = 1 Then a = x  '1̶  Էϸ a=x (x=)
  If b = 2 Then a = x  '2̶  Էϸ a=x (x=)

ElseIf a = 1 Then
  If b = 1 Then a = x
  If b = 2 Then a = x

ElseIf a = 2 Then
  If b = 1 Then a = x
  If b = 2 Then a = x

ElseIf a = 3 Then
  If b = 1 Then a = x
  If b = 2 Then a = x

ElseIf a = 4 Then
  If b = 1 Then a = x
  If b = 2 Then a = x

ElseIf a = 5 Then
  If b = 1 Then a = x
  If b = 2 Then a = x

ElseIf a = 6 Then
  If b = 1 Then a = x
  If b = 2 Then a = x

ElseIf a = 7 Then
  If b = 1 Then a = x
  If b = 2 Then a = x

ElseIf a = 8 Then
  If b = 1 Then a = x
  If b = 2 Then a = x

ElseIf a = 9 Then
  If b = 1 Then a = x
  If b = 2 Then a = x

ElseIf a = 10 Then
  If b = 1 Then a = x
  If b = 2 Then a = x

ElseIf a = 11 Then
  If b = 1 Then a = x
  If b = 2 Then a = x

ElseIf a = 12 Then
  If b = 1 Then a = x
  If b = 2 Then a = x

ElseIf a = 13 Then
  If b = 1 Then a = x
  If b = 2 Then a = x

ElseIf a = 14 Then
  If b = 1 Then a = x
  If b = 2 Then a = x

End If
End Sub




form2 

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

' ..  α׷ 2  ˴ϴ.

If KeyCode = 13 Then   'keycode = 13 = Ű ġ..
Unload Me              '2 ȴ.
Form1.Show             '1  ҷͶ.
End If
End Sub

Private Sub Form_Load()

Image1.Picture = LoadPicture("picture\.bmp") ' ׸ ҷ
End Sub




