🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Thread View: fj.lang.visualbasic
3 messages
3 total messages Started by ueki.s Sun, 17 Aug 1997 00:00
$B%*!]%P%U%m!]2sHr65$($F!)!)(J
#1466
Author: ueki.s
Date: Sun, 17 Aug 1997 00:00
29 lines
938 bytes
$B#V#B#4$G(JVB$B$KF~Lg$7$?=i?4<T$G$9!#(J
$B!!$I$J$?$+$4;XF34j$$$^$9!#(J
$B!!=iJbE*$J<B9T;~%*!]%P%U%m!]$G:$$C$F$$$^$9!#(J
$B!!(J
Private Sub Form_Load()
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
End Sub

Private Sub Text1_Change()
Text1.Text = Text1.Text
End Sub

Private Sub Text2_Change()
RL = Val(Text1.Text)
L = Val(Text2.Text)
Q4 = 3.141592654 / 180
Text3.Text = RL / L$B!!!!!!!!!!!v!v!v$3$N9T$G%(!]%i(J
End Sub

Private Sub Text3_Change()

End Sub
$B!!(J
Emll  uekis@mb.infoweb.ne.jp

  $B59$7$/$*4j$$$7$^$9!#(J
Re: $B%*!]%P%U%m!]2sHr65$($F!)!)(J
#1467
Author: !? Ka neko ?!
Date: Sun, 17 Aug 1997 00:00
23 lines
1185 bytes
$B$O$8$a$^$7$F!":#F|$O!#(J
$B;d$b=i?4<T$G$9$,!&!&!&(J

$B$3$N%(%i!<$,$G$k$H$-!"(JL$B$NCM$O(J 0 $B$G$O!)(J
$B$b$7!"$=$&$@$H$9$k$H(J

If L <> 0 Then Text3.Text = Str(RL / L)

$B$H$5$l$F$_$?$i!"$$$+$,$G$7$g$&!#(J
$B$5$i$K!"(J RL / L $B$O?tCM$G$9$N$GJ8;z$KJQ49$7$?$[$&$,$$$$$H;W$$$^$9!#(J
$B:#!"<j85$K(JVisual Basic$B$,$J$$$N$G!"3N$+$a$k$3$H$,$G$-$J$$$N$G$9$,!"(J
$B$b$7!"4V0c$($F$$$?$i$4$a$s$J$5$$!#(J
$B3NG'$O!"8f<+?H$G$*4j$$$7$^$9!#(J
$B;29M$K$J$l$P9,$$$G$9!#(J

-- 
!? Ka neko ?! <k-cat@pp.iij4u.or.jp> <http://www.pp.iij4u.or.jp/~k-cat>

ueki.s <uekis@mb.infoweb.ne.jp> wrote in article
<01bcaaea$758438c0$LocalHost@default>...

> Text3.Text = RL / L$B!!!!!!!!!!!v!v!v$3$N9T$G%(!]%i(J
Re: オ-バフロ-回避教えて??
#1469
Author: Kazuhiro Machida
Date: Mon, 18 Aug 1997 00:00
36 lines
1412 bytes
$BD.ED$H?=$7$^$9!#(J

ueki.s <uekis@mb.infoweb.ne.jp> wrote in article
<01bcaaea$758438c0$LocalHost@default>...
| $B#V#B#4$G(JVB$B$KF~Lg$7$?=i?4<T$G$9!#(J
| $B!!$I$J$?$+$4;XF34j$$$^$9!#(J
| $B!!=iJbE*$J<B9T;~%*!]%P%U%m!]$G:$$C$F$$$^$9!#(J
| 
$B!AN,!A(J
| 
| Private Sub Text2_Change()
| RL = Val(Text1.Text)
| L = Val(Text2.Text)
| Q4 = 3.141592654 / 180
| Text3.Text = RL / L$B!!!!!!!!!!!v!v!v$3$N9T$G%(!]%i(J
| End Sub

$B$H$j$"$($:?tCM$NJQ?t$r$9$Y$F(JDouble$B7?$K$7$F$_$F$O$I$&$G$7$g$&!#(J

$BNc!K(J
  Private Sub Text2_Change()
  RL# = Val(Text1.Text)
  L# = Val(Text2.Text)
  Q4# = 3.141592654 / 180
  Text3.Text = RL# / L#
  End Sub

$B!AN,!A(J

-- 
============================================================
Name   $BD.ED(J $BOB9-(J (Kazuhiro Machida)
E-mail kmachi@highway.or.jp (Home)
       kmachi@niccon.co.jp (Office)
============================================================
Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads