5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

■■ \/ |ヨ でプログラム大会!! ■■

1 :Final C14c5 ◆mcNJmR/E :01/11/15 23:54 ID:???

 って、なんつったりしてな。

2 :原 哉文:01/11/15 23:54 ID:iPqVJ+me
  

3 :どこまでも名無しさん:01/11/15 23:54 ID:???
そうか

4 : ◆vOaNGIN2 :01/11/15 23:54 ID:???
意味 が わからん

5 :どこまでも名無しさん:01/11/15 23:54 ID:???
xor eax,eax

6 :Final C14c5 ◆mcNJmR/E :01/11/15 23:56 ID:???
ラウジャーでVBを使うヤツはいないの?

7 :どこまでも名無しさん:01/11/15 23:56 ID:???
movq mm2,[edx+10]

8 :どこまでも名無しさん:01/11/15 23:57 ID:???
xor esp,esp

キケン

9 :どこまでも名無しさん:01/11/15 23:57 ID:???
ラウンジャでcgi作ろうぜ

10 :Final C14c5 ◆mcNJmR/E :01/11/15 23:59 ID:???
正直 Perl はチョット・・。

11 :どこまでも名無しさん :01/11/15 23:59 ID:???
Function AddVBFuncString2(ByVal Str As String) As String
Dim i As Long, j As Long, k As Long, Counter As Long
Dim f As Integer, MyEndFlag As Boolean
Dim MyStr As String, TextStr As String

Counter = 1
MyEndFlag = False
i = 1
k = 1
j = 1
TextStr = ""

Do Until Counter = 0

k = InStr(k, Str, vbCrLf)
If k = 0 Then
k = j + 1
MyStr = Mid$(Str, j)
MyEndFlag = True
Else
MyStr = Mid$(Str, j, k - j)
End If
'条件文字列の指定
MyStr = VBStringAddColor(MyStr)

TextStr = TextStr & MyStr & vbCrLf
If k < Len(Str) And MyEndFlag = False Then
Counter = 1: k = k + 2: j = k
Else
Counter = 0
End If
Loop

Text2.Visible = False
Text2.Text = ""
Text2.Text = TextStr
Text2.Visible = True

End Function

12 :どこまでも名無しさん:01/11/16 00:00 ID:???
CDialog dlg(ID_DIALOGBOX,this);
dlg.DoModal();

13 :どこまでも名無しさん:01/11/16 00:00 ID:???
halt

14 :どこまでも名無しさん:01/11/16 00:01 ID:ZGegtx++
rm -rf /

15 :どこまでも名無しさん:01/11/16 00:02 ID:???
<html></html>

16 :どこまでも名無しさん:01/11/16 00:03 ID:???
14のIDステキ、と。

17 :どこまでも名無しさん:01/11/16 00:05 ID:???
BOOL TestApp::InitInstance()
{
MessageBox("アヒャ","アヒャ");

return FALSE;
}

18 :どこまでも名無しさん:01/11/16 00:08 ID:???
Private Sub Draw1(ByVal A As Integer, ByVal B As Integer, ByVal C As Integer, Dist As Single, _
ByVal MAngle1 As Single, ByVal MAngle2 As Single, ByVal MAngle3 As Single)
On Error GoTo Err1
'実際の描画
Dim k As Integer
Dim MyX As Double, MyY As Double, MyZ As Double, Multi As Single
Dim PW As Integer, PH As Integer
Dim PDC As Long, DDC As Long
Dim APIby As Single
Dim NewPen As Long, OldPen As Long 'API使用時の変数
Dim MeX As Single, MeY As Single
Dim MyPoint1 As My3DPoint

MeX = P1.Width
MeY = P1.Height

PDC = P1.hdc
DDC = D1.hdc
Call BitBlt(PDC, H0, H0, P1.Width, P1.Height, H0, H0, H0, &H42) '黒くする

P1.ForeColor = vbGreen
P1.ScaleMode = vbTwips
APIby = 0.0667
'PW = P1.Width / 2
'PH = P1.Height / 2
With MyPoint.MyXYZArg(H0)
Call Projection(.Xsingle, .Ysingle, .Zsingle)
XX = .Xsingle
YY = .Ysingle
End With
Dim PenColor As Long
PenColor = vbGreen

NewPen = CreatePen(H0, H1, PenColor) 'Use API
OldPen = SelectObject(PDC, NewPen) 'Use API

Dim STheta As Single, CTheta As Single


For k = 1 To MyPoint.Count - H2
With MyPoint.MyXYZArg(k)

MyX = CDbl((.Xsingle) + A)
MyY = CDbl((.Ysingle) + B)
MyZ = CDbl((.Zsingle) * H2)

MyRotateX (MAngle1)
Call MyAffine3D(MyX, MyY, MyZ)

MyRotateY (MAngle2)
Call MyAffine3D(MyX, MyY, MyZ)

MyRotateZ (MAngle3)
Call MyAffine3D(MyX, MyY, MyZ)

MyX = ((MyX) * C) + (MeX / H2)
MyY = ((-MyY) * C) + (MeY / H5 * H3) - H100

19 :どこまでも名無しさん:01/11/16 00:08 ID:???

If k > H1 And .PolygonType = H0 Then

If XX > MeX And MyX > MeX Then
ElseIf YY > MeY And MyY > MeY Then
Else

' P1.Line (XX, YY)-(MyX, MyY), vbGreen

XX = (XX) * APIby
YY = (YY) * APIby

' MyX = (XX) / .Zsingle + (MeX / 2)
' MyY = (YY) / .Zsingle + (MeY / 2)

Call MoveToEx(PDC, XX, YY, H0) 'Use API
Call LineTo(PDC, MyX * APIby, MyY * APIby) 'Use API

End If
Else
End If

XX = MyX: YY = MyY: .RolateX = XX: .RolateY = YY

End With

Call SelectObject(PDC, OldPen) 'Use API
Call DeleteObject(NewPen) 'Use API

Next k
Exit Sub

Err1:
'Call MsgBox(" 1は逝ってよし ", vbExclamation + vbOKOnly, "処理不能です。")
End Sub

20 :どこまでも名無しさん:01/11/16 00:08 ID:???
BOOL TestApp::InitInstance()
{
__asm{
//アヒャ
mov esp,0h
  }

return FALSE;
}

21 :どこまでも名無しさん:01/11/16 00:12 ID:???
/** アボーン */
  public Piece getNext() {
return next;
}

private void newGame() {

grid.reset();

piece = Piece.createRandomPiece(grid);

grid.addPiece(piece);
score.save();
reset();
}

22 :どこまでも名無しさん:01/11/16 00:13 ID:???
void アヒャ(void)
{
HDC dc;
LPTSTR str;
int org;
str = "アヒャ";
dc = GetDC(0);
SetTextColor(dc,RGB(255,0,0));
org = SetBkMode(dc,TRANSPARENT)
TextOut(dc,0,0,str,strlen(str));
SetBkMode(dc,org);
ReleaseDC(dc,0);
}

23 :どこまでも名無しさん:01/11/16 00:17 ID:???
#include <giko.h>
#include <lounge.h>
#include <fuck.h>

#define PI 3.1415926535897932384626433832795028

double f[3][3];

/*struct Point3D
{
double x;
double y;
double z;
};*/

BOOL WINAPI Affine3D( HINSTANCE hDLL, DWORD dwReason, LPVOID lpReserved , Itteyoshi )
{
return TRUE;
}

24 :Final C14c5 ◆mcNJmR/E :01/11/16 00:18 ID:???
って、C とか JAVA のソースかよ・・。 ヲイ。

25 :どこまでも名無しさん:01/11/16 00:20 ID:???
class アヒャ : public ゴルァ!!{
public:
アヒャ(void);


};

アヒャ::アヒャ(void)
{
//アヒャーリ
__asm mov esp,0h

}

26 :どこまでも名無しさん:01/11/16 00:26 ID:???
int WINAPI WinMain(HINSTANCE,HINSTANCE,LPTSTR,int)
{
 //あぼん
 アヒャ ウマー;

 return FALSE;1
}

27 :どこまでも名無しさん:01/11/16 00:26 ID:???
return FALSE;
の間違いね

28 :どこまでも名無しさん:01/11/16 00:32 ID:???
:lp
mov [esp],123h
sub esp,4
cmp esp,4
jae lp

29 :どこまでも名無しさん:01/11/16 00:35 ID:???
\/ |ヨ これでVBと読むのか

30 :Final C14c5 ◆mcNJmR/E :01/11/16 00:36 ID:???
アセンブラかよ!

31 :どこまでも名無しさん:01/11/16 00:36 ID:???
IF(TYP.EQ.3) THEN
READ(3,*) XINI,ZINI,SINI,XN,ZN,TOL,TON
XW=2.0D00*R1
ZW=DSQRT(3.0D+00)*R1
I=NN
KK=0
XNN=XN+1
757 KK=KK+1
XNN=XNN-1
IF(KK.EQ.TOL) THEN
XNN=XNN-TON
DO 758 J=1,XNN
R(I)=R1
X(I)=XINI+REAL(J-1)*XW+REAL(KK-1)*R1+XW*REAL(TON)
Z(I)=ZINI+REAL(KK-1)*ZW
GR(I)=JJJ
I=I+1
758 CONTINUE
XNN=XNN+TON
ELSE
DO 756 J=1,XNN
R(I)=R1
X(I)=XINI+REAL(J-1)*XW+REAL(KK-1)*R1
Z(I)=ZINI+REAL(KK-1)*ZW
GR(I)=JJJ

32 :どこまでも名無しさん:01/11/16 00:38 ID:???
DQN

33 :N88BASIC:01/11/16 00:43 ID:???
4020 OPEN BCY0$+"USER0\OUTBOX.MBX" FOR INPUT AS #1
4030 OPEN BCY0$+"USER0\OUTBOX.TMP" FOR OUTPUT AS #2
4040 WHILE EOF(1)=0
4050 LINE INPUT #1,DMY0$
4060 IF INSTR(DMY0$,".")>0 THEN CT00%=CT00%+1
4070 PRINT #2,DMY0$
4080 WEND
4090 PRINT #2,"FROM:"+MFR0$
4100 PRINT #2,"TO:"+MFR0$
4110 PRINT #2,"BCC:";
4120 FOR CT03%=0 TO CT01%-1
4130 PRINT #2,MTO0$(CT03%)
4140 NEXT CT03%
4150 PRINT #2,"SUBJECT:"+DNC0$
4160 PRINT #2,"X-PRIORITY:3"
4170 PRINT #2,"STATUS:RW"
4180 PRINT #2,"X-BECKY-ATTACHMENT-FILE:"+CSV0$+DNC0$+".CSV"
4190 PRINT #2,""
4200 FOR CT03%=0 TO CT02%-1
4210 PRINT #2,MBD0$(CT03%)
4220 NEXT CT03%

34 :どこまでも名無しさん:01/11/16 00:43 ID:???
トゥナイト2

35 :どこまでも名無しさん:01/11/16 01:47 ID:???
IF ERRORLEVEL GOTO AGE

36 :どこまでも名無しさん:01/11/16 01:53 ID:???
10 open "2ch.dat" as #1 for output
20 print #1,"kuso sure taten-na voke!"
30 close #1
40 end

10 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)